This commit is contained in:
2022-09-01 10:37:14 +02:00
parent 46c14b6500
commit 5809e9c89c
13 changed files with 291 additions and 217 deletions

View File

@@ -966,28 +966,6 @@ Public Class cWorker_NCTS
If DETBAE.AuthorisedConsignee.ContactPerson.MailAddress IsNot Nothing Then
AnsprechpTMP_Email = DETBAE.AuthorisedConsignee.ContactPerson.MailAddress
'If AnsprechpTMP_Email.Contains("@imex") Then
' NCTS.ncts_firma = "IMEX"
' NCTS.ncts_niederlassung = "IMEX"
' 'GLOBAL--> EORI
'ElseIf AnsprechpTMP_Email.Contains("@ambar") Then
' NCTS.ncts_firma = "AMBAR"
' NCTS.ncts_niederlassung = "AMBAR"
'ElseIf AnsprechpTMP_Email.Contains("atilla@verag.ag") Or AnsprechpTMP_Email.Contains("@atilla") Then
' NCTS.ncts_firma = "ATILLA"
' NCTS.ncts_niederlassung = "SUB"
'ElseIf AnsprechpTMP_Email.Contains("@durmaz") Then
' NCTS.ncts_firma = "DURMAZ"
' NCTS.ncts_niederlassung = "SBG"
' 'GLOBAL--> EORI
'ElseIf AnsprechpTMP_Email.Contains("@verag") Then
' NCTS.ncts_firma = "VERAG"
' ' EZA.eza_niederlassung = "IMEX"
'ElseIf AnsprechpTMP_Email.Contains("@unisped") Then
' NCTS.ncts_firma = "UNISPED"
' NCTS.ncts_niederlassung = "ATSP"
' 'GLOBAL--> EORIAnsprechpTMP_Email
'End If
End If
frmDYNachrichtenVerarbeitung.tryGetFirmaNiederlassung(NCTS.ncts_firma, NCTS.ncts_niederlassung, If(AnsprechpTMP_Email, "").ToString, "")
@@ -1271,8 +1249,11 @@ Public Class cWorker_NCTS
If (NCTS_TMP.ncts_firma Is Nothing OrElse NCTS_TMP.ncts_firma = "") Or (NCTS_TMP.ncts_niederlassung Is Nothing OrElse NCTS_TMP.ncts_niederlassung = "") Then
Select Case division
Case "SUW"
NCTS_TMP.ncts_firma = "ATILLA"
NCTS_TMP.ncts_niederlassung = "SUB"
'VERIMEX!!!! --> Arbeitet bim T1 Vorschreiben mit ATILLA Benutzer
frmDYNachrichtenVerarbeitung.tryGetFirmaNiederlassung(NCTS_TMP.ncts_firma, NCTS_TMP.ncts_niederlassung, "", NCTS_TMP.ncts_ObjectName)
If If(NCTS_TMP.ncts_firma, "") = "" Then NCTS_TMP.ncts_firma = "ATILLA"
If If(NCTS_TMP.ncts_niederlassung, "") = "" Then NCTS_TMP.ncts_niederlassung = "SUB"
Case "SUB"
NCTS_TMP.ncts_firma = "VERAG"
NCTS_TMP.ncts_niederlassung = "SUB"