Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Create Cursor curEvalsample (A_Field_Name C(30), bNumber1 B, bNumber2 B)
Insert into curEvalsample values ("0.42",1,2)
Insert into curEvalsample values ("bNumber1",4,8)
Insert into curEvalsample values ("bNumber2",16,32)
Calculate Sum(Evaluate(A_Field_Name)) To nVar
Create Cursor curEvalsample2 (cExpression1 C(30), cExpression2 C(30))
Insert into curEvalsample2 values ("0.42","2")
Insert into curEvalsample2 values ("4","8")
Insert into curEvalsample2 values ("32","16")
A_Field_Name = "cExpression1"
Calculate Sum(Val(Evaluate(A_Field_Name))) To nVar1
A_Field_Name = "cExpression2"
Calculate Sum(Val(Evaluate(A_Field_Name))) To nVar2
Select SQL
Go Top
Calculate Cnt(),;
Sum(Val(Evaluate(goApp.Fld_Epfno))),;
Sum(Evaluate(goApp.Fld_Epf)),;
Sum(Evaluate(goApp.Fld_CoEpf));
To mTotEmp, mHshTot, mTotEpf, mTotCoEpf
mTotEmp = Padl(AllTrim(str(mTotEmp,5)),5,"0")
mHshTot = Padl(AllTrim(Str(mHshTot,13)),13,"0")
mTotEpf = Padl(AllTrim(Str(mTotEpf,7)),7,"0")
mTotCoEpf = Padl(AllTrim(Str(mTotCoEpf,7)),7,"0")
Select Epforma3
Append Blank
Replace Epforma3.Dtype with "99" ,;
Epforma3.HshTot with mHshTot,;
Epforma3.TotEmp with padl(alltrim(mTotEmp),7,"0"),;
Epforma3.TotCoEpf with mTotCoEpf ,;
Epforma3.TotEpf with mTotEpf ,;
Epforma3.Fillers with Spac(69)
goApp=CREATEOBJECT("cApplication")
goApp.Fld_Epfno = Config.Fld_Epfno