home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
windows
/
demdat.zip
/
STKDR.SBP
< prev
next >
Wrap
Text File
|
1990-01-18
|
3KB
|
199 lines
SBP
╜ STKDR
╜ Enter Cash Receipts and Payments
╜ Last updated Jan 03, 90
│ _ wferror
stkdr: ╜ Set parameters
f$ "cash":fkey$ "Trans_Key":fmd$ "stkdr":ffld% 7:frow% 10
ímb% 4 pbtype$ "r" ^btype$ "p"
bdate$ ( Q,"mmm dd,yy"):bdate% Q
┤ Öf$
úfkey$
┤ £fmd$
bwait: ╜ Enter batch header or exit
╧ ▀
wbwait
bhead: ╜ Batch header
Ö"ctrl"
batch.CTRL batch.CTRL 1
╠
bref% batch.CTRL
╩ ╦ss20$
bhead2: ╜ Batch total
Öf$
ö7
íZero 0 p ┬ms27$,"",2,a%: wbhead2
┬ms1$,"",130,a%
ía% 0 p wbhead2
bttl% Zero:Zero 0:ftl% 0:tref% 1
fenter: ╜ Enter Records from line 1
ü £
£2
╩ ╦ss3$
mp% 1:ttl% 0
fenter2: ╜ Enter a record
ü
Trans_ref.CASH tref%
═ £ "mp%
öTrans_date "mp% qCash_ref "mp%
fenter3: ╜ Enter cash amount
öAmount.CASH "mp%
b% 0
íAmount.CASH 0 p
┬ms1$,"",127,a%
ía% p
amt% Amount.CASH:ttl% ttl% amt%:ftl% ftl% amt%
tref% tref% 1:mp% mp% 1
Batch_ref.CASH bref%:Batch_date.CASH bdate%
Printed_yn.CASH "n":Trans_Type.CASH btype$
╠
vsupdate
£
Æ í
^
┬ms27$,"",100,a%:b% 1
Æ í
íb% p wfenter3
┬ms2$,"",130,b%
íb% 0 p wfcheck
ímp% frow% p wfenter ^ wfenter2
fcheck: ╜ Check batch total
íftl% bttl% p
┬ms28$,ms29$,130,b%
^
┬ms26$,ss13$,100,a%:b% 1
Æ í
íb% 0 wfexit
floop: ╜ Re-display from first record
ü £
╔ ╨Batch_ref.CASH bref%
vslimits
ckey% fstk%
fform: ╜ Display from ckey
vspage
£2
fwait: ╜ Wait here for a push button
mp% 0
╩ ╦ss13$
╧ ▀
╜ Edit line
í(mp% 0 mp% lrec%) p wfwait
╩ ╦ss4$
╔ £ "mp%
oamt% Amount.CASH
fedit2:
öCash_ref.CASH "mp% qAmount.CASH "mp%
b% 0
íAmount.CASH 0 p
┬ms1$,"",127,a%
ía% p
amt% Amount.CASH oamt%:ttl% ttl% amt%:ftl% ftl% amt%
╠: ╜ always positive
vsupdate
£
Æ í
^
┬"Amount must be positive","",100,a%:b% 1
Æ í
íb% p wfedit2
wfwait
fdelete: ╜ Delete record
╩ ╦ss12$
╧ ▀
╔ £ "mp%
┬ms14$ (Trans_Ref.CASH,"0000."),"",119,a%
ía% p
╔ £ "mp%
amt% Amount.CASH:ttl% ttl% amt%:ftl% ftl% amt%
╔ ╛
vsupdate
Æ í
ía% wfloop ^ wfwait
fnext: ╜ Next page
ílstk% pstk%(lrec%) p wfwait
╔ Ñpstk%(lrec%)
╔ ▒
wfcurr
fprev: ╜ Prev page
ífstk% pstk%(1) p wfwait
╔ Ñpstk%(1)
¢i% 1 qfrow%
╔ g
▒i%
fcurr:
û"ckey% = " fkey$
wfform
fexit: ╜ Exit
íftl% bttl% p ┬ms26$,ss13$,100,a%: wfwait
Ö"ctrl"
ä"menu"
slimits:
╔ b
û"lstk% = " fkey$
╔ `
û"fstk% = " fkey$
├
spage: ╜ Displays page of records starting with ckey$
╜ Returns key array and number of number of records for page
ü £
╔ Ñckey%
j% 0:ttl% 0
¢i% 1 qfrow%
═ £ "i%
j% j% 1:ttl% ttl% Amount.CASH
û"pstk%(i%) = " fkey$
û"IF " fkey$ "= lstk% THEN i% = frow%"
íi%
frow% p ╔ ▒
▒i%
íj% frow% plrec% frow% ^lrec% j%
├
supdate:
íbtype$ "p" pamt% amt% 1
Ö"Clients"
╔ ÑClient.CASH
Cash_Receipts.CLIENTS Cash_Receipts.CLIENTS amt%
╠
Öf$
├
ferror: ╜ Error conditions
res% 0
í & 11 p
┬ms21$,ms22$,130,a%: ía% 1 pres% 1
^ í & 57 p
┬ms8$,"",100,a%:res% 2
^
┬ (( &),ms9$,114,a%: ía% 1 pres% 3
Æ í
íres% 1 p y
íres% 2 p yfloop
íres% 3 p yfwait
É