edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

IDS

Browse Source
This commit is contained in:
d.breimaier
2024-11-12 16:02:29 +01:00
parent b6731fe32c
commit b7d937ac6a
2 changed files with 11 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
initATLASAufschubkonten/frmNachrichtenVerarbeitung_MDM_divers.vb
View File

@@ -517,9 +517,6 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
'------------------ .CSV ------------------ '------------------ .CSV ------------------
'------------------------------------------ '------------------------------------------
'If Not deleteTable Then
' deleteTable = uta.clearimporttable()
'End If
If fi.Extension.ToLower = ".csv" Then If fi.Extension.ToLower = ".csv" Then
@@ -546,13 +543,15 @@ Public Class frmNachrichtenVerarbeitung_MDM_divers
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("MDM", "MDM_DATEN", "IDS", Now.Year, Now.ToString("yyyyMMdd"), frmStartOptions.getFileName(d)) Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("MDM", "MDM_DATEN", "IDS", Now.Year, Now.ToString("yyyyMMdd"), frmStartOptions.getFileName(d))
DS.uploadDataToDATENSERVER(d,,,,,, True) If DS.uploadDataToDATENSERVER(d,,,,,, True) Then
If SQL.doSQL("Update [tblIDSInvoicesNew] SET [daId]='" & DS.da_id & "' where [DocumentName] = '" & DS.da_name & "' ", "FMZOLL") Then
frmStartOptions.moveFile_DateBack(d, zielpfad & "Invoice_PDF\" & Now.Year & "\" & Now.ToString("yyyyMMdd") & "\")
End If
End If
Try Try
Catch ex As System.Exception
Catch ex As System.Exception
End Try End Try
End If End If

10
initATLASAufschubkonten/frmStartOptions.vb
View File

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