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

Änderungen AMBAR

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-04-04 08:17:02 +02:00
parent 3c0da09315
commit e386fa6655
39 changed files with 1937 additions and 1490 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
UID/frmMain/usrcntlAuftraege.vb
View File

@@ -80,17 +80,34 @@ where "
cboAuftragsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TRANSPORT", "TRANSPORT"))
cboAuftragsart.changeItem("ALLE")
cboFiliale.Items.Clear()
cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUBEN", "4807"))
cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEUHAUS", "4819"))
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
Case "NEU" : cboFiliale.changeItem("4819") : Niederlassung = "4819"
Case Else : cboFiliale.changeItem("4807") : Niederlassung = "4807"
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "AMBAR"
cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "5701"))
cboFiliale.changeItem("5701") : Niederlassung = "5701"
Case Else
cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUBEN", "4807"))
cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEUHAUS", "4819"))
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
Case "NEU" : cboFiliale.changeItem("4819") : Niederlassung = "4819"
Case Else : cboFiliale.changeItem("4807") : Niederlassung = "4807"
End Select
End Select
'cboFiliale.Items.Clear()
'cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
'cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUBEN", "4807"))
'cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEUHAUS", "4819"))
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
' Case "NEU" : cboFiliale.changeItem("4819") : Niederlassung = "4819"
' Case Else : cboFiliale.changeItem("4807") : Niederlassung = "4807"
'End Select
DateBIS.Value = Now()
DateVON.Value = Now.AddYears(-1).AddDays(1)