AfABewegTab()

AfABewegTab() – Array mit Anlagebewegungen (FiBu)

Funktion liefert für ein Anlagegut ein Array mit allen Buchungen aus der Tabelle DF110

Hinweis
Funktion ist nur im Rahmen der FiBu einsetzbar.
Buchungsarten im Arrayelement 4 sind:
N Neuzugang
Z Ergänzung / Wertzugang
V Vollabgang
T Teilabgang
A Normal-AfA
P außerplanmässige AfA
S sonstige Afa

Parameter	Beschreibung
oDfInv:O	Tabellenobjekt Inventarverwaltung (DFINV)
oDf110:O	Tabellenobjekt Sachkonten-Buchungen (DF110)

Rückgabewert

Array (Aufbau s. Beispiel)

Beispiel

CODE

| oDfInv, cInvNr, aBewegTab, i |

cInvNr:= '0000480-00012',
oDfInv:= BeOpen(waDAB075, 'ID'),
If !Empty(oDfInv) then
   StartSeq
      If DbSeek(cInvNr, oDfInv) then
         aBewegTab:= AfABewegTab(oDfInv),
         For i:= 1 to ALen(aBewegTab) do
             WriteLn(Str(i, 2) + ' Buchungsdatum: '     + DateTimeToStr(aBewegTab[i, 1])           + CrLf +
                               '   Vorjahr: '           + Str(aBewegTab[i, 2])                     + CrLf +
                               '   Periode: '           + Str(aBewegTab[i, 3])                     + CrLf +
                               '   Buchungsart: '       + aBewegTab[i, 4]                          + CrLf +
                               '   Soll: '              + FormatFloat('#,##0.00', aBewegTab[i, 5]) + CrLf +
                               '   Haben: '             + FormatFloat('#,##0.00', aBewegTab[i, 6]) + CrLf +
                               '   Buchungstext: '      + aBewegTab[i, 7]                          + CrLf +
                               '   Kostenstelle: '      + Str(aBewegTab[i, 8])                     + CrLf +
                               '   Gegenkonto: '        + Str(aBewegTab[i, 9])                     + CrLf +
                               '   Gegenkostenstelle: ' + Str(aBewegTab[i, 10])),
         Next
      EndIf
   Always
     BeClose(oDfInv)
   StopSeq
EndIf

AfABewegTab() – Array mit Anlagebewegungen (FiBu)

Rückgabewert

Beispiel

Weitere Verknüpfungen