Merge branch 'master' of https://git.it.verag.ag/edv/AVISO

Aviso/My Project/AssemblyInfo.vb

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

Aviso/frmSendungsdetailsNEU.Designer.vb

@@ -337,6 +337,7 @@ Partial Class frmSendungsdetailsNEU
         Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.FürDruckMarkierenJANEINToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.HervorhebenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.TestFillTetrapakToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem()
@@ -4170,7 +4171,7 @@ Partial Class frmSendungsdetailsNEU
         'cntxtAnh
         '
         Me.cntxtAnh.ImageScalingSize = New System.Drawing.Size(24, 24)
-        Me.cntxtAnh.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MarkiertePDFsDruckenToolStripMenuItem, Me.EMailAnfügenToolStripMenuItem, Me.KopierenZwischenablageToolStripMenuItem, Me.LaufzetteldruckJANEINToolStripMenuItem, Me.GestellungslisteAnfügenJANEINToolStripMenuItem, Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem, Me.FürDruckMarkierenJANEINToolStripMenuItem, Me.HervorhebenToolStripMenuItem})
+        Me.cntxtAnh.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MarkiertePDFsDruckenToolStripMenuItem, Me.EMailAnfügenToolStripMenuItem, Me.KopierenZwischenablageToolStripMenuItem, Me.LaufzetteldruckJANEINToolStripMenuItem, Me.GestellungslisteAnfügenJANEINToolStripMenuItem, Me.AbrechungFremdeGrenzeAktDruckenToolStripMenuItem, Me.FürDruckMarkierenJANEINToolStripMenuItem, Me.HervorhebenToolStripMenuItem, Me.TestFillTetrapakToolStripMenuItem})
         Me.cntxtAnh.Name = "cntxtAnh"
         Me.cntxtAnh.Size = New System.Drawing.Size(294, 244)
         '
@@ -4219,6 +4220,11 @@ Partial Class frmSendungsdetailsNEU
         Me.FürDruckMarkierenJANEINToolStripMenuItem.Size = New System.Drawing.Size(293, 30)
         Me.FürDruckMarkierenJANEINToolStripMenuItem.Text = "Für Druck markieren JA/NEIN"
         '
+        'TestFillTetrapakToolStripMenuItem
+        '
+        Me.TestFillTetrapakToolStripMenuItem.Name = "TestFillTetrapakToolStripMenuItem"
+        Me.TestFillTetrapakToolStripMenuItem.Size = New System.Drawing.Size(293, 30)
+        Me.TestFillTetrapakToolStripMenuItem.Text = "Test:FillTetrapak"
         'HervorhebenToolStripMenuItem
         '
         Me.HervorhebenToolStripMenuItem.Image = CType(resources.GetObject("HervorhebenToolStripMenuItem.Image"), System.Drawing.Image)
@@ -7109,4 +7115,5 @@ Partial Class frmSendungsdetailsNEU
     Friend WithEvents Label18 As Label
     Friend WithEvents Button20 As Button
     Friend WithEvents SUMAToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents TestFillTetrapakToolStripMenuItem As ToolStripMenuItem
 End Class

Aviso/frmSendungsdetailsNEU.vb

@@ -1,17 +1,17 @@
-Imports VERAG_PROG_ALLGEMEIN
+Imports System.Data.SqlClient
-
-Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO
 Imports System.Drawing.Printing
+Imports System.Globalization
+Imports System.IO
 Imports System.Management
-Imports System.Data.SqlClient
+Imports DAKOSY_Worker
+Imports DocumentFormat.OpenXml.Presentation
+Imports EAGetMail
+Imports iText.Layout.Element
 Imports iTextSharp.text.pdf
 Imports Microsoft.Office.Interop
-Imports DocumentFormat.OpenXml.Presentation
 Imports SDL
-Imports System.IO
+Imports VERAG_PROG_ALLGEMEIN
-Imports EAGetMail
+Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO
-Imports System.Globalization
-Imports iText.Layout.Element
 
 Public Class frmSendungsdetailsNEU
     Public AvisoId As Integer
@@ -404,7 +404,7 @@ Public Class frmSendungsdetailsNEU
                     rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
                 End If
 
-                End If
+            End If
 
 
 
@@ -423,7 +423,7 @@ Public Class frmSendungsdetailsNEU
 
     Sub NEXT_SENDUNG()
         loadDataInLIST()
-        If CURRENT_INDEX + 1 <SENDUNG_LIST.Count Then
+        If CURRENT_INDEX + 1 < SENDUNG_LIST.Count Then
             CURRENT_INDEX += 1
             initDataBinding()
             '  initButtons()
@@ -8434,4 +8434,34 @@ Public Class frmSendungsdetailsNEU
 
 
 
+
+    Private Sub TestFillTetrapakToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TestFillTetrapakToolStripMenuItem.Click
+        Try
+            If CURRENT_INDEX < 0 OrElse CURRENT_INDEX >= SENDUNG_LIST.Count Then Exit Sub
+
+            Dim SND = SENDUNG_LIST(CURRENT_INDEX)
+
+
+            Dim ZA = cVERAG_CustomsDeclarations.loadBySendungsID(SND.tblSnd_SendungID, True)
+
+            If ZA Is Nothing Then
+                MsgBox("Keine Zollanmeldung gefunden.")
+                Exit Sub
+            End If
+
+            Dim eza = cDakosyEZA.LOADByMRN(ZA.za_MRN, True)
+            If eza Is Nothing Then
+                MsgBox("Keine DAKOSY-EZA gefunden: " & ZA.za_MRN)
+                Exit Sub
+            End If
+
+            Dim importer As New cImporter_DakosyToVERAG
+            importer.UpdateBrokerManagementFileTETRAPAK(ZA)
+
+            MsgBox("BrokerManagementFile wurde aktualisiert.")
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, Reflection.MethodInfo.GetCurrentMethod.Name)
+            MsgBox("Fehler: " & ex.Message)
+        End Try
+    End Sub
 End Class