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

10
initATLASAufschubkonten/cWorker_NCTS.vb
View File

@@ -161,7 +161,7 @@ Public Class cWorker_NCTS
If DETUDC.ProcedureOwner.ContactPerson IsNot Nothing Then
Dim AnsprechpTMP = DETUDC.ProcedureOwner.ContactPerson.Name
If AnsprechpTMP <> "" Then
Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & AnsprechpTMP & "'", "ADMIN")
Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & AnsprechpTMP & "' or REPLACE([mit_DAKOSY_SBFull], ' ', '') = '" & AnsprechpTMP & "'", "ADMIN")
If SB_Tmp <> "" Then
NCTS.ncts_Bearbeiter = SB_Tmp
Else
@@ -379,7 +379,7 @@ Public Class cWorker_NCTS
If DETUDC.ProcedureOwner.ContactPerson IsNot Nothing Then
Dim AnsprechpTMP = DETUDC.ProcedureOwner.ContactPerson.Name
If AnsprechpTMP <> "" Then
Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & AnsprechpTMP & "'", "ADMIN")
Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & AnsprechpTMP & "' or REPLACE([mit_DAKOSY_SBFull], ' ', '') = '" & AnsprechpTMP & "'", "ADMIN")
If SB_Tmp <> "" Then
NCTS.ncts_Bearbeiter = SB_Tmp
Else
@@ -707,7 +707,7 @@ Public Class cWorker_NCTS
If DETPDD.HolderOfTheTransitProcedure.ContactPerson IsNot Nothing Then
Dim AnsprechpTMP = DETPDD.HolderOfTheTransitProcedure.ContactPerson.name
If AnsprechpTMP <> "" Then
Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & AnsprechpTMP & "'", "ADMIN")
Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & AnsprechpTMP & "' or REPLACE([mit_DAKOSY_SBFull], ' ', '') = '" & AnsprechpTMP & "'", "ADMIN")
If SB_Tmp <> "" Then
NCTS.ncts_Bearbeiter = SB_Tmp
ElseIf isAtez(NCTS.ncts_ObjectName) Then
@@ -1379,7 +1379,7 @@ Public Class cWorker_NCTS
' Ansprechpartner
Dim AnsprechpTMP = cEDI.getSimpleLine("CTA+CC+:", lines)
If AnsprechpTMP <> "" Then
Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & AnsprechpTMP & "'", "ADMIN")
Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & AnsprechpTMP & "' or REPLACE([mit_DAKOSY_SBFull], ' ', '') = '" & AnsprechpTMP & "'", "ADMIN")
If SB_Tmp <> "" Then
NCTS.ncts_Bearbeiter = SB_Tmp
ElseIf isAtez(NCTS.ncts_ObjectName) Then
@@ -1775,7 +1775,7 @@ Public Class cWorker_NCTS
Dim AnsprechpTMP = DETBAE.AuthorisedConsignee.ContactPerson.Name
If AnsprechpTMP <> "" Then
Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & AnsprechpTMP & "'", "ADMIN")
Dim SB_Tmp = SQL.getValueTxtBySql("SELECT isnull([mit_DAKOSY_SB],'') FROM [tblMitarbeiter] where [mit_DAKOSY_SBFull]='" & AnsprechpTMP & "' or REPLACE([mit_DAKOSY_SBFull], ' ', '') = '" & AnsprechpTMP & "'", "ADMIN")
If SB_Tmp <> "" Then
NCTS.ncts_Bearbeiter = SB_Tmp
ElseIf isAtez(NCTS.ncts_ObjectName) Then