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
| 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