ATEZ

Aviso/frmATEZ_NCTS.vb

@@ -1,4 +1,6 @@
-Imports DocumentFormat.OpenXml.Vml.Presentation
+Imports System.Web.UI.WebControls
+Imports com.esendex.sdk.sent
+Imports DocumentFormat.OpenXml.Vml.Presentation
 Imports GrapeCity.ActiveReports.Design.DdrDesigner.Designers
 Imports GrapeCity.ActiveReports.ReportsCore.Tools
 Imports Newtonsoft.Json.Linq
@@ -77,10 +79,24 @@ Public Class frmATEZ_NCTS
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
         Try
 
-            If atez_data.status = "Sent" Then
+
+            If Button1.Text = "JSON" Then
+                If Not atez.setJson(atez_data) Then MsgBox("Fehler beim Erstellen der Daten")
+                atez.setJsonPDF(atez_data, dgvAnhaenge)
+
+                Dim data As New DataObject()
+                    data.SetData(DataFormats.Text, atez_data.json)
+                    Clipboard.SetDataObject(data)
+                    Me.Cursor = Cursors.Default
+                MsgBox("JSON-Daten in Zwischenablage gespeichert")
+                Exit Sub
+                End If
+
+                If atez_data.status = "Sent" Then
                 Exit Sub
             End If
 
+
             If Not checkAttachment() Then
                 Exit Sub
             End If
@@ -118,12 +134,14 @@ Public Class frmATEZ_NCTS
                 .Guarantee_GRN = "" 'leer 
                 .erstellerId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
 
-                'For Each doc As DataGridViewRow In dgvAnhaenge.Rows
-                '    Dim isSelected = IIf(DBNull.Value Is doc.Cells("anh_selekt").Value, False, doc.Cells("anh_selekt").Value)
-                '    If isSelected Then
-                '        .selectedDocuments &= doc.Cells("anh_docId").Value & ", "
-                '    End If
-                'Next
+                If .selectedDocuments <> "" Then .selectedDocuments = ""
+
+                For Each doc As DataGridViewRow In dgvAnhaenge.Rows
+                    Dim isSelected = IIf(DBNull.Value Is doc.Cells("anh_selekt").Value, False, doc.Cells("anh_selekt").Value)
+                    If isSelected Then
+                        .selectedDocuments &= doc.Cells("anh_docId").Value & ", "
+                    End If
+                Next
 
                 .SAVE()
 
@@ -156,8 +174,21 @@ Public Class frmATEZ_NCTS
 
         Dim authResp = atez.authenticate()
         If authResp <> "200" Then
-            failreDesc = "Authentifizierung fehlgeschlagen - " & authResp & vbNewLine & "Vorgang abgebrochen/wiederholen!"
-            lblInfo.Text = failreDesc
+
+            failreDesc = "Authentifizierung fehlgeschlagen"
+            lblInfo.Text = failreDesc & " - " & authResp & vbNewLine & "Vorgang abgebrochen" & vbNewLine & " Bitte wiederholen!"
+            Dim resultAuthentifizierung As MsgBoxResult = MsgBox("Fehler beim Authentifizieren" & vbNewLine & failreDesc & vbNewLine & "Soll NCTS als Entwurf gespeichert werden?", vbYesNoCancel)
+
+            If resultAuthentifizierung = vbYes Then
+                atezData.status = "Draft"
+                atezData.fehlerbeschreibung = failreDesc
+                Return atezData.SAVE()
+            Else
+                atezData.status = "Failure"
+                atezData.fehlerbeschreibung = failreDesc
+                Return atezData.SAVE()
+            End If
+
             Return False
         End If
 
@@ -166,7 +197,6 @@ Public Class frmATEZ_NCTS
 
         If Not atez.setJsonPDF(atezData, dgvAnhaenge) Then MsgBox("Fehler beim Erstellen der PDF-Daten, kein Anhang ausgewählt!" & vbNewLine & "Vorgang abgebrochen!")
 
-        'MsgBox(atezData.json)
         Dim azetId = atez.SendRequestWithAuthHeader("application/json", failreDesc)
 
         If failreDesc <> "" Then
@@ -253,7 +283,7 @@ Public Class frmATEZ_NCTS
         End Select
 
         initSeachboxes()
-        initAttachment()
+
 
 
         cboProzedur.Items.Clear()
@@ -270,11 +300,11 @@ Public Class frmATEZ_NCTS
 
             If id > 0 Then
                 atez_data = New cATEZ_NCTS_DATA(id)
-
+                initAttachment()
                 If atez_data.atezId <> "" Then
                     lblInfo.Text = "Atez-ID " & atez_data.atezId
                 Else
-                    lblInfo.Text = "Status: " & atez_data.status
+                    lblInfo.Text = "Status: " & IIf(atez_data.fehlerbeschreibung <> "", atez_data.status & "- " & atez_data.fehlerbeschreibung, atez_data.status)
                 End If
 
 
@@ -309,12 +339,15 @@ Public Class frmATEZ_NCTS
                     Button1.Text = "An ATEZ senden -->"
                     pnlHead.Enabled = True
                     Button1.Enabled = True
-                    initAttachment()
+                    'initAttachment()
 
                 Else
                     Button1.Text = "JSON"
                     pnlHead.Enabled = False
+                    dgvAnhaenge.ReadOnly = True
                     Button1.Enabled = True
+
+
                 End If
 
 
@@ -324,6 +357,7 @@ Public Class frmATEZ_NCTS
 
         Else
             atez_data = New cATEZ_NCTS_DATA()
+            initAttachment()
             Button1.Text = "An ATEZ senden -->"
             pnlHead.Enabled = True
 
@@ -361,7 +395,7 @@ Public Class frmATEZ_NCTS
             sbDurchgangszollstelle6.SET_VALUE(If(AVISO.Durchgangszollstelle6, ""))
 
         End If
-
+        'initAttachment()
     End Sub
 
     Sub initAttachment()
@@ -393,7 +427,7 @@ Public Class frmATEZ_NCTS
         Dim col As DataColumn
         col = dt.Columns.Add("anh_selekt", GetType(Boolean))
         col.SetOrdinal(0)
-
+        dgvAnhaenge.Columns.Clear()
         dgvAnhaenge.DataSource = dt
 
         If dgvAnhaenge.RowCount = 0 Then dgvAnhaenge.Columns.Clear() : Exit Sub
@@ -408,7 +442,7 @@ Public Class frmATEZ_NCTS
             .Columns("anh_id").Visible = False     'VermerkID nicht anzeigenconMenuVermerke
             .Columns("anh_docId").Visible = False     'AvisoID nicht anzeigen
 
-            .Columns("anh_selekt").MinimumWidth = 50
+            .Columns("anh_selekt").MinimumWidth = 10
             .Columns("anh_selekt").HeaderText = "ausgewählt"
             .Columns("anh_selekt").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
 
@@ -431,6 +465,18 @@ Public Class frmATEZ_NCTS
 
         End With
 
+        If atez_data IsNot Nothing AndAlso atez_data.selectedDocuments <> "" Then
+
+            For Each doc As DataGridViewRow In dgvAnhaenge.Rows
+
+                If atez_data.selectedDocuments.Contains(doc.Cells("anh_docId").Value) Then
+                    doc.Cells("anh_selekt").Value = True
+                End If
+
+            Next
+        End If
+
+
     End Sub