* SCSIINP.PRG V1.03 BY DEREK FOUNTAIN
* Input of new products details - Called from SCSIMAIN.PRG

AT 7,0 SAY "                                                                              "

* The initial data goes into mvars
LET mcode$="      "
LET mdesc$="                    "
LET msupp$="   "
LET msell_at=0.00
LET mbuy_at=0.00
LET mcase=0.00
LET mminimum=0.00

* Loop while data is not confirmed
LET confirm$="N"
DO WHILE UPPER(confirm$)="N"
  AT 0,0 SAY "                         " 
  AT 0,56 SAY "                        "
  AT 2, 5 SAY "      "
  AT 2,35 SAY "                    "
  AT 2,74 SAY "   "
  AT 4, 8 SAY "         "
  AT 4,26 SAY "         "
  AT 4,45 SAY "         "
  AT 4,71 SAY "         "
  AT 7,25 SAY "Enter each field, one at a time"
  * Get each field
  AT 2, 5 GET mcode$
  IF mcode$="      "
    RELEASE mcode$,mdesc$,msupp$,msell_at,mbuy_at,mcase,mminimum,confirm$
    RETURN
  ENDIF
  AT 2,35 GET mdesc$
  AT 2,74 GET msupp$
  AT 4, 8 GET msell_at
  AT 4,26 GET mbuy_at
  AT 4,45 GET mcase
  AT 4,71 GET mminimum

  * Get confirmation of data
  AT 7,21 SAY "Please confirm this data (Y/N/Q) >>>"
  LET confirm$=" "
  DO WHILE confirm$=" "
    AT 7,58 GET confirm$       
    IF WHERE(confirm$,"YNQynq")=0
      LET confirm$=" "
    ENDIF
  ENDDO
  IF UPPER(confirm$)="Q"
    RELEASE mcode$,mdesc$,msupp$,msell_at,mbuy_at,mcase,mminimum,confirm$
    RETURN
  ENDIF
  AT 7,21 SAY "                                         "
ENDDO              * Loop back if not confirmed

* Got confirmed data in mvars, put them into a new record
APPEND BLANK
LET 1:CODE$=mcode$
LET 1:DESC$=mdesc$
LET 1:SUPP$=msupp$
LET 1:SELL_AT=msell_at
LET 1:BUY_AT=mbuy_at
LET 1:CASE=mcase
LET 1:MINIMUM=mminimum
LET 1:LUPDATE$=today$
RELEASE mcode$,mdesc$,msupp$,msell_at,mbuy_at,mcase,mminimum,confirm$
RETURN