IDS

initATLASAufschubkonten/frmStartOptions.vb

@@ -1589,8 +1589,7 @@ Public Class frmStartOptions
                 ids.initImportPfade("IDS")
                 Dim Zielpfad = ids.VERARBEITUNG_PFAD
 
-
-                If betreff.ToString.ToLower.Contains("IDS") Then 'zusätzlicher Check
+                If betreff.ToString.ToLower.Contains("ids") Then 'zusätzlicher Check
                     Dim found = False
                     betreff = betreff.replace("WG: ", "")
                     betreff = betreff.replace("FW: ", "")
@@ -1633,7 +1632,7 @@ Public Class frmStartOptions
                     If outputDate IsNot Nothing AndAlso customerNo <> "" AndAlso invoiceNo <> "" Then
 
                         Dim idsInvoice As New cIDSInvoice(outputDate, customerNo, invoiceNo)
-                        idsInvoice.SAVE()
+                        If Not idsInvoice.hasEntry Then idsInvoice.SAVE()
 
 
                         Dim outlookApp As Object
@@ -1646,17 +1645,16 @@ Public Class frmStartOptions
 
                             If mailItem IsNot Nothing Then
                                 If idsInvoice.isMail_IDS(mailItem) Then
-                                    If idsInvoice.getPDF_IDS(mailItem, filename, Zielpfad) Then
+                                    If idsInvoice.getPDF_IDS(mailItem, filename, Zielpfad & idsInvoice.Invoicenumber & ".pdf") Then
                                         idsInvoice.DocumentName = filename
                                     End If
 
                                 End If
 
                             End If
+                            idsInvoice.Zeitstempel = Now()
                             idsInvoice.SAVE()
                         Catch ex As Exception
-                            mailItem = Nothing
-                            outlookApp = Nothing
 
                         Finally
                             Try