AuditFlow, OpenSnd_SendToAviso
This commit is contained in:
@@ -1,11 +1,13 @@
|
||||
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()
|
||||
|
||||
@@ -52,22 +54,26 @@ Public Class frmAuditFlow_Pruefungen
|
||||
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
|
||||
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
|
||||
@@ -75,20 +81,36 @@ Public Class frmAuditFlow_Pruefungen
|
||||
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
|
||||
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)
|
||||
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 " &
|
||||
@@ -101,31 +123,47 @@ Public Class frmAuditFlow_Pruefungen
|
||||
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
|
||||
|
||||
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
|
||||
Reference in New Issue
Block a user