733 lines
32 KiB
VB.net
733 lines
32 KiB
VB.net
Imports System.IO
|
|
Imports VERAG_PROG_ALLGEMEIN
|
|
|
|
|
|
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 As Boolean = 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"
|
|
|
|
If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz")
|
|
|
|
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"
|
|
strmReader.Close()
|
|
|
|
|
|
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 SQLSTR = "
|
|
SELECT AVISOID,KDNR FROM
|
|
(
|
|
SELECT AvisoId,Auftraggeber_KdNr as KDNR FROM [Aviso] where datum >=DATEADD(DAY,-4,GETDATE()) and Firma IN ('VERAG','IMEX') and cast(datum as date)> '29.01.2024' and status NOT IN (1,2)
|
|
UNION
|
|
SELECT AvisoId,Frächter_KdNr as KDNR FROM [Aviso] where datum >=DATEADD(DAY,-4,GETDATE()) and Firma IN ('VERAG','IMEX') and cast(datum as date)> '29.01.2024' and status NOT IN (1,2)
|
|
UNION
|
|
SELECT AvisoId,tblSnd_AvisiererKdNr as KDNR FROM [Aviso] inner join tblSendungen on tblSnd_AvisoID=AvisoID where datum >=DATEADD(DAY,-4,GETDATE()) and Firma IN ('VERAG','IMEX') and cast(datum as date)> '29.01.2024' and status NOT IN (1,2)
|
|
UNION
|
|
SELECT AvisoId,tblSnd_FrachtfuehrerKdNr as KDNR FROM [Aviso] inner join tblSendungen on tblSnd_AvisoID=AvisoID where datum >=DATEADD(DAY,-4,GETDATE()) and Firma IN ('VERAG','IMEX') and cast(datum as date)> '29.01.2024' and status NOT IN (1,2)
|
|
) as T1
|
|
where KDNR is not null and kdnr >0
|
|
/*and(SELECT COUNT(*) FROM tblAvisoStatusMails where asm_AvisoId=AvisoID AND asm_KdNr=KdNr and asm_StatuscodeSent=5) =0 */
|
|
and(SELECT COUNT(*) FROM ADMIN.dbo.[tblAPI] where [api_AvisoId]=AvisoID AND [api_KundenNr]=KdNr and [api_Type]='MAIL' and api_status='1' and [api_apiArt]='1' and [api_apiUArt]='5') =0
|
|
GROUP BY AVISOID,KDNR
|
|
order by AvisoID "
|
|
|
|
'Dim dt = VERAGSQL.loadDgvBySql("SELECT [AvisoID] FROM [Aviso] where datum >=DATEADD(DAY,-4,GETDATE())
|
|
' 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")
|
|
|
|
Dim dt = VERAGSQL.loadDgvBySql(SQLSTR, "AVISO")
|
|
|
|
For Each r In dt.Rows
|
|
'MsgBox("SO: " & (r("AvisoID")))
|
|
Dim AVISO = AvisoDAL.LesenAviso(r("AvisoID"), "")
|
|
If AVISO IsNot Nothing Then
|
|
AvisoStatusFunctions.SendStatusEmailByKdNr(AVISO, r("KDNR"))
|
|
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_WIHD", "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
|
|
If li.ToUpper.StartsWith("NIEDERLASSUNG:") Then VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = (li.Replace("NIEDERLASSUNG:", "")).Trim
|
|
If li.ToUpper.StartsWith("NL:") Then VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = (li.Replace("NL:", "")).Trim
|
|
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
|
|
If li.ToUpper.StartsWith("NIEDERLASSUNG:") Then VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = (li.Replace("NIEDERLASSUNG:", "")).Trim
|
|
If li.ToUpper.StartsWith("NL:") Then VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = (li.Replace("NL:", "")).Trim
|
|
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 sich eein WO Nutzer in den Firmen-Login schmuggeln möchte:
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then
|
|
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG Then
|
|
MsgBox("Keine Berechtigung!")
|
|
Exit Sub
|
|
End If
|
|
End If
|
|
|
|
|
|
'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
|
|
|
|
'todo prüfung nicht aus nw-laufwerk starten (start wit \\)
|
|
If AppDomain.CurrentDomain.BaseDirectory.ToString.StartsWith("\\") Then
|
|
MsgBox("AVISO kann nur lokal gestartet werden." & vbNewLine & "Bei Fragen bitte an die EDV wenden.")
|
|
Exit Sub
|
|
End If
|
|
|
|
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", "FO_WIHD" : 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 |