From e411886523d3d5100ed77eba8096b9dc89518843 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 18 Oct 2023 09:39:50 +0200 Subject: [PATCH] =?UTF-8?q?ATEZ=20=C3=84nderungen?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Aviso/frmATEZ_NCTS.Designer.vb | 12 +++++++++ Aviso/frmATEZ_NCTS.vb | 46 +++++++++++++++++++++++++--------- 2 files changed, 46 insertions(+), 12 deletions(-) diff --git a/Aviso/frmATEZ_NCTS.Designer.vb b/Aviso/frmATEZ_NCTS.Designer.vb index 43a04ba..d02d3a0 100644 --- a/Aviso/frmATEZ_NCTS.Designer.vb +++ b/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 diff --git a/Aviso/frmATEZ_NCTS.vb b/Aviso/frmATEZ_NCTS.vb index 7bd7741..1766d87 100644 --- a/Aviso/frmATEZ_NCTS.vb +++ b/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 \ No newline at end of file