60 lines
1002 B
Plaintext
60 lines
1002 B
Plaintext
## import "menue.x"
|
|
|
|
# define EINZAHLUNG 1000
|
|
|
|
mahnung()
|
|
{
|
|
register int i;
|
|
extern char *ctime();
|
|
|
|
new_datum();
|
|
box(1, 1, 25, 80);
|
|
on_revers();
|
|
on_blinking();
|
|
cursor(1, 1);
|
|
cursor(1, 10);
|
|
printf("MAHNUNGEN per %s", ctime(&datum));
|
|
off_blinking();
|
|
off_revers();
|
|
i = 2;
|
|
## use(+buchung, +konto, vorname, name, str, ort, kunde, bank)
|
|
## retrieve konto $saldo < 0
|
|
## (
|
|
## konto = $konto,
|
|
## saldo = $saldo,
|
|
## no_bank = $no_bank
|
|
## )
|
|
## {
|
|
get_bank();
|
|
get_kunde();
|
|
get_name();
|
|
get_vorname();
|
|
get_str();
|
|
get_ort();
|
|
cls(i, 2, i, 79);
|
|
cls(i + 1, 2, i + 1, 79);
|
|
cursor(i, 3);
|
|
printf("%s %ld", bank, saldo);
|
|
cursor(i + 1, 8);
|
|
printf("%s, %s aus %s %s, %d", name, vorname, str, ort, plz);
|
|
betrag = EINZAHLUNG;
|
|
## append buchung
|
|
## (
|
|
## $konto = konto,
|
|
## $datum = datum,
|
|
## $betrag = betrag,
|
|
## $no_grund = 83
|
|
## )
|
|
saldo += betrag;
|
|
## replace
|
|
## (
|
|
## $saldo = saldo,
|
|
## $datum = datum
|
|
## )
|
|
i += 2;
|
|
if (i == 24)
|
|
i = 2;
|
|
## }
|
|
## commit
|
|
}
|