RPT
This commit is contained in:
@@ -11,6 +11,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
|
||||
|
||||
@@ -18,12 +20,8 @@ Public Class frmAuditFlow
|
||||
btnJahr.Text = JAHR.Year
|
||||
|
||||
cboKategorie.Items.Clear()
|
||||
cboKategorie.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
|
||||
cboKategorie.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WARTUNG", "WARTUNG"))
|
||||
cboKategorie.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("KFZ", "KFZ"))
|
||||
cboKategorie.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("STAPLER/MASCHINEN/GERÄTE", "MASCHINEN"))
|
||||
cboKategorie.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNTERWEISUNGEN", "UNTERWEISUNGEN"))
|
||||
cboKategorie.SelectedItem = 0
|
||||
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("", ""))
|
||||
@@ -45,7 +43,7 @@ Public Class frmAuditFlow
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub MyComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboNL.SelectedIndexChanged, cboStandort.SelectedIndexChanged, cboKategorie.SelectedIndexChanged
|
||||
Private Sub MyComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboStandort.SelectedIndexChanged, cboKategorie.SelectedIndexChanged
|
||||
loadDGVPuefungsobjekte()
|
||||
End Sub
|
||||
|
||||
@@ -59,7 +57,15 @@ Public Class frmAuditFlow
|
||||
loadDGVPuefungsobjekte()
|
||||
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
|
||||
|
||||
'-------------------------------------------------------------------
|
||||
'----DGVPuefungsobjekte---------------------------------------------
|
||||
@@ -74,14 +80,14 @@ Public Class frmAuditFlow
|
||||
Dim sqlstr As String = ""
|
||||
|
||||
' MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL)
|
||||
sqlstr &= " SELECT " & TopMax & " [wartPO_Id],[wartPO_Bezeichnung],[wartPO_Kennung],[wartPO_Firma],[wartPO_Niederlasung],[wartPO_Standort],[wartPO_Kategorie],
|
||||
sqlstr &= " SELECT " & TopMax & " [wartPO_Id],[wartPO_Bezeichnung],[wartPO_Kennung],[wartPO_Firma],[wartPO_Niederlasung],wartSt_Standort as wartPO_Standort,[wartPO_Kategorie],
|
||||
[wartPO_IntervallTyp],[wartPO_IntervallWert],[wartPO_Erinnerung_VorlaufInTagen] ,[wartPO_zustaendigIntern_Name],[wartPO_Aktiv]
|
||||
FROM [tblAuditFlow_Pruefobjekte] WHERE 1=1 "
|
||||
FROM [tblAuditFlow_Pruefobjekte] INNER JOIN tblAuditFlow_Standorte ON wartPO_StandortId=wartSt_Id WHERE 1=1 "
|
||||
|
||||
With dgvPruefungsobjekte
|
||||
' .DataSource = myTable
|
||||
' MsgBox(sqlstr & getWherePruefungsobjekte() & " order by wartPO_Firma ,wartPO_Niederlasung, wartPO_Standort")
|
||||
.SET_SQL(sqlstr & getWherePruefungsobjekte() & " order by wartPO_Firma ,wartPO_Niederlasung, wartPO_Standort ", "ADMIN", getListPruefungsobjekte)
|
||||
' MsgBox(sqlstr & getWherePruefungsobjekte() & " order by wartPO_Firma ,wartPO_Niederlasung, wartPO_StandortId")
|
||||
.SET_SQL(sqlstr & getWherePruefungsobjekte() & " order by wartPO_Firma ,wartPO_Niederlasung, wartSt_Standort ", "ADMIN", getListPruefungsobjekte)
|
||||
.LOAD()
|
||||
setDGVOptionsPruefungsobjekte()
|
||||
End With
|
||||
@@ -149,7 +155,7 @@ Public Class frmAuditFlow
|
||||
|
||||
If cboFirma._value <> "" Then sqlstr &= " AND wartPO_Firma LIKE @wartPO_Firma "
|
||||
If cboNL._value <> "" Then sqlstr &= " AND wartPO_Niederlasung LIKE @wartPO_Niederlasung "
|
||||
If cboStandort._value <> "" Then sqlstr &= " AND wartPO_Standort LIKE @wartPO_Standort "
|
||||
If cboStandort._value <> "" Then sqlstr &= " AND wartPO_StandortId LIKE @wartPO_StandortId "
|
||||
If cboKategorie._value <> "" Then sqlstr &= " AND wartPO_Kategorie LIKE @wartPO_Kategorie "
|
||||
|
||||
|
||||
@@ -161,7 +167,7 @@ Public Class frmAuditFlow
|
||||
|
||||
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_Standort", cboStandort._value))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wartPO_StandortId", cboStandort._value))
|
||||
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("wartPO_Kategorie", cboKategorie._value))
|
||||
|
||||
|
||||
@@ -190,6 +196,22 @@ Public Class frmAuditFlow
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub dgvPruefungsobjekte_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvPruefungsobjekte.CellDoubleClick
|
||||
' Falls Kopfzeile doppelt geklickt wird -> ignorieren
|
||||
If e.RowIndex < 0 Then Exit Sub
|
||||
|
||||
' ID der ausgewählten Zeile holen (Spalte "wartPO_Id")
|
||||
Dim wartPO_Id As Integer = CInt(dgvPruefungsobjekte.Rows(e.RowIndex).Cells("wartPO_Id").Value)
|
||||
|
||||
' Hier deine Funktion oder Logik aufrufen
|
||||
' Beispiel:
|
||||
Dim f As New frmAuditFlow_Pruefungsojekt(wartPO_Id)
|
||||
f.ShowDialog(Me)
|
||||
dgvPruefungsobjekte.RELOAD()
|
||||
setDGVOptionsPruefungsobjekte()
|
||||
End Sub
|
||||
|
||||
'-------------------------------------------------------------------
|
||||
|
||||
|
||||
@@ -218,13 +240,105 @@ Public Class frmAuditFlow
|
||||
|
||||
|
||||
Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click
|
||||
|
||||
loadDGVPuefungen()
|
||||
End Sub
|
||||
|
||||
Sub loadDGVPuefungen()
|
||||
|
||||
Try
|
||||
With dgvPruefungen
|
||||
|
||||
.Rows.Clear()
|
||||
If .SelectedRows.Count = 0 Then
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim wartPO_Id As Integer = CInt(dgvPruefungsobjekte.SelectedRows(0).Cells("wartPO_Id").Value)
|
||||
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
|
||||
Dim TopMax = If(IsNumeric(MyTextBox2.Text), " TOP " & MyTextBox2.Text, "")
|
||||
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 "
|
||||
|
||||
|
||||
' .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)
|
||||
.LOAD()
|
||||
setDGVOptionsPruefungen()
|
||||
End With
|
||||
showDGVPruefungen()
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, "")
|
||||
End Try
|
||||
Me.Cursor = Cursors.Default
|
||||
End Sub
|
||||
Sub showDGVPruefungen()
|
||||
|
||||
With dgvPruefungen
|
||||
|
||||
If .ColumnCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub
|
||||
.RowHeadersVisible = False
|
||||
.ReadOnly = True
|
||||
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
|
||||
.MultiSelect = False
|
||||
|
||||
.Columns("wartPruef_Id").Visible = False
|
||||
|
||||
|
||||
.Columns("wartPruef_Faelligkeitsdatum").MinimumWidth = 100
|
||||
.Columns("wartPruef_Faelligkeitsdatum").HeaderText = "Fälligkeitsdatum"
|
||||
.Columns("wartPruef_Faelligkeitsdatum").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
|
||||
.Columns("wartPO_Kennung").Width = 60
|
||||
.Columns("wartPO_Kennung").HeaderText = "(Kennung)"
|
||||
|
||||
.Columns("wartPO_Kategorie").Width = 100
|
||||
.Columns("wartPO_Kategorie").HeaderText = "Kategorie"
|
||||
|
||||
.Columns("wartPO_Firma").Width = 80
|
||||
.Columns("wartPO_Firma").HeaderText = "Firma"
|
||||
|
||||
.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"
|
||||
|
||||
|
||||
|
||||
' lblErgebnis.Text = "Ergebnise: " & .RowCount
|
||||
End With
|
||||
End Sub
|
||||
|
||||
Sub setDGVOptionsPruefungen()
|
||||
Try
|
||||
Exit Sub
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
|
||||
srcTAG = srcTAG.AddDays(-1)
|
||||
@@ -309,6 +423,20 @@ Public Class frmAuditFlow
|
||||
btnSuche.PerformClick()
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
Dim f As New frmAuditFlow_Pruefungsojekt()
|
||||
f.ShowDialog(Me)
|
||||
dgvPruefungsobjekte.RELOAD()
|
||||
setDGVOptionsPruefungsobjekte()
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
If txtWartungFaelligkeitAbDat._value <> "" Then
|
||||
cAuditFlow.ErzeugeFaelligePruefungen(txtWartungFaelligkeitAbDat._value)
|
||||
End If
|
||||
dgvPruefungsobjekte.RELOAD()
|
||||
setDGVOptionsPruefungsobjekte()
|
||||
|
||||
loadDGVPuefungen()
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user