From eb0958a046cea21f9c3c788e8551f2947c506b74 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Tue, 10 Mar 2026 15:07:52 +0100 Subject: [PATCH] Zoll Vermek --- .../frmDYNachrichtenVerarbeitung.vb | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb index 5e0d318..2d57f80 100644 --- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb @@ -5862,7 +5862,7 @@ 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) + VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_ANM.dy_SendungsId, DY_ANM.dy_AvisoId, "ZOLL: Nachfrage Verbleib", 127,,, True, "ZOLL") End Select End If @@ -7613,7 +7613,7 @@ Public Class frmDYNachrichtenVerarbeitung Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Dokumentenbeschau 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) + VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_TMP.dy_SendungsId, DY_TMP.dy_AvisoId, BenText, 124,,, True, "ZOLL") End Select @@ -7671,7 +7671,7 @@ Public Class frmDYNachrichtenVerarbeitung Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Rueckweisung 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) + VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_TMP.dy_SendungsId, DY_TMP.dy_AvisoId, BenText, 125,,, True, "ZOLL") End Select ' End If End If @@ -7737,7 +7737,7 @@ Public Class frmDYNachrichtenVerarbeitung Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Mitteilung 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) + VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_TMP.dy_SendungsId, DY_TMP.dy_AvisoId, BenText, 125,,, True, "ZOLL") End Select ' End If ' End If @@ -7941,7 +7941,7 @@ Public Class frmDYNachrichtenVerarbeitung Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Dokumentenbeschau 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) + VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_TMP.dy_SendungsId, DY_TMP.dy_AvisoId, BenText, 124,,, True, "ZOLL") End Select End If @@ -7997,7 +7997,7 @@ Public Class frmDYNachrichtenVerarbeitung Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Rueckweisung 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) + VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_TMP.dy_SendungsId, DY_TMP.dy_AvisoId, BenText, 125,,, True, "ZOLL") End Select ' End If End If @@ -8063,7 +8063,7 @@ Public Class frmDYNachrichtenVerarbeitung Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Mitteilung 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) + VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_TMP.dy_SendungsId, DY_TMP.dy_AvisoId, BenText, 126,,, True, "ZOLL") End Select ' End If ' End If @@ -8838,7 +8838,7 @@ Public Class frmDYNachrichtenVerarbeitung ' 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) + VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_TMP.dy_SendungsId, DY_TMP.dy_AvisoId, "ZOLL: Storno " & STATUS.dySt_BezugsNr, 128,,, True, "ZOLL") End If ' ----------------------------------------------------------------------------------------------------------------------