ATEZ-API Fehlerhandling verbessert

Aviso/Aviso.vbproj

@@ -108,7 +108,7 @@
     <PlatformTarget>x64</PlatformTarget>
   </PropertyGroup>
   <PropertyGroup>
-    <AssemblyOriginatorKeyFile>Aviso_TemporaryKey.pfx</AssemblyOriginatorKeyFile>
+    <AssemblyOriginatorKeyFile>LME.pfx</AssemblyOriginatorKeyFile>
   </PropertyGroup>
   <ItemGroup>
     <Reference Include="Accessibility" />

Aviso/frmATEZ_NCTS.vb

@@ -9,7 +9,7 @@ Imports VERAG_PROG_ALLGEMEIN
 Public Class frmATEZ_NCTS
 
     Dim ART As String = ""
-    Dim FilialenNr As String = ""
+    Dim FilialenNr As Integer
     Dim AbfertigungsNr As Integer
     Dim JAHR As Integer = Now.ToString("yy")
     Public isSTAMMREF As Boolean = False
@@ -129,15 +129,6 @@ Public Class frmATEZ_NCTS
                     .Carrier_EORI = usrCntl_Carrier.txtEORI.Text
                     .Guarantee_GRN = "" 'leer 
 
-                    Select Case SENDUNG.tblSnd_Abfertigungsart_ID
-                        Case 5, 45 : .DAKOSY_Procedure = "T1"
-                        Case 6 : .DAKOSY_Procedure = "T2"
-                        Case 8 : .DAKOSY_Procedure = "TIR"
-                        Case Else : .DAKOSY_Procedure = "T2"
-                    End Select
-
-
-
                     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
@@ -175,7 +166,7 @@ Public Class frmATEZ_NCTS
             Me.Cursor = Cursors.Default
 
         Catch ex As Exception
-
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
             Me.Cursor = Cursors.Default
         End Try
 
@@ -193,22 +184,28 @@ Public Class frmATEZ_NCTS
         End If
 
 
-        If Not atez.setJson(atezData, dgvAnhaenge) Then MsgBox("Fehler beim Erstellen der Daten" & vbNewLine & "Vorgang abgebrochen!")
+        If Not atez.setJson(atezData) Then MsgBox("Fehler beim Erstellen der Daten" & vbNewLine & "Vorgang abgebrochen!")
+
+        If Not atez.setJsonPDF(atezData, dgvAnhaenge) Then MsgBox("Fehler beim Erstellen der PDF-Daten" & vbNewLine & "Vorgang abgebrochen!")
+
 
         Dim azetId = atez.SendRequestWithAuthHeader("application/json", failreDesc)
 
         If failreDesc <> "" Then
             If atezData.status = "Draft" Then
                 MsgBox("Fehler beim Senden" & vbNewLine & failreDesc)
+                atezData.fehlerbeschreibung = failreDesc
+                atezData.SAVE()
                 Exit Sub
             End If
-            Dim result As MsgBoxResult = MsgBox("Fehler beim Senden" & vbNewLine & failreDesc & vbNewLine & "Soll NCTS wird als Entwurf gespeichert werden?", vbYesNoCancel)
+            Dim result As MsgBoxResult = MsgBox("Fehler beim Senden" & vbNewLine & failreDesc & vbNewLine & "Soll NCTS als Entwurf gespeichert werden?", vbYesNoCancel)
             If result = vbYes Then
                 atezData.status = "Draft"
                 atezData.fehlerbeschreibung = failreDesc
                 atezData.SAVE()
             End If
-            lblInfo.Text = "Fehler in der API"
+
+            lblInfo.Text = "Fehler in der API "
 
         Else
             atezData.status = "Sent"
@@ -262,13 +259,6 @@ Public Class frmATEZ_NCTS
 
     Private Sub frmATEZNCTS_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
-        If FilialenNr = "" Then
-            MsgBox("Keine Filiale ausgewählt!")
-            Me.Close()
-        End If
-
-        FIRMA_DY = SDL.frmZollanmeldung.getFirma_DY(FilialenNr, Nothing)
-
         Select Case FIRMA_DY
             Case "VERAG" : txtDyMandant.Text = "VERG"
                 txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
@@ -278,7 +268,6 @@ Public Class frmATEZ_NCTS
             Case "AMBAR" : txtDyMandant.Text = "ATIL" : txtDyNiederlassung.Text = "AMBWO"
         End Select
 
-
         initSeachboxes()
         initAttachment()
 
@@ -432,7 +421,7 @@ CASE WHEN  [anh_Art] = 'ATR-EUR1' then 'EUR'
                                                 when [anh_Art] = 'Sonstiges' then 'OTHER'
                                                 when [anh_Art] ='' then 'OTHER' End
                                                 [anh_Art],[anh_Typ] FROM [tblAvisoAnhaenge] 
-                                        WHERE [anh_AvisoId]='" & AVISO.AvisoID & "'   And anh_Typ = 'PDF'
+                                        WHERE [anh_AvisoId]='" & AVISO.AvisoID & "' AND isnull(anh_SendungsId,0) <=0 And anh_Typ = 'PDF'
                                         Order BY  [anh_Reihenfolge], anh_Datum desc, [anh_id]"
 
         Dim dt = VermerkeDAL.Anzeigen_Vermerke(hSQL)
@@ -539,5 +528,4 @@ CASE WHEN  [anh_Art] = 'ATR-EUR1' then 'EUR'
         txtDat._value = CDate(sender.value).ToShortDateString
     End Sub
 
-
 End Class