AuditFlow, OpenSnd_SendToAviso
This commit is contained in:
@@ -93,9 +93,10 @@ Public Class cAuditFlow_Pruefobjekte
|
||||
"ELSE " &
|
||||
"BEGIN " & getInsertCmd() & " END " &
|
||||
"COMMIT TRAN "
|
||||
|
||||
' MsgBox(sqlstr)
|
||||
Return SQL.doSQLVarList(sqlstr, "ADMIN", , list)
|
||||
Catch ex As Exception
|
||||
' MsgBox(ex.Message)
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
Return False
|
||||
End Try
|
||||
|
||||
@@ -13,6 +13,7 @@ Public Class cAuditFlow_Pruefungen
|
||||
Public Property wartPruef_Erledigung_BestaetigtMaName As String
|
||||
Public Property wartPruef_Erledigung_Bemerkung As String
|
||||
Public Property wartPruef_Anhaenge_daId As Nullable(Of Integer)
|
||||
Public Property wartPruef_Anhaenge_Count As Integer
|
||||
Public Property wartPruef_Bemerkung As String
|
||||
|
||||
Public Property wartPruef_MailErinnerung_Gesendet As Boolean = False
|
||||
@@ -49,6 +50,7 @@ Public Class cAuditFlow_Pruefungen
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wartPruef_Erledigung_BestaetigtMaName", wartPruef_Erledigung_BestaetigtMaName))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wartPruef_Erledigung_Bemerkung", wartPruef_Erledigung_Bemerkung))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wartPruef_Anhaenge_daId", wartPruef_Anhaenge_daId))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wartPruef_Anhaenge_Count", wartPruef_Anhaenge_Count))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wartPruef_Bemerkung", wartPruef_Bemerkung))
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wartPruef_MailErinnerung_Gesendet", wartPruef_MailErinnerung_Gesendet))
|
||||
|
||||
140
VERAG_PROG_ALLGEMEIN/AuditFlow/frmAuditFlow.Designer.vb
generated
140
VERAG_PROG_ALLGEMEIN/AuditFlow/frmAuditFlow.Designer.vb
generated
@@ -35,6 +35,9 @@ Partial Class frmAuditFlow
|
||||
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
|
||||
Me.dgvPruefungsobjekte = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.pnloptions = New System.Windows.Forms.Panel()
|
||||
Me.lblAbDat = New System.Windows.Forms.Label()
|
||||
Me.txtWartungFaelligkeitAbDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.Label9 = New System.Windows.Forms.Label()
|
||||
Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
@@ -55,6 +58,7 @@ Partial Class frmAuditFlow
|
||||
Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.dgvPruefungen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.pnl = New System.Windows.Forms.Panel()
|
||||
Me.btnSuche = New System.Windows.Forms.Button()
|
||||
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
|
||||
Me.Label8 = New System.Windows.Forms.Label()
|
||||
Me.txtAbfertDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
@@ -72,10 +76,6 @@ Partial Class frmAuditFlow
|
||||
Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker()
|
||||
Me.Label13 = New System.Windows.Forms.Label()
|
||||
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
|
||||
Me.btnSuche = New System.Windows.Forms.Button()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.lblAbDat = New System.Windows.Forms.Label()
|
||||
Me.txtWartungFaelligkeitAbDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.cntxtOptionen.SuspendLayout()
|
||||
Me.pnlTop.SuspendLayout()
|
||||
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@@ -156,7 +156,6 @@ Partial Class frmAuditFlow
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.Panel3)
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.dgvPruefungen)
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.pnl)
|
||||
Me.SplitContainer1.Panel2.Controls.Add(Me.btnSuche)
|
||||
Me.SplitContainer1.Size = New System.Drawing.Size(1586, 636)
|
||||
Me.SplitContainer1.SplitterDistance = 960
|
||||
Me.SplitContainer1.TabIndex = 38
|
||||
@@ -199,6 +198,55 @@ Partial Class frmAuditFlow
|
||||
Me.pnloptions.Size = New System.Drawing.Size(960, 80)
|
||||
Me.pnloptions.TabIndex = 9
|
||||
'
|
||||
'lblAbDat
|
||||
'
|
||||
Me.lblAbDat.AutoSize = True
|
||||
Me.lblAbDat.Location = New System.Drawing.Point(613, 55)
|
||||
Me.lblAbDat.Name = "lblAbDat"
|
||||
Me.lblAbDat.Size = New System.Drawing.Size(56, 13)
|
||||
Me.lblAbDat.TabIndex = 142
|
||||
Me.lblAbDat.Text = "ab Datum:"
|
||||
'
|
||||
'txtWartungFaelligkeitAbDat
|
||||
'
|
||||
Me.txtWartungFaelligkeitAbDat._DateTimeOnly = False
|
||||
Me.txtWartungFaelligkeitAbDat._numbersOnly = False
|
||||
Me.txtWartungFaelligkeitAbDat._numbersOnlyKommastellen = ""
|
||||
Me.txtWartungFaelligkeitAbDat._numbersOnlyTrennzeichen = True
|
||||
Me.txtWartungFaelligkeitAbDat._Prozent = False
|
||||
Me.txtWartungFaelligkeitAbDat._ShortDateNew = True
|
||||
Me.txtWartungFaelligkeitAbDat._ShortDateOnly = False
|
||||
Me.txtWartungFaelligkeitAbDat._TimeOnly = False
|
||||
Me.txtWartungFaelligkeitAbDat._TimeOnly_Seconds = False
|
||||
Me.txtWartungFaelligkeitAbDat._value = ""
|
||||
Me.txtWartungFaelligkeitAbDat._Waehrung = False
|
||||
Me.txtWartungFaelligkeitAbDat._WaehrungZeichen = True
|
||||
Me.txtWartungFaelligkeitAbDat.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtWartungFaelligkeitAbDat.Location = New System.Drawing.Point(675, 52)
|
||||
Me.txtWartungFaelligkeitAbDat.MaxLength = 10
|
||||
Me.txtWartungFaelligkeitAbDat.MaxLineLength = -1
|
||||
Me.txtWartungFaelligkeitAbDat.MaxLines_Warning = ""
|
||||
Me.txtWartungFaelligkeitAbDat.MaxLines_Warning_Label = Nothing
|
||||
Me.txtWartungFaelligkeitAbDat.Name = "txtWartungFaelligkeitAbDat"
|
||||
Me.txtWartungFaelligkeitAbDat.Size = New System.Drawing.Size(101, 20)
|
||||
Me.txtWartungFaelligkeitAbDat.TabIndex = 143
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button1.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.zeiterfassung_s
|
||||
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button1.Location = New System.Drawing.Point(583, 7)
|
||||
Me.Button1.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0)
|
||||
Me.Button1.Size = New System.Drawing.Size(193, 45)
|
||||
Me.Button1.TabIndex = 9
|
||||
Me.Button1.Text = "Fälligkeiten berechnen"
|
||||
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label9
|
||||
'
|
||||
Me.Label9.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
@@ -395,6 +443,7 @@ Partial Class frmAuditFlow
|
||||
Me.Button9.Text = "Neu"
|
||||
Me.Button9.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.Button9.UseVisualStyleBackColor = True
|
||||
Me.Button9.Visible = False
|
||||
'
|
||||
'Button11
|
||||
'
|
||||
@@ -406,6 +455,7 @@ Partial Class frmAuditFlow
|
||||
Me.Button11.Size = New System.Drawing.Size(41, 34)
|
||||
Me.Button11.TabIndex = 7
|
||||
Me.Button11.UseVisualStyleBackColor = True
|
||||
Me.Button11.Visible = False
|
||||
'
|
||||
'Button12
|
||||
'
|
||||
@@ -420,6 +470,7 @@ Partial Class frmAuditFlow
|
||||
Me.Button12.Size = New System.Drawing.Size(41, 34)
|
||||
Me.Button12.TabIndex = 8
|
||||
Me.Button12.UseVisualStyleBackColor = True
|
||||
Me.Button12.Visible = False
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
@@ -485,6 +536,7 @@ Partial Class frmAuditFlow
|
||||
'
|
||||
Me.pnl.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.pnl.Controls.Add(Me.btnSuche)
|
||||
Me.pnl.Controls.Add(Me.CheckBox1)
|
||||
Me.pnl.Controls.Add(Me.Label8)
|
||||
Me.pnl.Controls.Add(Me.txtAbfertDat)
|
||||
@@ -508,14 +560,30 @@ Partial Class frmAuditFlow
|
||||
Me.pnl.Size = New System.Drawing.Size(622, 106)
|
||||
Me.pnl.TabIndex = 4
|
||||
'
|
||||
'btnSuche
|
||||
'
|
||||
Me.btnSuche.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.btnSuche.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnSuche.Location = New System.Drawing.Point(455, 37)
|
||||
Me.btnSuche.Name = "btnSuche"
|
||||
Me.btnSuche.Size = New System.Drawing.Size(162, 45)
|
||||
Me.btnSuche.TabIndex = 22
|
||||
Me.btnSuche.Text = "Suche starten"
|
||||
Me.btnSuche.UseVisualStyleBackColor = True
|
||||
'
|
||||
'CheckBox1
|
||||
'
|
||||
Me.CheckBox1.AutoSize = True
|
||||
Me.CheckBox1.Checked = True
|
||||
Me.CheckBox1.CheckState = System.Windows.Forms.CheckState.Indeterminate
|
||||
Me.CheckBox1.Location = New System.Drawing.Point(328, 11)
|
||||
Me.CheckBox1.Name = "CheckBox1"
|
||||
Me.CheckBox1.Size = New System.Drawing.Size(155, 17)
|
||||
Me.CheckBox1.TabIndex = 35
|
||||
Me.CheckBox1.Text = "Erledigte Einträge anzeigen"
|
||||
Me.CheckBox1.ThreeState = True
|
||||
Me.CheckBox1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label8
|
||||
@@ -750,68 +818,6 @@ Partial Class frmAuditFlow
|
||||
Me.DateTimePicker1.Size = New System.Drawing.Size(115, 20)
|
||||
Me.DateTimePicker1.TabIndex = 10
|
||||
'
|
||||
'btnSuche
|
||||
'
|
||||
Me.btnSuche.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.btnSuche.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.btnSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.btnSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.btnSuche.Location = New System.Drawing.Point(166, 70)
|
||||
Me.btnSuche.Name = "btnSuche"
|
||||
Me.btnSuche.Size = New System.Drawing.Size(162, 52)
|
||||
Me.btnSuche.TabIndex = 22
|
||||
Me.btnSuche.Text = "Suche starten"
|
||||
Me.btnSuche.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button1.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.zeiterfassung_s
|
||||
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button1.Location = New System.Drawing.Point(583, 7)
|
||||
Me.Button1.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0)
|
||||
Me.Button1.Size = New System.Drawing.Size(193, 45)
|
||||
Me.Button1.TabIndex = 9
|
||||
Me.Button1.Text = "Fälligkeiten berechnen"
|
||||
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'lblAbDat
|
||||
'
|
||||
Me.lblAbDat.AutoSize = True
|
||||
Me.lblAbDat.Location = New System.Drawing.Point(613, 55)
|
||||
Me.lblAbDat.Name = "lblAbDat"
|
||||
Me.lblAbDat.Size = New System.Drawing.Size(56, 13)
|
||||
Me.lblAbDat.TabIndex = 142
|
||||
Me.lblAbDat.Text = "ab Datum:"
|
||||
'
|
||||
'txtWartungFaelligkeitAbDat
|
||||
'
|
||||
Me.txtWartungFaelligkeitAbDat._DateTimeOnly = False
|
||||
Me.txtWartungFaelligkeitAbDat._numbersOnly = False
|
||||
Me.txtWartungFaelligkeitAbDat._numbersOnlyKommastellen = ""
|
||||
Me.txtWartungFaelligkeitAbDat._numbersOnlyTrennzeichen = True
|
||||
Me.txtWartungFaelligkeitAbDat._Prozent = False
|
||||
Me.txtWartungFaelligkeitAbDat._ShortDateNew = True
|
||||
Me.txtWartungFaelligkeitAbDat._ShortDateOnly = False
|
||||
Me.txtWartungFaelligkeitAbDat._TimeOnly = False
|
||||
Me.txtWartungFaelligkeitAbDat._TimeOnly_Seconds = False
|
||||
Me.txtWartungFaelligkeitAbDat._value = ""
|
||||
Me.txtWartungFaelligkeitAbDat._Waehrung = False
|
||||
Me.txtWartungFaelligkeitAbDat._WaehrungZeichen = True
|
||||
Me.txtWartungFaelligkeitAbDat.ForeColor = System.Drawing.Color.Red
|
||||
Me.txtWartungFaelligkeitAbDat.Location = New System.Drawing.Point(675, 52)
|
||||
Me.txtWartungFaelligkeitAbDat.MaxLength = 10
|
||||
Me.txtWartungFaelligkeitAbDat.MaxLineLength = -1
|
||||
Me.txtWartungFaelligkeitAbDat.MaxLines_Warning = ""
|
||||
Me.txtWartungFaelligkeitAbDat.MaxLines_Warning_Label = Nothing
|
||||
Me.txtWartungFaelligkeitAbDat.Name = "txtWartungFaelligkeitAbDat"
|
||||
Me.txtWartungFaelligkeitAbDat.Size = New System.Drawing.Size(101, 20)
|
||||
Me.txtWartungFaelligkeitAbDat.TabIndex = 143
|
||||
'
|
||||
'frmAuditFlow
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
|
||||
@@ -13,8 +13,8 @@ Public Class frmAuditFlow
|
||||
Private Sub frmAuditFlow_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
txtWartungFaelligkeitAbDat._value = Now.ToShortDateString
|
||||
|
||||
txtAbfertDat.Text = Now.AddMonths(-6).ToShortDateString 'CDate("01." & Now.ToString("MM.yyyy")).AddMonths(-1).ToShortDateString
|
||||
txtAbfertDatBis.Text = Now.ToShortDateString
|
||||
txtAbfertDat.Text = Now.AddMonths(-2).ToShortDateString 'CDate("01." & Now.ToString("MM.yyyy")).AddMonths(-1).ToShortDateString
|
||||
txtAbfertDatBis.Text = Now.AddMonths(1).ToShortDateString 'Now.ToShortDateString
|
||||
|
||||
btnMonat.Text = MONAT.ToString("MMMM")
|
||||
btnJahr.Text = JAHR.Year
|
||||
@@ -159,16 +159,15 @@ Public Class frmAuditFlow
|
||||
If cboKategorie._value <> "" Then sqlstr &= " AND wartPO_Kategorie LIKE @wartPO_Kategorie "
|
||||
|
||||
|
||||
|
||||
Return sqlstr
|
||||
End Function
|
||||
Function getListPruefungsobjekte() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
|
||||
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
|
||||
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wartPO_Firma", cboFirma._value))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wartPO_Niederlasung", cboNL._value))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wartPO_StandortId", cboStandort._value))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wartPO_Kategorie", cboKategorie._value))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DatVon", txtAbfertDat._value))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DatBis", txtAbfertDatBis._value))
|
||||
|
||||
|
||||
Return list
|
||||
@@ -226,21 +225,43 @@ Public Class frmAuditFlow
|
||||
|
||||
If txtAbfertDat.Text <> "" Then
|
||||
If txtAbfertDatBis.Text <> "" Then
|
||||
sqlstr &= " AND ([sms_Datum] BETWEEN @DatVon AND @DatBis ) "
|
||||
sqlstr &= " AND ([wartPruef_Faelligkeitsdatum] BETWEEN @DatVon AND @DatBis ) "
|
||||
Else
|
||||
sqlstr &= " AND ([sms_Datum] BETWEEN @DatVon AND @DatVon ) "
|
||||
sqlstr &= " AND ([wartPruef_Faelligkeitsdatum] BETWEEN @DatVon AND @DatVon ) "
|
||||
End If
|
||||
End If
|
||||
If CheckBox1.CheckState = CheckState.Checked Then
|
||||
sqlstr &= " AND [wartPruef_Erledigung]=1 "
|
||||
ElseIf CheckBox1.CheckState = CheckState.Unchecked Then
|
||||
sqlstr &= " AND [wartPruef_Erledigung]=0 "
|
||||
Else
|
||||
sqlstr &= " "
|
||||
End If
|
||||
|
||||
|
||||
Return sqlstr
|
||||
End Function
|
||||
|
||||
Private Sub dgvPruefungen_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvPruefungen.CellDoubleClick
|
||||
' Falls Kopfzeile doppelt geklickt wird -> ignorieren
|
||||
If e.RowIndex < 0 Then Exit Sub
|
||||
|
||||
' ID der ausgewählten Zeile holen (Spalte "wartPO_Id")
|
||||
Dim wartPruef_wartPOId As Integer = CInt(dgvPruefungen.Rows(e.RowIndex).Cells("wartPruef_wartPOId").Value)
|
||||
Dim wartPruef_Id As Integer = CInt(dgvPruefungen.Rows(e.RowIndex).Cells("wartPruef_Id").Value)
|
||||
|
||||
' Hier deine Funktion oder Logik aufrufen
|
||||
' Beispiel:
|
||||
Dim f As New frmAuditFlow_Pruefungen(wartPruef_wartPOId, wartPruef_Id)
|
||||
f.ShowDialog(Me)
|
||||
dgvPruefungen.RELOAD()
|
||||
setDGVOptionsPruefungen()
|
||||
End Sub
|
||||
|
||||
'-------------------------------------------------------------------
|
||||
|
||||
|
||||
Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click
|
||||
|
||||
loadDGVPuefungen()
|
||||
End Sub
|
||||
|
||||
@@ -249,8 +270,8 @@ Public Class frmAuditFlow
|
||||
Try
|
||||
With dgvPruefungen
|
||||
|
||||
.Rows.Clear()
|
||||
If .SelectedRows.Count = 0 Then
|
||||
.Columns.Clear()
|
||||
If dgvPruefungsobjekte.SelectedRows.Count = 0 Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
@@ -262,14 +283,14 @@ Public Class frmAuditFlow
|
||||
Dim sqlstr As String = ""
|
||||
|
||||
' MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL)
|
||||
sqlstr &= "SELECT TOP (1000) [wartPruef_Id] ,[wartPruef_Faelligkeitsdatum],[wartPruef_Erledigung],[wartPruef_Erledigung_Datum],[wartPruef_Erledigung_BestaetigtMaId],[wartPruef_Erledigung_BestaetigtMaName]
|
||||
,[wartPruef_Erledigung_Bemerkung],[wartPruef_Anhaenge_daId],[wartPruef_Bemerkung],[wartPruef_MailErinnerung_Gesendet] ,[wartPruef_MailErinnerung_GesendetAn],[wartPruef_MailErinnerung_GesendetAm]
|
||||
FROM [tblAuditFlow_Pruefungen] WHERE [wartPruef_wartPOId]='" & wartPO_Id & "' WHERE 1=1 "
|
||||
sqlstr &= "SELECT TOP (1000) [wartPruef_Id],wartPruef_wartPOId ,[wartPruef_Faelligkeitsdatum],[wartPruef_Erledigung],[wartPruef_Erledigung_Datum],[wartPruef_Erledigung_BestaetigtMaName]
|
||||
,wartPruef_Erledigung_Bemerkung,case when [wartPruef_Anhaenge_Count] >0 then 'Ja' else 'Nein' end as [Anhaenge]
|
||||
FROM [tblAuditFlow_Pruefungen] WHERE [wartPruef_wartPOId]='" & wartPO_Id & "' "
|
||||
|
||||
|
||||
' .DataSource = myTable
|
||||
' MsgBox(sqlstr & getWherePruefungsobjekte() & " order by wartPO_Firma ,wartPO_Niederlasung, wartPO_StandortId")
|
||||
.SET_SQL(sqlstr & getWherePruefungen() & " order by wartPO_Firma ,wartPO_Niederlasung, wartSt_Standort ", "ADMIN", getListPruefungsobjekte)
|
||||
'MsgBox(sqlstr & getWherePruefungen() & " order by wartPruef_Faelligkeitsdatum ")
|
||||
.SET_SQL(sqlstr & getWherePruefungen() & " order by wartPruef_Faelligkeitsdatum ", "ADMIN", getListPruefungsobjekte)
|
||||
.LOAD()
|
||||
setDGVOptionsPruefungen()
|
||||
End With
|
||||
@@ -291,41 +312,28 @@ Public Class frmAuditFlow
|
||||
.MultiSelect = False
|
||||
|
||||
.Columns("wartPruef_Id").Visible = False
|
||||
.Columns("wartPruef_wartPOId").Visible = False
|
||||
|
||||
|
||||
.Columns("wartPruef_Faelligkeitsdatum").MinimumWidth = 100
|
||||
.Columns("wartPruef_Faelligkeitsdatum").Width = 90
|
||||
.Columns("wartPruef_Faelligkeitsdatum").HeaderText = "Fälligkeitsdatum"
|
||||
.Columns("wartPruef_Faelligkeitsdatum").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
|
||||
.Columns("wartPruef_Erledigung").Width = 60
|
||||
.Columns("wartPruef_Erledigung").HeaderText = "Erledigung"
|
||||
|
||||
.Columns("wartPO_Kategorie").Width = 100
|
||||
.Columns("wartPO_Kategorie").HeaderText = "Kategorie"
|
||||
.Columns("wartPruef_Erledigung_Datum").Width = 90
|
||||
.Columns("wartPruef_Erledigung_Datum").HeaderText = "Erl.Dat"
|
||||
|
||||
.Columns("wartPO_Firma").Width = 80
|
||||
.Columns("wartPO_Firma").HeaderText = "Firma"
|
||||
.Columns("wartPruef_Erledigung_BestaetigtMaName").Width = 100
|
||||
.Columns("wartPruef_Erledigung_BestaetigtMaName").HeaderText = "Erl.MA"
|
||||
|
||||
.Columns("wartPO_Niederlasung").Width = 50
|
||||
.Columns("wartPO_Niederlasung").HeaderText = "NL"
|
||||
|
||||
.Columns("wartPO_Standort").Width = 100
|
||||
.Columns("wartPO_Standort").HeaderText = "Standort"
|
||||
.Columns("wartPO_IntervallTyp").Width = 100
|
||||
.Columns("wartPO_IntervallTyp").HeaderText = "Intervall"
|
||||
|
||||
.Columns("wartPO_IntervallWert").Width = 60
|
||||
.Columns("wartPO_IntervallWert").HeaderText = "Int.-Wert"
|
||||
|
||||
.Columns("wartPO_Erinnerung_VorlaufInTagen").Width = 60
|
||||
.Columns("wartPO_Erinnerung_VorlaufInTagen").HeaderText = "Vorl.Tage"
|
||||
|
||||
.Columns("wartPO_zustaendigIntern_Name").Width = 120
|
||||
.Columns("wartPO_zustaendigIntern_Name").HeaderText = "Mitarbeiter"
|
||||
|
||||
.Columns("wartPO_Aktiv").Width = 50
|
||||
.Columns("wartPO_Aktiv").HeaderText = "Aktiv"
|
||||
.Columns("wartPruef_Erledigung_Bemerkung").Width = 60
|
||||
.Columns("wartPruef_Erledigung_Bemerkung").HeaderText = "Erl.Bemerkung."
|
||||
.Columns("wartPruef_Erledigung_Bemerkung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
|
||||
.Columns("Anhaenge").Width = 60
|
||||
.Columns("Anhaenge").HeaderText = "Anh."
|
||||
|
||||
|
||||
' lblErgebnis.Text = "Ergebnise: " & .RowCount
|
||||
@@ -420,7 +428,26 @@ Public Class frmAuditFlow
|
||||
DateTimePicker1.Value = ("01." & Now.Month & "." & Now.Year)
|
||||
DateTimePicker2.Value = Now
|
||||
End Select
|
||||
btnSuche.PerformClick()
|
||||
loadDGVPuefungen()
|
||||
End Sub
|
||||
|
||||
Private Sub txtAbfertDat_TextChanged(sender As Object, e As EventArgs) Handles txtAbfertDat.Leave
|
||||
If sender.Text <> "" AndAlso IsDate(sender.Text) Then
|
||||
DateTimePicker1.Value = CDate(sender.text)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub txtAbfertDatBis_TextChanged(sender As Object, e As EventArgs) Handles txtAbfertDatBis.Leave
|
||||
If sender.Text <> "" AndAlso IsDate(sender.Text) Then
|
||||
DateTimePicker2.Value = CDate(sender.text)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
|
||||
txtAbfertDat._value = CDate(sender.value).ToShortDateString
|
||||
End Sub
|
||||
|
||||
Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.ValueChanged
|
||||
txtAbfertDatBis._value = CDate(sender.value).ToShortDateString
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
@@ -439,4 +466,16 @@ Public Class frmAuditFlow
|
||||
|
||||
loadDGVPuefungen()
|
||||
End Sub
|
||||
|
||||
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckStateChanged
|
||||
loadDGVPuefungen()
|
||||
End Sub
|
||||
|
||||
Private Sub dgvPruefungsobjekte_SelectionChanged(sender As Object, e As EventArgs) Handles dgvPruefungsobjekte.SelectionChanged
|
||||
If dgvPruefungsobjekte.SelectedRows.Count > 0 Then
|
||||
loadDGVPuefungen()
|
||||
Else
|
||||
dgvPruefungen.Columns.Clear()
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
@@ -26,12 +26,8 @@ Partial Class frmAuditFlow_Pruefungen
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAuditFlow_Pruefungen))
|
||||
Me.pnlTop = New System.Windows.Forms.Panel()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.cboKategorie = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
Me.cboStandort = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.cboNL = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
@@ -44,13 +40,19 @@ Partial Class frmAuditFlow_Pruefungen
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.Label15 = New System.Windows.Forms.Label()
|
||||
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||
Me.lblErledigt = New System.Windows.Forms.Label()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.Label9 = New System.Windows.Forms.Label()
|
||||
Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()
|
||||
Me.CheckBox2 = New System.Windows.Forms.CheckBox()
|
||||
Me.rtbErledigtBemerkung = New System.Windows.Forms.RichTextBox()
|
||||
Me.cbxErledigt = New System.Windows.Forms.CheckBox()
|
||||
Me.Label10 = New System.Windows.Forms.Label()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.UsrcntlPDFScanList1 = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
|
||||
Me.Label11 = New System.Windows.Forms.Label()
|
||||
Me.txtFirma = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtNL = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtStandort = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.txtKategorie = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.pnlTop.SuspendLayout()
|
||||
Me.Panel1.SuspendLayout()
|
||||
Me.Panel2.SuspendLayout()
|
||||
@@ -77,25 +79,9 @@ Partial Class frmAuditFlow_Pruefungen
|
||||
Me.Label4.TabIndex = 0
|
||||
Me.Label4.Text = "AuditFlow Prüfung"
|
||||
'
|
||||
'cboKategorie
|
||||
'
|
||||
Me.cboKategorie._allowedValuesFreiText = Nothing
|
||||
Me.cboKategorie._allowFreiText = False
|
||||
Me.cboKategorie._value = ""
|
||||
Me.cboKategorie.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.cboKategorie.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.cboKategorie.Enabled = False
|
||||
Me.cboKategorie.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cboKategorie.FormattingEnabled = True
|
||||
Me.cboKategorie.Location = New System.Drawing.Point(403, 125)
|
||||
Me.cboKategorie.Name = "cboKategorie"
|
||||
Me.cboKategorie.Size = New System.Drawing.Size(143, 24)
|
||||
Me.cboKategorie.TabIndex = 38
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Enabled = False
|
||||
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label1.Location = New System.Drawing.Point(315, 130)
|
||||
Me.Label1.Name = "Label1"
|
||||
@@ -106,7 +92,6 @@ Partial Class frmAuditFlow_Pruefungen
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.AutoSize = True
|
||||
Me.Label7.Enabled = False
|
||||
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label7.Location = New System.Drawing.Point(13, 130)
|
||||
Me.Label7.Name = "Label7"
|
||||
@@ -114,55 +99,9 @@ Partial Class frmAuditFlow_Pruefungen
|
||||
Me.Label7.TabIndex = 36
|
||||
Me.Label7.Text = "Standort:"
|
||||
'
|
||||
'cboStandort
|
||||
'
|
||||
Me.cboStandort._allowedValuesFreiText = Nothing
|
||||
Me.cboStandort._allowFreiText = False
|
||||
Me.cboStandort._value = ""
|
||||
Me.cboStandort.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.cboStandort.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.cboStandort.Enabled = False
|
||||
Me.cboStandort.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cboStandort.FormattingEnabled = True
|
||||
Me.cboStandort.Location = New System.Drawing.Point(123, 125)
|
||||
Me.cboStandort.Name = "cboStandort"
|
||||
Me.cboStandort.Size = New System.Drawing.Size(143, 24)
|
||||
Me.cboStandort.TabIndex = 35
|
||||
'
|
||||
'cboFirma
|
||||
'
|
||||
Me.cboFirma._allowedValuesFreiText = Nothing
|
||||
Me.cboFirma._allowFreiText = False
|
||||
Me.cboFirma._value = ""
|
||||
Me.cboFirma.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.cboFirma.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.cboFirma.Enabled = False
|
||||
Me.cboFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cboFirma.FormattingEnabled = True
|
||||
Me.cboFirma.Location = New System.Drawing.Point(123, 68)
|
||||
Me.cboFirma.Name = "cboFirma"
|
||||
Me.cboFirma.Size = New System.Drawing.Size(143, 24)
|
||||
Me.cboFirma.TabIndex = 34
|
||||
'
|
||||
'cboNL
|
||||
'
|
||||
Me.cboNL._allowedValuesFreiText = Nothing
|
||||
Me.cboNL._allowFreiText = False
|
||||
Me.cboNL._value = ""
|
||||
Me.cboNL.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
|
||||
Me.cboNL.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
|
||||
Me.cboNL.Enabled = False
|
||||
Me.cboNL.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.cboNL.FormattingEnabled = True
|
||||
Me.cboNL.Location = New System.Drawing.Point(123, 94)
|
||||
Me.cboNL.Name = "cboNL"
|
||||
Me.cboNL.Size = New System.Drawing.Size(143, 24)
|
||||
Me.cboNL.TabIndex = 33
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Enabled = False
|
||||
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label5.Location = New System.Drawing.Point(13, 73)
|
||||
Me.Label5.Name = "Label5"
|
||||
@@ -173,7 +112,6 @@ Partial Class frmAuditFlow_Pruefungen
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.AutoSize = True
|
||||
Me.Label6.Enabled = False
|
||||
Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label6.Location = New System.Drawing.Point(13, 99)
|
||||
Me.Label6.Name = "Label6"
|
||||
@@ -184,7 +122,6 @@ Partial Class frmAuditFlow_Pruefungen
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Enabled = False
|
||||
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label2.Location = New System.Drawing.Point(14, 205)
|
||||
Me.Label2.Name = "Label2"
|
||||
@@ -195,7 +132,6 @@ Partial Class frmAuditFlow_Pruefungen
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Enabled = False
|
||||
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
|
||||
Me.Label3.Location = New System.Drawing.Point(14, 231)
|
||||
Me.Label3.Name = "Label3"
|
||||
@@ -217,7 +153,7 @@ Partial Class frmAuditFlow_Pruefungen
|
||||
Me.txtBezeichnung._value = ""
|
||||
Me.txtBezeichnung._Waehrung = False
|
||||
Me.txtBezeichnung._WaehrungZeichen = True
|
||||
Me.txtBezeichnung.Enabled = False
|
||||
Me.txtBezeichnung.BackColor = System.Drawing.Color.White
|
||||
Me.txtBezeichnung.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
|
||||
Me.txtBezeichnung.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtBezeichnung.Location = New System.Drawing.Point(123, 197)
|
||||
@@ -226,6 +162,7 @@ Partial Class frmAuditFlow_Pruefungen
|
||||
Me.txtBezeichnung.MaxLines_Warning_Label = Nothing
|
||||
Me.txtBezeichnung.Multiline = True
|
||||
Me.txtBezeichnung.Name = "txtBezeichnung"
|
||||
Me.txtBezeichnung.ReadOnly = True
|
||||
Me.txtBezeichnung.Size = New System.Drawing.Size(436, 28)
|
||||
Me.txtBezeichnung.TabIndex = 43
|
||||
'
|
||||
@@ -243,7 +180,7 @@ Partial Class frmAuditFlow_Pruefungen
|
||||
Me.txtKennung._value = ""
|
||||
Me.txtKennung._Waehrung = False
|
||||
Me.txtKennung._WaehrungZeichen = True
|
||||
Me.txtKennung.Enabled = False
|
||||
Me.txtKennung.BackColor = System.Drawing.Color.White
|
||||
Me.txtKennung.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
|
||||
Me.txtKennung.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtKennung.Location = New System.Drawing.Point(123, 231)
|
||||
@@ -252,6 +189,7 @@ Partial Class frmAuditFlow_Pruefungen
|
||||
Me.txtKennung.MaxLines_Warning_Label = Nothing
|
||||
Me.txtKennung.Multiline = True
|
||||
Me.txtKennung.Name = "txtKennung"
|
||||
Me.txtKennung.ReadOnly = True
|
||||
Me.txtKennung.Size = New System.Drawing.Size(436, 28)
|
||||
Me.txtKennung.TabIndex = 44
|
||||
'
|
||||
@@ -273,7 +211,6 @@ Partial Class frmAuditFlow_Pruefungen
|
||||
'Label8
|
||||
'
|
||||
Me.Label8.AutoSize = True
|
||||
Me.Label8.Enabled = False
|
||||
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!)
|
||||
Me.Label8.Location = New System.Drawing.Point(14, 282)
|
||||
Me.Label8.Name = "Label8"
|
||||
@@ -329,43 +266,74 @@ Partial Class frmAuditFlow_Pruefungen
|
||||
'Panel2
|
||||
'
|
||||
Me.Panel2.BackColor = System.Drawing.Color.PapayaWhip
|
||||
Me.Panel2.Controls.Add(Me.lblErledigt)
|
||||
Me.Panel2.Controls.Add(Me.Button1)
|
||||
Me.Panel2.Controls.Add(Me.Label9)
|
||||
Me.Panel2.Controls.Add(Me.RichTextBox1)
|
||||
Me.Panel2.Controls.Add(Me.CheckBox2)
|
||||
Me.Panel2.Controls.Add(Me.rtbErledigtBemerkung)
|
||||
Me.Panel2.Controls.Add(Me.cbxErledigt)
|
||||
Me.Panel2.Controls.Add(Me.Label10)
|
||||
Me.Panel2.Location = New System.Drawing.Point(0, 407)
|
||||
Me.Panel2.Name = "Panel2"
|
||||
Me.Panel2.Size = New System.Drawing.Size(566, 266)
|
||||
Me.Panel2.TabIndex = 62
|
||||
'
|
||||
'lblErledigt
|
||||
'
|
||||
Me.lblErledigt.AutoSize = True
|
||||
Me.lblErledigt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.lblErledigt.Location = New System.Drawing.Point(252, 50)
|
||||
Me.lblErledigt.Name = "lblErledigt"
|
||||
Me.lblErledigt.Size = New System.Drawing.Size(83, 13)
|
||||
Me.lblErledigt.TabIndex = 62
|
||||
Me.lblErledigt.Text = "Erledigt von -"
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
|
||||
Me.Button1.BackColor = System.Drawing.Color.White
|
||||
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
|
||||
Me.Button1.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.abgeklaertAktiv
|
||||
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button1.Location = New System.Drawing.Point(255, 2)
|
||||
Me.Button1.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0)
|
||||
Me.Button1.Size = New System.Drawing.Size(304, 45)
|
||||
Me.Button1.TabIndex = 71
|
||||
Me.Button1.Text = "Ich bestätige hiermit die Erledigung"
|
||||
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.Button1.UseVisualStyleBackColor = False
|
||||
'
|
||||
'Label9
|
||||
'
|
||||
Me.Label9.AutoSize = True
|
||||
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label9.Location = New System.Drawing.Point(14, 53)
|
||||
Me.Label9.Location = New System.Drawing.Point(14, 66)
|
||||
Me.Label9.Name = "Label9"
|
||||
Me.Label9.Size = New System.Drawing.Size(64, 13)
|
||||
Me.Label9.TabIndex = 70
|
||||
Me.Label9.Text = "Bemerkung:"
|
||||
'
|
||||
'RichTextBox1
|
||||
'rtbErledigtBemerkung
|
||||
'
|
||||
Me.RichTextBox1.Location = New System.Drawing.Point(123, 50)
|
||||
Me.RichTextBox1.Name = "RichTextBox1"
|
||||
Me.RichTextBox1.Size = New System.Drawing.Size(436, 197)
|
||||
Me.RichTextBox1.TabIndex = 69
|
||||
Me.RichTextBox1.Text = ""
|
||||
Me.rtbErledigtBemerkung.Location = New System.Drawing.Point(123, 66)
|
||||
Me.rtbErledigtBemerkung.Name = "rtbErledigtBemerkung"
|
||||
Me.rtbErledigtBemerkung.Size = New System.Drawing.Size(436, 181)
|
||||
Me.rtbErledigtBemerkung.TabIndex = 69
|
||||
Me.rtbErledigtBemerkung.Text = ""
|
||||
'
|
||||
'CheckBox2
|
||||
'cbxErledigt
|
||||
'
|
||||
Me.CheckBox2.AutoSize = True
|
||||
Me.CheckBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
|
||||
Me.CheckBox2.Location = New System.Drawing.Point(123, 19)
|
||||
Me.CheckBox2.Name = "CheckBox2"
|
||||
Me.CheckBox2.Size = New System.Drawing.Size(118, 24)
|
||||
Me.CheckBox2.TabIndex = 68
|
||||
Me.CheckBox2.Text = "ERLEDIGT"
|
||||
Me.CheckBox2.UseVisualStyleBackColor = True
|
||||
Me.cbxErledigt.AutoSize = True
|
||||
Me.cbxErledigt.Enabled = False
|
||||
Me.cbxErledigt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold)
|
||||
Me.cbxErledigt.Location = New System.Drawing.Point(123, 19)
|
||||
Me.cbxErledigt.Name = "cbxErledigt"
|
||||
Me.cbxErledigt.Size = New System.Drawing.Size(118, 24)
|
||||
Me.cbxErledigt.TabIndex = 68
|
||||
Me.cbxErledigt.Text = "ERLEDIGT"
|
||||
Me.cbxErledigt.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label10
|
||||
'
|
||||
@@ -383,7 +351,7 @@ Partial Class frmAuditFlow_Pruefungen
|
||||
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
|
||||
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button2.Location = New System.Drawing.Point(416, 786)
|
||||
Me.Button2.Location = New System.Drawing.Point(416, 775)
|
||||
Me.Button2.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0)
|
||||
@@ -409,7 +377,7 @@ Partial Class frmAuditFlow_Pruefungen
|
||||
Me.UsrcntlPDFScanList1.Location = New System.Drawing.Point(123, 686)
|
||||
Me.UsrcntlPDFScanList1.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.UsrcntlPDFScanList1.Name = "UsrcntlPDFScanList1"
|
||||
Me.UsrcntlPDFScanList1.Size = New System.Drawing.Size(275, 145)
|
||||
Me.UsrcntlPDFScanList1.Size = New System.Drawing.Size(275, 134)
|
||||
Me.UsrcntlPDFScanList1.TabIndex = 64
|
||||
'
|
||||
'Label11
|
||||
@@ -422,12 +390,124 @@ Partial Class frmAuditFlow_Pruefungen
|
||||
Me.Label11.TabIndex = 71
|
||||
Me.Label11.Text = "Anhänge:"
|
||||
'
|
||||
'txtFirma
|
||||
'
|
||||
Me.txtFirma._DateTimeOnly = False
|
||||
Me.txtFirma._numbersOnly = False
|
||||
Me.txtFirma._numbersOnlyKommastellen = ""
|
||||
Me.txtFirma._numbersOnlyTrennzeichen = True
|
||||
Me.txtFirma._Prozent = False
|
||||
Me.txtFirma._ShortDateNew = False
|
||||
Me.txtFirma._ShortDateOnly = False
|
||||
Me.txtFirma._TimeOnly = False
|
||||
Me.txtFirma._TimeOnly_Seconds = False
|
||||
Me.txtFirma._value = ""
|
||||
Me.txtFirma._Waehrung = False
|
||||
Me.txtFirma._WaehrungZeichen = True
|
||||
Me.txtFirma.BackColor = System.Drawing.Color.White
|
||||
Me.txtFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
|
||||
Me.txtFirma.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtFirma.Location = New System.Drawing.Point(123, 65)
|
||||
Me.txtFirma.MaxLineLength = -1
|
||||
Me.txtFirma.MaxLines_Warning = ""
|
||||
Me.txtFirma.MaxLines_Warning_Label = Nothing
|
||||
Me.txtFirma.Multiline = True
|
||||
Me.txtFirma.Name = "txtFirma"
|
||||
Me.txtFirma.ReadOnly = True
|
||||
Me.txtFirma.Size = New System.Drawing.Size(143, 28)
|
||||
Me.txtFirma.TabIndex = 72
|
||||
'
|
||||
'txtNL
|
||||
'
|
||||
Me.txtNL._DateTimeOnly = False
|
||||
Me.txtNL._numbersOnly = False
|
||||
Me.txtNL._numbersOnlyKommastellen = ""
|
||||
Me.txtNL._numbersOnlyTrennzeichen = True
|
||||
Me.txtNL._Prozent = False
|
||||
Me.txtNL._ShortDateNew = False
|
||||
Me.txtNL._ShortDateOnly = False
|
||||
Me.txtNL._TimeOnly = False
|
||||
Me.txtNL._TimeOnly_Seconds = False
|
||||
Me.txtNL._value = ""
|
||||
Me.txtNL._Waehrung = False
|
||||
Me.txtNL._WaehrungZeichen = True
|
||||
Me.txtNL.BackColor = System.Drawing.Color.White
|
||||
Me.txtNL.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
|
||||
Me.txtNL.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtNL.Location = New System.Drawing.Point(123, 91)
|
||||
Me.txtNL.MaxLineLength = -1
|
||||
Me.txtNL.MaxLines_Warning = ""
|
||||
Me.txtNL.MaxLines_Warning_Label = Nothing
|
||||
Me.txtNL.Multiline = True
|
||||
Me.txtNL.Name = "txtNL"
|
||||
Me.txtNL.ReadOnly = True
|
||||
Me.txtNL.Size = New System.Drawing.Size(143, 28)
|
||||
Me.txtNL.TabIndex = 73
|
||||
'
|
||||
'txtStandort
|
||||
'
|
||||
Me.txtStandort._DateTimeOnly = False
|
||||
Me.txtStandort._numbersOnly = False
|
||||
Me.txtStandort._numbersOnlyKommastellen = ""
|
||||
Me.txtStandort._numbersOnlyTrennzeichen = True
|
||||
Me.txtStandort._Prozent = False
|
||||
Me.txtStandort._ShortDateNew = False
|
||||
Me.txtStandort._ShortDateOnly = False
|
||||
Me.txtStandort._TimeOnly = False
|
||||
Me.txtStandort._TimeOnly_Seconds = False
|
||||
Me.txtStandort._value = ""
|
||||
Me.txtStandort._Waehrung = False
|
||||
Me.txtStandort._WaehrungZeichen = True
|
||||
Me.txtStandort.BackColor = System.Drawing.Color.White
|
||||
Me.txtStandort.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
|
||||
Me.txtStandort.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtStandort.Location = New System.Drawing.Point(123, 122)
|
||||
Me.txtStandort.MaxLineLength = -1
|
||||
Me.txtStandort.MaxLines_Warning = ""
|
||||
Me.txtStandort.MaxLines_Warning_Label = Nothing
|
||||
Me.txtStandort.Multiline = True
|
||||
Me.txtStandort.Name = "txtStandort"
|
||||
Me.txtStandort.ReadOnly = True
|
||||
Me.txtStandort.Size = New System.Drawing.Size(143, 28)
|
||||
Me.txtStandort.TabIndex = 74
|
||||
'
|
||||
'txtKategorie
|
||||
'
|
||||
Me.txtKategorie._DateTimeOnly = False
|
||||
Me.txtKategorie._numbersOnly = False
|
||||
Me.txtKategorie._numbersOnlyKommastellen = ""
|
||||
Me.txtKategorie._numbersOnlyTrennzeichen = True
|
||||
Me.txtKategorie._Prozent = False
|
||||
Me.txtKategorie._ShortDateNew = False
|
||||
Me.txtKategorie._ShortDateOnly = False
|
||||
Me.txtKategorie._TimeOnly = False
|
||||
Me.txtKategorie._TimeOnly_Seconds = False
|
||||
Me.txtKategorie._value = ""
|
||||
Me.txtKategorie._Waehrung = False
|
||||
Me.txtKategorie._WaehrungZeichen = True
|
||||
Me.txtKategorie.BackColor = System.Drawing.Color.White
|
||||
Me.txtKategorie.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
|
||||
Me.txtKategorie.ForeColor = System.Drawing.Color.Black
|
||||
Me.txtKategorie.Location = New System.Drawing.Point(403, 121)
|
||||
Me.txtKategorie.MaxLineLength = -1
|
||||
Me.txtKategorie.MaxLines_Warning = ""
|
||||
Me.txtKategorie.MaxLines_Warning_Label = Nothing
|
||||
Me.txtKategorie.Multiline = True
|
||||
Me.txtKategorie.Name = "txtKategorie"
|
||||
Me.txtKategorie.ReadOnly = True
|
||||
Me.txtKategorie.Size = New System.Drawing.Size(156, 28)
|
||||
Me.txtKategorie.TabIndex = 75
|
||||
'
|
||||
'frmAuditFlow_Pruefungen
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackColor = System.Drawing.Color.White
|
||||
Me.ClientSize = New System.Drawing.Size(580, 845)
|
||||
Me.Controls.Add(Me.txtKategorie)
|
||||
Me.Controls.Add(Me.txtStandort)
|
||||
Me.Controls.Add(Me.txtNL)
|
||||
Me.Controls.Add(Me.txtFirma)
|
||||
Me.Controls.Add(Me.Label11)
|
||||
Me.Controls.Add(Me.UsrcntlPDFScanList1)
|
||||
Me.Controls.Add(Me.Button2)
|
||||
@@ -437,12 +517,8 @@ Partial Class frmAuditFlow_Pruefungen
|
||||
Me.Controls.Add(Me.txtBezeichnung)
|
||||
Me.Controls.Add(Me.Label3)
|
||||
Me.Controls.Add(Me.Label2)
|
||||
Me.Controls.Add(Me.cboKategorie)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Controls.Add(Me.Label7)
|
||||
Me.Controls.Add(Me.cboStandort)
|
||||
Me.Controls.Add(Me.cboFirma)
|
||||
Me.Controls.Add(Me.cboNL)
|
||||
Me.Controls.Add(Me.Label5)
|
||||
Me.Controls.Add(Me.Label6)
|
||||
Me.Controls.Add(Me.pnlTop)
|
||||
@@ -464,12 +540,8 @@ Partial Class frmAuditFlow_Pruefungen
|
||||
End Sub
|
||||
|
||||
Friend WithEvents pnlTop As Windows.Forms.Panel
|
||||
Friend WithEvents cboKategorie As MyComboBox
|
||||
Friend WithEvents Label1 As Windows.Forms.Label
|
||||
Friend WithEvents Label7 As Windows.Forms.Label
|
||||
Friend WithEvents cboStandort As MyComboBox
|
||||
Friend WithEvents cboFirma As MyComboBox
|
||||
Friend WithEvents cboNL As MyComboBox
|
||||
Friend WithEvents Label5 As Windows.Forms.Label
|
||||
Friend WithEvents Label6 As Windows.Forms.Label
|
||||
Friend WithEvents Label2 As Windows.Forms.Label
|
||||
@@ -485,9 +557,15 @@ Partial Class frmAuditFlow_Pruefungen
|
||||
Friend WithEvents Button2 As Windows.Forms.Button
|
||||
Friend WithEvents Label4 As Windows.Forms.Label
|
||||
Friend WithEvents Label9 As Windows.Forms.Label
|
||||
Friend WithEvents RichTextBox1 As Windows.Forms.RichTextBox
|
||||
Friend WithEvents CheckBox2 As Windows.Forms.CheckBox
|
||||
Friend WithEvents rtbErledigtBemerkung As Windows.Forms.RichTextBox
|
||||
Friend WithEvents cbxErledigt As Windows.Forms.CheckBox
|
||||
Friend WithEvents Label10 As Windows.Forms.Label
|
||||
Friend WithEvents UsrcntlPDFScanList1 As usrcntlPDFScanList
|
||||
Friend WithEvents Label11 As Windows.Forms.Label
|
||||
Friend WithEvents txtFirma As MyTextBox
|
||||
Friend WithEvents txtNL As MyTextBox
|
||||
Friend WithEvents txtStandort As MyTextBox
|
||||
Friend WithEvents txtKategorie As MyTextBox
|
||||
Friend WithEvents Button1 As Windows.Forms.Button
|
||||
Friend WithEvents lblErledigt As Windows.Forms.Label
|
||||
End Class
|
||||
|
||||
@@ -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
|
||||
@@ -36,7 +36,7 @@ Public Class frmAuditFlow_Pruefungsojekt
|
||||
End If
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
End If
|
||||
End Sub
|
||||
@@ -50,10 +50,11 @@ Public Class frmAuditFlow_Pruefungsojekt
|
||||
If AF_PO.SAVE Then
|
||||
Me.Close()
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
@@ -72,7 +73,9 @@ Public Class frmAuditFlow_Pruefungsojekt
|
||||
Return True
|
||||
End Function
|
||||
Sub getValues()
|
||||
AF_PO.wartPO_Firma = cboFirma._value
|
||||
Try
|
||||
|
||||
AF_PO.wartPO_Firma = cboFirma._value
|
||||
AF_PO.wartPO_Niederlasung = cboNL._value
|
||||
AF_PO.wartPO_StandortId = cboStandort._value
|
||||
AF_PO.wartPO_Kategorie = cboKategorie._value
|
||||
@@ -86,9 +89,13 @@ Public Class frmAuditFlow_Pruefungsojekt
|
||||
AF_PO.wartPO_zustaendigIntern_Name = cboMA.Text
|
||||
|
||||
AF_PO.wartPO_startdatum = datVon._value
|
||||
AF_PO.wartPO_enddatum = datBis._value
|
||||
If datBis._value <> "" Then
|
||||
AF_PO.wartPO_enddatum = datBis._value
|
||||
Else
|
||||
AF_PO.wartPO_enddatum = Nothing
|
||||
End If
|
||||
|
||||
AF_PO.wartPO_Erinnerung_VorlaufInTagen = txtErinnerungVorlaubInTagen.Text
|
||||
AF_PO.wartPO_Erinnerung_VorlaufInTagen = txtErinnerungVorlaubInTagen.Text
|
||||
AF_PO.wartPO_Aktiv = CheckBox1.Checked
|
||||
|
||||
If cboMA._value <> "" Then
|
||||
@@ -98,8 +105,9 @@ Public Class frmAuditFlow_Pruefungsojekt
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Reference in New Issue
Block a user