From a298ae0001fe9aa53bd556e721ff595024da75a0 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Fri, 29 Mar 2024 16:43:24 +0100 Subject: [PATCH] err hanlding --- .../frmDYNachrichtenVerarbeitung.vb | 29 ++++++++++--------- 1 file changed, 15 insertions(+), 14 deletions(-) diff --git a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb index 537590d..b0d4dfb 100644 --- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb @@ -7148,6 +7148,7 @@ Public Class frmDYNachrichtenVerarbeitung End If If TXT_Rückweisung <> "" Then + 'Benachrichtigung Try Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL @@ -7183,16 +7184,16 @@ Public Class frmDYNachrichtenVerarbeitung 'Wenn gefunden If (art = "F" AndAlso If(sendToID, "") <> "") OrElse sendToID >= 0 Then Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO") - Dim GrenzstelleAVISO = SQL.DLookup("Grenzstelle", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO") - If GrenzstelleAVISO = "???" Then - Select Case statusAVISO - Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben - '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, ""), "")) - End Select - End If + ' Dim GrenzstelleAVISO = SQL.DLookup("Grenzstelle", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO") + ' If GrenzstelleAVISO = "???" Then 'lt. ML 27.03.-> für alle freigeben + Select Case statusAVISO + Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben + '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, ""), "")) + End Select + ' End If End If Catch ex As Exception @@ -7247,16 +7248,16 @@ Public Class frmDYNachrichtenVerarbeitung If (art = "F" AndAlso If(sendToID, "") <> "") OrElse sendToID >= 0 Then ' If sendToID = 153 Or sendToID = 174 Then '--> NUR TOBI/MATHIAS!! Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO") - Dim GrenzstelleAVISO = SQL.DLookup("Grenzstelle", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO") - If GrenzstelleAVISO = "???" Then - Select Case statusAVISO + 'Dim GrenzstelleAVISO = SQL.DLookup("Grenzstelle", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO") + 'If GrenzstelleAVISO = "???" Then 'lt. ML 27.03.-> für alle freigeben + Select Case statusAVISO Case VERAG_PROG_ALLGEMEIN.cGlobal.Status_NichtEingetroffen, VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben '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, ""), "")) End Select - End If + ' End If ' End If End If