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

Aviso/frmSendungsdetailsNEU.vb

@@ -6261,4 +6261,52 @@ Public Class frmSendungsdetailsNEU
         End Try
         Me.Cursor = Cursors.Default
     End Sub
+
+    Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
+
+        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
+
+
 End Class