131 lines
4.1 KiB
VB.net
131 lines
4.1 KiB
VB.net
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 |