#

Cobukas - Dokumentation zur Portierung

 
 

Struktur der Originalversion
============================


cobukas.pas:
-----------
  1: initBenutzerIntern(true, true, true, 0)
  2: stammdatenMenue;
  3: buchenBelege;
  4: auswertungsMenue;
  5: hilfsProgramme;
  6: ende := true;

--------------------------------------------------------------------------------

2: stammdatenMenue;
------------------
  1: benutzerParameter;
  2: kontenplanListe (letztesKonto, 0);
  3: auswertungsListe;
  4: kontenplanListe (letztesKonto, 5); (* Buchungsvorschläge *)


3: buchenBelege;
----------------
      buchen1 (letzterBeleg, true); (* Doppelte Buchführung *)
      buchen2 (letzterBeleg, true); (* Einnahmenüberschuß *)


4: auswertungsMenue;
--------------------
  1: dummy := auswertungsStichtag (true);
  2: journal;
  3: kontenplanListe (letztesKonto, 2);  (* Kontoauszug *)
  4: bilanz;
  5: saldenListe;
  6: opListe (0)
  7: abschluss;
  8: kostenUndLeistungsRechnung

  
5: hilfsProgramme;
------------------
  1: benutzerVerwaltung
  2: IF initBenutzerIntern (true, false, false, 1) > 0 THEN; (* Datensicherung *)
  3: IF initBenutzerIntern (true, false, false, 2) > 0 THEN; (* Datenrestaurierung *)
  4: export
  5: opInit
  6: kapazitaeten;
  7: modulUebersicht;
  8: commandCom (75, true);
  9: parameter;
 10: editor (97, 'COBUKAS.HTX', null);
 11: opListe (1)
 12: mahnWesen

--------------------------------------------------------------------------------

23: stammdatenMenue - auswertungsListe;
---------------------------------------

  auswertungsKontenliste

  2: neuErfassen;
  3: loeschen;
  4: drucken;

  5:;  (* reserviert für Blockmarkierung in der Druckroutine *)
  6:;  (* reserviert für Blockmarkierung in der Druckroutine *)

  7: change (aktiva);
  8: change (passiva);
  9: change (guv);

 10: auswertungsKontenliste (base + index, ktoHdl, 0);

 11: renumber;
 12: IF pruefPlan and pruefBilg THEN tempMeldung ('Bilanzaufbau OK');
101: aendern;
102: ende := true;
103: lineUp;
104: lineDown;
142: pageUp;
143: pageDown;
134: firstPage;
153: lastPage;



51: benutzerVerwaltung
----------------------
  1: kontrolle;
  2: IF initBenutzerIntern (true, false, true, 3) > 0 THEN; (* Benutzer vervielfältigen *)
  3: distributeUser; (* Verteilen der vervielfältigten Benutzer *)
  4: collectUser;    (* Einsammeln der verteilten Benutzer *)
  5: musterLoesung;
  6: druckMusterLoesung;
  7: editor (112, aufgabenDatei, null);