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

KI-Anbindung, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-04-28 16:22:23 +02:00
parent d814d122ac
commit 8964d0c3a6
7 changed files with 736 additions and 515 deletions
Download Patch File Download Diff File Expand all files Collapse all files

72
VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb
View File

@@ -856,49 +856,65 @@ Public Class cATEZ_NCTS_IN
If dt IsNot Nothing Then
Dim data As New Chilkat.JsonObject
data = jsonResult
If (data.LastMethodSuccess = False) Then
Debug.WriteLine("data member not found.")
End If
Dim data
Dim num As Integer = 1
If num = -1 Then
Return "FEHLER Array Data ist leer"
If True Then
data = New Chilkat.JsonObject
data = jsonResult
If (data.LastMethodSuccess = False) Then
Debug.WriteLine("data member not found.")
End If
If num = -1 Then
Return "FEHLER Array Data ist leer"
End If
Else
num = jsonResult.SizeOfArray("data")
data = jsonResult.ArrayOf("data")
If (jsonResult.LastMethodSuccess = False) Then
Return "data not found."
End If
End If
Dim j As Integer = 0
While j < num
While j < num
Dim invoice As Chilkat.JsonObject = data.ObjectAt(j)
Dim invoice As Chilkat.JsonObject = data.ObjectAt(j)
Dim R As DataRow = dt.NewRow
R("currency") = checkNullStr(invoice.StringOf("currency"))
Dim totalAmonut As String = invoice.StringOf("total_VAT_amount").Replace(".", ",")
R("total_VAT_amount") = CDbl(checkNulDbl(totalAmonut))
R("invoice_id") = checkNullStr(invoice.StringOf("invoice_id"))
R("invoice_date") = checkNullStr(invoice.StringOf("invoice_date"))
Dim R As DataRow = dt.NewRow
R("currency") = checkNullStr(invoice.StringOf("currency"))
Dim totalAmonut As String = invoice.StringOf("total_VAT_amount").Replace(".", ",")
R("total_VAT_amount") = CDbl(checkNulDbl(totalAmonut))
R("invoice_id") = checkNullStr(invoice.StringOf("invoice_id"))
R("invoice_date") = checkNullStr(invoice.StringOf("invoice_date"))
R("seller_VAT_id") = checkNullStr(invoice.StringOf("seller_VAT_id"))
R("seller_name") = checkNullStr(invoice.StringOf("seller_name"))
R("seller_address_city") = checkNullStr(invoice.StringOf("seller_address_city"))
R("seller_address_country") = checkNullStr(invoice.StringOf("seller_address_country"))
R("seller_address_postcode") = checkNullStr(invoice.StringOf("seller_address_postcode"))
R("seller_address_street") = checkNullStr(invoice.StringOf("seller_address_street"))
R("status") = checkNullStr(jsonResult.StringOf("status"))
R("seller_address_country") = checkNullStr(invoice.StringOf("seller_address_country"))
R("seller_address_postcode") = checkNullStr(invoice.StringOf("seller_address_postcode"))
R("seller_address_street") = checkNullStr(invoice.StringOf("seller_address_street"))
R("status") = checkNullStr(jsonResult.StringOf("status"))
dt.Rows.Add(R)
dt.Rows.Add(R)
j = j + 1
End While
j = j + 1
End While
Return jsonResult.StringOf("status")
Return jsonResult.StringOf("status")
End If
End If
Return jsonResult.StringOf("atezId")
Return jsonResult.StringOf("atezId")
End If