neu

initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb

@@ -488,7 +488,7 @@ Public Class frmMDMNachrichtenVerarbeitung
 
                 plose_RechnungsJahr = fi.Name.Substring(0, 2)
                 plose_RechnungsLieferantCode = fi.Name.Substring(2, 1)
-                plose_RechnungsNr = fi.Name.Substring(3, 5)
+                ' plose_RechnungsNr = fi.Name.Substring(3, 5)
 
                 Select Case plose_RechnungsLieferantCode
                     Case "0" : plose_Lieferant = "PLOSE Sistem Service"
@@ -533,6 +533,10 @@ Public Class frmMDMNachrichtenVerarbeitung
                                             Dim datumParse = DateTime.ParseExact(currentRow(1), "yyyyMMdd", Nothing)
                                             plose_RechnungsDat = datumParse 'Rechnungsdatum aus TR1 Datensatz, überschreibt den Wert aus der Dateierstellung
                                         End If
+                                        'RECHNUGNSNR
+                                        If currentRow.Length > 2 Then 'AndAlso currentRow(1).ToString.Length = 8 Then
+                                            plose_RechnungsNr = SQL.isleernothing(currentRow(2)) 'Rechnungsdatum aus TR1 Datensatz, überschreibt den Wert aus der Dateierstellung
+                                        End If
 
                                     Case "TR5"
                                         If currentRow.Length > 24 AndAlso currentRow(12) <> "839160" Then 'KDNR <> VERAG --> Die Kosten bleiben uns