* SCSUINP.PRG V1.01 BY DEREK FOUNTAIN
* Input of new suppliers details - Called from SCSUMAIN.PRG

AT 7,0 SAY "                                                                              "

* The initial data goes into mvars
LET msupp$="   "
LET mname$="                         "
LET mcontact$="                         "
LET mphone$="               "
LET madd1$="                         "
LET madd2$="                         "
LET madd3$="                         "
LET madd4$="                         "

* Loop while data is not confirmed
LET confirm$="N"
DO WHILE UPPER(confirm$)="N"
  AT 2,11 SAY "                          "
  AT 3,11 SAY "     "
  AT 4,11 SAY "                          "
  AT 5,11 SAY "                "
  AT 2,48 SAY "                          "
  AT 3,48 SAY "                          "
  AT 4,48 SAY "                          "
  AT 5,48 SAY "                          "

  AT 7,25 SAY "Enter each field, one at a time"
  * Get each field
  AT 2,12 GET mname$
  IF mname$="      "
    RELEASE msupp$,mname$,mcontact$,mphone$,madd1$,madd2$,madd3$,madd4$,confirm$
    RETURN
  ENDIF
  AT 3,12 GET msupp$
  AT 4,12 GET mcontact$
  AT 5,12 GET mphone$
  AT 2,48 GET madd1$
  AT 3,48 GET madd2$
  AT 4,48 GET madd3$
  AT 5,48 GET madd4$

  * 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 msupp$,mname$,mcontact$,mphone$,madd1$,madd2$,madd3$,madd4$,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:SUPP$=msupp$
LET 1:NAME$=mname$
LET 1:CONTACT$=mcontact$
LET 1:PHONE$=mphone$
LET 1:ADD1$=madd1$
LET 1:ADD2$=madd2$
LET 1:ADD3$=madd3$
LET 1:ADD4$=madd4$
RELEASE msupp$,mname$,mcontact$,mphone$,madd1$,madd2$,madd3$,madd4$,confirm$
RETURN