>**DSS on 7/29/02
>
>*** this code is in a scan loop
> if not empty(thisformset.efrmshipso.ekeypiktikgenno.text.value)
> replace sostrs.nreserved with sostrs.nreserved - Cursosptr.nshipqty in sostrs
> replace iciwhs.nreserved with iciwhs.nreserved - cursosptr.nshipqty in iciwhs
> *dss on 7/29/02
> lnResult=tableupdate(.t.,.t.,'iciwhs')
> If seek(Sostrs.cLineItem+padl(alltrim(thisformset.EfrmShipSO.ekeypiktikgenno.text.value),10,'0'), ;
> 'v_sorsdt_piktik','xlinepik')
> replace v_sorsdt_piktik.nreserved with v_sorsdt_piktik.nreserved - cursosptr.nshipqty in v_sorsdt_piktik
> replace v_sorsdt_piktik.nbatchshipqty with v_sorsdt_piktik.nbatchshipqty + ;
> cursosptr.nshipqty in v_sorsdt_piktik
> replace v_sorsdt_piktik.nadjreserved with v_sorsdt_piktik.nadjreserved - cursosptr.nshipqty in v_sorsdt_piktik
> else
> Messagebox('ERROR: can not find matching v_sorsdt_piktik record for ' + sostrs.clineitem)
> ENDIF
>
> endif
>Mark McCasland
Midlothian, TX USA