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

Zoll Vermek

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-03-10 15:07:52 +01:00
parent 2e0b0a6b2a
commit eb0958a046
1 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -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
' ----------------------------------------------------------------------------------------------------------------------