ATEZ Änderungen

Aviso/frmATEZ_NCTS.vb

@@ -31,6 +31,7 @@ Public Class frmATEZ_NCTS
     Dim dgv As DataGridView = Nothing
     Dim atez_data As cATEZ_NCTS_DATA
     Dim atez = New cATEZ_NCTS_IN
+    Dim allSelected As Boolean = False
 
     Property BezugsNr As String = ""
     Property SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen
@@ -203,13 +204,16 @@ Public Class frmATEZ_NCTS
             Return atezData.SAVE
         End If
 
-        If Not atez.setJsonPDF(atezData, dgvAnhaenge) Then
-            MsgBox("Fehler beim Erstellen der PDF-Daten!" & vbNewLine & "Vorgang abgebrochen!")
-            atezData.status = "Failure"
-            atezData.fehlerbeschreibung = "Fehler beim Erstellen der PDF-Daten!"
-            Return atezData.SAVE
+        If checkAttachment() Then
+            If Not atez.setJsonPDF(atezData, dgvAnhaenge) Then
+                MsgBox("Fehler beim Erstellen der PDF-Daten!" & vbNewLine & "Vorgang abgebrochen!")
+                atezData.status = "Failure"
+                atezData.fehlerbeschreibung = "Fehler beim Erstellen der PDF-Daten!"
+                Return atezData.SAVE
+            End If
         End If
 
+
         Dim azetId = atez.SendRequestWithAuthHeader("application/json", failreDesc)
 
         If failreDesc <> "" Then
@@ -307,6 +311,7 @@ Public Class frmATEZ_NCTS
         End Select
 
         initSeachboxes()
+        lblAnh.Visible = True
 
 
 
@@ -616,11 +621,11 @@ Public Class frmATEZ_NCTS
         Next
 
 
-        If Not selectedDocuments Then
-            lblInfo.Text = "kein Anhang selektiert"
-            Cursor = Cursors.Default
-            Return selectedDocuments
-        End If
+        'If Not selectedDocuments Then
+        '    lblInfo.Text = "kein Anhang selektiert"
+        '    Cursor = Cursors.Default
+        '    Return selectedDocuments
+        'End If
 
         Return selectedDocuments
 
@@ -745,12 +750,12 @@ Public Class frmATEZ_NCTS
             If dgvAnhaenge.Columns(e.ColumnIndex).Name = "anh_selekt" Then
 
                 If Not IsDBNull(dgvAnhaenge.CurrentRow.Cells("anh_selekt").Value) AndAlso dgvAnhaenge.CurrentRow.Cells("anh_selekt").Value = True Then
-                    countAnh += dgvAnhaenge.CurrentRow.Cells("anh_size").Value
+                    countAnh += IIf(dgvAnhaenge.CurrentRow.Cells("anh_size").Value IsNot DBNull.Value, dgvAnhaenge.CurrentRow.Cells("anh_size").Value, 0)
                 End If
 
                 For Each Row As DataGridViewRow In dgvAnhaenge.Rows
                     If Row.Cells("anh_selekt").Value IsNot DBNull.Value AndAlso Row.Cells("anh_selekt").Value = True AndAlso Row.Cells("anh_size").Value IsNot DBNull.Value Then
-                        countAnh += Row.Cells("anh_size").Value
+                        countAnh += IIf(Row.Cells("anh_size").Value IsNot DBNull.Value, Row.Cells("anh_size").Value, 0)
                     End If
                 Next
 
@@ -763,4 +768,21 @@ Public Class frmATEZ_NCTS
 
 
     End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        If dgvAnhaenge.RowCount > 0 Then
+            Dim countAnh As Double = 0
+            For Each Row As DataGridViewRow In dgvAnhaenge.Rows
+                If allSelected Then
+                    Row.Cells("anh_selekt").Value = True
+                    countAnh += IIf(Row.Cells("anh_size").Value IsNot DBNull.Value, Row.Cells("anh_size").Value, 0)
+                Else
+                    Row.Cells("anh_selekt").Value = False
+                    countAnh = 0
+                End If
+            Next
+            allSelected = Not allSelected
+            lblAnh.Text = "Anhang in MB: " & countAnh.ToString
+        End If
+    End Sub
 End Class