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

ATEZ Bereitstellung DY; 4802 ATILLA

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-08-24 08:44:30 +02:00
parent 27d0b8f95c
commit fa40157528
8 changed files with 47 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
DAKOSY_Worker/cZOLL_IMPORT.vb
View File

@@ -334,7 +334,7 @@ Public Class cZOLL_IMPORT
Dim filiale = getFiliale(LRN, filialeBez)
Select Case filiale
Case "5501" : VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX"
Case "4801" : VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" : Return False 'Keine Atoerfassung
Case "4801", "4802" : VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "ATILLA" : Return False 'Keine Atoerfassung
Case "5801" : VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "FRONTOFFICE"
End Select
Dim abfertigungsnummer = getAbfertigungsnummer(LRN)
@@ -884,7 +884,7 @@ Public Class cZOLL_IMPORT
Select Case SENDUNG.FilialenNr
Case 4803, 4809, 7001
strManNl = "SUB"
Case 4801
Case 4801, 4802
strManNl = "SUW"
Case 5003
strManNl = "SBG" 'ANDERER SERVER!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -1032,7 +1032,7 @@ Public Class cZOLL_IMPORT
Select Case SPEDITIONSBUCH.FilialenNr
Case 4803, 4809, 7001
strManNl = "SUB"
Case 4801
Case 4801, 4802
strManNl = "SUW"
Case 5003
strManNl = "SBG" 'ANDERER SERVER!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -1133,7 +1133,8 @@ Public Class cZOLL_IMPORT
SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing)
End If
Catch ex As Exception
MsgBox("Fehler ATLAS Personal: " & vbNewLine & ex.Message & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler ATLAS Personal: " & vbNewLine & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Next
Else
@@ -1272,7 +1273,8 @@ Public Class cZOLL_IMPORT
SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing)
End If
Catch ex As Exception
MsgBox("Fehler ATLAS Personal: " & vbNewLine & ex.Message & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler ATLAS Personal: " & vbNewLine & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Next
Else
@@ -1540,7 +1542,8 @@ Public Class cZOLL_IMPORT
SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing)
End If
Catch ex As Exception
MsgBox("Fehler EZOLL Personal: " & vbNewLine & ex.Message & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler EZOLL Personal: " & vbNewLine & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
'Anhang
@@ -1680,7 +1683,8 @@ Public Class cZOLL_IMPORT
SPEDITIONSBUCH.Personalnummer = If(IsNumeric(p), p, Nothing)
End If
Catch ex As Exception
MsgBox("Fehler EZOLL Personal: " & vbNewLine & ex.Message & vbNewLine & ex.StackTrace)
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler EZOLL Personal: " & vbNewLine & ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
'Anhang

8
DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb
View File

@@ -472,10 +472,10 @@ Public Class cZollsysteme_Aktenbeschriftung
VERAG_NCTS.Company = "ATILLA"
VERAG_NCTS.Department = "SUB"
Case "6"
If LRN.StartsWith("4801") Then
VERAG_NCTS.Company = "ATILLA"
Else
VERAG_NCTS.Company = "VERAG"
If LRN.StartsWith("4801") Or LRN.StartsWith("4802") Then
VERAG_NCTS.Company = "ATILLA"
Else
VERAG_NCTS.Company = "VERAG"
End If
VERAG_NCTS.Department = "SUB"
Case "8"