Imports com.sun.org.apache.xml.internal.security.keys.content

Public Class frmAuditFlow_Pruefungsojekt

    Dim AF_PO As cAuditFlow_Pruefobjekte


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        getValues()
    End Sub

    Function checkValues() As Boolean
        If cboFirma._value = "" Then MsgBox("Firma angeben!") : Return False
        If cboNL._value = "" Then MsgBox("Niederlassung angeben!") : Return False
        If cboStandort._value = "" Then MsgBox("Standort angeben!") : Return False
        If cboKategorie._value = "" Then MsgBox("Kategorie angeben!") : Return False
        If cboIntervall._value = "" Then MsgBox("Intervall angeben!") : Return False
        If txtIntervallWert.Text = "" Then MsgBox("Intervall-Wert angeben!") : Return False
        If datVon._value = "" Then MsgBox("Startdatum angeben!") : Return False
        If txtBezeichnung.Text = "" Then MsgBox("Bezeichnung angeben!") : Return False
        If txtMailErinnerung_SendenAnIntZust.Text = "" Then MsgBox("Email angeben!") : Return False
        Return True
    End Function
    Sub getValues()
        AF_PO.wartPO_Firma = cboFirma._value
        AF_PO.wartPO_Niederlasung = cboNL._value
        AF_PO.wartPO_Standort = cboStandort._value
        AF_PO.wartPO_Kategorie = cboKategorie._value

        AF_PO.wartPO_Bezeichnung = txtBezeichnung.Text
        AF_PO.wartPO_Kennung = txtKennung.Text
        AF_PO.wartPO_Kennung = cboKategorie._value
        AF_PO.wartPO_MailErinnerung_SendenAnIntZust = txtMailErinnerung_SendenAnIntZust.Text


    End Sub

    Sub setValues()

    End Sub

    Private Sub frmAuditFlow_Pruefungsojekt_Load(sender As Object, e As EventArgs) Handles Me.Load

        cboIntervall.Items.Clear()
        cboIntervall.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
        cboIntervall.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("*EINMALIG", "EINMALIG"))
        cboIntervall.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TAGE", "TAGE"))
        cboIntervall.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WOCHEN", "WOCHEN"))
        cboIntervall.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MONATE", "MONATE"))
        cboIntervall.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("JAHRE", "JAHRE"))
        cboIntervall.SelectedItem = 0


    End Sub
End Class