DHF Artikel API; AuditFlow

VERAG_PROG_ALLGEMEIN/AuditFlow/frmAuditFlow_Pruefungen.vb

@@ -0,0 +1,131 @@
+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