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

NEU

Browse Source
This commit is contained in:
Andreas Luxbauer
2019-09-19 17:25:22 +02:00
parent c7ff55bbae
commit d29dc72b22
44 changed files with 3715 additions and 1390 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
Aviso/frmLogin.vb
View File

@@ -32,7 +32,19 @@ Public Class frmLogin
End If
End If
If e.Modifiers = Keys.Control And e.KeyCode = Keys.A Then
firma = If(firma = "VERAG", "ATILLA", If(firma = "ATILLA", "IMEX", "VERAG"))
Panel2.BackColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_BgColor
lblVersion.ForeColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_ForeColor
Label3.ForeColor = VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_ForeColor
Select Case firma
Case "VERAG" : firma = "ATILLA"
Case "ATILLA" : firma = "IMEX"
Case "IMEX" : firma = "UNISPED"
Case "UNISPED" : firma = "AMBAR"
Case "AMBAR" : firma = "VERAG"
End Select
' firma = If(firma = "VERAG", "ATILLA", If(firma = "ATILLA", "IMEX", "VERAG"))
initstart()
If Environment.MachineName = "YLPS023046" Then
txtSachbear.Text = "ADMIN"
@@ -142,6 +154,10 @@ Public Class frmLogin
' cGlobal.ConnStrADMIN = VERAG_PROG_ALLGEMEIN.My.MySettings.Default.ADMINConnectionString
picLogin.Image = My.Resources.IMEX_LOGO_simple
' If TESTSYSTEM Then cGlobal.ConnStr = VERAG_PROG_ALLGEMEIN.My.MySettings.Default.AVISOConnectionStringTEST
Case "UNISPED"
picLogin.Image = My.Resources.Unisped_logo
Case "AMBAR"
picLogin.Image = My.Resources.ambar_simple
End Select
'DEV FMZOLL