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

Logging bei fehlender Dakosy-Aviso Zuweisung

Browse Source
This commit is contained in:
d.breimaier
2024-08-27 10:38:03 +02:00
parent 51b60ffd98
commit 885db523bc
2 changed files with 20 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
initATLASAufschubkonten/cWorker_NCTS.vb
View File

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

10
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

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