ATEZ und Digicust

This commit is contained in:
2023-09-13 17:18:59 +02:00
parent 80cdbe2c63
commit 13a700b4ab
2 changed files with 4 additions and 4 deletions

View File

@@ -35,7 +35,7 @@ Public Class cATEZ_NCTS_DATA
Public Property AvisoId As Integer
Public Property SendungsId As Integer
Public Property atezId As String
'Public Property json As String
Public Property erstellerId As Integer
Public Property dakosy_ref As String
Public Property selectedDocuments As String
Public Property fehlerbeschreibung As String
@@ -72,7 +72,7 @@ Public Class cATEZ_NCTS_DATA
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("atezId", atezId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("status", status))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("erstellung", erstellung))
'list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("json", json))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("erstellerId", erstellerId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dakosy_ref", dakosy_ref))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("selectedDocuments", selectedDocuments))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fehlerbeschreibung", fehlerbeschreibung))

View File

@@ -421,7 +421,7 @@ Public Class cDigicustAPI
End Function
Shared Function uploadingCase(dig As cDigicustSendungen, settings As cDigicustSettings, dgv As DataGridView) As Boolean
Shared Function uploadingCase(dig As cDigicustSendungen, settings As cDigicustSettings, dgv As DataGridView, withAvisoData As Boolean) As Boolean
Dim rest As New Chilkat.Rest
Dim success As Boolean
@@ -491,7 +491,7 @@ Public Class cDigicustAPI
rest.SetMultipartBodyString(dig.reference)
counter += 1
createUserinput(rest, counter, dig)
If withAvisoData Then createUserinput(rest, counter, dig)
rest.PartSelector = "0"