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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-10-27 11:19:22 +02:00
parent 13f28aa1d8
commit f4813a04a9
76 changed files with 9922 additions and 2253 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
SDL/Speditionsbuch/Nacherfassung/frmNacherfassungNEU.vb
View File

@@ -603,15 +603,16 @@ Public Class frmNacherfassungNEU
cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAKOSY", "D"))
cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TELOTEC", "T"))
cboZollsystem.changeItem("D")
Case "IMEX"
cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAKOSY", "D"))
cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TELOTEC", "T"))
cboZollsystem.changeItem("D")
'Case "IMEX"
' cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
' cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAKOSY", "D"))
' cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TELOTEC", "T"))
' cboZollsystem.changeItem("D")
Case Else
cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATLAS (KEWILL)", "A"))
cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EZOLL", "E"))
cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TELOTEC", "T"))
cboZollsystem.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAKOSY", "D"))
cboZollsystem.SelectedIndex = 0
End Select
@@ -800,7 +801,7 @@ Public Class frmNacherfassungNEU
End If
If txtAuftraggeber.Text = "" Then lblErrAuftraggeber.Visible = True : Return False
If Not IsNumeric(cboAbfertigungsart._value) Then lblErrLKWKennzeichen.Visible = True : Return False
If cboAbfertigungsart._value <> "10" And cboAbfertigungsart._value <> "20" And cboFiliale._value <> 4839 Then 'Sonstiges und Maut Und LEX --> Kein SB
If cboAbfertigungsart._value <> "10" And cboAbfertigungsart._value <> "20" And cboFiliale._value <> 4839 And cboFiliale._value <> 7002 And cboFiliale._value <> 7003 Then 'Sonstiges und Maut Und LEX --> Kein SB und Brexit AWOR/UNISPED
If Not IsNumeric(cboSachbearbeiter._value) OrElse cboSachbearbeiter._value <= 0 Then lblErrSachbearbeiter.Visible = True : Return False
End If
Return True