Merge branch 'ADMIN' of https://git.it.verag.ag/edv/ADMIN into ADMIN

2026-03-09 13:24:36 +01:00
parent 2410e4ff4e 5acf756c88
commit 3c2fb57abf
7 changed files with 2583 additions and 9 deletions
--- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
+++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
@@ -5858,6 +5858,8 @@ Public Class frmDYNachrichtenVerarbeitung
                                                Case Else
                                                    Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.AES_NachfrageVerbleib
                                                    VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_ANM.dy_AvisoId, DY_ANM.dy_SendungsId, code, art, sendToID, "ZOLL: Nachfrage Verbleib", 1, , "Nachfrage Verbleib",,, If(AES_TMP IsNot Nothing, If(AES_TMP.aes_firma, ""), ""))
+                                                    VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_ANM.dy_SendungsId, DY_ANM.dy_AvisoId, "ZOLL: Nachfrage Verbleib", 127)
+
                                            End Select
                                        End If

@@ -7469,10 +7471,27 @@ Public Class frmDYNachrichtenVerarbeitung
                        For Each POS In EZA.EinzelEntscheidungAnmeldung.Position
                            If POS.AnordnungKz IsNot Nothing Then
                                '0 = Keine Beschau. 1 = Volle Gesamtbeschau. 2 = Stichprobenweise Mengenbeschau. 3 = Stichprobenweise Beschaffenheitsbeschau. 4 = Dokumentenprüfung 5= Durchleuchtung 9 = Andere. (Codeliste A1410
+
+                                Dim BeschauBez
                                Select Case POS.AnordnungKz
+                                    Case 0 : BeschauBez = "Keine Beschau"
+                                    Case 1 : BeschauBez = "Volle Gesamtbeschau"
+                                    Case 2 : BeschauBez = "Stichprobenweise Mengenbeschau"
+                                    Case 3 : BeschauBez = "Stichprobenweise Beschaffenheitsbeschau"
+                                    Case 4 : BeschauBez = "Dokumentenprüfung"
+                                    Case 5 : BeschauBez = "Durchleuchtung"
+                                    Case 9 : BeschauBez = "Andere"
+                                    Case Else : BeschauBez = "Unbekannt"
+                                End Select
+
+                                Select Case POS.AnordnungKz
+                                    Case "0" '--> keine Beschau
                                    Case "4" '--> Dokumentenprüfung
                                        TXT_DokBeschau &= POS.Positionsnummer & ": Dokumentenprüfung" & If(POS.MitteilungTeilnehmerBeschau IsNot Nothing, " (" & POS.MitteilungTeilnehmerBeschau & ")", "") & vbNewLine
                                        'MitteilungTeilnehmerBeschau
+                                    Case Else '--> andere Beschau
+                                        TXT_DokBeschau &= POS.Positionsnummer & ": " & BeschauBez & If(POS.MitteilungTeilnehmerBeschau IsNot Nothing, " (" & POS.MitteilungTeilnehmerBeschau & ")", "") & vbNewLine
+                                        'MitteilungTeilnehmerBeschau
                                End Select
                            End If
                            If POS.RueckgabeKz IsNot Nothing Then
@@ -7588,8 +7607,12 @@ Public Class frmDYNachrichtenVerarbeitung
                                    'Nicht
                                Case Else
                                    Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Dokumentenbeschau
-                                    VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Dokumentenbeschau", 1, , (TXT_DokBeschau & vbNewLine & TXT_Mitteilung).Trim,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), ""))
+                                    Dim BenText = (TXT_DokBeschau & vbNewLine & TXT_Mitteilung).Trim
+                                    VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: (Dokument)Beschau", 1, , (TXT_DokBeschau & vbNewLine & TXT_Mitteilung).Trim,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), ""))
+                                    VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_TMP.dy_SendungsId, DY_TMP.dy_AvisoId, BenText, 124)
                            End Select
+
+
                        End If

                    Catch ex As Exception
@@ -7642,7 +7665,9 @@ Public Class frmDYNachrichtenVerarbeitung
                                    'Nicht
                                Case Else
                                    Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Rueckweisung
-                                    VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Rückweisung", 1, , (TXT_Rückweisung & vbNewLine & TXT_Mitteilung).Trim,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), ""))
+                                    Dim BenText = (TXT_Rückweisung & vbNewLine & TXT_Mitteilung).Trim
+                                    VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Rückweisung", 1, , BenText,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), ""))
+                                    VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_TMP.dy_SendungsId, DY_TMP.dy_AvisoId, BenText, 125)
                            End Select
                            ' End If
                        End If
@@ -7706,7 +7731,9 @@ Public Class frmDYNachrichtenVerarbeitung
                                            'Nicht
                                        Case Else
                                            Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Mitteilung
-                                            VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Mitteilung", 1, , (TXT_Mitteilung & TXT_Mitteilung_Zollbeamter).Trim,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), ""))
+                                            Dim BenText = (TXT_Mitteilung & TXT_Mitteilung_Zollbeamter).Trim
+                                            VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Mitteilung", 1, , BenText,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), ""))
+                                            VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_TMP.dy_SendungsId, DY_TMP.dy_AvisoId, BenText, 125)
                                    End Select
                                    '  End If
                                    '      End If
@@ -7908,7 +7935,9 @@ Public Class frmDYNachrichtenVerarbeitung
                                    'Nicht
                                Case Else
                                    Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Dokumentenbeschau
-                                    VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Dokumentenbeschau", 1, , (TXT_DokBeschau & vbNewLine & TXT_Mitteilung).Trim,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), ""))
+                                    Dim BenText = (TXT_DokBeschau & vbNewLine & TXT_Mitteilung).Trim
+                                    VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: (Dokument)Beschau", 1, , BenText,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), ""))
+                                    VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_TMP.dy_SendungsId, DY_TMP.dy_AvisoId, BenText, 124)
                            End Select
                        End If

@@ -7962,7 +7991,9 @@ Public Class frmDYNachrichtenVerarbeitung
                                    'Nicht
                                Case Else
                                    Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Rueckweisung
-                                    VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Rückweisung", 1, , (TXT_Rückweisung & vbNewLine & TXT_Mitteilung).Trim,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), ""))
+                                    Dim BenText = (TXT_Rückweisung & vbNewLine & TXT_Mitteilung).Trim
+                                    VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Rückweisung", 1, , BenText,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), ""))
+                                    VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_TMP.dy_SendungsId, DY_TMP.dy_AvisoId, BenText, 125)
                            End Select
                            ' End If
                        End If
@@ -8026,7 +8057,9 @@ Public Class frmDYNachrichtenVerarbeitung
                                            'Nicht
                                        Case Else
                                            Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Mitteilung
-                                            VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Mitteilung", 1, , (TXT_Mitteilung & TXT_Mitteilung_Zollbeamter).Trim,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), ""))
+                                            Dim BenText = (TXT_Mitteilung & TXT_Mitteilung_Zollbeamter).Trim
+                                            VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, code, art, sendToID, "ZOLL: Mitteilung", 1, , BenText,,, If(EZA_TMP IsNot Nothing, If(EZA_TMP.eza_firma, ""), ""))
+                                            VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_TMP.dy_SendungsId, DY_TMP.dy_AvisoId, BenText, 126)
                                    End Select
                                    '  End If
                                    '      End If
@@ -8782,6 +8815,9 @@ Public Class frmDYNachrichtenVerarbeitung
                Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = saveDY_ZA(STATUS, EZA.Transaktion.IOReferenz, If(zp, EZA.Transaktion.IODatumZeit), "EZA")
                Dim EZA_TMP As DAKOSY_Worker.cDakosyEZA

+
+
+
                '???????? REGNR
                If regNR <> "" Then
                    STATUS.dySt_ergCode = "REGNr"
@@ -8793,6 +8829,15 @@ Public Class frmDYNachrichtenVerarbeitung

                SaveEZA_FirmaNL(EZA_TMP, DY_TMP, division)

+
+                ' ----------------------------------------------------------------------------------------------------------------------
+                ' STORNO -> Benachrichtigung + Vermerk 
+                If DY_TMP.dy_SendungsId > 0 AndAlso DY_TMP.dy_AvisoId > 0 Then
+                    frmStartOptions.insertBenachrichtigung_BearbeitendeEinheit(DY_TMP.dy_AvisoId, DY_TMP.dy_SendungsId, EZA_TMP.eza_firma, 10, "ZOLL: Storno", "ZOLL: Storno " & STATUS.dySt_BezugsNr, 0)
+                    VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_TMP.dy_SendungsId, DY_TMP.dy_AvisoId, "ZOLL: Storno " & STATUS.dySt_BezugsNr, 128)
+                End If
+                ' ----------------------------------------------------------------------------------------------------------------------
+
                If DY_TMP IsNot Nothing Then STATUS.dySt_dyId = DY_TMP.dy_Id
                STATUS.SAVE()