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

Ambar GmbH autoselect

Browse Source
This commit is contained in:
m.ilhan
2024-10-02 14:18:36 +02:00
parent 5dc935be43
commit ebcdca584b
1 changed files with 12 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Aviso/frmGesamtsicherheitenNEU.vb
View File

@@ -84,12 +84,18 @@ Public Class frmGesamtsicherheitenNEU
txtlkwIdSearch.initSearchBox(Me.FindForm, " LKW_Nr, AvisoID, CAST(Datum as Date) as Datum FROM [Aviso]", {"LKW_Nr", "AvisoID", "Datum"}, "", "Datum desc", "LKW_Nr", "AvisoID", "AVISO",, 250, 200) txtlkwIdSearch.initSearchBox(Me.FindForm, " LKW_Nr, AvisoID, CAST(Datum as Date) as Datum FROM [Aviso]", {"LKW_Nr", "AvisoID", "Datum"}, "", "Datum desc", "LKW_Nr", "AvisoID", "AVISO",, 250, 200)
If Standort = "AMBAR GmbH" Then If Standort = "AMBAR GmbH" Then
If cboFiliale.Items.Count > 0 Then For i As Integer = 0 To cboFiliale.Items.Count - 1
cboFiliale.SelectedIndex = 0 If cboFiliale.Items(i).ToString().Contains("5701") Then
cboFiliale.SelectedIndex = i
Exit For
End If End If
If cboWarenort.Items.Count > 0 Then Next
cboWarenort.changeItem("5701") For i As Integer = 0 To cboWarenort.Items.Count - 1
If cboWarenort.Items(i).ToString().Contains("AMBAR") Then
cboWarenort.SelectedIndex = i
Exit For
End If End If
Next
End If End If
Else Else