Timas-API, Sendungssdetail (ATEZ NZTS), Attila (ATEZ NZTS)

Aviso/usrcntlAktDetailsATILLANeu.vb

@@ -1612,4 +1612,50 @@ Public Class usrcntlAktDetailsATILLANeu
         End If
     End Sub
 
+    Private Sub NCTSATEZToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NCTSATEZToolStripMenuItem.Click
+        If dgvanhaenge.SelectedRows.Count = 0 Then
+            MsgBox("Bitte zu schickenden Anhänge markieren!")
+            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
 End Class