SDL/VERAG_PROG_ALLGEMEIN/AuditFlow/frmAuditFlow_Pruefungen.vb

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

Public Class frmAuditFlow_Pruefungen

    Dim AF_PO As cAuditFlow_Pruefobjekte = Nothing
    Dim AF_PRUEF As cAuditFlow_Pruefungen = Nothing
    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL

    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_startdatum = datVon._value

        AF_PRUEF.wartPruef_Faelligkeitsdatum = datVon._value
        AF_PRUEF.wartPruef_Erledigung_Bemerkung = rtbErledigtBemerkung.Text

        AF_PRUEF.wartPruef_Erledigung = cbxErledigt.Checked
        If AF_PRUEF.wartPruef_Erledigung Then
            If ErledigtMAId > 0 Then AF_PRUEF.wartPruef_Erledigung_BestaetigtMaId = ErledigtMAId
            If ErledigtMA <> "" Then AF_PRUEF.wartPruef_Erledigung_BestaetigtMaName = ErledigtMA
            If ErledigtTstmp IsNot Nothing Then AF_PRUEF.wartPruef_Erledigung_Datum = CDate(ErledigtTstmp)
        Else
            AF_PRUEF.wartPruef_Erledigung_BestaetigtMaId = Nothing
            AF_PRUEF.wartPruef_Erledigung_BestaetigtMaName = Nothing
            AF_PRUEF.wartPruef_Erledigung_Datum = Nothing
        End If

        AF_PRUEF.wartPruef_Anhaenge_daId = UsrcntlPDFScanList1.get_DA_ID()
        AF_PRUEF.wartPruef_Anhaenge_Count = UsrcntlPDFScanList1.MyListBox1.Items.Count


    End Sub

    Sub setValues()

        datVon._value = AF_PRUEF.wartPruef_Faelligkeitsdatum
        cbxErledigt.Checked = AF_PRUEF.wartPruef_Erledigung
        rtbErledigtBemerkung.Text = AF_PRUEF.wartPruef_Erledigung_Bemerkung

        lblErledigt.Text = "Erledigt von: -"
        If AF_PRUEF.wartPruef_Erledigung Then
            lblErledigt.Text = "Erledigt von: " & AF_PRUEF.wartPruef_Erledigung_BestaetigtMaName & " am " & If(AF_PRUEF.wartPruef_Erledigung_Datum IsNot Nothing, AF_PRUEF.wartPruef_Erledigung_Datum.Value.ToString("dd.MM.yyyy"), "-")
        End If


        txtFirma.Text = If(AF_PO.wartPO_Firma, "")
        txtNL.Text = If(AF_PO.wartPO_Niederlasung, "")
        txtStandort.Text = SQL.DLookup("[wartSt_Standort]", "tblAuditFlow_Standorte", "[wartSt_Id]='" & AF_PO.wartPO_StandortId & "'", "ADMIN", "")
        txtKategorie.Text = If(AF_PO.wartPO_Kategorie, "")
        cboMA.changeItem(If(AF_PO.wartPO_zustaendigIntern_MaId, ""))

        txtBezeichnung.Text = AF_PO.wartPO_Bezeichnung
        txtKennung.Text = AF_PO.wartPO_Kennung
    End Sub

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


        If AF_PRUEF IsNot Nothing Then
            If AF_PRUEF.wartPruef_Anhaenge_daId IsNot Nothing AndAlso AF_PRUEF.wartPruef_Anhaenge_daId > 0 Then
                UsrcntlPDFScanList1.INIT_daId(AF_PRUEF.wartPruef_Anhaenge_daId)
            Else
                UsrcntlPDFScanList1.INIT(-1, "AUDITFLOW_Pruefungen", AF_PRUEF.wartPruef_Id, "") ' neue DA ID
            End If

        End If


        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 frmAuditFlow_Pruefungsojekt_Shown(sender As Object, e As EventArgs) Handles Me.Shown

    End Sub

    Dim allowChangeErledigt As Boolean = False
    Dim ErledigtMAId As Integer = -1
    Dim ErledigtMA As String = ""
    Dim ErledigtTstmp As Object = Nothing
    Private Sub cbxErledigt_CheckedChanged(sender As Object, e As EventArgs) Handles cbxErledigt.CheckedChanged
        'If Not allowChangeErledigt Then
        '    If Not cbxErledigt.Checked Then
        '        ' Klick rückgängig machen ' Keine bestätigung mit klick -> Ich bestätige... - Button
        '        cbxErledigt.Checked = False
        '    End If
        'End If
        If Not cbxErledigt.Checked Then
            lblErledigt.Text = "Erledigt von: -"
            cbxErledigt.Enabled = False
        Else
            cbxErledigt.Enabled = True
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If vbYes = MsgBox("Sind Sie sicher, dass Sie die Prüfung bestätigen möchten?", vbYesNoCancel) Then
            allowChangeErledigt = True
            cbxErledigt.Checked = True
            ErledigtMAId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
            ErledigtMA = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
            ErledigtTstmp = Now


            lblErledigt.Text = "Erledigt von: " & ErledigtMA & " am " & CDate(ErledigtTstmp).ToString("dd.MM.yyyy")



            allowChangeErledigt = False
        End If
    End Sub
End Class