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

neues Feld (ATEZ)

Browse Source
This commit is contained in:
d.breimaier
2023-09-01 14:55:11 +02:00
parent ba5c79bd30
commit 14f48af137
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

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