**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

SCAN  FOR trn_rqb3.str_nmbr=aa.str_nmbr AND trn_rqb3.stk_code=aa.stk_code
   AND BETWEEN (TRN_DATE,thisform.text2.Value,thisform.text3.Value);
 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