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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-03-21 10:17:42 +01:00
parent 39911e313e
commit e3843466c8
28 changed files with 4460 additions and 608 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb
View File

@@ -585,12 +585,23 @@ Public Class frmMDMNachrichtenVerarbeitung
PLOSE.plose_ProduktCode = SQL.isleernothing(currentRow(34))
PLOSE.plose_ReferenzenBuchungMaut = SQL.isleernothing(currentRow(35))
If currentRow.Length > 36 Then PLOSE.plose_SupplierRechnungsNr = SQL.isleernothing(currentRow(36))
If currentRow.Length > 37 AndAlso currentRow(37).ToString.Length = 8 Then
Dim datumParse = DateTime.ParseExact(currentRow(37), "yyyyMMdd", Nothing)
PLOSE.plose_SupplierRechnungsDatum = datumParse
End If
If If(PLOSE.plose_SupplierRechnungsNr, "").contains("-SFC-") Then ' SOFICO
PLOSE.plose_LieferantCode = "90"
PLOSE.plose_Lieferant = SQL.DLookup("pl_Bezeichnung", "tblPLOSE_Lieferant", " [pl_LieferantCode]='" & PLOSE.plose_LieferantCode & "' ", "FMZOLL", "")
End If
''''''''''''
If PLOSE.SAVE() Then
End If
End If
End If
End If
End Select
cnt += 1