>CNTTEMP=This.Value >* This says where the product is >If Left(CNTTEMP,1)="*" > TEMPLOC=Substr(CNTTEMP,2) >Else > * this it to change quantity by more than one at a time > If Left(CNTTEMP,1)="#" > TEMPCOUNT=Val(Substr(CNTTEMP,2)) >********************************************************************************************** > Seek TEMPUPC Order Tag CUPC In INVCOUNT && WHAT IS THE VALUE OF TEMPUPC? FROM WHERE? >********************************************************************************************** > If Found() > Replace INVCOUNT.NCOUNT With INVCOUNT.NCOUNT+TEMPCOUNT In INVCOUNT > Endif > Else > * this is the product UPC code > TEMPUPC=CNTTEMP >********************************************************************************************** > Locate For TEMPLOC=INVCOUNT.CLOCATION While TEMPUPC = INVCOUNT.CUPC && WHAT IS VALUE OF TEMPLOC, I see it is sttored ONLY IF Left(CNTTEMP,1)="*" >********************************************************************************************** > If Found() > Replace INVCOUNT.NCOUNT With INVCOUNT.NCOUNT+1 In INVCOUNT > Else > Append Blank In INVCOUNT > Replace INVCOUNT.CLOCATION With TEMPLOC > Replace INVCOUNT.CUPC With TEMPUPC > Replace INVCOUNT.NCOUNT With 1 > Endif > Endif >Endif >CNTTEMP="" >Thisform.Refresh >