neues Feld (ATEZ)

VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb

@@ -38,6 +38,8 @@ Public Class cATEZ_NCTS_DATA
     Public Property dakosy_ref As String
     Public Property selectedDocuments As String
 
+    Public Property fehlerbeschreibung As String
+
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
 
     Public hasEntry As Boolean
@@ -73,6 +75,7 @@ Public Class cATEZ_NCTS_DATA
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("json", json))
         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))
 
         Return list
     End Function
@@ -641,6 +644,7 @@ Public Class cATEZ_NCTS_IN
             i = i + 1
         Next
 
+        ncts.json = jsonData.Emit()
 
         For Each r As DataGridViewRow In dgv.Rows
             Dim isSelected = IIf(DBNull.Value Is r.Cells("anh_selekt").Value, False, r.Cells("anh_selekt").Value)
@@ -657,7 +661,7 @@ Public Class cATEZ_NCTS_IN
             End If
 
         Next
-        ncts.json = jsonData.Emit()
+        jsonData.Emit()
 
 
         Return success