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