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

*:*********************************************************************
*:
*: Program: TAPESELL.PRG
*:
*: System: RIALTO CINEMA VIDEO P.O.S. PROGRAM
*: Author: SCOTT BAXTER
*: Copyright (c) 1988, SCOTT BAXTER
*: Last modified: 10/27/88 17:35
*:
*: Called by: SELLEM.PRG
*:
*: Calls: DISP_MSG.PRG
*:
*: Documented: 11/09/88 at 17:29 SNAP! version 3.00
*:*********************************************************************
PUBLIC goodrnt
DO WHIL .T.
goodrnt=.T.
SET EXACT ON
WSET FRAME ON
WSET WINDOW getname TO 8,12,8,66 DOUBLE
cop=SPAC(2)
lib=SPAC(5)
WSELE 3
WUSE getname TITLE 'PRESS RETURN TWICE TO EXIT'
CALL curon
goodfind=.F.
DO WHIL .NOT. goodfind
cop=SPAC(2)
lib=SPAC(5)
@ 0,1 SAY "Enter the LIBRARY #: "
@ 0,29 SAY 'and the COPY NUMBER: '
@ 0,22 GET lib PICT '@!'
@ 0,50 GET cop PICT '99'
READ
IF EMPTY(lib) .AND. EMPTY(cop)
EXIT
ENDI
goodfind=.T.
trg=lib+cop
SEEK trg
IF EOF()
goodfind=.F.
WSET FRAME ON
WSET WINDOW badnum TO 10,12,12,66 DOUBLE
WSELE 4
WUSE badnum
@ 0,0 SAY 'COULD NOT FIND THE TAPE NUMBER YOU ENTERED. MAYBE'
@ 1,0 SAY 'YOU HAD BETTER TRY AGAIN OR USE TAPE SEARCH FEATURE.'
SET CONS OFF
WAIT TO KEY
SET CONS ON
WSET FRAME OFF
WSELE 3
WCLO 4
ELSE
EXIT
ENDI
ENDD
WSET FRAME OFF
IF .NOT. goodrnt
CLEA GETS
SET COLO TO
WSELE 1
WCLO 3
LOOP
ENDI
IF EMPTY(lib) .OR. READKEY()=12
WSELE 1
WCLO 3
SET COLO TO
EXIT
ELSE
SET COLO TO
WSET FRAME OFF
IF numlines=12
MESSAGE='THE MAXIMUM NUMBER OF RENTALS, ETC. IS 12. TRY DELETING.'
DO disp_msg
WSELE 1
WCLO 3
EXIT
ELSE
numlines=numlines+1
WSELE 1
WCLO 3
IF .NOT. firstline
DOWNSCROLL 1
ELSE
firstline=.F.
ENDI
@ 0,0 SAY libnum+copy_num
@ 0,11 SAY LEFT(filmname,40)
@ 0,57 SAY '0'
@ 0,64 SAY '1'
xpr=SPAC(5)
xpr=STR(saleprice,5,2)
@ 0,69 GET xpr PICT '!!!!!'
READ
@ 0,69 SAY xpr
STOR libnum+copy_num TO scratch[numlines,1]
STOR nownum TO scratch[numlines,2]
STOR LEFT(filmname,40) TO scratch[numlines,3]
STOR 0 TO scratch[numlines,4]
STOR STR(saleprice,5,2) TO scratch[numlines,5]
STOR 0 TO scratch[numlines,6]
STOR xpr TO scratch[numlines,7]
STOR .F. TO scratch[numlines,8]
STOR 'S' TO scratch[numlines,9]
STOR .F. TO scratch[numlines,10]
STOR .F. TO scratch[numlines,11]
ENDI
ENDI
ENDD
RELE goodrnt
RETU
*: EOF: TAPESELL.PRG