home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
dbase
/
ledge
/
deposits.prg
< prev
next >
Wrap
Text File
|
1986-01-12
|
874b
|
49 lines
SET HEADING OFF
SET SAFETY OFF
*********************************** (DEPOSITS.PRG)
CLEAR
USE DEPOSITS
SET BELL OFF
SET CONFIRM ON
SET TALK OFF
STORE 0.00 TO MAMT
STORE 'XX/XX/XX' TO MDATE
DO WHILE .T.
GO BOTT
STORE AMTDEP TO MAMT
STORE CTOD(DATE) TO MDATE
CLEAR
@ 9,21 SAY 'Do you want to enter a deposit? '
@ 5,15 SAY 'Last entered: $ '+STR(MAMT,9,2)+' Date '+DTOC(MDATE)
?
?
?
?
?
?
STORE ' ' TO OPTION
WAIT ' ? ' TO OPTION
IF OPTION<>'Y'
RETURN
ENDIF
CLEA
APPEND BLANK
@ 6,1 SAY 'Enter amount of deposit ' GET AMTDEP
@ 9,1 SAY 'Enter date of deposit ' GET DATE PICTURE '99/99/99'
READ
ENDIF
STORE 0.00 TO DEPO
SUM AMTDEP TO DEPO
SAVE TO DEPO
GO TOP
DISP ALL OFF
?
?
STORE ' ' TO OPTION
WAIT ' Ok ? ' TO OPTION
IF OPTION='N'
BROW
ENDIF
ENDDO
RETURN