Imports System.Windows.Forms
Imports com.sun.org.apache.xml.internal.security.keys.content
Imports javax.xml.bind.annotation

Public Class frmAuditFlow_Pruefungen

    Dim AF_PO As cAuditFlow_Pruefobjekte = Nothing
    Dim AF_PRUEF As cAuditFlow_Pruefungen = Nothing

    Sub New()

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub

    Sub New(wartPO_Id, wartPruef_Id)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
        AF_PO = New cAuditFlow_Pruefobjekte(wartPO_Id)
        AF_PRUEF = New cAuditFlow_Pruefungen(wartPruef_Id)
    End Sub




    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Try
            Me.Cursor = Cursors.WaitCursor
            If checkValues() Then

                getValues()
                If AF_PRUEF.SAVE Then
                    Me.Close()
                End If
            End If

        Catch ex As Exception

        End Try
        Me.Cursor = Cursors.Default
    End Sub

    Function checkValues() As Boolean
        ' If xxxx._value = "" Then MsgBox("Firma angeben!") : Return False

        Return True
    End Function
    Sub getValues()
        AF_PO.wartPO_Firma = cboFirma._value
        AF_PO.wartPO_Niederlasung = cboNL._value
        AF_PO.wartPO_StandortId = cboStandort._value
        AF_PO.wartPO_Kategorie = cboKategorie._value

        AF_PO.wartPO_Bezeichnung = txtBezeichnung.Text
        AF_PO.wartPO_Kennung = txtKennung.Text
        AF_PO.wartPO_zustaendigIntern_MaId = cboMA._value
        AF_PO.wartPO_zustaendigIntern_Name = cboMA.Text

        '    AF_PO.wartPO_startdatum = datVon._value

        AF_PRUEF.wartPruef_Faelligkeitsdatum = datVon._value





    End Sub

    Sub setValues()

        datVon._value = AF_PRUEF.wartPruef_Faelligkeitsdatum

    End Sub

    Private Sub frmAuditFlow_Pruefungsojekt_Load(sender As Object, e As EventArgs) Handles Me.Load
        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

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


        cboMA.fillWithSQL("SELECT [mit_id],[mit_vname] + ' '+ [mit_nname] as Name " &
                                       " FROM [ADMIN].[dbo].[tblMitarbeiter] WHERE [mit_gekuendigt]=0   order by name", False, "ADMIN", True)


        If AF_PRUEF Is Nothing Then
            AF_PRUEF = New cAuditFlow_Pruefungen(-1)
        Else
            setValues()
        End If

    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

    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



    Private Sub frmAuditFlow_Pruefungsojekt_Shown(sender As Object, e As EventArgs) Handles Me.Shown

    End Sub

End Class