Imports System.IO Imports System.Windows.Forms Imports VERAG_PROG_ALLGEMEIN Imports System.Reflection Imports System.DirectoryServices Imports Therefore.API Public Class frmLogin Public AnmeldungOK As Boolean = False ' Public USRBER As String 'Public USRNAME As String ' Public USRID As String Private ADMIN As New cADMIN Public firma As String = "VERAG" Dim SECRET = False Public Sub New() InitializeComponent() Icon = cMeineFunktionenAVISO.GetProgrammIcon End Sub Dim TESTSYSTEM As Boolean = False Private Sub frmLogin_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown If e.Modifiers = Keys.Control And e.KeyCode = Keys.T Then TESTSYSTEM = Not TESTSYSTEM initstart() If Environment.MachineName = "YLPS023046" Then 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 = "VERIMEX" Case "VERIMEX" : firma = "WARENORT" Case "WARENORT" : firma = "VERAG" End Select ' firma = If(firma = "VERAG", "ATILLA", If(firma = "ATILLA", "IMEX", "VERAG")) initstart() If Environment.MachineName = "YLPS023046" Then txtSachbear.Text = "ADMIN" txtKennwort.Text = "verag#2" End If e.Handled = True End If End Sub Private Sub frmAnmeldung_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load lblVersion.Text = "Version " & Application.ProductVersion lblVersion.ContextMenuStrip = ctxUpdate If Application.ProductVersion.StartsWith("0") Then lblVersion.Text += " BETA" Dim pfadDatei As String = Application.StartupPath & "\Standort.txt" firma = "VERAG" VERAG_PROG_ALLGEMEIN.cAllgemein.PROGNAME = "AVISO_NEW" VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID = 16 VERAG_PROG_ALLGEMEIN.cAllgemein.PROGVERSION = Application.ProductVersion '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 and [grz_aktiv]=1", False, "AVISO") VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = testSysTMP If File.Exists(pfadDatei) Then Dim fs As New FileStream(pfadDatei, FileMode.Open, FileAccess.Read) Dim strmReader As New StreamReader(fs) firma = strmReader.ReadLine If firma = "SBG" Then firma = "VERAG" If firma = "WAI" Then firma = "VERAG" 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 Dim WI = System.Security.Principal.WindowsIdentity.GetCurrent().Name If WI.Contains("\") Then Dim Split() = WI.Split("\") 'Dim UsernameTMP = ADMIN.getUstName_ByAD(Split(0), Split(1)) Dim firmaTmp = ADMIN.getUstFirma_ByAD(Split(0), Split(1)) If firmaTmp = "" Then Dim UsernameTMP = ADMIN.getUstName_ByAD(Split(0), Split(1)) ' Eig nicht mehr nötig... If UsernameTMP <> "" Then firmaTmp = ADMIN.getValueTxtBySql("SELECT isnull(mit_firma,'') FROM [tblMitarbeiter] where [mit_username] = '" & UsernameTMP & "' AND mit_firma NOT IN ('BEIDE','ALLE','ALL') ", "ADMIN") End If End If If firmaTmp <> "" Then firma = firmaTmp End If End If Catch ex As Exception ' MsgBox(ex.Message & ex.StackTrace) End Try End If ' Me.Visible = False ' Me.Hide() 'STARTPARAMETER - DP Dim PARAM = "" Dim parameter() As String = Environment.GetCommandLineArgs().ToArray If (parameter.Count - 1) >= 1 Then 'Höher als 1 weil der index 0 der Pfad zum programm ist PARAM = parameter(1) End If If PARAM = "DIENSTPLAN" Then Me.ShowInTaskbar = False VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "SUB" Dim fdp As New SDL.frmDienstplan AddHandler fdp.FormClosed, Sub() Application.Exit() End Sub fdp.Show() Me.Visible = False Me.Hide() Me.WindowState = FormWindowState.Minimized Exit Sub ElseIf PARAM = "FORMULARMANAGER" Then Me.ShowInTaskbar = False VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "SUB" Dim fdp As New SDL.frmFormulare AddHandler fdp.FormClosed, Sub() Application.Exit() End Sub fdp.Show() Me.Visible = False Me.Hide() Me.WindowState = FormWindowState.Minimized Exit Sub ElseIf PARAM = "SECRET" Then SECRET = True ElseIf PARAM = "STATUS_MAIL" Then Try 'Me.Visible = False 'Me.Hide() 'Me.WindowState = FormWindowState.Minimized VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Dim OptionenDAL As New VERAG_PROG_ALLGEMEIN.cOptionenDAL VERAG_PROG_ALLGEMEIN.cGlobal.Optionen = OptionenDAL.LesenOptionen(1, "") Dim AvisoDAL As New VERAG_PROG_ALLGEMEIN.cAvisoDAL Dim VERAGSQL As New VERAG_PROG_ALLGEMEIN.SQL Dim dt = VERAGSQL.loadDgvBySql("SELECT [AvisoID] FROM [Aviso] where datum >= '19.04.2022' and Firma IN ('VERAG','IMEX') and (SELECT COUNT(*) FROM Vermerke where Vermerke.AvisoID=aviso.AvisoID and Hinweis_Vermerk LIKE 'Status E-Mail gesendet an:%') =0 and status NOT IN (1,2)", "AVISO") For Each r In dt.Rows 'MsgBox("SO: " & (r("AvisoID"))) Dim AVISO = AvisoDAL.LesenAviso(r("AvisoID"), "") If AVISO IsNot Nothing Then AvisoStatusFunctions.SendStatusEmail(AVISO) End If Next Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Application.Exit() Exit Sub End If initstart(False) Try Using myGraphics As Graphics = Me.CreateGraphics() VERAG_PROG_ALLGEMEIN.cAllgemein.dpi = myGraphics.DpiX End Using Catch ex As Exception End Try End Sub 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 ' cGlobal.ConnStr = VERAG_PROG_ALLGEMEIN.My.MySettings.Default.AVISOConnectionString ' cGlobal.ConnStrADMIN = VERAG_PROG_ALLGEMEIN.My.MySettings.Default.ADMINConnectionString picLogin.Image = My.Resources.Verag_AG_Logopng ' If TESTSYSTEM Then cGlobal.ConnStr = VERAG_PROG_ALLGEMEIN.My.MySettings.Default.AVISOConnectionStringTEST Case "ATILLA" ' cGlobal.ConnStrFMZOLL = VERAG_PROG_ALLGEMEIN.My.MySettings.Default.FMZOLL_PRODConnectionString ' cGlobal.ConnStr = VERAG_PROG_ALLGEMEIN.My.MySettings.Default.AVISO_ATILLAConnectionString ' cGlobal.ConnStrADMIN = VERAG_PROG_ALLGEMEIN.My.MySettings.Default.ADMINConnectionString picLogin.Image = My.Resources.Atilla ' If TESTSYSTEM Then cGlobal.ConnStr = VERAG_PROG_ALLGEMEIN.My.MySettings.Default.AVISOConnectionStringTEST Case "IMEX" ' cGlobal.ConnStrFMZOLL = VERAG_PROG_ALLGEMEIN.My.MySettings.Default.FMZOLL_PRODConnectionString ' cGlobal.ConnStr = VERAG_PROG_ALLGEMEIN.My.MySettings.Default.AVISO_ATILLAConnectionString ' 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 Case "FRONTOFFICE" picLogin.Size = New Size(picLogin.Width, 71) picLogin.Image = My.Resources.FrontOfficeSUB Case "WARENORT" ' 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 End Select 'DEV FMZOLL If TESTSYSTEM Then ' cGlobal.ConnStrFMZOLL = VERAG_PROG_ALLGEMEIN.My.MySettings.Default.FMZOLLConnectionString lblTESTSYSTEM.Visible = True Else lblTESTSYSTEM.Visible = False End If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firma VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = TESTSYSTEM ' txtSachbear.Text = "" 'txtKennwort.Text = "" txtSachbear.Text = SystemInformation.UserName txtSachbear.Focus() Try Dim WI = System.Security.Principal.WindowsIdentity.GetCurrent().Name If WI.Contains("\") Then Dim Split() = WI.Split("\") Dim UsernameTMP = ADMIN.getUstName_ByAD(Split(0), Split(1)) If UsernameTMP <> "" Then txtSachbear.Text = UsernameTMP End If End If Catch ex As Exception 'MsgBox(ex.Message) End Try End Sub Private Sub btnOK_Click(sender As System.Object, e As System.EventArgs) Handles btnOK.Click VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG = False 'Auf WARENORT UMSTELLEN If firma = "WARENORT" Then VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG = True VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT = cboWarenort._value Dim testSysTMP = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM 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 End If If firma = "ATILLA" Then Dim büroDatei As String = "C:\VERAG\büro.txt" If File.Exists(büroDatei) Then Dim l = IO.File.ReadAllLines(büroDatei, System.Text.Encoding.Default) If l.Count > 0 Then If l(0) <> "" Then VERAG_PROG_ALLGEMEIN.cAllgemein.BÜRO = l(0) End If End If Dim büroDatei2 As String = "C:\VERAG\büro" If File.Exists(büroDatei2) Then Dim l = IO.File.ReadAllLines(büroDatei2, System.Text.Encoding.Default) If l.Count > 0 Then If l(0) <> "" Then VERAG_PROG_ALLGEMEIN.cAllgemein.BÜRO = l(0) End If End If End If Dim AVISO_OPTIONSDatei As String = Microsoft.VisualBasic.FileIO.SpecialDirectories.MyDocuments & "\AVISO_OPTIONS.txt" If File.Exists(AVISO_OPTIONSDatei) Then Dim l = IO.File.ReadAllLines(AVISO_OPTIONSDatei, System.Text.Encoding.Default) If l.Count > 0 Then For Each li In l If li.StartsWith("BON:") Then VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_BON = (li.Replace("BON:", "")).Trim End If If li.StartsWith("PRINTER:") Then VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD = (li.Replace("PRINTER:", "")).Trim End If Next End If End If AVISO_OPTIONSDatei = "C:\AVISO_OPTIONS.txt" If File.Exists(AVISO_OPTIONSDatei) Then Dim l = IO.File.ReadAllLines(AVISO_OPTIONSDatei, System.Text.Encoding.Default) If l.Count > 0 Then For Each li In l If li.StartsWith("BON:") Then VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_BON = (li.Replace("BON:", "")).Trim End If If li.StartsWith("PRINTER:") Then VERAG_PROG_ALLGEMEIN.cAllgemein.PRINTER_STANDARD = (li.Replace("PRINTER:", "")).Trim End If Next End If End If ''hier erfolgt die Anmelde-Prüfung 'ADMIN-Login If txtSachbear.Text.Trim = "ADMIN" And txtKennwort.Text = My.Resources.ADMIN_pwd Then AdminLoginOK() VERAG_PROG_ALLGEMEIN.cAllgemein.buildConnectionDATENARCHIV() Exit Sub End If ' normaler Login If CBool(ADMIN.checkLogin(txtSachbear.Text.Trim, txtKennwort.Text, firma)) Then loginOK() VERAG_PROG_ALLGEMEIN.cAllgemein.buildConnectionDATENARCHIV() Else ' MsgBox("Benutzername oder Kennwort ist falsch!", MsgBoxStyle.Exclamation, "Fehler bei Anmeldung") lblAlertTxt.Visible = True End If Exit Sub 'AUS If txtSachbear.Text = "" Then MsgBox("Bitte das Mitarbeiter-Kürzel eingeben.", MsgBoxStyle.Exclamation, "Fehler bei Anmeldung") txtSachbear.Focus() Exit Sub End If 'Mitarbeiterdaten laden 'Dim myMitarbeiter As New cMitarbeiterDAL ' cGlobal.AktiverMitarbeiter = myMitarbeiter.LesenMitarbeiter(0, txtSachbear.Text.Trim) If IsNothing(cGlobal.AktiverMitarbeiter) Then MsgBox("Mitarbeiter unbekannt!", MsgBoxStyle.Exclamation, "Fehler bei Anmeldung") txtSachbear.Focus() Exit Sub End If If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "" Then VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "???" If txtKennwort.Text <> cGlobal.AktiverMitarbeiter.KW Then MsgBox("Ungültiges Kennwort!", MsgBoxStyle.Exclamation, "Fehler bei Anmeldung") txtKennwort.Text = "" txtKennwort.Focus() Exit Sub End If ''jetzt noch Optionen laden 'Dim OptionenDAL As New cOptionenDAL 'cGlobal.Optionen = OptionenDAL.LesenOptionen() 'If IsNothing(cGlobal.Optionen) Then ' MsgBox("Fehler beim Laden der Optionen. Das Zeit-Programm kann nicht gestartet werden.", vbCritical) ' Me.Close() 'End If 'Hauptfenster starten, sobald Logon erfolgreich cGlobal.AngemeldeterUser = txtSachbear.Text.Trim cGlobal.AngemeldeterUserPwd = txtKennwort.Text.Trim AnmeldungOK = True 'Anmeldefenster schließen ' Me.Close() Me.Hide() End Sub Private Sub loginOK() 'Prüfen, ob Passwort erneuert werden muss If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_PasswortChanged Is Nothing Then Dim f As New frmChangePWD(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER) f.txtPwdOld.Text = txtKennwort.Text f.txtPwdNew1.Focus() If f.ShowDialog() <> DialogResult.OK Then Exit Sub End If End If VERAG_PROG_ALLGEMEIN.cAllgemein.PROGNAME = "AVISO" VERAG_PROG_ALLGEMEIN.cAllgemein.PROGVERSION = Application.ProductVersion 'My.Resources.Version2 VERAG_PROG_ALLGEMEIN.cAllgemein.SESSION.LOGIN() frmHauptfenster.Show() frmHauptfenster.Visible = True frmHauptfenster.WindowState = FormWindowState.Maximized cGlobal.AktiverMitarbeiter = ADMIN.cMitarbeiterAVISO 'Me.Close() Me.Hide() cGlobal.AngemeldeterUser = cGlobal.AktiverMitarbeiter.Mitarbeiter AnmeldungOK = True 'Secret Anmeldefenster If SECRET Then Dim frm As New frmSecretAviso frm.Show() End If End Sub Private Sub AdminLoginOK() Dim cMitarbeiter As New cMitarbeiterAVISO cMitarbeiter.MitarbeiterID = 0 ' VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "SUB" cMitarbeiter.Mitarbeiter = "PROGRAMM_ADMIN" cMitarbeiter.Mitarbeitername = "Programm_administrator" cMitarbeiter.KW = My.Resources.ADMIN_pwd 'cMitarbeiter.Sicherheitsstufe = 0 cMitarbeiter.Info = "" cGlobal.AktiverMitarbeiter = cMitarbeiter 'Me.Close() Me.Hide() cGlobal.AngemeldeterUser = cGlobal.AktiverMitarbeiter.Mitarbeiter AnmeldungOK = True End Sub Private Sub btnAbbruch_Click(sender As System.Object, e As System.EventArgs) Me.Close() Application.Exit() End Sub Private Sub frmAnmeldung_Shown(sender As Object, e As EventArgs) Handles Me.Shown ' UPDATEUpdater If cProgramFunctions.updateUpdater() Then MsgBox("Der Aviso-Updater wurde aktualisiert. Es muss ein Update durchgeführt werden.") UpdateAVISO() End If Dim cUpdateUpdater As New cUpdateUpdater If cUpdateUpdater.UpdateUpdater() = False Then MsgBox("Probleme mit dem Updater") End If 'auf UPDATES prüfen: Dim DB As New cADMIN ' If CInt(DB.getAktuelleVersion().Replace(".", "")) > CInt(My.Resources.Version2.Replace(".", "")) Then If CInt(DB.getAktuelleVersion().Replace(".", "")) > CInt(Application.ProductVersion.Replace(".", "")) Then Me.Enabled = False If vbYes = MsgBox("Es ist eine neue Programm-Version verfügbar. Das Programm muss aktualisiert werden, bevor Sie es weiter verwenden können. " & vbNewLine & vbNewLine & "Update jetzt durchführen?", CType(vbQuestion + vbYesNo, MsgBoxStyle), "Update verfügbar") Then UpdateAVISO() Else Application.Exit() 'frmMain.Dispose() 'frmHauptfenster.Dispose() End If End If txtSachbear.Focus() If Environment.MachineName = "YLPS023046" Then txtSachbear.Text = "ADMIN" txtKennwort.Text = "verag#2" ' If MsgBox("AUTO-LOGIN?", vbYesNoCancel) = vbYes Then btnOK.PerformClick() End If If Environment.MachineName = "H6CCWP3" Then txtSachbear.Text = "daniel" txtKennwort.Text = "debug" 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 Private Sub lblVersion_OnClick(sender As Object, e As MouseEventArgs) Handles lblVersion.MouseClick ctxUpdate.Show(lblVersion, e.Location) End Sub Private Sub UpdateToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UpdateToolStripMenuItem.Click UpdateAVISO() End Sub Public Sub UpdateAVISO(Optional full As Boolean = False) 'Zuerst den Updater Prüfen: cProgramFunctions.updateUpdater() If Not System.IO.File.Exists(AppDomain.CurrentDomain.BaseDirectory & "AVISOUPDATER.exe") Then MsgBox("ERROR_UPDATE: Update konnte nicht fortgesetzt werden." & vbNewLine & vbNewLine & "Update-Datei existiert nicht.", vbCritical) Else Application.Exit() ' Process.Start("AVISOUPDATER.exe" & If(full, " full", "")) Dim startInfo = New ProcessStartInfo("AVISOUPDATER.exe") If full Then startInfo.Arguments = "full" Process.Start(startInfo) End If End Sub ' Private WithEvents T As New Timers.Timer With {.Interval = 500, .Enabled = True, .AutoReset = True} Private FormCount As Integer = 1 Private Sub SomeForm_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) If e.KeyData = Keys.PrintScreen Then Dim TheForm = DirectCast(DirectCast(sender, Control).TopLevelControl, Form) If Not TheForm Is Nothing Then Dim c As New cProgramFunctions c.screenshot() End If End If End Sub Private Sub HookControls(ByVal f As Control) For Each Control As Control In f.Controls AddHandler Control.KeyUp, AddressOf SomeForm_KeyUp If Control.Controls.Count <> 0 Then HookControls(Control) End If Next End Sub Dim lastCheckedForm As String = "" Private Sub T_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) 'Handles T.Elapsed If False Then Try Dim F2 As Form = My.Application.OpenForms.Item(My.Application.OpenForms.Count - 1) Dim app = F2.GetType.Module.Name.Replace(".exe", "") ' MsgBox(lastCheckedForm & " _ " & app & F2.Name) ' If lastCheckedForm <> (app & F2.Name) Then 'MsgBox("W1") ' MsgBox(app & F2.Name) Dim ber As Integer = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG(app, F2.Name) 'MsgBox(ber) If ber >= 99 Then MsgBox("Zugriff verweigert. Sie haben keine Berechtigung. " & vbNewLine & F2.Name) F2.Close() F2.Dispose() End If lastCheckedForm = app & F2.Name 'End If ' AddHandler My.Application. Catch ex As Exception ' MsgBox(ex.Message) End Try Exit Sub End If If FormCount = 0 Then FormCount = 1 Dim FormOpened As Integer = My.Application.OpenForms.Count If FormCount <> FormOpened Then If FormOpened > FormCount Then For x As Integer = 1 To (FormOpened - FormCount) Dim F As Form = My.Application.OpenForms.Item(FormOpened - x) AddHandler F.KeyDown, AddressOf SomeForm_KeyUp HookControls(F) FormCount = My.Application.OpenForms.Count Next Else FormCount = My.Application.OpenForms.Count End If End If End Sub Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click Me.Hide() Application.Exit() End Sub Private Sub VERAGToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VERAGToolStripMenuItem.Click If firma <> "WARENORT" Then firma = "VERAG" initstart() End Sub Private Sub ATILLAToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATILLAToolStripMenuItem.Click If firma <> "WARENORT" Then firma = "ATILLA" initstart() End Sub Private Sub PRODUKTIVToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PRODUKTIVToolStripMenuItem.Click 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 If firma <> "WARENORT" Then TESTSYSTEM = True Else MsgBox("Nicht verfügbar!") initstart() End Sub Private Sub FlatButton2_MouseClick(sender As Object, e As MouseEventArgs) Handles FlatButton2.MouseClick ContextMenuStrip2.Show(lblVersion, e.Location) End Sub Private Sub UpdateToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles UpdateToolStripMenuItem1.Click UpdateAVISO(True) End Sub Private Sub IMEXToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IMEXToolStripMenuItem.Click If firma <> "WARENORT" Then firma = "IMEX" initstart() End Sub 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 If firma <> "WARENORT" Then firma = "FRONTOFFICE" initstart() End Sub Private Sub UNISPEDToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UNISPEDToolStripMenuItem.Click If firma <> "WARENORT" Then firma = "UNISPED" initstart() End Sub Private Sub AMBARToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AMBARToolStripMenuItem.Click If firma <> "WARENORT" Then firma = "AMBAR" initstart() End Sub Private Sub VERIMEXToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VERIMEXToolStripMenuItem.Click 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