Imports System.Drawing
Imports System.Windows.Forms
Imports com.sun.javadoc

Public Class frmAuditFlow

    Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1)
    Dim srcTAG As Date = CDate(Now.ToShortDateString)
    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
    Dim JAHR As Date = CDate("01.01." & Now.Year)


    Private Sub frmAuditFlow_Load(sender As Object, e As EventArgs) Handles Me.Load
        txtWartungFaelligkeitAbDat._value = Now.ToShortDateString

        txtAbfertDat.Text = Now.AddMonths(-6).ToShortDateString 'CDate("01." & Now.ToString("MM.yyyy")).AddMonths(-1).ToShortDateString
        txtAbfertDatBis.Text = Now.ToShortDateString

        btnMonat.Text = MONAT.ToString("MMMM")
        btnJahr.Text = JAHR.Year

        cboKategorie.Items.Clear()
        cboKategorie.fillWithSQL("SELECT wartK_Kategorie,[wartK_KategorieBezeichnung]  FROM [tblAuditFlow_Kategorien] order by wartK_KategorieBezeichnung", False, "ADMIN", True)


        cboNL.Items.Clear()
        cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
        cboNL.SelectedItem = 0

        cboStandort.Items.Clear()
        cboStandort.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
        cboStandort.SelectedItem = 0


        cboFirma.Items.Clear()
        cboFirma.fillWithSQL("SELECT distinct(Firma)  FROM  [Filialen] order by Firma", False, "FMZOLL", True)
        cboFirma.changeItem(cAllgemein.FIRMA)


        '        cboSachbearbeiter.fillWithSQL("SELECT [mit_id],[mit_vname] + ' '+ [mit_nname] as Name " &
        '                                      " FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE mit_niederlassung IN ('SUB','Suben')  AND mit_abteilung='ZOLL' AND [mit_gekuendigt]=0   order by name", False, "ADMIN", True)

    End Sub


    Private Sub MyComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboStandort.SelectedIndexChanged, cboKategorie.SelectedIndexChanged
        loadDGVPuefungsobjekte()
    End Sub

    Private Sub cboFirma_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedIndexChanged
        cboNL.Items.Clear()
        cboNL.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
        If cboFirma._value <> "" Then
            cboNL.fillWithSQL("SELECT  nl_kuerzel,nl_bezeichnung  FROM [tblNiederlassungen] where [nl_firma]='" & cboFirma._value & "' order by nl_bezeichnung", False, "ADMIN", False)
        End If

        loadDGVPuefungsobjekte()
    End Sub

    Private Sub cboNL_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboNL.SelectedIndexChanged
        cboStandort.Items.Clear()
        cboStandort.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))

        If cboFirma._value <> "" AndAlso cboNL._value <> "" Then
            cboStandort.fillWithSQL("SELECT [wartSt_Id],[wartSt_Standort]  FROM [tblAuditFlow_Standorte]  where [wartSt_Aktiv]=1 and [wartSt_Firma]='" & cboFirma._value & "' AND [wartSt_Niederlasung]='" & cboNL._value & "' order by wartSt_Standort", False, "ADMIN", True)
        End If

    End Sub

    '-------------------------------------------------------------------
    '----DGVPuefungsobjekte---------------------------------------------
    '-------------------------------------------------------------------

    Sub loadDGVPuefungsobjekte()
        Try

            Me.Cursor = Cursors.WaitCursor

            Dim TopMax = If(IsNumeric(MyTextBox2.Text), " TOP " & MyTextBox2.Text, "")
            Dim sqlstr As String = ""

            '  MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL)
            sqlstr &= " SELECT " & TopMax & " [wartPO_Id],[wartPO_Bezeichnung],[wartPO_Kennung],[wartPO_Firma],[wartPO_Niederlasung],wartSt_Standort as wartPO_Standort,[wartPO_Kategorie],
                            [wartPO_IntervallTyp],[wartPO_IntervallWert],[wartPO_Erinnerung_VorlaufInTagen] ,[wartPO_zustaendigIntern_Name],[wartPO_Aktiv] 
                        FROM [tblAuditFlow_Pruefobjekte] INNER JOIN tblAuditFlow_Standorte ON wartPO_StandortId=wartSt_Id WHERE 1=1 "

            With dgvPruefungsobjekte
                '  .DataSource = myTable
                '  MsgBox(sqlstr & getWherePruefungsobjekte() & "  order by wartPO_Firma ,wartPO_Niederlasung, wartPO_StandortId")
                .SET_SQL(sqlstr & getWherePruefungsobjekte() & "  order by wartPO_Firma ,wartPO_Niederlasung, wartSt_Standort ", "ADMIN", getListPruefungsobjekte)
                .LOAD()
                setDGVOptionsPruefungsobjekte()
            End With
            showDGVPruefungsobjekte()

        Catch ex As Exception
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, "")
        End Try
        Me.Cursor = Cursors.Default
    End Sub
    Sub showDGVPruefungsobjekte()

        With dgvPruefungsobjekte

            If .ColumnCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub
            .RowHeadersVisible = False
            .ReadOnly = True
            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
            .MultiSelect = False

            .Columns("wartPO_Id").Visible = False


            .Columns("wartPO_Bezeichnung").MinimumWidth = 100
            .Columns("wartPO_Bezeichnung").HeaderText = "Bezeichnung"
            .Columns("wartPO_Bezeichnung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill

            .Columns("wartPO_Kennung").Width = 60
            .Columns("wartPO_Kennung").HeaderText = "(Kennung)"

            .Columns("wartPO_Kategorie").Width = 100
            .Columns("wartPO_Kategorie").HeaderText = "Kategorie"

            .Columns("wartPO_Firma").Width = 80
            .Columns("wartPO_Firma").HeaderText = "Firma"

            .Columns("wartPO_Niederlasung").Width = 50
            .Columns("wartPO_Niederlasung").HeaderText = "NL"

            .Columns("wartPO_Standort").Width = 100
            .Columns("wartPO_Standort").HeaderText = "Standort"
            .Columns("wartPO_IntervallTyp").Width = 100
            .Columns("wartPO_IntervallTyp").HeaderText = "Intervall"

            .Columns("wartPO_IntervallWert").Width = 60
            .Columns("wartPO_IntervallWert").HeaderText = "Int.-Wert"

            .Columns("wartPO_Erinnerung_VorlaufInTagen").Width = 60
            .Columns("wartPO_Erinnerung_VorlaufInTagen").HeaderText = "Vorl.Tage"

            .Columns("wartPO_zustaendigIntern_Name").Width = 120
            .Columns("wartPO_zustaendigIntern_Name").HeaderText = "Mitarbeiter"

            .Columns("wartPO_Aktiv").Width = 50
            .Columns("wartPO_Aktiv").HeaderText = "Aktiv"



            '  lblErgebnis.Text = "Ergebnise: " & .RowCount
        End With
    End Sub
    Function getWherePruefungsobjekte() As String
        Dim sqlstr = ""


        If cboFirma._value <> "" Then sqlstr &= " AND wartPO_Firma LIKE @wartPO_Firma  "
        If cboNL._value <> "" Then sqlstr &= " AND wartPO_Niederlasung LIKE @wartPO_Niederlasung  "
        If cboStandort._value <> "" Then sqlstr &= " AND wartPO_StandortId LIKE @wartPO_StandortId  "
        If cboKategorie._value <> "" Then sqlstr &= " AND wartPO_Kategorie LIKE @wartPO_Kategorie  "


        Return sqlstr
    End Function
    Function getListPruefungsobjekte() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)

        Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)

        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wartPO_Firma", cboFirma._value))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wartPO_Niederlasung", cboNL._value))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wartPO_StandortId", cboStandort._value))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wartPO_Kategorie", cboKategorie._value))


        Return list

    End Function


    Sub setDGVOptionsPruefungsobjekte()
        Try
            Exit Sub
            'With dgvPruefungsobjekte
            '    For Each r As DataGridViewRow In .Rows
            '        If r.Cells("sdlAb_Storniert").Value IsNot DBNull.Value AndAlso r.Cells("sdlAb_Storniert").Value Then
            '            r.DefaultCellStyle.ForeColor = Color.Red
            '            r.DefaultCellStyle.SelectionForeColor = Color.Red
            '            '    r.DefaultCellStyle.SelectionBackColor = Color.White
            '        ElseIf r.Cells("sdlAb_Abgeholt").Value IsNot DBNull.Value AndAlso r.Cells("sdlAb_Abgeholt").Value Then
            '            r.DefaultCellStyle.ForeColor = Color.DarkGreen
            '            r.DefaultCellStyle.SelectionForeColor = Color.DarkGreen
            '            '  r.DefaultCellStyle.SelectionBackColor = Color.White
            '        End If
            '    Next
            'End With
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub dgvPruefungsobjekte_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvPruefungsobjekte.CellDoubleClick
        ' Falls Kopfzeile doppelt geklickt wird -> ignorieren
        If e.RowIndex < 0 Then Exit Sub

        ' ID der ausgewählten Zeile holen (Spalte "wartPO_Id")
        Dim wartPO_Id As Integer = CInt(dgvPruefungsobjekte.Rows(e.RowIndex).Cells("wartPO_Id").Value)

        ' Hier deine Funktion oder Logik aufrufen
        ' Beispiel:
        Dim f As New frmAuditFlow_Pruefungsojekt(wartPO_Id)
        f.ShowDialog(Me)
        dgvPruefungsobjekte.RELOAD()
        setDGVOptionsPruefungsobjekte()
    End Sub

    '-------------------------------------------------------------------



    '-------------------------------------------------------------------
    '-----DGVPrüfungen--------------------------------------------------
    '-------------------------------------------------------------------


    Function getWherePruefungen() As String
        Dim sqlstr = ""

        If txtAbfertDat.Text <> "" Then
            If txtAbfertDatBis.Text <> "" Then
                sqlstr &= " AND ([sms_Datum] BETWEEN @DatVon AND @DatBis ) "
            Else
                sqlstr &= " AND ([sms_Datum] BETWEEN @DatVon AND @DatVon ) "
            End If
        End If


        Return sqlstr
    End Function

    '-------------------------------------------------------------------


    Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click

        loadDGVPuefungen()
    End Sub

    Sub loadDGVPuefungen()

        Try
            With dgvPruefungen

                .Rows.Clear()
                If .SelectedRows.Count = 0 Then
                    Exit Sub
                End If

                Dim wartPO_Id As Integer = CInt(dgvPruefungsobjekte.SelectedRows(0).Cells("wartPO_Id").Value)

                Me.Cursor = Cursors.WaitCursor

                Dim TopMax = If(IsNumeric(MyTextBox2.Text), " TOP " & MyTextBox2.Text, "")
                Dim sqlstr As String = ""

                '  MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL)
                sqlstr &= "SELECT TOP (1000) [wartPruef_Id] ,[wartPruef_Faelligkeitsdatum],[wartPruef_Erledigung],[wartPruef_Erledigung_Datum],[wartPruef_Erledigung_BestaetigtMaId],[wartPruef_Erledigung_BestaetigtMaName]
                          ,[wartPruef_Erledigung_Bemerkung],[wartPruef_Anhaenge_daId],[wartPruef_Bemerkung],[wartPruef_MailErinnerung_Gesendet] ,[wartPruef_MailErinnerung_GesendetAn],[wartPruef_MailErinnerung_GesendetAm]
                      FROM [tblAuditFlow_Pruefungen] WHERE [wartPruef_wartPOId]='" & wartPO_Id & "' WHERE 1=1 "


                '  .DataSource = myTable
                '  MsgBox(sqlstr & getWherePruefungsobjekte() & "  order by wartPO_Firma ,wartPO_Niederlasung, wartPO_StandortId")
                .SET_SQL(sqlstr & getWherePruefungen() & "  order by wartPO_Firma ,wartPO_Niederlasung, wartSt_Standort ", "ADMIN", getListPruefungsobjekte)
                .LOAD()
                setDGVOptionsPruefungen()
            End With
            showDGVPruefungen()

        Catch ex As Exception
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, "")
        End Try
        Me.Cursor = Cursors.Default
    End Sub
    Sub showDGVPruefungen()

        With dgvPruefungen

            If .ColumnCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub
            .RowHeadersVisible = False
            .ReadOnly = True
            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
            .MultiSelect = False

            .Columns("wartPruef_Id").Visible = False


            .Columns("wartPruef_Faelligkeitsdatum").MinimumWidth = 100
            .Columns("wartPruef_Faelligkeitsdatum").HeaderText = "Fälligkeitsdatum"
            .Columns("wartPruef_Faelligkeitsdatum").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill

            .Columns("wartPruef_Erledigung").Width = 60
            .Columns("wartPruef_Erledigung").HeaderText = "Erledigung"

            .Columns("wartPO_Kategorie").Width = 100
            .Columns("wartPO_Kategorie").HeaderText = "Kategorie"

            .Columns("wartPO_Firma").Width = 80
            .Columns("wartPO_Firma").HeaderText = "Firma"

            .Columns("wartPO_Niederlasung").Width = 50
            .Columns("wartPO_Niederlasung").HeaderText = "NL"

            .Columns("wartPO_Standort").Width = 100
            .Columns("wartPO_Standort").HeaderText = "Standort"
            .Columns("wartPO_IntervallTyp").Width = 100
            .Columns("wartPO_IntervallTyp").HeaderText = "Intervall"

            .Columns("wartPO_IntervallWert").Width = 60
            .Columns("wartPO_IntervallWert").HeaderText = "Int.-Wert"

            .Columns("wartPO_Erinnerung_VorlaufInTagen").Width = 60
            .Columns("wartPO_Erinnerung_VorlaufInTagen").HeaderText = "Vorl.Tage"

            .Columns("wartPO_zustaendigIntern_Name").Width = 120
            .Columns("wartPO_zustaendigIntern_Name").HeaderText = "Mitarbeiter"

            .Columns("wartPO_Aktiv").Width = 50
            .Columns("wartPO_Aktiv").HeaderText = "Aktiv"



            '  lblErgebnis.Text = "Ergebnise: " & .RowCount
        End With
    End Sub

    Sub setDGVOptionsPruefungen()
        Try
            Exit Sub
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        srcTAG = srcTAG.AddDays(-1)
        initBtns("Tag")
    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        srcTAG = srcTAG.AddDays(1)
        initBtns("Tag")
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        initBtns("Tag")
    End Sub

    Private Sub btnMonat_Click(sender As Object, e As EventArgs) Handles btnMonat.Click
        initBtns("Monat")
    End Sub


    Private Sub btnJahr_Click(sender As Object, e As EventArgs) Handles btnJahr.Click
        initBtns("Jahr")
    End Sub

    Private Sub btnBisMonat_Click(sender As Object, e As EventArgs) Handles btnBisMonat.Click
        MONAT = MONAT.AddMonths(1)
        initBtns("Monat")
    End Sub

    Private Sub btnVonMonat_Click(sender As Object, e As EventArgs) Handles btnVonMonat.Click
        MONAT = MONAT.AddMonths(-1)
        initBtns("Monat")
    End Sub

    Private Sub btnBisJahr_Click(sender As Object, e As EventArgs) Handles btnBisJahr.Click
        JAHR = JAHR.AddYears(1)
        initBtns("Jahr")
    End Sub

    Private Sub btnVonJahr_Click(sender As Object, e As EventArgs) Handles btnVonJahr.Click
        JAHR = JAHR.AddYears(-1)
        initBtns("Jahr")
    End Sub '

    Sub initBtns(MonatJahr)
        btnMonat.Text = MONAT.ToString("MMMM")
        btnJahr.Text = JAHR.Year
        Select Case MonatJahr
            Case "Monat"
                DateTimePicker1.Value = MONAT
                DateTimePicker2.Value = MONAT.AddMonths(1).AddDays(-1)
            Case "Jahr"
                '  If cbxGeschaftsjahr.Checked Then
                'DateTimePicker1.Value = JAHR.AddMonths(1)
                ' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1)
                ' Else
                DateTimePicker1.Value = JAHR
                DateTimePicker2.Value = JAHR.AddYears(1).AddDays(-1)
                'End If
            Case "Tag"
                '  If cbxGeschaftsjahr.Checked Then
                'DateTimePicker1.Value = JAHR.AddMonths(1)
                ' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1)
                ' Else
                DateTimePicker1.Value = srcTAG
                DateTimePicker2.Value = srcTAG
                If srcTAG = Now.ToShortDateString Then
                    Button5.Text = "Heute"
                ElseIf srcTAG = Now.AddDays(-1).ToShortDateString Then
                    Button5.Text = "Gestern"
                ElseIf srcTAG = Now.AddDays(-2).ToShortDateString Then
                    Button5.Text = "Vorgestern"
                Else
                    Button5.Text = srcTAG.ToString("dd.MM")
                End If

                'End If
            Case ""
                DateTimePicker1.Value = ("01." & Now.Month & "." & Now.Year)
                DateTimePicker2.Value = Now
        End Select
        btnSuche.PerformClick()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim f As New frmAuditFlow_Pruefungsojekt()
        f.ShowDialog(Me)
        dgvPruefungsobjekte.RELOAD()
        setDGVOptionsPruefungsobjekte()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If txtWartungFaelligkeitAbDat._value <> "" Then
            cAuditFlow.ErzeugeFaelligePruefungen(txtWartungFaelligkeitAbDat._value)
        End If
        dgvPruefungsobjekte.RELOAD()
        setDGVOptionsPruefungsobjekte()

        loadDGVPuefungen()
    End Sub
End Class