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

MA Anzeige Hauptfirma, div. Fixes

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-12-05 14:17:34 +01:00
parent 0fd21dba2a
commit b4d25e6ea1
5 changed files with 104 additions and 69 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb
View File

@@ -774,7 +774,6 @@ Public Class frmMDMNachrichtenVerarbeitung
Dim currentRow As String()
Dim fi As FileInfo = New FileInfo(d)
While Not MyReader.EndOfData
@@ -784,8 +783,10 @@ Public Class frmMDMNachrichtenVerarbeitung
If currentRow(0) <> "PloseCode" Then ' Header
If currentRow.Length >= 15 Then
Dim PLOSE_INV As New MDM_Worker.cPLOSE_Inv_Data
' MsgBox(SQL.isleernothingDateFormatstring(currentRow(7)))
' MsgBox(currentRow(7))
PLOSE_INV.plInv_SupplierRechnungsDatum = SQL.isleernothingDateFormatstring(currentRow(7))
' MsgBox(PLOSE_INV.plInv_SupplierRechnungsDatum)
PLOSE_INV.plInv_SupplierRechnungsNr = SQL.isleernothing(currentRow(8))
PLOSE_INV.plInv_SupplierCountry = SQL.isleernothing(currentRow(6))
PLOSE_INV.plInv_Lieferant = SQL.isleernothing(currentRow(4))
@@ -793,6 +794,9 @@ Public Class frmMDMNachrichtenVerarbeitung
PLOSE_INV.plInv_LieferantUID = SQL.isleernothing(currentRow(5))
'PLOSE_INV.plInv_RechnungsJahr = SQL.isleernothing(currentRow(7)) --> JAHR
PLOSE_INV.plInv_PdfFileName = SQL.isleernothing(currentRow(14))
If If(PLOSE_INV.plInv_PdfFileName, "") <> "" Then
If Not PLOSE_INV.plInv_PdfFileName.ToString.ToLower.EndsWith(".pdf") Then PLOSE_INV.plInv_PdfFileName += ".pdf" ' Falls Endung nciht .pdf --> anfügen
End If
PLOSE_INV.plInv_Einlesedatum = Now.ToShortDateString
PLOSE_INV.plInv_Datensatztyp = "PDF"
PLOSE_INV.plInv_PLOSEKundennummer = SQL.isleernothing(currentRow(0))
@@ -807,6 +811,10 @@ Public Class frmMDMNachrichtenVerarbeitung
' [plInv_daId]
'If If(PLOSE_INV.plInv_PdfFileName, "") <> "" Then 'And PLOSE_INV.plInv_daId Is Nothing Then
' PLOSE_INV.plInv_daId = SQL.getValueTxtBySql("SELECT TOP (1) [da_id] FROM [tblDatenarchiv] where da_kategorie = 'MDM' AND da_ordner='MDM_DATEN' and da_name='" & PLOSE_INV.plInv_PdfFileName & "' order by da_id desc", "FMZOLL",,, Nothing)
'End If
PLOSE_INV.plInv_Dateiname = fi.Name