>LPARAMETERS lseekvalue, lnqty > >LOCAL lcOldAlias, ; > lnoldrecno, ; > lcoldnear, ; > lcoldexact, ; > lcoldorder > >lnoldrecno = RECNO() >lcOldAlias = ALIAS() >lcoldorder = ORDER() >lcoldnear = SET("NEAR") >lcoldexact = SET("EXACT") >SET EXACT ON >SET NEAR OFF >WITH thisform.grdpolines > SELECT Item_Master > SET ORDER TO TAG itemnumber > SEEK lseekvalue > IF FOUND() > SELECT ItemWarehouse > SET ORDER TO TAG Itemwhse > SEEK lseekvalue+thisform.cbowarehouse.value > IF FOUND() > IF thisform.chkdropship.value > REPLACE Itemwarehouse.dropshiponorder WITH Itemwarehouse.dropshiponorder - lnqty > ELSE > REPLACE Itemwarehouse.qtyonorder WITH Itemwarehouse.qtyonorder - lnqty > ENDIF > TABLEUPDATE(.F.) > ENDIF > SELECT (lcOldAlias) > SET ORDER TO TAG &lcoldorder > .refresh() > ENDIF >ENDWITH >SET NEAR &lcoldnear >SET EXACT &lcoldexactBruce,