SumA

2026-03-09 13:16:59 +01:00
parent 087f39f981
commit 35608a96fd
7 changed files with 2583 additions and 9 deletions
--- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
+++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
@@ -5850,6 +5850,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

@@ -7461,10 +7463,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
@@ -7580,8 +7599,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
@@ -7634,7 +7657,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
@@ -7698,7 +7723,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
@@ -7900,7 +7927,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

@@ -7954,7 +7983,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
@@ -8018,7 +8049,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
@@ -8774,6 +8807,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"
@@ -8785,6 +8821,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()

--- a/initATLASAufschubkonten/frmStartOptions.vb
+++ b/initATLASAufschubkonten/frmStartOptions.vb
@@ -4813,6 +4813,75 @@ Public Class frmStartOptions
    End Function


+    Function insertBenachrichtigung_BearbeitendeEinheit(AvisoId, SendungsId, firma, code, TXT_HEAD, TXT_BODY, prio)
+        '
+        'Benachrichtigung
+        If SendungsId Is DBNull.Value Then SendungsId = Nothing
+        Try
+            'Benutzer vorschreiben der Sendung...
+            Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+            Dim sendToID As String = SQL.DLookup("tblSnd_VG_MA", "tblSendungen", "tblSnd_SendungID='" & SendungsId & "'", "AVISO", -1)
+            Dim art = "B"
+            'MsgBox("Benutzer vorschreiben" & sendToID)
+
+            'Wenn Benutzer vorschreiben nicht online, dann Benutzer der Sendung...
+            If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
+                sendToID = SQL.DLookup("LetzterMitarbeiterId", "tblSendungen", "tblSnd_SendungID='" & SendungsId & "'", "AVISO", -1)
+                art = "B"
+            End If
+            ' MsgBox("Benutzer der Sendung" & sendToID)
+
+            'Wenn Benutzer der Sendung nicht online, dann Benutzer des LKW ..
+            If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
+                sendToID = SQL.DLookup("LetzterMitarbeiterId", "Aviso", "AvisoId='" & AvisoId & "'", "AVISO", -1)
+                art = "B"
+            End If
+            '  MsgBox("Benutzer der LKW" & sendToID)
+
+            'Wenn Benutzer des LKWs nicht online, Team der Sendung...
+            If sendToID <= 0 OrElse (Not VERAG_PROG_ALLGEMEIN.cSession.IS_ONLINE(sendToID, True)) Then
+                sendToID = SQL.DLookup("tblSnd_TeamId", "tblSendungen", "tblSnd_SendungID='" & SendungsId & "'", "AVISO", -1)
+                art = "T"
+            End If
+            '  MsgBox("Team der Sendung" & sendToID)
+
+            'Wenn Team der Sendung nicht gefunden, Team des LKW...
+            If sendToID <= 0 Then
+                sendToID = SQL.DLookup("TeamId", "Aviso", "AvisoID='" & AvisoId & "'", "AVISO", -1)
+                art = "T"
+            End If
+            ' MsgBox("Team LKW " & sendToID)
+
+            'Wenn TEAM LKW nicht gefunden, Firma...
+            If sendToID <= 0 Then
+                If firma IsNot Nothing AndAlso firma <> "" Then
+                    sendToID = firma
+                    art = "F"
+                End If
+            End If
+
+
+            'Wenn gefunden
+            If (art = "F" AndAlso If(sendToID, "") <> "") OrElse sendToID >= 0 Then
+                Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & AvisoId & "'", "AVISO")
+                Dim GrenzstelleAVISO = SQL.DLookup("Grenzstelle", "Aviso", "AvisoID='" & AvisoId & "'", "AVISO")
+                '  If GrenzstelleAVISO = "???" Then
+                Select Case statusAVISO
+                    Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben
+                        'Nicht
+                    Case Else
+                        VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(AvisoId, SendungsId, code, art, sendToID, TXT_HEAD, prio, , TXT_BODY.Trim,,, firma)
+                End Select
+            End If
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+            Return False
+        End Try
+        Return True
+    End Function
+
+
    Sub insertVermerk(AvisoID, SendungID, VermerkCodeId, VermerkText)
        If SendungID Is DBNull.Value Then SendungID = -1