vers

SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb

@@ -936,5 +936,44 @@ Public Class usrCntlATLAS_EZA
     Private Sub pnl_Paint_1(sender As Object, e As PaintEventArgs) Handles pnl.Paint
 
     End Sub
+
+    Private Sub XMLExampleToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles XMLExampleToolStripMenuItem.Click
+
+        Me.Refresh()
+        cboDakosyAction.Focus() 'nur, damit alle _value aktualisuiert sind...
+        '  Dim cDyAnm As New cDakosy_Zollanmeldungen(cDy_ART, BezugsNr, AVISO.AvisoID, SENDUNG.tblSnd_SendungID)
+        loadDYZollanmeldungen()
+
+        If DY_ANM Is Nothing Then
+            DY_ANM = New cDakosy_Zollanmeldungen(EZA.eza_dyaAnmID)
+        End If
+        DY_ANM.dy_ART = ALLG.EZA_ART 'cDy_ART
+        DY_ANM.dy_BezugsNr = BezugsNr
+
+        If EZA IsNot Nothing Then
+                'Dim cDY As New cDakosyEZA(cDyAnm.dy_Id, cDyAnm.dy_Erstellung_SB)
+                EZA.eza_dyaAnmID = DY_ANM.dy_Id
+                EZA.eza_Erstellung_SB = DY_ANM.dy_Erstellung_SB
+                EZA.eza_LetzteBearbeitung = Now
+                EZA.eza_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB
+                EZA.eza_firma = Me.FIRMA_DY
+                DAKOSY_Interface_SEND.loadInClass_VersandanmeldungEZA(EZA, Me, DY_ANM)
+            '  If Not EZA.SAVE_ALL() Then Exit Sub
+
+            Dim tempFilePath As String = System.IO.Path.GetTempFileName()
+
+            ' Ändere die Endung in .xml
+            Dim saveFile As String = System.io.Path.ChangeExtension(tempFilePath, ".xml")
+
+
+
+            If DAKOSY_Interface_SEND.generateVersandanmeldungEZA(EZA, saveFile, cboDakosyAction._value) Then
+                    If saveFile <> "" Then
+                    Process.Start(saveFile)
+                End If
+            End If
+        End If
+
+    End Sub
 End Class