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

dakosy annahme

Browse Source
This commit is contained in:
d.breimaier
2026-09-28 09:06:47 +02:00
parent fb35deb084
commit 406ece349c
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -7987,7 +7987,7 @@ Public Class frmDYNachrichtenVerarbeitung
End Try End Try
End If End If
If TXT_Rückweisung <> "" Then If TXT_Rückweisung <> "" OrElse TXT_Annahme <> "" Then
'Benachrichtigung 'Benachrichtigung
Try Try
@@ -8031,7 +8031,12 @@ Public Class frmDYNachrichtenVerarbeitung
'Nicht 'Nicht
Case Else Case Else
Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Rueckweisung Dim code = VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungenCodes.ZOLL_Rueckweisung
Dim BenText = (TXT_Rückweisung & vbNewLine & TXT_Mitteilung).Trim Dim BenText = ""
If TXT_Rückweisung <> "" Then
BenText = (TXT_Rückweisung & vbNewLine & TXT_Mitteilung).Trim
Else
BenText = (TXT_Annahme & vbNewLine & TXT_Mitteilung).Trim
End If
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.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,,, True, "ZOLL") VERAG_PROG_ALLGEMEIN.cVermerkeDAL.insertSendungsVermerk(DY_TMP.dy_SendungsId, DY_TMP.dy_AvisoId, BenText, 125,,, True, "ZOLL")
End Select End Select