ATEZ Änderungen

Aviso/frmATEZ_NCTS.Designer.vb

@@ -73,6 +73,7 @@ Partial Class frmATEZ_NCTS
         Me.dgvAnhaenge = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.columnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
         Me.lblAnh = New System.Windows.Forms.Label()
+        Me.Button3 = New System.Windows.Forms.Button()
         Me.pnlHead.SuspendLayout()
         CType(Me.dgvAnhaenge, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
@@ -97,6 +98,7 @@ Partial Class frmATEZ_NCTS
         '
         Me.pnlHead.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
         Me.pnlHead.BackColor = System.Drawing.Color.White
+        Me.pnlHead.Controls.Add(Me.Button3)
         Me.pnlHead.Controls.Add(Me.Label2)
         Me.pnlHead.Controls.Add(Me.cboProzedur)
         Me.pnlHead.Controls.Add(Me.lblInfo)
@@ -959,6 +961,15 @@ Partial Class frmATEZ_NCTS
         Me.lblAnh.TabIndex = 151
         Me.lblAnh.Visible = False
         '
+        'Button3
+        '
+        Me.Button3.Location = New System.Drawing.Point(470, 575)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Size = New System.Drawing.Size(111, 23)
+        Me.Button3.TabIndex = 152
+        Me.Button3.Text = "alle Anh. selekt."
+        Me.Button3.UseVisualStyleBackColor = True
+        '
         'frmATEZ_NCTS
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1028,4 +1039,5 @@ Partial Class frmATEZ_NCTS
     Friend WithEvents Label2 As Label
     Friend WithEvents cboProzedur As VERAG_PROG_ALLGEMEIN.MyComboBox
     Friend WithEvents lblAnh As Label
+    Friend WithEvents Button3 As Button
 End Class

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
+        If checkAttachment() Then
-            MsgBox("Fehler beim Erstellen der PDF-Daten!" & vbNewLine & "Vorgang abgebrochen!")
+            If Not atez.setJsonPDF(atezData, dgvAnhaenge) Then
-            atezData.status = "Failure"
+                MsgBox("Fehler beim Erstellen der PDF-Daten!" & vbNewLine & "Vorgang abgebrochen!")
-            atezData.fehlerbeschreibung = "Fehler beim Erstellen der PDF-Daten!"
+                atezData.status = "Failure"
-            Return atezData.SAVE
+                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
+        'If Not selectedDocuments Then
-            lblInfo.Text = "kein Anhang selektiert"
+        '    lblInfo.Text = "kein Anhang selektiert"
-            Cursor = Cursors.Default
+        '    Cursor = Cursors.Default
-            Return selectedDocuments
+        '    Return selectedDocuments
-        End If
+        '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