ATEZ NCTS

Aviso/usrcntlAktDetailsATILLANeu.vb

@@ -144,11 +144,39 @@ Public Class usrcntlAktDetailsATILLANeu
 
     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 & "'", "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
+
     Sub initdgvZollAnmeldungen()
         With dgvZollAnmeldungen
             .Columns.Clear()
             .ReadOnly = False
-            .DataSource = SQL.loadDgvBySql("SELECT  [dy_Id],[dy_ART],[dy_BezugsNr],[dy_Erstellung],[dy_Status] FROM [tblDakosy_Zollanmeldungen] WHERE dy_AvisoId='" & AvisoID & "'", "FMZOLL")
+            .DataSource = SQL.loadDgvBySql("SELECT [dy_Id],[dy_ART],[dy_BezugsNr],[dy_Erstellung],[dy_Status] FROM [tblDakosy_Zollanmeldungen] WHERE dy_AvisoId='" & AvisoID & "'", "FMZOLL")
             If .Columns.Count <= 0 Then Exit Sub
             'Ä.Columns("txtStatus").ReadOnly = False
             .Columns("dy_Id").Visible = False
@@ -176,6 +204,7 @@ Public Class usrcntlAktDetailsATILLANeu
         End With
 
     End Sub
+
     Private Sub dgvZollAnmeldungen_CellFormatting(sender As Object, e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles dgvZollAnmeldungen.CellFormatting
         Select Case dgvZollAnmeldungen.Columns(e.ColumnIndex).Name
             Case "txtStatus" 'Dauer
@@ -229,6 +258,13 @@ Public Class usrcntlAktDetailsATILLANeu
             SGSNCTSToolStripMenuItem.Visible = True
         End If
 
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ATEZ_NCTS", Me.FindForm) Then
+            NCTSATEZToolStripMenuItem.Visible = True
+            tbATEZ.Visible = True
+        Else
+            tbATEZ.Visible = False
+        End If
+
 
         timer.Interval = 100
         reload(AvisoID)
@@ -1472,6 +1508,8 @@ Public Class usrcntlAktDetailsATILLANeu
             initdgvZollAnmeldungen()
         ElseIf tbcntr.SelectedTab Is tbVermerke Then
             If loaded Then Vermerke_anzeigen()
+        ElseIf tbcntr.SelectedTab Is tbATEZ Then
+            initdgvATEZ()
         End If
     End Sub
 
@@ -1609,32 +1647,14 @@ Public Class usrcntlAktDetailsATILLANeu
     End Sub
 
     Private Sub NCTSATEZToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NCTSATEZToolStripMenuItem.Click
-        Dim ATTACHMENTS_LIST As New List(Of String)
+
         Try
 
-            If dgvanhaenge.SelectedRows.Count = 0 Then
-                MsgBox("Bitte zu schickenden Anhänge markieren!")
-                Exit Sub
-            Else
-                For Each row As DataGridViewRow In dgvanhaenge.SelectedRows
-                    Dim anh_id = row.Cells("anh_id").Value
-                    ATTACHMENTS_LIST.Add(anh_id)
-                Next
-
-            End If
-
 
             If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
                 Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(0)
 
-
-                Dim frmAttilaATEZNCTS = New frmATEZNCTS(AVISO, SND, Now.ToString("yy"))
-                frmAttilaATEZNCTS.ATT = ATTACHMENTS_LIST
-
-                AddHandler frmAttilaATEZNCTS.FormClosed, Sub()
-                                                             'initdgvZollAnmeldungen()
-                                                         End Sub
-
+                Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(AVISO, SND, Now.ToString("yy"))
                 frmAttilaATEZNCTS.Show(Me)
 
             End If
@@ -1645,4 +1665,6 @@ Public Class usrcntlAktDetailsATILLANeu
         Me.Cursor = Cursors.Default
 
     End Sub
+
+
 End Class