edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

SND - TetkraPak

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-10-23 23:22:23 +02:00
parent f083c2f0ef
commit 393d4645bd
3 changed files with 528 additions and 487 deletions
Download Patch File Download Diff File Expand all files Collapse all files

958
Aviso/frmSendungsdetailsNEU.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

9
Aviso/frmSendungsdetailsNEU.resx
View File

@@ -117,9 +117,6 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>296, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="btnDirektAnfuegen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@@ -1397,6 +1394,9 @@
BXidk8YAAAAAAElFTkSuQmCC
</value>
</data>
<metadata name="MenuStrip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>296, 17</value>
</metadata>
<metadata name="clmnSender.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
@@ -1896,9 +1896,6 @@
<metadata name="cntxtOptions.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>174, 17</value>
</metadata>
<metadata name="ToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>404, 17</value>
</metadata>
<metadata name="ctxtWeitereFormulare.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>596, 17</value>
</metadata>

48
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -1,17 +1,17 @@
Imports VERAG_PROG_ALLGEMEIN
Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO
Imports System.Data.SqlClient
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 EAGetMail
Imports System.Globalization
Imports iText.Layout.Element
Imports VERAG_PROG_ALLGEMEIN
Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO
Public Class frmSendungsdetailsNEU
Public AvisoId As Integer
@@ -8419,4 +8419,34 @@ Public Class frmSendungsdetailsNEU
Private Sub SUMAToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SUMAToolStripMenuItem.Click
End Sub
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