59 lines
2.4 KiB
VB.net
59 lines
2.4 KiB
VB.net
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 |