Mailsender, Plose, StartOptions

initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb

@@ -379,8 +379,6 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
                                         If Not System.IO.Directory.Exists(zielpfad & "Invoice_PDF\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\") Then System.IO.Directory.CreateDirectory(zielpfad & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
 
                                         'File in Datenarchiv sichern:
-
-
                                         'd.breimaier: 2024-06-05 aktuell nur die RMC-Dateien! (später, wenn CSV vollständig, dann alle PDFs importieren!
                                         'd.breimaier: 2024-06-17 laut Christian Schuster von Comcore (EDV-BEtr. von RMC) nicht möglich CSV mit easytrip und sofico Datensätzen zu ergängen!
 
@@ -533,8 +531,44 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
                                                 Catch ex As System.Exception
                                                 End Try
 
+                                            ElseIf fi.Name.ToString.StartsWith("AP") AndAlso fi.Name.ToLower.Contains("epn") Then 'nur einzelpostennachweise
+
+                                                Dim customerNo As Integer
+                                                Dim invoiceNo As String = ""
+                                                Dim dateNo = ""
+                                                Dim outputDate = ""
+                                                Dim documenttype As String = ""
+
+
+                                                If fi.Name.Length >= 37 Then
+                                                    customerNo = fi.Name.Substring(2, 6)
+                                                    invoiceNo = fi.Name.Substring(9, 8)
+                                                    dateNo = fi.Name.Substring(18, 10)
+                                                    documenttype = fi.Name.Substring(33, 3)
+                                                    Dim parsedDate As DateTime = DateTime.ParseExact(dateNo, "yyyy-MM-dd", System.Globalization.CultureInfo.InvariantCulture)
+                                                    outputDate = parsedDate.ToString("dd.MM.yyyy")
+
+                                                End If
+
+                                                Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("MDM", "MDM_DATEN", "UTA", Now.Year, Now.ToString("yyyyMMdd"), frmStartOptions.getFileName(d))
+
+                                                DS.uploadDataToDATENSERVER(d,,,,,, True)
+
+                                                Dim document As New cUTA.UTADocuments
+                                                document.DocumentName = fi.Name
+                                                document.daId = DS.da_id
+                                                document.DocumentTyp = documenttype
+                                                document.RechnungsNr = invoiceNo
+                                                document.KundenNr = customerNo
+                                                document.Datum = outputDate
+                                                document.Zeitstempel = Now()
+
+                                                If document.SAVE() Then cntDatenEingelesen += 1
+
                                             End If
 
+
+
                                         End If
                                     End If