home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
dbase
/
ledge
/
recon.prg
< prev
next >
Wrap
Text File
|
1986-01-12
|
3KB
|
116 lines
SET HEADING OFF
SET SAFETY OFF
***************************** (RECON.PRG)--JAY KENNEY
CLEAR
SET TALK OFF
SET BELL OFF
STORE 0.00 TO BBAL,DEPO,OTHER,BEGIN,Y,Z,SC,NSF,A,B
STORE ' ' TO T
SET CONFIRM ON
SET EXACT OFF
DO WHILE .T.
@ 6,21 SAY 'Want to do a bank reconciliation?'
?
STORE ' ' TO OPTION
WAIT ' ? 'TO OPTION
IF OPTION<>'Y'
RETURN
ENDIF
USE DEPOSITS
SUM AMTDEP TO A
USE LEDGER
CLEA
@ 15,10 SAY 'You are going to have to enter a T in the POST field'
@ 16,10 SAY 'for the checks which the bank did not have on the ì
statement.'
@ 17,26 SAY 'Press Ctrl W when finished.'
?
WAIT ' Press anything to continue...'
BROW FIEL POST,CHKNO,WHOM,AMTCHK,CKDATE
@ 1,15 SAY 'Balance per bank ? ' GET BBAL
@ 3,15 SAY 'Outstanding deposits ? ' GET DEPO
@ 5,15 SAY 'Other items to deduct ? ' GET OTHER
@ 7,5 SAY [Begin balance per &MTITLE ? ] GET BEGIN
@ 9,15 SAY 'Bank service charges ? ' GET SC
@ 11,15 SAY 'Bank NSF charges ? ' GET NSF
@ 13,15 SAY 'Deposits to bank ? ' GET A
@ 15,15 SAY 'Line of credit ? ' GET B
@ 23,25 SAY 'Want to bail out ? '
WAIT ' ' TO OPTION
IF OPTION<>'N'
CLEA
RETURN
ENDIF
@ 23,20 CLEA
READ
USE LEDGER
CLEA
GO TOP
SUM AMTCHK TO X FOR POST
SUM AMTCHK TO Z
GO TOP
@ 15,24 SAY 'Do you want to print this report? '
WAIT ' ? ' TO OPTION
IF OPTION='Y'
SET DEVI TO PRIN
SET PRIN ON
ENDIF
?
STORE STR(BBAL+DEPO-X-OTHER,9,2) TO Y
? [&MTITLE]+" - Bank Reconciliation "+DTOC(DATE())
?
? '-------------------------------------------------------------------------------'
?
? 'Balance per bank_______________________________ ì
'+STR(BBAL,9,2)
?
? 'Add:'
? 'Deposits in transit____________________________ ì
'+STR(DEPO,9,2)
?
? 'Deduct:'
? 'Outstanding checks_____________________________ '+STR(X,9,2)
LIST OFF '#',CHKNO,' ',AMTCHK,' ',WHOM FOR POST
?
? 'Other items____________________________________ ì
'+STR(OTHER,9,2)
?
? 'Adjusted balance per books_____________________ ì
'+STR(BBAL+DEPO-X-OTHER,9,2)
? ' ~~~~~~~~~'
?
? 'Balance per books begin month__________________ ì
'+STR(BEGIN,9,2)
?
? 'Add:'
? 'Cash receipts(deposits)_________ '+STR(A,9,2)
? 'Line of credit__________________ '+STR(B,9,2)
? ' ~~~~~~~~~~~'
? ' '+STR(A+B,9,2)
?
?
? 'Deduct:'
? 'Disbursements '+STR(Z,9,2)
? 'Service charges '+STR(SC,9,2)
? '(Bank NSF item charge) '+STR(NSF,9,2)
? ' ~~~~~~~~~'
? ' '+STR(Z+SC+NSF,9,2)
?
?
? 'Balance per books end month____________________ ì
'+STR(BEGIN+A+B-Z+SC+NSF,9,2)
?
? ì
'-----------------------------------------------------------------ì
-------------'
?
? CHR(12)
SET PRINT OFF
SET DEVICE TO SCREEN
IF OPTION='N'
WAIT
ENDIF
CLEAR
ENDDO
RETURN