ATEZ SND

Aviso/frmSendungsdetailsNEU.vb

@@ -3067,6 +3067,8 @@ Public Class frmSendungsdetailsNEU
             initVermerke()
         ElseIf TabControl1.SelectedTab Is tbAnhang Then
             initAnhang()
+        ElseIf TabControl1.SelectedTab Is tbKundenInfo Then
+            initdgvATEZ()
         ElseIf TabControl1.SelectedTab Is tbKundenInfo Then
             Dim kdSrc As VERAG_PROG_ALLGEMEIN.KdSearchBox = txtAuftraggeber
             If kdSrc.KdNr_value <= 0 Then kdSrc = txtEmpfaenger
@@ -6354,5 +6356,52 @@ Public Class frmSendungsdetailsNEU
                                      End Sub
     End Sub
 
+    Sub initdgvATEZ()
+        With dgvATEZNCTS
+            .Columns.Clear()
+            .ReadOnly = False
+            .DataSource = SQL.loadDgvBySql("select [Id],'ATEZ' as Art ,[VERAG_LRN] as BezugsNr,[erstellung] as Erstellung,[Status] as Status FROM [tblATEZ_NCTS]  WHERE AvisoId='" & AvisoId & "' AND  [SendungsId]='" & SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID & "'", "FMZOLL")
+            If .Columns.Count <= 0 Then Exit Sub
+            'Ä.Columns("txtStatus").ReadOnly = False
+            .Columns("Id").Visible = False
+
+            .Columns("Art").HeaderText = "Art"
+            .Columns("Art").Width = 80
+
+            .Columns("Status").HeaderText = "Art"
+            .Columns("Status").Width = 80
+
+            .Columns("BezugsNr").HeaderText = "BezugsNr"
+            .Columns("BezugsNr").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+
+            .Columns("Erstellung").HeaderText = "Erstellt"
+            .Columns("Erstellung").Width = 100
+            .Columns("Erstellung").DefaultCellStyle.Format = "dd.MM.yy HH:mm"
+            .Columns("Erstellung").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+            .ReadOnly = False
+        End With
+
+    End Sub
+
+    Private Sub dgvATEZNCTS_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvATEZNCTS.CellDoubleClick
+
+        Try
+            Me.Cursor = Cursors.WaitCursor
+
+            If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
+                Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(0)
+
+                Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(dgvATEZNCTS.SelectedRows(0).Cells("Id").Value, AVISO, SND, Now.ToString("yy"))
+                frmAttilaATEZNCTS.Show(Me)
+                Me.Refresh()
+            End If
+
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+
+    End Sub
 
 End Class