Codeblock Onlinehilfe
Codeblock Onlinehilfe
Breadcrumbs

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

Weitere Verknüpfungen