From 885db523bc0f6f9fdb81d7a2462650107e8e434b Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 27 Aug 2024 10:38:03 +0200 Subject: [PATCH] Logging bei fehlender Dakosy-Aviso Zuweisung --- initATLASAufschubkonten/cWorker_NCTS.vb | 10 ++++++++++ .../frmDYNachrichtenVerarbeitung.vb | 10 ++++++++++ 2 files changed, 20 insertions(+) diff --git a/initATLASAufschubkonten/cWorker_NCTS.vb b/initATLASAufschubkonten/cWorker_NCTS.vb index b04fa9a..7a8fbdd 100644 --- a/initATLASAufschubkonten/cWorker_NCTS.vb +++ b/initATLASAufschubkonten/cWorker_NCTS.vb @@ -163,6 +163,8 @@ Public Class cWorker_NCTS Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & AnsprechpTMP & "'", "ADMIN") If SB_Tmp <> "" Then NCTS.ncts_Bearbeiter = SB_Tmp + Else + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Sachbearbeiter für MA " & AnsprechpTMP & " konnte nicht ermittelt werden!", "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'", System.Reflection.MethodInfo.GetCurrentMethod.Name) End If End If If DETUDC.ProcedureOwner.ContactPerson.MailAddress IsNot Nothing Then @@ -379,6 +381,8 @@ Public Class cWorker_NCTS Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & AnsprechpTMP & "'", "ADMIN") If SB_Tmp <> "" Then NCTS.ncts_Bearbeiter = SB_Tmp + Else + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Sachbearbeiter für MA " & AnsprechpTMP & " konnte nicht ermittelt werden!", "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'", System.Reflection.MethodInfo.GetCurrentMethod.Name) End If End If End If @@ -705,6 +709,8 @@ Public Class cWorker_NCTS Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & AnsprechpTMP & "'", "ADMIN") If SB_Tmp <> "" Then NCTS.ncts_Bearbeiter = SB_Tmp + Else + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Sachbearbeiter für MA " & AnsprechpTMP & " konnte nicht ermittelt werden!", "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'", System.Reflection.MethodInfo.GetCurrentMethod.Name) End If End If If DETPDD.HolderOfTheTransitProcedure.ContactPerson.eMailAddress IsNot Nothing Then @@ -1373,6 +1379,8 @@ Public Class cWorker_NCTS Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & AnsprechpTMP & "'", "ADMIN") If SB_Tmp <> "" Then NCTS.ncts_Bearbeiter = SB_Tmp + Else + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Sachbearbeiter für MA " & AnsprechpTMP & " konnte nicht ermittelt werden!", "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'", System.Reflection.MethodInfo.GetCurrentMethod.Name) End If End If 'Dim AnsprechpStellungTMP = cEDI.getSimpleLine("RFF+ACD:", lines) @@ -1764,6 +1772,8 @@ Public Class cWorker_NCTS Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & AnsprechpTMP & "'", "ADMIN") If SB_Tmp <> "" Then NCTS.ncts_Bearbeiter = SB_Tmp + Else + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Sachbearbeiter für MA " & AnsprechpTMP & " konnte nicht ermittelt werden!", "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'", System.Reflection.MethodInfo.GetCurrentMethod.Name) End If End If diff --git a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb index 535f5dc..252b9df 100644 --- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb @@ -3753,6 +3753,8 @@ Public Class frmDYNachrichtenVerarbeitung Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & EZA.eza_AnmeldenderBearbeiterName.ToString.Replace("'", "") & "'", "ADMIN") If SB_Tmp <> "" Then EZA.eza_Bearbeiter = SB_Tmp + Else + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Sachbearbeiter für MA " & EZA.eza_AnmeldenderBearbeiterName & " konnte nicht ermittelt werden!", "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'", System.Reflection.MethodInfo.GetCurrentMethod.Name) End If End If @@ -4373,6 +4375,8 @@ Public Class frmDYNachrichtenVerarbeitung Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & EZA.eza_AnmeldenderBearbeiterName & "'", "ADMIN") If SB_Tmp <> "" Then EZA.eza_Bearbeiter = SB_Tmp + Else + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Sachbearbeiter für MA " & EZA.eza_AnmeldenderBearbeiterName & " konnte nicht ermittelt werden!", "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'", System.Reflection.MethodInfo.GetCurrentMethod.Name) End If End If @@ -5005,6 +5009,8 @@ Public Class frmDYNachrichtenVerarbeitung Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & EZA.eza_AnmeldenderBearbeiterName & "'", "ADMIN") If SB_Tmp <> "" Then EZA.eza_Bearbeiter = SB_Tmp + Else + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Sachbearbeiter für MA " & EZA.eza_AnmeldenderBearbeiterName & " konnte nicht ermittelt werden!", "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'", System.Reflection.MethodInfo.GetCurrentMethod.Name) End If End If @@ -5635,6 +5641,8 @@ Public Class frmDYNachrichtenVerarbeitung Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & EZA.eza_AnmeldenderBearbeiterName & "'", "ADMIN") If SB_Tmp <> "" Then EZA.eza_Bearbeiter = SB_Tmp + Else + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Sachbearbeiter für MA " & EZA.eza_AnmeldenderBearbeiterName & " konnte nicht ermittelt werden!", "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'", System.Reflection.MethodInfo.GetCurrentMethod.Name) End If End If @@ -6270,6 +6278,8 @@ Public Class frmDYNachrichtenVerarbeitung Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & AnsprechpTMP(0) & "'", "ADMIN") If SB_Tmp <> "" Then EZA.eza_Bearbeiter = SB_Tmp + Else + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Sachbearbeiter für MA " & AnsprechpTMP(0) & " konnte nicht ermittelt werden!", "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'", System.Reflection.MethodInfo.GetCurrentMethod.Name) End If End If If AnsprechpTMP.Length > 1 Then EZA.eza_AnmeldenderBearbeiterStellung = AnsprechpTMP(1) '?