New Post: Parallrlfox - how to run a form method

 SELECT inward1
 FLUSH IN inward1
 LOCAL lxreco1
 LOCAL nnsal3tqty, nnsal3tamt, nnsal3tplusminamt, nnsal3tscheme, nnsal3ttdamt, nnsal3tcdamt, nnsal3texcise, nnsal3ttaxamt, nnsal3tvatamt, nnsal3toctroi, nnsal3tfreight, nnsal3tcnamt, nnsal3gadd, nnsal3gless, nnsal3gtbamt
 lxreco1 = inward.reco1
 salrec = RECNO()
 SELECT qty, amt, plusminamt, scheme, tdamt, cdamt, excise, taxamt, vatamt, octroi, freight, cnamt, add, less, tbamt FROM inward1 WITH (BUFFERING=.T.) WHERE reco1=lxreco1 INTO CURSOR tempinward1
 SELECT tempinward1
 SUM qty, amt, plusminamt, scheme, tdamt, cdamt, excise, taxamt, vatamt, octroi, freight, cnamt, add, less, tbamt TO nnsal3tqty, nnsal3tamt, nnsal3tplusminamt, nnsal3tscheme, nnsal3ttdamt, nnsal3tcdamt, nnsal3texcise, nnsal3ttaxamt, nnsal3tvatamt, nnsal3toctroi, nnsal3tfreight, nnsal3tcnamt, nnsal3gadd, nnsal3gless, nnsal3gtbamt ALL
 SELECT inward
 myrepl = ''
 myrepl = myrepl+"Repl totqty With nnsal3tqty"
 myrepl = myrepl+",totamt With nnsal3tamt, netamt With nnsal3tamt, taamt With nnsal3tamt, tbamt With nnsal3gtbamt, plusminamt With nnsal3tplusminamt"
 myrepl = myrepl+",Scheme With nnsal3tscheme, tdamt With nnsal3ttdamt, cdamt With nnsal3tcdamt, excise With nnsal3texcise, taxamt With nnsal3ttaxamt"
 myrepl = myrepl+",vatamt With nnsal3tvatamt, octamt With nnsal3toctroi, freight With nnsal3tfreight"
 myrepl = myrepl+",tless With Scheme+tdamt+cdamt+cnamt+less+tbamt, tadd With excise+taxamt+vatamt+octamt+freight+Add"
 IF plusminamt<0
    myrepl = myrepl+',tless With tless+Abs(plusminamt)'
 ELSE
    myrepl = myrepl+',tadd With tadd+Abs(plusminamt)'
 ENDIF
 myrepl = myrepl+',netamt With totamt+tadd-tless, roff With Round(netamt,0)-netamt, netamt With Round(netamt,0) in inward'
 &myrepl
 SELECT inward
 FLUSH IN inward
 thisform.text5.refresh
 thisform.text6.refresh
 thisform.text7.refresh
 thisform.text8.refresh
 thisform.text9.refresh
 thisform.text10.refresh
 thisform.text13.refresh
 thisform.text14.refresh
 thisform.text16.refresh
 thisform.text18.refresh
 thisform.text20.refresh
 thisform.text24.refresh
 thisform.text25.refresh
 thisform.text27.refresh
 thisform.text32.refresh
 thisform.text34.refresh
 thisform.text37.refresh
 thisform.text39.refresh
 SELECT inward1
 IF salrec<>0 .AND. salrec<=RECCOUNT("inward1")
    GOTO salrec
 endif