ATEZ Anpassungen

Aviso/frmSendungsdetailsNEU.vb

@@ -407,8 +407,8 @@ Public Class frmSendungsdetailsNEU
                 '   ToolStripMenuItem13.Enabled = True
             End If
 
-            If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then
-                Button19.Visible = True
+            If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ATEZ_NCTS", Me) Then
+                Button20.Visible = True
             End If
 
 
@@ -6278,70 +6278,7 @@ Public Class frmSendungsdetailsNEU
         Me.Cursor = Cursors.Default
     End Sub
 
-    Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click, ToolStripMenuItem12.Click
 
-        Try
-            If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
-                Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
-                Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(AVISO, SND, Now.ToString("yy"))
-                frmAttilaATEZNCTS.Show(Me)
-            End If
-
-        Catch ex As Exception
-            MsgBox(ex.Message & ex.StackTrace)
-        End Try
-        Me.Cursor = Cursors.Default
-
-
-
-
-
-
-        Exit Sub
-        MsgBox("Funktion noch nicht implementiert!")
-        Dim failreDesc As String = ""
-
-        If dgvAnhang.SelectedRows.Count = 0 Then
-            failreDesc = "Bitte zu schickenden Anhang markieren!"
-            MsgBox(failreDesc)
-            Exit Sub
-        End If
-
-        Dim atezData As New cATEZ_NCTS_DATA
-        Dim atez As New cATEZ_NCTS_IN
-
-        With atezData
-
-            .VERAG_LRN = AVISO.AvisoID
-            .LicensePlateContainerNo = AVISO.LKW_Nr
-            .DAKOSY_Division1 = "test"
-            'Datenzuweisung machen!
-            .SAVE()
-
-        End With
-
-        Dim test = atez.authenticate()
-        If test <> "200" Then
-            failreDesc = "Authentifizierung fehlgeschlagen" & vbNewLine & "Vorgang abgebrochen!"
-            MsgBox(failreDesc)
-            Exit Sub
-        End If
-
-
-        'If Not atez.setData(atezData, dgvAnhang) Then MsgBox("Fehler beim Erstellen der Daten")
-
-        'atez.SendRequestWithAuthHeader("application/json", failreDesc)
-
-        'If failreDesc <> "" Then
-        '    atezData.status = failreDesc
-        '    atezData.SAVE()
-        '    MsgBox(failreDesc)
-        'Else
-        '    atezData.status = "Sent"
-        '    atezData.SAVE()
-        'End If
-
-    End Sub
 
     Private Sub ToolStripMenuItem31_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem31.Click
         'MsgBox("Funktion noch nicht implementiert!")
@@ -6404,4 +6341,23 @@ Public Class frmSendungsdetailsNEU
 
     End Sub
 
+    Private Sub Button20_Click_1(sender As Object, e As EventArgs) Handles Button20.Click
+        SAVE_ME()
+
+        Try
+            If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
+                Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
+                Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(AVISO, SND, Now.ToString("yy"))
+                frmAttilaATEZNCTS.Show(Me)
+            End If
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        Me.Cursor = Cursors.Default
+
+        initTab()
+
+
+    End Sub
 End Class