From 920e0da035e37a0cb44b14b77df52cc69dcf93bf Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Mon, 3 Mar 2025 20:46:18 +0100 Subject: [PATCH] vers --- SDL/My Project/AssemblyInfo.vb | 4 +- SDL/SDL.vbproj | 1 + .../ATLAS/EZA/usrCntlATLAS_EZA.Designer.vb | 19 ++++++--- .../DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb | 39 +++++++++++++++++++ 4 files changed, 56 insertions(+), 7 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index df79a189..b8c1ea32 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index 249ac82e..17e80bda 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -311,6 +311,7 @@ F:\PROGRAMMIERUNG\dll\ActiveReports18\MESCIUS.Data.ExpressionInfo.dll + False diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.Designer.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.Designer.vb index 890d50e7..60fee715 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.Designer.vb +++ b/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. _ 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 diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb index 8e0b05cd..062f85f3 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZA.vb +++ b/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