>**this part it works fine >SELECT str_nmbr,stk_name,stk_clas,stk_code,stk_opbl FROM stk_clas ; > WHERE str_nmbr =thisform.text1.Value AND ; > BETWEEN (stk_clas,thisform.text4.Value,thisform.text5.Value); > INTO CURSOR aa > brow >First, you may have a problem here with the "Thisform...." reference in the call without using () around the control. Otherwise, the SQL will try to interpret the Thisform. as an alias as part of the SQL, so either use (), or move to variables...
select fld1, fld2, fld3... from stk_clas; where str_nmbr = ( Thisform.text1.value ) and ; between( stk_class, ( Thisform.text4.value ), (Thisform.text5.value)); ... OR lnFromStockNumber = Thisform.text1.value lnStockClassFrom = Thisform.text4.value lnStockClassTo = Thisform.Text5.value select fld1, fld2,... where str_nmbr = lnFromStockNumber; and between( stk_class, lnStockClassFrom, lnStockClassTo )...>**this code need your experience
>SCAN FOR trn_rqb3.str_nmbr=aa.str_nmbr AND trn_rqb3.stk_code=aa.stk_code > IF FOUND() > SUM trn_typ=1 TO m.in1 > SUM trn typ=44 AND trn_typ=55 TO m.out1 > replace newfield as(insert1) WITH m.in1 > replace newfield as(outitem) WITH m.out1 > replace newfield as(balance) WITH (m.in1 +stk_opbl)-m.out1 > else > replace newfield as(insert1) WITH 0 > replace newfield as(outitem) WITH 0 > replace newfield as(balance) WITH 0 > ENDIF >ENDSCAN > >* REPORT FORM myreport >>