' steht im Modul
Type tExtAdrUmsatz
  UVg             As Integer
  BNr             As String * 4
  Betrag          As Currency
  AusBetrag       As String * 13
  BuchDatum       As String * 6
  WertDatum       As String * 8
  Kontostand      As String * 13
End Type
 
Public Ums_Table(1 To 652, 1 To 2) As tExtAdrUmsatz
 
' Verarbeitung steht in der Form, die auch die Tabellen zur Ausgabe enthält
' der Unterschied wird wegen der letzten Spalte gemacht, die hier nicht befüllt 
' wird
UmsAnz = UmsAnz + 1
If Tabelle = "frmZWKUMS" Then
  Ums_Table(UmsAnz, 2).UVg = Val(Ums.Vorgangsschlüssel)
  Ums_Table(UmsAnz, 2).BNr = Ums.BNr
  Ums_Table(UmsAnz, 2).Betrag = Val(Ums.Betrag)
  Ums_Table(UmsAnz, 2).BuchDatum = Left$(Ums.BuchDatum, 2) & "." & Right$( _
    Ums.BuchDatum, 2) & "."
  Ums_Table(UmsAnz, 2).WertDatum = Ums.WertTag & "." & Ums.WertMonat & "." & _
  Mid$(h_Buchdat, 9, 2)
Else
  Ums_Table(UmsAnz, 1).UVg = Val(Ums.Vorgangsschlüssel)
  Ums_Table(UmsAnz, 1).BNr = Ums.BNr
  Ums_Table(UmsAnz, 1).Betrag = Val(Ums.Betrag)
  Ums_Table(UmsAnz, 1).BuchDatum = Left$(Ums.BuchDatum, 2) & "." & Right$( _
    Ums.BuchDatum, 2) & "."
  Ums_Table(UmsAnz, 1).WertDatum = Ums.WertTag & "." & Ums.WertMonat & "." & _
  Mid$(h_Buchdat, 9, 2)
End If