#

Cobukas - Dokumentation zur Portierung

 
 

Fertig - Zutun
==============


   -------------------Anfang Legende
 
    f = fertig  
    A = Anfangen! (= noch zu tun)
    a = aendern   (- in Funktion: zu Änderndes am Anfang der Prozedur zu finden)


    f  cbk..name  
       --------- benötigt: cbk..name, ...
    liefert:
       f  name, 
          f  name

   -------------------Ende Legende


     
f  cbk01alle
   ---------:

   f  taste;
   f  schreibenMenue(maske: string3 );
   f  digVal(c: char): byte;
   f  chrStr(s: string): string;
   f  valInt(s : string; VAR i: integer; VAR erg : integer);
   f  lesenDatei(VAR f: text; VAR s: string; len: integer);



f  cbk02satz
   ---------: cbk01alle



f  cbk03conf
   ---------: cbk01alle  cbk02satz

   f  lesenKonfiguration;



f  cbk04plan
   ---------: cbk01alle  cbk02satz

   f  holenUVkz(VAR n : integer );
   f  einrichtenPlan;
   f  lesenPlan;
   f  speichernPlan;
   f  ktoImPlan (ktoNr: integer; VAR woKtoImPlan: integer): boolean;



f  cbk05jour
   ---------: cbk01alle  cbk02satz

   f  einrichtenJour;
   f  lesenJour;
   f  speichernJour;
   f  alterBeleg(alterBelegNr: integer): boolean;
   f  loeschenJourzeilen (loeschBuchungJour: integer); (*-vormals: delBuch-*)
   f  setzenGegenkonten (VAR beleg: tBeleg);
      f  sign (r: real): integer;
      f  steuerKonto (kto: integer): boolean;
      f  gegenKonto (kto0, signBetrag: integer; VAR gKto0: integer);
   f  speichernBeleg (VAR beleg: tBeleg);



f  cbk06ausw
   ---------: cbk01alle  cbk02satz

   f  einrichtenAuswertung;
   f  lesenAuswertung;
      f  lesenAPG(aktAPG: tAPG);
   f  speichernAuswertung;
      f  speichernAPG (aktAPG: tAPG);



f  cbk00
   ---------: cbk01alle  cbk03conf
              cbk10benu  cbk20stam  cbk30dobf  cbk40ausw  cbk50hilf



f  cbk09allefup
   ---------: cbk01alle  cbk02satz  cbk04plan

   f  kontenAuswPflegen;

                                     

f  cbk10benu
   ---------: cbk01alle  cbk02satz  cbk04plan  cbk05jour  cbk06ausw
              cbk09allefup

   f  auswaehlenBenutzer(anyway, loadAll: boolean; mode: byte);
      f  sortierenZeiten(i, j : integer);
      f  sortierenNummern(i, j : integer);
      f  sortierenNamen(i, j : integer);
      f  initiierenBenutzer;
      


f  cbk20stam
   ---------: cbk01alle  cbk02satz  cbk04plan  cbk05jour  cbk06ausw
              cbk21stamben   cbk22stamkon   cbk23stamaus

   f  verwaltenStammdaten;



f  cbk21stamben
   ------------: cbk01alle  cbk02satz

   f  verwaltenBenutzer;
      f  aendernBuchungsjahr;
      f  zuordnenUStKonten;
      f  zuordnenKontenPositionen;
      f  anlegenNeuenBenutzer;



f  cbk22stamkon
   ------------: cbk01alle  cbk02satz

   f  verwaltenKontenplan;

         f  initialisierenBetrag;
         f  erfassenAltesKonto
         f  erfassenNeuesKonto

      f  aendernKonto;
         f  aendernKontobezeichnung;
         f  aendernAnfangsbestand;

      f  anlegenKonto;
         f  eingabeKontonummer;
         f  eingabeKontoart;
         f  eingabeMStArt;
         f  eingabeMStKennziffer;
         f  eingabeAnfangsbestand;


      f  loeschenKonto;

      f  druckenKontenliste
   


f  cbk23stamaus
   ------------: cbk01alle  cbk02satz  cbk04plan  

   f  verwaltenAuswertungen;
      f  aendernPosition
      f  hinzufuegenPosition
      f  loeschenPosition
      f  druckenPositionsliste

      f  zuordnenKonten(VAR wahlZeileListeAuswpos : integer);
         f  hinzufuegenKonto;
            f  einbauKonto;
         f  loeschenKonto;

      f  aufbauenAPG(VAR aktAPG : tAPG) ;
         f  schreibenKonten(VAR wahlZeileListeAuswpos : integer) ;
   


f  cbk30dobf
   ---------: cbk01alle  cbk02satz  cbk04plan  cbk05jour
              cbk39dobffup

   f  buchenBelege(VAR letzterBeleg: integer; belegfrei: boolean);
      f  initialisierenBeleg;
      f  lesenBeleg;
      f  zeigenBeleg;
      f  aendernBeleg;
      f  verarbeitenBeleg;
      f  auswaehlenBeleg;
            

f  cbk39dobffup
   -------------: cbk01alle  cbk02satz  cbk04plan

   f  keinBetrag: boolean;
   f  istFertigBeleg: boolean;
   f  aufrufAusgleich;
   f  istSteuerkonto: boolean;
   f  initialisierenBelegzeile(VAR iniZeileBeleg : integer);
   f  loeschenBelegzeile(VAR loeschZeileBeleg : integer);
   f  herauftauschenLeerzeile;
   f  herabtauschenLeerzeile;
   f  verarbeitenBetrag;

   f  aendernDatum(VAR abbruchBeleg, fertigBeleg : boolean);
   f  aendernGrund(VAR abbruchBeleg, fertigBeleg : boolean);
   f  aendernKonto(VAR abbruchBeleg, fertigBeleg : boolean);
   f  aendernUStKennziffer(VAR abbruchBeleg, fertigBeleg : boolean);
   f  aendernBetrag(VAR abbruchBeleg, fertigBeleg : boolean);



f  cbk40ausw       
   ---------: cbk01alle
              cbk41auswstg, cbk42auswjou, cbk43auswsal, cbk44auswapg

   f  auswertenBuchfuehrung;



f  cbk41auswstg
   ------------: cbk01alle  cbk02satz  cbk05jour

   f  setzenStichtag;



f  cbk42auswjou
   ------------: cbk01alle, cbk02satz, cbk05jour, cbk09allefup

   f  journal;
      f  druckenSaldenliste;


f  cbk43auswsal
   ------------: cbk01alle, cbk02satz, cbk05jour, cbk09allefup

   f  saldenliste;
      f  druckenSaldenliste;
      f  zeigenAuszug;
         f  druckenKontoauszug;


f  cbk44auswapg
   ------------: cbk01alle, cbk02satz, cbk05jour, cbk06ausw, cbk09allefup

   f  AktivaPassivaGuV;
      f  druckenAuswAPG(aktAPG : tAPG);
      f  guvSaldoInBilanz;
      f  alleKontenZugeordnet : boolean;
      f  auswPossaldenPflegen;
      f  auswVerrechsaldenPflegen(aktAPG : tAPG);
      f  zeigenAPG(VAR aktAPG : tAPG);