ATEZ

Aviso/frmSendungsdetailsNEU.vb

@@ -6278,52 +6278,8 @@ Public Class frmSendungsdetailsNEU
 
     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
+        cntxAPI.Show(Cursor.Position)
 
-        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")
@@ -6354,5 +6310,39 @@ Public Class frmSendungsdetailsNEU
                                      End Sub
     End Sub
 
+    Private Sub ATEZToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATEZToolStripMenuItem.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
+
+
+    End Sub
+
+    Private Sub DigicustToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DigicustToolStripMenuItem.Click
+        Try
+            If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
+                If AVISO.ImEx.ToLower() <> "import" Then
+                    MsgBox("API unterstützt nur Importe!" & vbNewLine & "Aktenübersicht-Einstellungen kontrollieren")
+                    Exit Sub
+                End If
+                Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
+                Dim frm = New frmDigicust(AVISO, SND, Now.ToString("yy"))
+                frm.Show(Me)
+            End If
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        Me.Cursor = Cursors.Default
+    End Sub
+
 
 End Class