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

MDM, IDS, USTVA

Browse Source
This commit is contained in:
d.breimaier
2024-12-04 11:04:21 +01:00
parent 9fd1c28b5a
commit 890818df47
12 changed files with 177 additions and 148 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb
View File

@@ -964,6 +964,7 @@ Public Class cMSEAPI
dt.Columns.Add("msts_vat_number", GetType(String))
dt.Columns.Add("invoice_id", GetType(String))
dt.Columns.Add("invoice_date", GetType(String))
'dt.Columns.Add("invoice_nr", GetType(String))
While j < num
@@ -977,6 +978,7 @@ Public Class cMSEAPI
R("msts_vat_number") = checkNullStr(invoice.StringOf("msts_vat_number"))
R("invoice_id") = checkNullInteger(invoice.StringOf("invoice_id"))
R("invoice_date") = checkNullStr(invoice.StringOf("invoice_date"))
'R("invoice_nr") = checkNullStr(invoice.StringOf("invoice_nr"))
Dim invoice_date_string As String = invoice.StringOf("invoice_date")
@@ -997,6 +999,7 @@ Public Class cMSEAPI
inv.msts_vat_number = checkNullStr(R("msts_vat_number"))
inv.invoice_id = checkNullInteger(R("invoice_id"))
inv.invoice_date = checkNullDateNothing(R("invoice_date"))
'inv.invoice_nr = checkNullStr(R("invoice_nr"))
If nameString.Length > 13 AndAlso nameString.Contains("_") Then
inv.customer_number = nameString.Substring(nameString.IndexOf("_") + 1, 5)