KVI, EZA BEstätigungAnm

2026-04-16 10:32:04 +02:00
parent 9b77635ce7
commit b146619697
6 changed files with 86 additions and 23 deletions
--- a/SDL/Resources/KVI_report.xlsx
+++ b/SDL/Resources/KVI_report.xlsx
--- a/SDL/SDL.vbproj
+++ b/SDL/SDL.vbproj
@@ -1446,6 +1446,12 @@
    <Compile Include="ZOLLSYSTEM\DAKOSY\ATLAS\EZA\usrCntlATLAS_EZA.vb">
      <SubType>UserControl</SubType>
    </Compile>
+    <Compile Include="ZOLLSYSTEM\DAKOSY\ATLAS\EZA\usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung.Designer.vb">
+      <DependentUpon>usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung.vb</DependentUpon>
+    </Compile>
+    <Compile Include="ZOLLSYSTEM\DAKOSY\ATLAS\EZA\usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
    <Compile Include="ZOLLSYSTEM\DAKOSY\ATLAS\EZA\usrCntlATLAS_EZA_DV1.Designer.vb">
      <DependentUpon>usrCntlATLAS_EZA_DV1.vb</DependentUpon>
    </Compile>
@@ -3924,6 +3930,9 @@
    <EmbeddedResource Include="ZOLLSYSTEM\DAKOSY\ATLAS\EZA\usrCntlATLAS_EZA.resx">
      <DependentUpon>usrCntlATLAS_EZA.vb</DependentUpon>
    </EmbeddedResource>
+    <EmbeddedResource Include="ZOLLSYSTEM\DAKOSY\ATLAS\EZA\usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung.resx">
+      <DependentUpon>usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung.vb</DependentUpon>
+    </EmbeddedResource>
    <EmbeddedResource Include="ZOLLSYSTEM\DAKOSY\ATLAS\EZA\usrCntlATLAS_EZA_DV1.resx">
      <DependentUpon>usrCntlATLAS_EZA_DV1.vb</DependentUpon>
    </EmbeddedResource>
--- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
+++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
@@ -2,6 +2,7 @@
 Imports System.Globalization
 Imports GrapeCity.ActiveReports.Viewer.Common.Internal
 Imports VERAG_PROG_ALLGEMEIN
+Imports VERAG_PROG_ALLGEMEIN.IDEV_Intrastat


 Public Class usrCntlSpeditionsBuchSuche
@@ -3704,7 +3705,7 @@ Class cSpeditionsbuchReport
                           If(r("FilialenNr"), "").ToString() & "/" &
                           If(r("AbfertigungsNr"), "").ToString())
                End If
-
+                's
                WriteDetailReportRow(blatt, r, cd, cnt, kdnr)

            Catch ex As Exception
@@ -3797,6 +3798,7 @@ Class cSpeditionsbuchReport
                    blatt.Range("AB" & cnt).Value = item.zaItem_MainProcedure & If(Not String.IsNullOrWhiteSpace(item.zaItem_AdditionalProc), "/" & item.zaItem_AdditionalProc, "")
                    blatt.Range("AC" & cnt).Value = item.zaItem_PreferenceCode
                    blatt.Range("AD" & cnt).Value = If(IsItemCBAM(item), "Y", "N")
+                    blatt.Range("AE" & cnt).Value = item.GetInvoiceListString()

                    cnt += 1
                    rowcounter += 1
@@ -3833,6 +3835,7 @@ Class cSpeditionsbuchReport
                blatt.Range("AC" & cnt).Value = ""
                blatt.Range("AD" & cnt).Value = ""

+
                cnt += 1
            End If
        Else
--- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung.vb
+++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EZA/usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung.vb
@@ -94,7 +94,7 @@ Public Class usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung

        Me.Refresh()
        Me.Cursor = Cursors.WaitCursor
-        If sentToDakosy OrElse vbYes = MsgBox("Soll die Ankunftsanzeige abgeschickt werden?", vbYesNoCancel) Then
+        If sentToDakosy OrElse vbYes = MsgBox("Soll die Bestätigung der vZA (ATB Ergänzung) abgeschickt werden?", vbYesNoCancel) Then
            '  Dim cDyAnm As New cDakosy_Zollanmeldungen(cDy_ART, BezugsNr, AVISO.AvisoID, SENDUNG.tblSnd_SendungID)
            'loadDYZollanmeldungen()
            Dim dy_Id = -1
@@ -127,7 +127,7 @@ Public Class usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung
                End If


-                If generateEingangsanzeigeNCTSDE_003(AVISO, SENDUNG, BezugsNrBez, lblBezugsnummer.Text, saveFile, cboDakosyAction._value, txtDyMandant.Text, txtDyNiederlassung.Text, cboStammreferenz._value) Then
+                If generateBestaetigungVorzeitigeAnmeldung_003(AVISO, SENDUNG, BezugsNrBez, lblBezugsnummer.Text, saveFile, cboDakosyAction._value, txtDyMandant.Text, txtDyNiederlassung.Text, cboStammreferenz._value) Then
                    If saveFile <> "" Then

                        '-------------------------------------------------------
@@ -135,7 +135,6 @@ Public Class usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung
                        If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, BezugsNrBez, dy_Id, FIRMA_DY) Then
                            If SENDUNG IsNot Nothing Then SENDUNG.SET_VGMA() ' MA Vorgeschrieben in Sendung setzen.
                            MsgBox("Gesendet!")
-                            createGesamtsicherheitDummy(GesamtsicherheitREF, Standort, txtWarenort.Text, gsnr, WarenwertEUR)
                        Else
                            'DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_09)
                            MsgBox("Sendefehler!")
@@ -157,43 +156,48 @@ Public Class usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung



-    Shared Function generateEingangsanzeigeNCTSDE_003(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SND As VERAG_PROG_ALLGEMEIN.cSendungen, ByVal Bezugsnummer As String, ByVal BezugsnummerALIAS As String, ByRef saveFile As String, DY_ACTION As String, IOPartner As String, IODivision3 As String, Optional BezugsnummerVorblendung As String = "") As Boolean
+    Shared Function generateBestaetigungVorzeitigeAnmeldung_003(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SND As VERAG_PROG_ALLGEMEIN.cSendungen, ByVal Bezugsnummer As String, ByVal BezugsnummerALIAS As String, ByRef saveFile As String, DY_ACTION As String, IOPartner As String, IODivision3 As String, Optional BezugsnummerVorblendung As String = "") As Boolean
        Dim Interface_VERSION = "003"
        Dim ObjectAktion = DY_ACTION
        ' Dim BezugsnummerVorblendung = "AA_NCTS_DE_ZE_WO_MITTICH"
+        Dim Bearbeiter = ""
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing Then Bearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB

-        Dim XML As New DAKOSY_Worker.EingangsanzeigeNCTSDE_003.EingangsanzeigeEATyp
+        Dim XML As New DAKOSY_Worker.BestaetigungVorzeitigeAnmeldung_003.BestaetigungVorzeitigeAnmeldungAZATNTyp


        'Transaktion:
-        XML.Transaktion = New DAKOSY_Worker.EingangsanzeigeNCTSDE_003.TransaktionNCTSTyp
+        XML.Transaktion = New BestaetigungVorzeitigeAnmeldung_003.TransaktionFreierVerkehrTyp
        XML.Transaktion.IOPartner = IOPartner 'SDL.DAKOSY_Interface_SEND.getIOPartner(FIRMA_DY) 'If(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "VERA", "VERG")
        XML.Transaktion.IODatumZeit = Now
        XML.Transaktion.IOReferenz = SND.FilialenNr & "-" & SND.AbfertigungsNr & "_" & Now.ToString("ddMMyyHHmmSS")
        If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then XML.Transaktion.IODivision3 = IODivision3 '"SUW"
        XML.Transaktion.Version = Interface_VERSION
        '  XML.Transaktion.IODivision3 = IODivision3
-        XML.EinzelEingangsanzeige = New EingangsanzeigeNCTSDE_003.EinzelEingangsanzeigeTyp
+        XML.EinzelBestaetigungVorzeitigeAnmeldung = New BestaetigungVorzeitigeAnmeldung_003.EinzelBestaetigungVorzeitigeAnmeldungTyp

        'ObjektIdentifizierung:
-        XML.EinzelEingangsanzeige.ObjektIdentifizierung.NameAbsendendesSystem = "VERAG_ZOLL"
-        XML.EinzelEingangsanzeige.ObjektIdentifizierung = New EingangsanzeigeNCTSDE_003.ObjektIdentifizierungEATyp
-        XML.EinzelEingangsanzeige.ObjektIdentifizierung.ObjektName = Bezugsnummer

-        If BezugsnummerALIAS IsNot Nothing Then XML.EinzelEingangsanzeige.ObjektIdentifizierung.ObjektAliasname = BezugsnummerALIAS
+        XML.EinzelBestaetigungVorzeitigeAnmeldung.ObjektIdentifizierung = New BestaetigungVorzeitigeAnmeldung_003.ObjektIdentifizierungAZATNTyp
+        XML.EinzelBestaetigungVorzeitigeAnmeldung.ObjektIdentifizierung.AbsenderSystemName = "VERAG_ZOLL"
+        XML.EinzelBestaetigungVorzeitigeAnmeldung.ObjektIdentifizierung.ObjektName = Bezugsnummer
+
+        If BezugsnummerALIAS IsNot Nothing Then XML.EinzelBestaetigungVorzeitigeAnmeldung.ObjektIdentifizierung.ObjektAlias = BezugsnummerALIAS
        Dim ObjektAktion As New List(Of String) : ObjektAktion.Add(ObjectAktion)
-        XML.EinzelEingangsanzeige.ObjektIdentifizierung.ObjektAktion = ObjektAktion
-        If If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "") <> "" Then XML.EinzelEingangsanzeige.ObjektIdentifizierung.Bearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB
+        XML.EinzelBestaetigungVorzeitigeAnmeldung.ObjektIdentifizierung.ObjektAktion = ObjektAktion
+        If If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "") <> "" Then XML.EinzelBestaetigungVorzeitigeAnmeldung.ObjektIdentifizierung.Bearbeiter = Bearbeiter

-        If BezugsnummerVorblendung IsNot Nothing AndAlso BezugsnummerVorblendung <> "" Then XML.EinzelEingangsanzeige.ObjektIdentifizierung.BezugsnummerVorblendung = BezugsnummerVorblendung
+        If BezugsnummerVorblendung IsNot Nothing AndAlso BezugsnummerVorblendung <> "" Then XML.EinzelBestaetigungVorzeitigeAnmeldung.ObjektIdentifizierung.BezugsnummerVorblendung = BezugsnummerVorblendung

        'TransitOperation:
-        XML.EinzelEingangsanzeige.TransitOperation = New EingangsanzeigeNCTSDE_003.TransitOperationEAType
+        XML.EinzelBestaetigungVorzeitigeAnmeldung.KopfDaten = New BestaetigungVorzeitigeAnmeldung_003.KopfdatenBestaetigungVorzeitigeAnmeldungTyp
        'If cDY.ncts_CountryOfDispatch IsNot Nothing Then XML.EinzelEingangsanzeige.TransitOperation.CustomsOfficeOfDestinationActual = cDY.ncts_CountryOfDispatch
-        If SND.tblSnd_ATB_T1 IsNot Nothing Then XML.EinzelEingangsanzeige.TransitOperation.MRN = SND.tblSnd_ATB_T1
-        XML.EinzelEingangsanzeige.TransitOperation.ArrivalNotificationDateAndTime = Now
+        'If SND.tblSnd_ATB_T1 IsNot Nothing Then XML.EinzelBestaetigungVorzeitigeAnmeldung.KopfDaten.MRN = SND.tblSnd_ATB_T1
+        XML.EinzelBestaetigungVorzeitigeAnmeldung.KopfDaten.AnmeldenderBearbeiter = Bearbeiter
+        XML.EinzelBestaetigungVorzeitigeAnmeldung.KopfDaten.TelefonnummerBearbeiter = ""
+        XML.EinzelBestaetigungVorzeitigeAnmeldung.KopfDaten.StellungAnmeldenderBearbeiter = "Zolldeklarant/in"

-        XML.EinzelEingangsanzeige.TransitOperation.IncidentFlag = "N"
+        '        XML.EinzelBestaetigungVorzeitigeAnmeldung.KopfDaten.IncidentFlag = "N"



@@ -202,7 +206,7 @@ Public Class usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung
            System.IO.Directory.CreateDirectory(saveDir)
        End If

-        saveFile = saveDir & "DY_AA_" & Now.ToString("yyMMdd_HHmmss") & ".xml"
+        saveFile = saveDir & "DY_BvZA_" & Now.ToString("yyMMdd_HHmmss") & ".xml"

        XML.SaveToFile(saveFile)

@@ -211,6 +215,7 @@ Public Class usrCntlATLAS_EZABestaetigungVorzeitigeAnmeldung
        Return True
    End Function

+
    Private Function createGesamtsicherheitDummy(GesSichRef As cGesamtsicherheitsReferenz, Standort As String, Warenort As String, gsnr As Integer, WarenwertEUR As Double)

        Try
--- a/SDL/cProgramFunctions.vb
+++ b/SDL/cProgramFunctions.vb
@@ -67,7 +67,10 @@ Public Class cProgramFunctions
                rpt.Document.Printer.PaperSize = rpt.Document.Printer.PrinterSettings.DefaultPageSettings.PaperSize
            End If

+            'MsgBox(rpt.Document.Printer.PaperKind)
+            'MsgBox(rpt.Document.Printer.PaperSize.ToString)

+            'Return False
            rpt.Document.Printer.PrinterSettings.Copies = 1
            Dim dt1 = Now

@@ -83,9 +86,9 @@ Public Class cProgramFunctions
            Return True
        Catch ex As Exception
            Try
-                MsgBox(ex.Message & ex.StackTrace & " PaperSize: " & rpt.Document.Printer.PaperSize.ToString & " PaperKind: " & rpt.Document.Printer.PaperKind)
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & " PaperSize: " & rpt.Document.Printer.PaperSize.ToString & " PaperKind: " & rpt.Document.Printer.PaperKind, System.Reflection.MethodInfo.GetCurrentMethod.Name)
            Catch err2 As Exception
-                MsgBox(ex.Message & err2.StackTrace)
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(err2.Message, err2.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
            End Try
            Return False
        End Try
--- a/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb
+++ b/VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_CustomsDeclarations.vb
@@ -685,6 +685,27 @@ Public Class cVERAG_CustomsDeclarations

    End Sub

+
+    Public Function GetInvoiceListString() As String
+        If Documents Is Nothing OrElse Documents.Count = 0 Then Return ""
+
+        Dim result = Documents.
+        Where(Function(d) Not d Is Nothing AndAlso
+                          (d.zaDoc_Code = "N380" OrElse d.zaDoc_Code = "N325")).
+        Select(Function(d)
+                   Dim datum As String = If(String.IsNullOrWhiteSpace(d.zaDoc_Date), "", d.zaDoc_Date.Trim())
+                   Dim ref As String = If(String.IsNullOrWhiteSpace(d.zaDoc_Reference), "", d.zaDoc_Reference.Trim())
+
+                   ' Format: "Datum Referenz"
+                   Return (datum & " " & ref).Trim()
+               End Function).
+        Where(Function(s) Not String.IsNullOrWhiteSpace(s)).
+        Distinct().
+        ToList()
+
+        Return String.Join(", ", result)
+    End Function
+
    Public Function getCBAM_KG(EORI As String, von As Date, bis As Date, Optional without_MRN As String = "", Optional isDeclarant As Boolean = False) As Decimal
        Try
            If EORI = "" Then Return 0
@@ -1094,6 +1115,28 @@ Public Class cVERAG_CustomsDeclarations_Item

        Return result
    End Function
+
+
+    Public Function GetInvoiceListString() As String
+        If Documents Is Nothing OrElse Documents.Count = 0 Then Return ""
+
+        Dim result = Documents.
+        Where(Function(d) Not d Is Nothing AndAlso
+                          (d.zaDoc_Code = "N380" OrElse d.zaDoc_Code = "N325")).
+        Select(Function(d)
+                   Dim datum As String = If(String.IsNullOrWhiteSpace(d.zaDoc_Date), "", d.zaDoc_Date.Trim())
+                   Dim ref As String = If(String.IsNullOrWhiteSpace(d.zaDoc_Reference), "", d.zaDoc_Reference.Trim())
+
+                   ' Format: "Datum Referenz"
+                   Return (datum & " " & ref).Trim()
+               End Function).
+        Where(Function(s) Not String.IsNullOrWhiteSpace(s)).
+        Distinct().
+        ToList()
+
+        Return String.Join(", ", result)
+    End Function
+
 End Class

 ' ##########################################################