AuditFlow, OpenSnd_SendToAviso
This commit is contained in:
@@ -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
|
||||
Reference in New Issue
Block a user