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

30
UID/frmAuftragNEU.vb
View File

@@ -106,15 +106,29 @@ Public Class frmAuftragNEU
End Sub
Private Sub frmAuftrag_Load(sender As Object, e As EventArgs) Handles MyBase.Load
cboFilialenNr.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
cboFilialenNr.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' AND FilialenNr=5701 ORDER BY FilialenNr ", True, "FMZOLL", True)
cboFilialenNr.changeItem("5701")
cboFirma.Items.Clear()
cboFirma.Items.Add("AMBAR")
cboFirma.SelectedIndex = 0
Else
cboFilialenNr.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
Case "NEU" : cboFilialenNr.changeItem("4819")
Case Else : cboFilialenNr.changeItem("4807")
End Select
cboFirma.SelectedIndex = 0
cboFirma2.SelectedIndex = 0
End If
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
Case "NEU" : cboFilialenNr.changeItem("4819")
Case Else : cboFilialenNr.changeItem("4807")
End Select
cboFirma.SelectedIndex = 0
cboFirma2.SelectedIndex = 0
cboAuftragsart.Items.Clear()
cboAuftragsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("HANDLING", "HANDLING"))
@@ -1817,6 +1831,8 @@ Public Class frmAuftragNEU
cboFirma.SelectedItem = "VERAG AG"
ElseIf cboFilialenNr.SelectedItem.value = "4819" Then
cboFirma.SelectedItem = "VERAG GmbH"
ElseIf cboFilialenNr.SelectedItem.value = "5701" Then
cboFirma.SelectedItem = "AMBAR"
End If
cboFirma2.SelectedItem = cboFirma.SelectedItem
End Sub