DISPO/UID/frmLogin.vb

Imports System.IO
Imports SDL
Imports System.Net.Sockets
Imports VERAG_PROG_ALLGEMEIN

Public Class frmLogin
    Public ConnStrInfo As String
    Public ConnStr As String
    '  Public USRNAME As String
    ' Public USRBER As Integer

    Private UID As New cOptionenDAL
    Private SDL As New SDL.cOptionenDAL
    Private ADMIN As New cADMIN


    Private Version As String = Application.ProductVersion
    Public sAppPath As String = Application.StartupPath
    Public firma As String = "VERAG"

    Public TESTSYSTEM As Boolean = False


    Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click
        If CBool(ADMIN.checkLogin(txtUser.Text, txtPwd.Text, firma,,, "DISPO")) Then
            loginOK()
        Else
            '  MsgBox("Benutzername oder Kennwort ist falsch!", MsgBoxStyle.Exclamation, "Fehler bei Anmeldung")
            lblAlertTxt.Visible = True
        End If

        'If SDL.checkLogin(txtUser.Text, txtPwd.Text, "DISPO") Then
        '    VERAG_PROG_ALLGEMEIN.cAllgemein.PROGNAME = "DISPO"
        '    VERAG_PROG_ALLGEMEIN.cAllgemein.PROGVERSION = My.Resources.Version
        '    VERAG_PROG_ALLGEMEIN.cAllgemein.SESSION.LOGIN()


        '    AddHandler frmMain.FormClosed, Sub()
        '                                       VERAG_PROG_ALLGEMEIN.cAllgemein.SESSION.LOGOUT()
        '                                       Me.Close()
        '                                   End Sub
        '    'frmMain.Show()
        '    frmMainV2.Show()
        '    Me.Hide()
        'Else
        '    lblAlertTxt.Visible = True
        'End If
    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
        '      MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)

        '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 = txtpwd.Text
            f.txtPwdNew1.Focus()
            If f.ShowDialog() <> DialogResult.OK Then
                Exit Sub
            End If
        End If
        VERAG_PROG_ALLGEMEIN.cAllgemein.PROGNAME = "DISPO"
        VERAG_PROG_ALLGEMEIN.cAllgemein.PROGVERSION = Application.ProductVersion

        VERAG_PROG_ALLGEMEIN.cAllgemein.SESSION.LOGIN()


        'AddHandler frmMain.FormClosed, Sub()
        '                                   VERAG_PROG_ALLGEMEIN.cAllgemein.SESSION.LOGOUT()
        '                                   Me.Close()
        '                               End Sub
        'frmMain.Show()
        frmMainV2.Show()


        Me.Hide()
        cGlobal.AngemeldeterUser = cGlobal.AktiverMitarbeiter.Mitarbeiter



    End Sub
    Private Sub frmLogin_Load(sender As Object, e As EventArgs) Handles Me.Load
        'If sAppPath Like "*\bin\Debug" Then
        '    txtUser.Text = "sebastian"
        '    txtPwd.Text = "verag#3"
        'End If

        Dim pfadDatei As String = Application.StartupPath & "\Standort.txt"
        firma = "VERAG"
        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 = "AMBAR" Then firma = "AMBAR"
            If firma = "NEU" Then firma = "VERAG"
            strmReader.Close()
        End If



        initstart()


        If TESTSYSTEM Then lblTestsystem.Visible = True
        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = TESTSYSTEM
        'Dim tmp As String
        lblVersion.Text = lblVersion.Text & " " & Application.ProductVersion

        Me.Show()
        txtUser.Focus()
        lblAlertTxt.Visible = False
        'auf UPDATES prüfen:
        If CInt(UID.getAktuelleVersion().Replace(".", "")) > CInt(Version.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
                UpdateDISPO()
            Else
                Application.Exit()
            End If
        Else
        End If
    End Sub

    Private Sub txtPwd_KeyDown(sender As Object, e As KeyEventArgs) Handles txtPwd.KeyDown, txtUser.KeyDown
        If (e.KeyCode = Keys.Return) Then
            btnLogin.PerformClick() : e.SuppressKeyPress = True
        ElseIf (e.KeyCode = Keys.Escape) Then
            Me.Close()
        End If
    End Sub
    Public Sub UpdateDISPO()
        If Not System.IO.File.Exists(AppDomain.CurrentDomain.BaseDirectory & "DISPOUpdater.exe") Then
            MsgBox("ERROR_UPDATE: Update konnte nicht fortgesetzt werden." & vbNewLine & vbNewLine & "Update-Datei existiert nicht.", vbCritical)
            Application.Exit()
        Else
            Process.Start("DISPOUpdater.exe")
            Application.Exit()
        End If
    End Sub

    Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
        Me.Close()
    End Sub
    Private Sub lblVersion_Click(sender As Object, e As MouseEventArgs) Handles lblVersion.MouseClick, lblVersion.Click
        ctxUpdate.Show(lblVersion, e.Location)
    End Sub

    Private Sub UpdateToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UpdateToolStripMenuItem.Click
        UpdateDISPO()
    End Sub

    Private Sub txtUser_TextChanged(sender As Object, e As EventArgs) Handles txtUser.TextChanged

    End Sub

    Private Sub frmLogin_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
        If e.Modifiers = Keys.Control And e.KeyCode = Keys.T Then
            ' MsgBox(Environment.MachineName)
            TESTSYSTEM = Not TESTSYSTEM
            initstart()
            If Environment.MachineName = "YLPS023046" Then
                txtUser.Text = "ADMIN"
                txtPwd.Text = "verag#2"
            ElseIf Environment.MachineName = "NBMIESENBECK" Then
                txtUser.Text = "sebastian"
                txtPwd.Text = "verag#3"
            End If
        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 = "AMBAR"
                Case "AMBAR" : firma = "VERAG"

            End Select

            VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firma

            ' firma = If(firma = "VERAG", "ATILLA", If(firma = "ATILLA", "IMEX", "VERAG"))
            initstart()

            e.Handled = True
        End If
    End Sub

    Sub initstart()


        '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.TESTSYSTEM = TESTSYSTEM



        Select Case firma
            Case "VERAG"
                PictureBox1.Image = My.Resources.Verag_AG_Logo

            Case "AMBAR"
                PictureBox1.Image = My.Resources.ambar_simple

        End Select

        VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firma
        ' txtSachbear.Text = ""
        'txtKennwort.Text = ""

        txtUser.Text = SystemInformation.UserName
        txtUser.Focus()


    End Sub
End Class