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

ATILLA Status 2 (VERIMEX, INDONESIEN), Login Warenort, Sprache div.

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-12-06 08:41:13 +01:00
parent 074e999003
commit eb090f8b37
24 changed files with 653 additions and 481 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
Aviso/frmLogin.vb
View File

@@ -77,7 +77,7 @@ Public Class frmLogin
'initCBOWarenort
Dim testSysTMP = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
cboWarenort.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM [tblGrenzstelle] where [grz_Warenort]=1", False, "AVISO")
cboWarenort.fillWithSQL("SELECT [grz_Grenzstelle],[grz_BezeichnungCBO] FROM [tblGrenzstelle] where [grz_Warenort]=1 and [grz_aktiv]=1", False, "AVISO")
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = testSysTMP
If File.Exists(pfadDatei) Then
@@ -89,6 +89,8 @@ Public Class frmLogin
If firma = "NKD" Then firma = "VERAG"
If firma = "NEU" Then firma = "VERAG"
If firma = "SUB" Then firma = "VERAG"
Else
' FIRMA VON AD HOLEN, wenn keine StandortTxt
Try
@@ -202,6 +204,8 @@ Public Class frmLogin
Sub initstart(Optional secret = False)
picLogin.Size = New Size(picLogin.Width, 50)
cboWarenort.Visible = False
picWO.Visible = False
lblWO.Visible = False
Select Case firma
Case "VERAG"
' cGlobal.ConnStrFMZOLL = VERAG_PROG_ALLGEMEIN.My.MySettings.Default.FMZOLL_PRODConnectionString
@@ -229,10 +233,27 @@ Public Class frmLogin
picLogin.Size = New Size(picLogin.Width, 71)
picLogin.Image = My.Resources.FrontOfficeSUB
Case "WARENORT"
picLogin.Size = New Size(picLogin.Width, 71)
' picLogin.Size = New Size(picLogin.Width, 71)
picLogin.Image = Nothing
cboWarenort.Visible = True
picWO.Visible = True
lblWO.Visible = True
Case "FO_Wiesentheid", "WO_GE", "WO_IST_LOL", "WO_IST_LOG", "WO_KITA", "WO_MERIS"
'picLogin.Size = New Size(picLogin.Width, 71)
picLogin.Image = Nothing
cboWarenort.Visible = True
cboWarenort.Enabled = False
lblWO.Visible = True
picWO.Visible = True
cboWarenort.changeItem(firma)
firma = "WARENORT"
Case "VERIMEX"
picLogin.Size = New Size(picLogin.Width, 71)
picLogin.Image = My.Resources.verimex
@@ -283,6 +304,7 @@ Public Class frmLogin
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
firma = SQL.DLookup("grz_Firma", "tblGrenzstelle", "grz_Grenzstelle='" & cboWarenort._value & "'", "AVISO", "")
' MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT)
If firma = "" Then firma = "WARENORT" : Exit Sub
'NIEDERLASSUNG?
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = testSysTMP
@@ -594,22 +616,22 @@ Public Class frmLogin
End Sub
Private Sub VERAGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VERAGToolStripMenuItem.Click
firma = "VERAG"
If firma <> "WARENORT" Then firma = "VERAG"
initstart()
End Sub
Private Sub ATILLAToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATILLAToolStripMenuItem.Click
firma = "ATILLA"
If firma <> "WARENORT" Then firma = "ATILLA"
initstart()
End Sub
Private Sub PRODUKTIVToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PRODUKTIVToolStripMenuItem.Click
TESTSYSTEM = False
If firma <> "WARENORT" Then TESTSYSTEM = False Else MsgBox("Nicht verfügbar!")
initstart()
End Sub
Private Sub TESTSYSTEMToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles TESTSYSTEMToolStripMenuItem1.Click
TESTSYSTEM = True
If firma <> "WARENORT" Then TESTSYSTEM = True Else MsgBox("Nicht verfügbar!")
initstart()
End Sub
@@ -625,7 +647,7 @@ Public Class frmLogin
Private Sub IMEXToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IMEXToolStripMenuItem.Click
firma = "IMEX"
If firma <> "WARENORT" Then firma = "IMEX"
initstart()
End Sub
@@ -634,25 +656,38 @@ Public Class frmLogin
End Sub
Private Sub FRONTOFFICEToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FRONTOFFICEToolStripMenuItem.Click
firma = "FRONTOFFICE"
If firma <> "WARENORT" Then firma = "FRONTOFFICE"
initstart()
End Sub
Private Sub UNISPEDToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UNISPEDToolStripMenuItem.Click
firma = "UNISPED"
If firma <> "WARENORT" Then firma = "UNISPED"
initstart()
End Sub
Private Sub AMBARToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AMBARToolStripMenuItem.Click
firma = "AMBAR"
If firma <> "WARENORT" Then firma = "AMBAR"
initstart()
End Sub
Private Sub VERIMEXToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VERIMEXToolStripMenuItem.Click
firma = "VERIMEX"
If firma <> "WARENORT" Then firma = "VERIMEX"
initstart()
End Sub
Private Sub cboWarenort_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboWarenort.SelectedIndexChanged
picWO.BackgroundImage = Nothing
picWO.Visible = True
Select Case cboWarenort._value
Case "FO_Wiesentheid" : picWO.BackgroundImage = My.Resources.Koerfez61
Case "WO_GE" : picWO.BackgroundImage = My.Resources.ge_transport
Case "WO_IST_LOL" : picWO.BackgroundImage = My.Resources.istLog
Case "WO_KITA" : picWO.BackgroundImage = My.Resources.kita
Case "WO_MERIS" : picWO.BackgroundImage = My.Resources.meris
End Select
End Sub
Private Sub FlatButton2_Click(sender As Object, e As EventArgs) Handles FlatButton2.Click
End Sub
End Class