Bugfix ATEZ und Digicust

Aviso/frmSendungsdetailsNEU.vb

@@ -6428,8 +6428,9 @@ Public Class frmSendungsdetailsNEU
         Try
             If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
                 Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
-                Dim frm = New frmDigicust(AVISO, SND, Now.ToString("yy"), dgvATEZNCTS)
+                Dim frm = New frmDigicust(AVISO, SND, Now.ToString("yy"), dgvDigicust)
                 frm.Show(Me)
+                initdgvDigicust()
             End If
 
         Catch ex As Exception
@@ -6443,21 +6444,60 @@ Public Class frmSendungsdetailsNEU
         With dgvDigicust
             .Columns.Clear()
             .ReadOnly = False
-            .DataSource = SQL.loadDgvBySql("select * FROM [tblDigicust_Sessions]", "FMZOLL")
+            .DataSource = SQL.loadDgvBySql("select * FROM [tblDigicust_Sendungen]  WHERE AvisoId='" & AvisoId & "'", "FMZOLL")
             If .Columns.Count <= 0 Then Exit Sub
             'Ä.Columns("txtStatus").ReadOnly = False
-            .Columns("session_Id").Visible = True
+            .Columns("Id").Visible = False
+            .Columns("AvisoId").Visible = False
 
-            .Columns("token").HeaderText = "Token"
-            .Columns("token").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+            .Columns("reference").HeaderText = "Referenz"
+            .Columns("reference").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
 
-            .Columns("datetime").HeaderText = "Erstellt"
-            .Columns("datetime").Width = 100
-            .Columns("datetime").DefaultCellStyle.Format = "dd.MM.yy HH:mm"
-            .Columns("datetime").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+            .Columns("digicustId").HeaderText = "Digicust ID"
+            .Columns("digicustId").Width = 300
+
+            .Columns("status").HeaderText = "Status"
+            .Columns("status").Width = 100
+
+            .Columns("createdAt").HeaderText = "Erstellt"
+            .Columns("createdAt").Width = 150
+            .Columns("createdAt").DefaultCellStyle.Format = "dd.MM.yy HH:mm"
+            .Columns("createdAt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+            .Columns("modifiedAt").HeaderText = "Geändert"
+            .Columns("modifiedAt").Width = 150
+            .Columns("modifiedAt").DefaultCellStyle.Format = "dd.MM.yy HH:mm"
+            .Columns("modifiedAt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+            .Columns("uploadedDocuments").HeaderText = "Dokumente"
+            .Columns("uploadedDocuments").Width = 100
+
+            .Columns("companyId").Visible = False
+            .Columns("projectId").Visible = False
 
             .ReadOnly = False
         End With
 
     End Sub
+
+    Private Sub dgvDigicust_CellMouseDown(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvDigicust.CellMouseDown
+        If e.Button = Windows.Forms.MouseButtons.Right AndAlso e.RowIndex > -1 Then
+            Dim rowClicked As DataGridView.HitTestInfo
+            rowClicked = dgvDigicust.HitTest(e.X, e.Y)
+            dgvDigicust.ClearSelection()
+            Me.dgvDigicust.Rows(e.RowIndex).Selected = True
+
+            cntDigicust.Show(MousePosition.X, MousePosition.Y)
+
+        End If
+    End Sub
+
+    Private Sub StatusAbrufenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StatusAbrufenToolStripMenuItem.Click
+        Dim digiSendung As New cDigicustSendungen(dgvDigicust.SelectedRows(0).Cells("Id").Value)
+        Dim API = New cDigicustAPI()
+        API.fetchingCase(digiSendung)
+
+        initdgvDigicust()
+
+    End Sub
 End Class