neu

Aviso/frmLogin.vb

@@ -30,19 +30,22 @@ Public Class frmLogin
                 txtSachbear.Text = "ADMIN"
                 txtKennwort.Text = "verag#2"
             End If
+            e.Handled = True
         End If
         If e.Modifiers = Keys.Control And e.KeyCode = Keys.A Then
             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 = "FRONTOFFICE"
-                Case "FRONTOFFICE" : firma = "VERAG"
+                Case "FRONTOFFICE" : firma = "VERIMEX"
+                Case "VERIMEX" : firma = "VERAG"
 
             End Select
             ' firma = If(firma = "VERAG", "ATILLA", If(firma = "ATILLA", "IMEX", "VERAG"))
@@ -51,6 +54,7 @@ Public Class frmLogin
                 txtSachbear.Text = "ADMIN"
                 txtKennwort.Text = "verag#2"
             End If
+            e.Handled = True
         End If
     End Sub
 
@@ -66,7 +70,6 @@ Public Class frmLogin
         VERAG_PROG_ALLGEMEIN.cAllgemein.PROGNAME = "AVISO_NEW"
         VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID = 16
         VERAG_PROG_ALLGEMEIN.cAllgemein.PROGVERSION = Application.ProductVersion
-
         If File.Exists(pfadDatei) Then
             Dim fs As New FileStream(pfadDatei, FileMode.Open, FileAccess.Read)
             Dim strmReader As New StreamReader(fs)
@@ -180,7 +183,10 @@ Public Class frmLogin
                 picLogin.Image = My.Resources.ambar_simple
             Case "FRONTOFFICE"
                 picLogin.Size = New Size(picLogin.Width, 71)
-                picLogin.Image = My.Resources.frontofficesub
+                picLogin.Image = My.Resources.FrontOfficeSUB
+            Case "VERIMEX"
+                picLogin.Size = New Size(picLogin.Width, 71)
+                picLogin.Image = My.Resources.verimex
         End Select
 
         'DEV FMZOLL
@@ -377,6 +383,11 @@ Public Class frmLogin
             txtKennwort.Text = "verag#2"
             '  If MsgBox("AUTO-LOGIN?", vbYesNoCancel) = vbYes Then btnOK.PerformClick()
         End If
+
+
+        ' Spire.License.LicenseProvider.SetLicenseKey("PFIX3V0pG5DaAQCBLK1gLRCjwhu+wX1JsEcX0hyXZty9sbe8Zm5XIrWr214umg/g22Jy0+5BJQ6QgRhLl0eUqVMyCAHswvrA+jVz8s20VTNEOTWhzwpLBqoRG6IFh3EGNawUS7a+fW5OVPLApUd3Y+IcKYZihow7+5lKPN6+seKWy5uFjwRFNSBOTAjUGsfEw9sukXvtcnLh2Vo5ttKbPSLb1EeCdgaNd8nWa+RKQk0Rlg4R/7M9BBTURZXCVAoA4kfbNyPnksggPvYPbpVqPqtT9LbjycBLSB/Uwf16fZlVDuDrCJCij2ZI3ebSwM1sumBtXj4WhXk+Mwxj7acdb9saqmOsmyAcd11MZ2NfRAhv2L8S7RLSGr4OYR9/9Fnk9aN9q7T8D51jUfJgV82ZIZMvCpI2RTtsRaOyMandpfpFE96k1kjlVRuWm8JGKUHZV0bETyaBTqpiwn4ShoqdlYlyvIjfjWX/TbWCuy2uSugCC9BLW0P0ND/G2z2kbHQCEiQCRn92TrlvTpQg9veACDn1Lb3savBYyW3VQMuHgybLpq3x9LIV5nrTli87kzqvTuZmUZanhgx0M4BFi2CsWlf28yRpQo2l1HDLjScgzxvXOk3/N9wOlS2gbfeN74iHU0vb1heHfa5ahmRwtgg7C6iYu0WD1u5p/hO3Ja5tkNBxicJO5TJXq3W5U65lCsQDOQbiZCeTJzjYP0SGypIo701hqqVG9hW/Sd2siqb4w/W1H9xKTxDCL+EwCHduLZuNze1gyyxKR5nGCsIhaXBaRCaQ8Z1OHlU25h+yeHwFF1yMKzdbX6VKG+5GjZ3yvSjwqGgFfDPLVr2QxJpLqpAwcdmG7w6xwVoOP81C8Sv60U2UaDLw7I0U1GfMhkqOr0tRtFQRa2iDgPnrZWhiNPPjDYtPyHt5ZwdIoAKaNRpI1f+u6rDJRmyAr4jizBRxHIlsSM86MXRbEvBLkDEyDQPLC3ntaPi5kRn7vObrlDGR7aZEKy+8PkU8qrVw7wgqxQtbc+isO8x6yoe/yTydhFiY1HlUbjPlAM9s+SSV4D2L9oHmYCtO1wdo3Gl0Dj6Mp3hioi9Cyd4+bp/A28ukhQXjtNUhUhNgzcyfP/Fg1at6lj0NPYWvOibJr0I/Fi38AeBM+kXNnuMblXnlawtTjnjGvi/fA9tHz6EI44ChhIrd8a3Kjx2bGcFlVENXe3YDu1W5ZbDOcoERW8qxZLBKqYIMiwQ61ZAq69PXKSZZk+1mi8oyCNS9xpBZndWLKTKG6XqM1FkZew1bTD4GLZRdC4x72iqSmVIu3ZU8rSk7rxGQUNWKIi7gIJhXEnmeWt322KDCxBWDZcrxKKGc8ZIDRL3EmW13/7ow4WowlCUW+lvhlkbwsXDPwqtO+IQJ3UisJFnF2jnFqaLoKELNJx6hfg2iyYR2+gJgiKWLKOzS56Id7o3iY4ou1TZauqSK9A836t36UxXtjYWSk9aoDDhZwlqRbwXok9pds5dC")
+
+
     End Sub
 
 
@@ -515,4 +526,25 @@ Public Class frmLogin
     Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint
 
     End Sub
+
+    Private Sub FRONTOFFICEToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FRONTOFFICEToolStripMenuItem.Click
+        firma = "FRONTOFFICE"
+        initstart()
+    End Sub
+
+    Private Sub UNISPEDToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UNISPEDToolStripMenuItem.Click
+        firma = "UNISPED"
+        initstart()
+    End Sub
+
+    Private Sub AMBARToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AMBARToolStripMenuItem.Click
+        firma = "AMBAR"
+        initstart()
+    End Sub
+
+    Private Sub VERIMEXToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VERIMEXToolStripMenuItem.Click
+        firma = "VERIMEX"
+        initstart()
+    End Sub
+
 End Class