vers

SDL/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.3.6.5")>
+<Assembly: AssemblyVersion("1.3.6.7")>
-<Assembly: AssemblyFileVersion("1.3.6.5")>
+<Assembly: AssemblyFileVersion("1.3.6.7")>

SDL/SDL.vbproj

@@ -311,6 +311,7 @@
     <Reference Include="MESCIUS.Data.ExpressionInfo">
       <HintPath>F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.Data.ExpressionInfo.dll</HintPath>
     </Reference>
+    <Reference Include="Microsoft.Bcl.AsyncInterfaces, Version=7.0.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL" />
     <Reference Include="Microsoft.CSharp" />
     <Reference Include="Microsoft.Office.Interop.Excel, Version=15.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>

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

@@ -22,8 +22,9 @@ Partial Class usrCntlATLAS_EZA
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
         Me.SplitContainer = New System.Windows.Forms.SplitContainer()
-        Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel()
+        Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
         Me.btnAllgemein = New System.Windows.Forms.Button()
         Me.btnAdressen = New System.Windows.Forms.Button()
         Me.btnAktiveVeredelung = New System.Windows.Forms.Button()
@@ -41,7 +42,7 @@ Partial Class usrCntlATLAS_EZA
         Me.Label3 = New System.Windows.Forms.Label()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.lblBezugsnummer = New System.Windows.Forms.Label()
-        Me.cntxtBezugsnr = New System.Windows.Forms.ContextMenuStrip()
+        Me.cntxtBezugsnr = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.NeueBezugsnummerVergebenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.BezugsnummerKopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.Panel1 = New System.Windows.Forms.Panel()
@@ -55,6 +56,7 @@ Partial Class usrCntlATLAS_EZA
         Me.DynamicAutomotiveXLSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
         Me.EZAIDToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.XMLExampleToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SplitContainer.Panel1.SuspendLayout()
         Me.SplitContainer.SuspendLayout()
@@ -415,7 +417,7 @@ Partial Class usrCntlATLAS_EZA
         '
         'OptionenToolStripMenuItem
         '
-        Me.OptionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SpeichernToolStripMenuItem, Me.LadenToolStripMenuItem})
+        Me.OptionenToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SpeichernToolStripMenuItem, Me.LadenToolStripMenuItem, Me.XMLExampleToolStripMenuItem})
         Me.OptionenToolStripMenuItem.Name = "OptionenToolStripMenuItem"
         Me.OptionenToolStripMenuItem.Size = New System.Drawing.Size(69, 20)
         Me.OptionenToolStripMenuItem.Text = "Optionen"
@@ -423,13 +425,13 @@ Partial Class usrCntlATLAS_EZA
         'SpeichernToolStripMenuItem
         '
         Me.SpeichernToolStripMenuItem.Name = "SpeichernToolStripMenuItem"
-        Me.SpeichernToolStripMenuItem.Size = New System.Drawing.Size(126, 22)
+        Me.SpeichernToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
         Me.SpeichernToolStripMenuItem.Text = "Speichern"
         '
         'LadenToolStripMenuItem
         '
         Me.LadenToolStripMenuItem.Name = "LadenToolStripMenuItem"
-        Me.LadenToolStripMenuItem.Size = New System.Drawing.Size(126, 22)
+        Me.LadenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
         Me.LadenToolStripMenuItem.Text = "Laden ..."
         Me.LadenToolStripMenuItem.Visible = False
         '
@@ -459,6 +461,12 @@ Partial Class usrCntlATLAS_EZA
         Me.EZAIDToolStripMenuItem.Size = New System.Drawing.Size(109, 22)
         Me.EZAIDToolStripMenuItem.Text = "EZA ID"
         '
+        'XMLExampleToolStripMenuItem
+        '
+        Me.XMLExampleToolStripMenuItem.Name = "XMLExampleToolStripMenuItem"
+        Me.XMLExampleToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+        Me.XMLExampleToolStripMenuItem.Text = "XML Example"
+        '
         'usrCntlATLAS_EZA
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -515,4 +523,5 @@ Partial Class usrCntlATLAS_EZA
     Friend WithEvents BezugsnummerKopierenToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents DateiimportToolStripMenuItem As ToolStripMenuItem
     Friend WithEvents DynamicAutomotiveXLSToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents XMLExampleToolStripMenuItem As ToolStripMenuItem
 End Class

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