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
2020-06-22 13:33:07 +02:00
parent f4e823ec69
commit 9b52ab1b61
43 changed files with 1985 additions and 250 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
SDL/SMS/usrCntlSMS.vb
View File

@@ -44,6 +44,12 @@
cboAbsedner.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX Spedition", "EX0272082"))
Case "ATILLA"
cboAbsedner.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA Spedition", "EX0252746"))
Case "UNISPED"
cboAbsedner.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Spedition", "EX0300174"))
Case "FRONTOFFICE"
cboAbsedner.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FRONT-OFFICE", "EX0300173"))
Case "AMBAR"
cboAbsedner.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "EX0315223"))
Case Else
cboAbsedner.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Spedition AG", "EX0252513"))
cboAbsedner.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG 360", "EX0252747"))
@@ -51,11 +57,18 @@
cboAbsedner.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA Spedition", "EX0252746"))
cboAbsedner.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX Spedition", "EX0272082"))
End If
cboAbsedner.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Spedition", "EX0300174"))
cboAbsedner.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FRONT-OFFICE", "EX0300173"))
cboAbsedner.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "EX0315223"))
End Select
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "ATILLA" : cboAbsedner.changeItem("EX0252746")
Case "IMEX" : cboAbsedner.changeItem("EX0272082")
Case "UNISPED" : cboAbsedner.changeItem("EX0300174")
Case "FRONTOFFICE" : cboAbsedner.changeItem("EX0300173")
Case "AMBAR" : cboAbsedner.changeItem("EX0315223")
Case Else
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung
Case "MDM" : cboAbsedner.changeItem("EX0252747")
@@ -272,10 +285,12 @@
Private Sub MyDatagridview1_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles MyDatagridview1.CellMouseClick
Exit Sub
If e.Button = Windows.Forms.MouseButtons.Right Then
MyDatagridview1.ClearSelection()
MyDatagridview1.Rows(e.RowIndex).Selected = True
MyDatagridview1.CurrentCell = MyDatagridview1.Rows(e.RowIndex).Cells(0)
' MyDatagridview1.CurrentCell = MyDatagridview1.Rows(e.RowIndex).Cells("sms_Handynummer")
MyDatagridview1.Rows(e.RowIndex).Selected = True
cntxtOptionen.Show(System.Windows.Forms.Cursor.Position)
End If
End Sub