Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : PTOFSALE.ZIP
Filename : NEWCUST.PRG

*:*********************************************************************
*:
*: Program: NEWCUST.PRG
*:
*: System: RIALTO CINEMA VIDEO P.O.S. PROGRAM
*: Author: SCOTT BAXTER
*: Copyright (c) 1988, SCOTT BAXTER
*: Last modified: 10/14/88 10:40
*:
*: Called by: TESTRENT.PRG
*:
*: Documented: 11/09/88 at 17:28 SNAP! version 3.00
*:*********************************************************************
CLEAR AUTOMEM
CALL curon
oldwin=WSELECT()
WSET FRAME ON
WSET WINDOW newmem TO 6,5,19,68 DOUBLE
WSELECT 12
WUSE newmem
@ 1,14 SAY 'Identification number:'
@ 3,1 SAY 'First Name: Last Name:'
@ 5,5 SAY 'Address:'
@ 7,19 SAY 'City:'
@ 9,1 SAY 'State: Zip: Phone:'
@ 11,22 SAY 'SSN:'
@ 13,1 SAY 'Comments:'
city='ALVA '
zip='73717- '
st='OK'
comments=SPAC(50)
STORE r_rentcust TO memnum
@ 1,37 SAY m->memnum
@ 3,13 GET m->fname PICTURE '!AAAAAAAAAAAAAA' VALID (.NOT. EMPTY(m->fname))
@ 3,44 GET m->lname PICTURE '!AAAAAAAAAAAAAA' VALID (.NOT. EMPTY(m->lname))
@ 5,14 GET m->address PICTURE '@!' VALID (.NOT. EMPTY(m->address))
@ 7,25 GET m->city PICTURE '!AAAAAAAAAAAAAA' VALID (.NOT. EMPTY(m->city))
@ 09, 8 GET m->st PICTURE '!!'
@ 09,19 GET m->zip PICTURE '99999-XXXX'
@ 09,40 GET m->phone PICTURE '(999) 999-9999'
@ 11,27 GET m->ssn PICTURE '@! XXXXXXXXXXX'
@ 13,11 GET m->comments PICTURE '@!'
READ
address=PROPER(m->address)
fname=PROPER(m->fname)
lname=PROPER(m->lname)
IF r_newrec
APPEND AUTOMEM
ELSE
REPLACE AUTOMEM
ENDI
WSET FRAME OFF
WSELECT oldwin
WCLO 12
RELE AUTO
RETU
*: EOF: NEWCUST.PRG