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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-03-21 10:17:42 +01:00
parent 39911e313e
commit e3843466c8
28 changed files with 4460 additions and 608 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
DAKOSY_Worker/cZOLL_IMPORT.vb
View File

@@ -441,6 +441,7 @@ Public Class cZOLL_IMPORT
If If(bezugsNr, "").ToString.Length > 4 Then
Select Case bezugsNr.ToString.Substring(0, 4)
Case "4803" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803
Case "7001" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803
Case "4805" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803
Case "4811" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803
Case "5003" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803
@@ -856,7 +857,7 @@ Public Class cZOLL_IMPORT
' Else
' cboNiederlassung.SelectedIndex = 0
Select Case SENDUNG.FilialenNr
Case 4803, 4809
Case 4803, 4809, 7001
strManNl = "SUB"
Case 4801
strManNl = "SUW"
@@ -1004,7 +1005,7 @@ Public Class cZOLL_IMPORT
' Else
' cboNiederlassung.SelectedIndex = 0
Select Case SPEDITIONSBUCH.FilialenNr
Case 4803, 4809
Case 4803, 4809, 7001
strManNl = "SUB"
Case 4801
strManNl = "SUW"