| procedure transaktion(kt: Kontotype);
Type TransaktionsType = (opret, hæve, indsætte, tilskrivRente,
clearCheck, nedlaeg);
Procedurer for forskellige typer af transaktioner;
begin
case kt of
checkKonto: checkKontoTransaktion;
aktionærKonto: aktionærKontoTransaktion;
pensionsKonto: pensionsKontoTransakton;
gevinstKonto: gevinstKontoTransaktion;
end;
end (* transaktion *) |
|
| | Vi viser her den centrale og overordnede transaktions procedure.
Denne procedure forfiner altså 'Procedure som gennemfører transaktioner'.
Afhængig af kontotype kaldes en mere specifik transaktionsprocedure, som er kontotype
specifik
|