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

StartOptions (Einlesen Währungen) NCTS wegen Import von Dakosy

Browse Source
This commit is contained in:
d.breimaier
2024-10-10 16:16:49 +02:00
parent 05815eff9e
commit cc67e23bb4
5 changed files with 209 additions and 76 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -6293,14 +6293,14 @@ Public Class frmDYNachrichtenVerarbeitung
Dim AnsprechpTMP = cEDI.getValuesFromLine(cEDI.getSimpleLine("NAD+PK++", lines))
If AnsprechpTMP.Length > 0 Then
EZA.eza_AnmeldenderBearbeiterName = AnsprechpTMP(0) '?
Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & AnsprechpTMP(0) & "'", "ADMIN")
Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & AnsprechpTMP(0) & "' or REPLACE([mit_DAKOSY_SBFull], ' ', '') = '" & AnsprechpTMP(0) & "'", "ADMIN")
If SB_Tmp <> "" Then
EZA.eza_Bearbeiter = SB_Tmp
ElseIf isAtez(EZA.eza_ObjectName) Then
EZA.eza_Bearbeiter = "VERIMEX"
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, VERAG_PROG_ALLGEMEIN.ERROR_OP.LOG)
End If
End If
End If
If AnsprechpTMP.Length > 1 Then EZA.eza_AnmeldenderBearbeiterStellung = AnsprechpTMP(1) '?