You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
781 lines
29 KiB
781 lines
29 KiB
Imports System.ComponentModel
|
|
Imports C1.Win.C1TrueDBGrid
|
|
Imports DevComponents.AdvTree
|
|
|
|
<Runtime.InteropServices.Guid("B7BE2DB2-11FB-4D05-A213-6416AD82BE79")>
|
|
Public Class frmPruefschrittUebersicht
|
|
|
|
#Region "Deklarationen"
|
|
|
|
|
|
Dim WithEvents evh As MyGenericEventHandler = Globals.MyEventHanlder
|
|
Dim sec As New Utils.MySecurity
|
|
Dim msg As New Utils.MyMessage
|
|
Dim FormReadonly As Boolean = False
|
|
Dim FormDataChanged As Boolean = False
|
|
Dim Pruefschritt As New clsPruefschritt
|
|
Dim Pruefschrittresultat As New clsPruefschrittResultat
|
|
Dim Pruefschrttmassnahme As New clsPruefschrittMassnahme
|
|
Dim Pruefschrittfinding As New clsFinding
|
|
Dim OnRefreshAll As Boolean = False
|
|
Dim TreeMassnahmenUsed As Boolean = False
|
|
|
|
|
|
#End Region
|
|
Sub New()
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
Me.ImageList1 = Globals.StatusImages
|
|
Me.TreeUebersicht.ImageList = Me.ImageList1
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
|
|
End Sub
|
|
|
|
Private Sub frmPruefschrittUebersicht_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Try
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Application.DoEvents()
|
|
Me.TreeMassnahmen.Nodes.Clear()
|
|
'Dim tn As New DevComponents.AdvTree.Node
|
|
'tn.Text = "Erledigte Massnahmen"
|
|
'tn.Tag = 0
|
|
'tn.ImageIndex = 0
|
|
|
|
'Me.TreeMassnahmen.Nodes.Add(tn)
|
|
'Dim tn1 As New DevComponents.AdvTree.Node
|
|
'tn1.Tag = 1
|
|
'tn1.ImageIndex = 1
|
|
|
|
'tn1.Text = "Pendente Massnahmen"
|
|
'Me.TreeMassnahmen.Nodes.Add(tn1)
|
|
|
|
'Dim tn2 As New DevComponents.AdvTree.Node
|
|
'tn2.Text = "Überfällige Massnahmen"
|
|
'tn2.Tag = 2
|
|
'tn2.ImageIndex = 2
|
|
|
|
'Me.TreeMassnahmen.Nodes.Add(tn2)
|
|
|
|
Refresh_All()
|
|
|
|
Catch ex As Exception
|
|
Finally
|
|
Me.Cursor = Cursors.Default
|
|
Application.DoEvents()
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
Sub Load_Status()
|
|
|
|
Me.DokumenteAllgemein.Show_Toolbar = False
|
|
Me.DokumenteAllgemein.ConnectionString = Globals.sConnectionString
|
|
Me.DokumenteAllgemein.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
|
'Me.DokumenteAllgemein.Doktype = 4
|
|
'Me.DokumenteAllgemein.ThemaNr = 0
|
|
'Me.DokumenteAllgemein.Refresh()
|
|
Me.DokumenteAllgemein.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
|
|
|
|
Me.DokumenteFindings.Show_Toolbar = False
|
|
|
|
Me.DokumenteFindings.ConnectionString = Globals.sConnectionString
|
|
Me.DokumenteFindings.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
|
Me.DokumenteFindings.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
|
|
|
|
Me.DokumenteMassnahmen.Show_Toolbar = False
|
|
Me.DokumenteMassnahmen.ConnectionString = Globals.sConnectionString
|
|
Me.DokumenteMassnahmen.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
|
Me.DokumenteMassnahmen.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
|
|
|
|
Me.DokumenteResultat.Show_Toolbar = False
|
|
Me.DokumenteResultat.ConnectionString = Globals.sConnectionString
|
|
Me.DokumenteResultat.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
|
Me.DokumenteResultat.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
|
|
|
|
|
|
Me.TreeUebersicht.Nodes.Clear()
|
|
Dim i As Integer = 0
|
|
For Each r As DataRow In Pruefschritt.Pruefschrittstatus.Rows
|
|
Dim tn As New DevComponents.AdvTree.Node
|
|
tn.Text = r("Bezeichnung")
|
|
tn.Tag = r(0)
|
|
tn.ImageIndex = i
|
|
i = i + 1
|
|
Me.TreeUebersicht.Nodes.Add(tn)
|
|
Next
|
|
|
|
End Sub
|
|
|
|
Private Sub TreeUebersicht_AfterNodeSelect(sender As Object, e As AdvTreeNodeEventArgs) Handles TreeUebersicht.AfterNodeSelect
|
|
|
|
Try
|
|
Me.C1Daten.Columns("Pruefschrittstatusnr").FilterText = Me.TreeUebersicht.SelectedNode.Tag
|
|
Catch
|
|
End Try
|
|
Me.DokumenteAllgemein.Pruefschrittnr = -1
|
|
Try
|
|
Me.DokumenteAllgemein.Pruefschrittnr = Me.C1Daten.Columns("Pruefschrittnr").Value
|
|
refresh_all_Details()
|
|
|
|
Catch
|
|
End Try
|
|
Me.C1Findings.Enabled = True
|
|
|
|
End Sub
|
|
|
|
Dim Treeclciked As Boolean = False
|
|
Private Sub C1Daten_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1Daten.RowColChange
|
|
If Treeclciked Then Exit Sub
|
|
refresh_all_Details()
|
|
|
|
|
|
End Sub
|
|
Sub refresh_all_Details()
|
|
|
|
If OnRefreshAll Then Exit Sub
|
|
|
|
Refresh_Toolbar()
|
|
Me.DokumenteAllgemein.Init()
|
|
Me.C1Findings.DataSource = Nothing
|
|
Me.C1Massnahmen.DataSource = Nothing
|
|
Me.C1Notiz.DataSource = Nothing
|
|
Try
|
|
Me.DokumenteAllgemein.Pruefschrittnr = Me.C1Daten.Columns("Pruefschrittnr").Value
|
|
Refresh_Dokumente_Resultat()
|
|
Refresh_notizen()
|
|
Refresh_History()
|
|
Refresh_Resultat()
|
|
Refresh_Vorgaben()
|
|
|
|
Catch
|
|
End Try
|
|
Refresh_Details()
|
|
|
|
End Sub
|
|
|
|
Sub Refresh_Vorgaben()
|
|
Me.Pruefschritt.Get_Vorgaben(Me.C1Vorgaben, Me.C1Daten.Columns("Pruefplannr").Value)
|
|
|
|
End Sub
|
|
|
|
Sub Refresh_notizen()
|
|
Dim notizen As New clsPruefschrittNotiz
|
|
Try
|
|
notizen.Get_Eintraege(Me.C1Notiz, Me.C1Daten.Columns("Pruefschrittnr").Value)
|
|
Catch
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Sub Refresh_History()
|
|
Dim history As New clsHistory
|
|
Try
|
|
history.Get_Eintraege(Me.C1History, Me.C1Daten.Columns("Pruefschrittnr").Value)
|
|
Catch
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Sub Refresh_Resultat()
|
|
Try
|
|
Pruefschrittresultat.Get_Data(Me.C1Daten.Columns("Pruefschrittnr").Value)
|
|
Me.txtKurzbeschreibungResultat.Text = Pruefschrittresultat.sKurzbeschreibung.Value
|
|
Me.txtBeschreibungResultat.Text = Pruefschrittresultat.sBeschreibung.Value
|
|
Catch
|
|
End Try
|
|
Refresh_Findings()
|
|
Refresh_All_Findings()
|
|
|
|
End Sub
|
|
|
|
Sub Refresh_Findings()
|
|
If Me.Treeclciked Then Exit Sub
|
|
Try
|
|
Refresh_Finding_Dokumente()
|
|
Me.Pruefschrittfinding.Get_Eintraege(Me.C1Findings, Me.Pruefschrittresultat.iPruefSchrittResultatNr.Value, ImageListFindings)
|
|
Try
|
|
Dim findingnr As Integer = Me.C1Daten.Columns("Pruefschrittfindingnr").Value
|
|
For i = 0 To Me.C1Findings.Splits(0).Rows.Count - 1
|
|
If C1Findings.Columns("Pruefschrittfindingnr").CellText(i) = findingnr Then Me.C1Findings.Bookmark = i
|
|
Next
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
Catch
|
|
End Try
|
|
|
|
Refresh_Massnahmen()
|
|
End Sub
|
|
|
|
Sub Refresh_Massnahmen()
|
|
Try
|
|
DokumenteMassnahmen.Init()
|
|
Me.Pruefschrttmassnahme.Get_Eintraege(Me.C1Massnahmen, Me.C1Findings.Columns("Pruefschrittresultatnr").Value, Me.ImageListFindings)
|
|
Try
|
|
Dim Massnahmenr As Integer = Me.C1Daten.Columns("PruefschrittmassnahmeNr").Value
|
|
For i = 0 To Me.C1Massnahmen.Splits(0).Rows.Count - 1
|
|
If C1Massnahmen.Columns("PruefschrittmassnahmeNr").CellText(i) = Massnahmenr Then Me.C1Massnahmen.Bookmark = i
|
|
Next
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
Catch
|
|
End Try
|
|
|
|
End Sub
|
|
Sub Refresh_All(Optional key As Integer = 0)
|
|
'Me.OnRefreshAll = True
|
|
If TreeMassnahmenUsed = True Then
|
|
Dim mtn As New DevComponents.AdvTree.Node
|
|
mtn = Me.TreeMassnahmen.SelectedNode
|
|
Pruefschritt.Get_Massnahmen(Me.TreeMassnahmen)
|
|
Me.TreeMassnahmen.SelectedNode = mtn
|
|
Me.OnRefreshAll = False
|
|
Me.TreeMassnahmen.Focus()
|
|
Exit Sub
|
|
Else
|
|
Pruefschritt.Get_Massnahmen(Me.TreeMassnahmen)
|
|
|
|
End If
|
|
|
|
Load_Status()
|
|
Pruefschritt.Get_Eintraege(Me.C1Daten, Globals.clsmitarbeiter.iMitarbeiternr, Me.TreeUebersicht)
|
|
Dim dt As New DataTable
|
|
dt = C1Daten.DataSource
|
|
Dim ds As New DataSet
|
|
ds.Tables.Add(dt.Copy)
|
|
ds.WriteXml("K:\gaga.xml")
|
|
|
|
Me.TreeUebersicht.SelectedNode = Me.TreeUebersicht.Nodes(0)
|
|
If key = 0 Then
|
|
For Each tn As DevComponents.AdvTree.Node In Me.TreeUebersicht.Nodes
|
|
If Microsoft.VisualBasic.Right(tn.Text, 3) <> "(0)" Then Me.TreeUebersicht.SelectedNode = tn
|
|
Next
|
|
Else
|
|
For Each tn As DevComponents.AdvTree.Node In Me.TreeUebersicht.Nodes
|
|
If Microsoft.VisualBasic.Right(tn.Text, 3) <> "(0)" Then
|
|
Me.TreeUebersicht.SelectedNode = tn
|
|
Exit For
|
|
End If
|
|
Next
|
|
Try
|
|
Dim i As Integer = 0
|
|
For i = 0 To Me.C1Daten.Splits(0).Rows.Count - 1
|
|
If C1Daten.Columns("Pruefschrittnr").CellText(i) = key Then Me.C1Daten.Bookmark = i
|
|
Next
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
End If
|
|
'MsgBox("Hallo")
|
|
Me.OnRefreshAll = False
|
|
|
|
|
|
|
|
|
|
Me.OnRefreshAll = False
|
|
refresh_all_Details()
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
Sub Refresh_Details()
|
|
Try
|
|
Me.txtBezeichnung.Text = ""
|
|
Me.txtBeschreibung.Text = ""
|
|
Me.txtPruefgegenstand.Text = ""
|
|
Me.txtMassnahmen.Text = ""
|
|
Me.txtEreignisse.Text = ""
|
|
Me.txtHilfsmittel.Text = ""
|
|
Me.txtVerantwortlich.Text = ""
|
|
Me.txtVerantwortungISI.Text = ""
|
|
Me.txtAktuellVerantwortlich.Text = ""
|
|
Me.txtTermin.Text = ""
|
|
Me.txtZugewiesen.Text = ""
|
|
Me.txtErstelltam.Text = ""
|
|
Me.txtMutiertam.Text = ""
|
|
Me.txtMutierer.Text = ""
|
|
|
|
Me.txtBezeichnung.Text = Me.C1Daten.Columns("Bezeichnung").Value
|
|
Me.txtBeschreibung.Text = Me.C1Daten.Columns("Beschreibung").Value
|
|
Me.txtPruefgegenstand.Text = Me.C1Daten.Columns("Pruefgegenstand").Value
|
|
Me.txtMassnahmen.Text = Me.C1Daten.Columns("Massnahmen").Value
|
|
Me.txtEreignisse.Text = Me.C1Daten.Columns("Ergebnisse").Value
|
|
Me.txtHilfsmittel.Text = Me.C1Daten.Columns("Hilfsmittel").Value
|
|
|
|
Me.txtVerantwortlich.Text = Me.C1Daten.Columns("Hauptverantwortung").Value
|
|
Me.txtVerantwortungPlan.Text = Me.C1Daten.Columns("VerantwortungPlan").Value
|
|
Me.txtAktuellVerantwortlich.Text = Me.C1Daten.Columns("aktuell_verantwortlich").Value
|
|
Me.txtVerantwortungISI.Text = Me.C1Daten.Columns("Verantwortung_isi").Value
|
|
Me.txtZugewiesen.Text = Me.C1Daten.Columns("Zugewiesen").Value
|
|
Me.txtErstelltam.Text = Me.C1Daten.Columns("erstellt_am").Value
|
|
Me.txtMutiertam.Text = Me.C1Daten.Columns("mutiert_am").Value
|
|
Me.txtMutierer.Text = Me.C1Daten.Columns("mutierer").Value
|
|
|
|
Me.txtTermin.Text = Me.C1Daten.Columns("Termin").Value
|
|
Catch ex As Exception
|
|
'MsgBox(ex.Message)
|
|
End Try
|
|
|
|
End Sub
|
|
Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub WeiterleitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles WeiterleitenToolStripMenuItem.Click
|
|
Try
|
|
Dim f As New frmWeitergabe(Me.C1Daten.Columns("Pruefschrittnr").Value)
|
|
f.ShowDialog()
|
|
If f.DialogResult = DialogResult.OK Then
|
|
Dim clsnotiz As New clsPruefschrittNotiz
|
|
clsnotiz.Add_New()
|
|
clsnotiz.sNotiz = New SqlTypes.SqlString(CType(f.txtNotiz.Text, String))
|
|
clsnotiz.iPruefschrittnr = New SqlTypes.SqlInt32(CType(C1Daten.Columns("Pruefschrittnr").Value, Int32))
|
|
clsnotiz.Save_Data()
|
|
clsnotiz = Nothing
|
|
|
|
Dim History As New clsHistory
|
|
History.Insert_History(C1Daten.Columns("Pruefschrittnr").Value, 1, Globals.clsmitarbeiter.iMitarbeiternr.Value, f.cbboxmitarbeiter.SelectedValue)
|
|
History.Dispose()
|
|
|
|
Dim save_verantworlich As Integer
|
|
Me.Pruefschritt.Get_Data(C1Daten.Columns("Pruefschrittnr").Value)
|
|
save_verantworlich = Me.Pruefschritt.iAktueller_Verantwortlicher.Value
|
|
Me.Pruefschritt.iAktueller_Verantwortlicher = New SqlTypes.SqlInt32(CType(f.cbboxmitarbeiter.SelectedValue, Int32))
|
|
Me.Pruefschritt.iStatusnr = New SqlTypes.SqlInt32(CType(2, Int32))
|
|
Me.Pruefschritt.Save_Data()
|
|
If save_verantworlich <> Me.Pruefschritt.iAktueller_Verantwortlicher.Value Then
|
|
Pruefschritt.Insert_Message(1, Me.Pruefschritt.iPruefschrittNr.Value, Me.Pruefschritt.iAktueller_Verantwortlicher.Value, save_verantworlich, f.txtNotiz.Text)
|
|
End If
|
|
|
|
|
|
Refresh_All()
|
|
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles tsbtnAktualisieren.Click
|
|
Refresh_All()
|
|
End Sub
|
|
|
|
Private Sub C1Notiz_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1Notiz.RowColChange
|
|
Me.txtnotiz.Text = ""
|
|
Try
|
|
Me.txtnotiz.Text = Me.C1Notiz.Columns("Notiz").Value
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub BearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BearbeitenToolStripMenuItem.Click
|
|
Dim f As New PruefschrittDetailsBearbeitung
|
|
f.Pruefschrittnr = C1Daten.Columns("Pruefschrittnr").Value
|
|
f.MdiParent = Me.MdiParent
|
|
f.Handler = Me.Handle
|
|
Dim cps As New clsPruefschritt
|
|
|
|
cps.Get_Data(C1Daten.Columns("Pruefschrittnr").Value)
|
|
If cps.bDurchfuehrung_ISI.Value = True Then
|
|
If cps.is_isimitarbeiter(Globals.clsmitarbeiter.iMitarbeiternr) = True Then
|
|
If cps.iStatusnr = 6 Then f.IsReadonly = True
|
|
Else
|
|
If cps.iAktueller_Verantwortlicher <> Globals.clsmitarbeiter.iMitarbeiternr Or cps.iStatusnr = 6 Then f.IsReadonly = True
|
|
End If
|
|
Else
|
|
If cps.iAktueller_Verantwortlicher <> Globals.clsmitarbeiter.iMitarbeiternr Or cps.iStatusnr = 6 Then f.IsReadonly = True
|
|
End If
|
|
f.Show()
|
|
|
|
End Sub
|
|
|
|
Private Sub C1Daten_DoubleClick(sender As Object, e As EventArgs) Handles C1Daten.DoubleClick
|
|
Try
|
|
BearbeitenToolStripMenuItem_Click(sender, e)
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub tsbtnFindingBearbeiten_Click(sender As Object, e As EventArgs) Handles tsbtnPruefschrittbearbeiten.Click
|
|
Try
|
|
Me.C1Daten_DoubleClick(sender, e)
|
|
Catch
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub evh_pruefschrittresultat_closed(handler As Integer, key As Integer) Handles evh.pruefschrittresultat_closed
|
|
Try
|
|
If Me.Handle = handler Then Refresh_All(key)
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub evh_Pruefschrittresultat_saved(handler As Integer, key As Integer) Handles evh.Pruefschrittresultat_saved
|
|
Try
|
|
If Me.Handle = handler Then Refresh_All(key)
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub ctxMenuPruefschritt_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ctxMenuPruefschritt.Opening
|
|
|
|
If Me.C1Daten.Splits(0).Rows.Count < 1 Then
|
|
Me.ctxMenuPruefschritt.Visible = False
|
|
Else
|
|
Me.ctxMenuPruefschritt.Visible = True
|
|
End If
|
|
|
|
Me.BearbeitenToolStripMenuItem.Visible = False
|
|
Me.WeiterleitenToolStripMenuItem.Visible = False
|
|
Me.AbschliessenToolStripMenuItem.Visible = False
|
|
Me.ZurückweisenToolStripMenuItem.Visible = False
|
|
|
|
Select Case Me.TreeUebersicht.SelectedNode.Tag
|
|
Case 1, 2, 3
|
|
Me.BearbeitenToolStripMenuItem.Visible = True
|
|
Me.WeiterleitenToolStripMenuItem.Visible = True
|
|
Case 4
|
|
|
|
Case 5
|
|
If Globals.clsmitarbeiter.iMitarbeiternr.Value = Me.C1Daten.Columns("Aktuelle_Verantwortungnr").Value Then
|
|
Me.BearbeitenToolStripMenuItem.Visible = True
|
|
Me.ZurückweisenToolStripMenuItem.Visible = True
|
|
End If
|
|
|
|
Case 6
|
|
|
|
End Select
|
|
|
|
'Me.BearbeitenToolStripMenuItem.Enabled = False
|
|
'Me.WeiterleitenToolStripMenuItem.Enabled = False
|
|
'Me.AbschliessenToolStripMenuItem.Enabled = False
|
|
'Me.WeiterleitenToolStripMenuItem.Visible = True
|
|
|
|
|
|
''Prüfung abgeschlossen
|
|
'If Me.TreeUebersicht.SelectedNode.Tag < 4 Or Globals.clsmitarbeiter.iMitarbeiternr.Value = Me.C1Daten.Columns("Aktuelle_Verantwortungnr").Value Then
|
|
' Me.BearbeitenToolStripMenuItem.Enabled = True
|
|
' Me.WeiterleitenToolStripMenuItem.Enabled = True
|
|
' Me.AbschliessenToolStripMenuItem.Enabled = True
|
|
'End If
|
|
|
|
'If Me.TreeUebersicht.SelectedNode.Tag = 5 Then
|
|
' Me.ZurückweisenToolStripMenuItem.Visible = True
|
|
' Me.WeiterleitenToolStripMenuItem.Visible = False
|
|
'End If
|
|
|
|
End Sub
|
|
|
|
Private Sub AnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnzeigenToolStripMenuItem.Click
|
|
Dim f As New PruefschrittDetailsBearbeitung
|
|
f.Pruefschrittnr = C1Daten.Columns("Pruefschrittnr").Value
|
|
f.MdiParent = Me.MdiParent
|
|
f.Handler = Me.Handle
|
|
f.IsReadonly = True
|
|
f.Show()
|
|
End Sub
|
|
|
|
Private Sub AbschliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AbschliessenToolStripMenuItem.Click
|
|
If MsgBox("Ist das Assessment definitiv abgeschlossen?", vbYesNo + vbQuestion) = MsgBoxResult.Yes Then
|
|
Pruefschritt.Get_Data(Me.C1Daten.Columns("PruefschrittNr").Value)
|
|
|
|
Me.Pruefschritt.iStatusnr = 6
|
|
Me.Pruefschritt.Save_Data()
|
|
Dim History As New clsHistory
|
|
History.Insert_History(C1Daten.Columns("Pruefschrittnr").Value, 2, Globals.clsmitarbeiter.iMitarbeiternr.Value, "")
|
|
History.Dispose()
|
|
|
|
Me.Refresh_All()
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub C1Findings_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1Findings.RowColChange
|
|
Refresh_All_Findings()
|
|
End Sub
|
|
|
|
Sub Refresh_All_Findings()
|
|
Refresh_Finding_Dokumente()
|
|
Me.txtfindingbezeichnung.Text = ""
|
|
Me.txtfindingbeschreibung.Text = ""
|
|
Try
|
|
Me.txtfindingbeschreibung.Text = Me.C1Findings.Columns("Beschreibung").Value
|
|
Me.txtfindingbezeichnung.Text = Me.C1Findings.Columns("Bezeichnung").Value
|
|
Catch
|
|
End Try
|
|
Refresh_MassnahmenFinding()
|
|
End Sub
|
|
|
|
Sub Refresh_Dokumente_Resultat()
|
|
|
|
Try
|
|
Me.DokumenteResultat.Show_Toolbar = False
|
|
Me.DokumenteResultat.ConnectionString = Globals.sConnectionString
|
|
Me.DokumenteResultat.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
|
Me.DokumenteResultat.Init()
|
|
|
|
Me.DokumenteResultat.Doktype = 4
|
|
Me.DokumenteResultat.ThemaNr = Me.C1Daten.Columns("Pruefschrittnr").Value
|
|
Me.DokumenteResultat.Refresh_Dokumente()
|
|
Me.DokumenteResultat.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
|
|
Catch ex As Exception
|
|
Me.DokumenteResultat.Init()
|
|
Me.DokumenteResultat.Show_Toolbar = False
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
Sub Refresh_Finding_Dokumente()
|
|
If Me.C1Findings.Splits(0).Rows.Count < 1 Then
|
|
Me.DokumenteFindings.Init()
|
|
|
|
|
|
Exit Sub
|
|
End If
|
|
Try
|
|
Me.DokumenteFindings.Show_Toolbar = False
|
|
Me.DokumenteFindings.ConnectionString = Globals.sConnectionString
|
|
Me.DokumenteFindings.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
|
Me.DokumenteFindings.Init()
|
|
|
|
Me.DokumenteFindings.Doktype = 5
|
|
Me.DokumenteFindings.ThemaNr = Me.C1Findings.Columns("Pruefschrittfindingnr").Value
|
|
Me.DokumenteFindings.Refresh_Dokumente()
|
|
Me.DokumenteFindings.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
|
|
Catch ex As Exception
|
|
Me.DokumenteFindings.Init()
|
|
Me.DokumenteFindings.Show_Toolbar = False
|
|
End Try
|
|
End Sub
|
|
|
|
Sub Refresh_MassnahmenFinding()
|
|
Me.C1Massnahmen.DataSource = Nothing
|
|
If Me.C1Findings.Splits(0).Rows.Count > 0 Then
|
|
Try
|
|
Dim Massnahmen As New clsPruefschrittMassnahme
|
|
Massnahmen.Get_Eintraege(Me.C1Massnahmen, Me.C1Findings.Columns("Pruefschrittfindingnr").Value, Me.ImageListeMassnahmen)
|
|
Refresh_Massnahmen_Dokument()
|
|
Try
|
|
Dim Massnahmenr As Integer = Me.C1Daten.Columns("PruefschrittmassnahmeNr").Value
|
|
For i = 0 To Me.C1Massnahmen.Splits(0).Rows.Count - 1
|
|
If C1Massnahmen.Columns("PruefschrittmassnahmeNr").CellText(i) = Massnahmenr Then Me.C1Massnahmen.Bookmark = i
|
|
Next
|
|
Catch
|
|
End Try
|
|
|
|
Catch
|
|
End Try
|
|
|
|
End If
|
|
|
|
|
|
End Sub
|
|
|
|
Sub Refresh_Massnahmen_Dokument()
|
|
|
|
|
|
If Me.C1Massnahmen.Splits(0).Rows.Count < 1 Then
|
|
Me.DokumenteMassnahmen.Init()
|
|
|
|
Exit Sub
|
|
End If
|
|
Try
|
|
|
|
Me.DokumenteMassnahmen.ConnectionString = Globals.sConnectionString
|
|
Me.DokumenteMassnahmen.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
|
Me.DokumenteMassnahmen.Init()
|
|
|
|
Me.DokumenteMassnahmen.Doktype = 6
|
|
Me.DokumenteMassnahmen.ThemaNr = Me.C1Massnahmen.Columns("Pruefschrittmassnahmenr").Value
|
|
Me.DokumenteMassnahmen.Refresh_Dokumente()
|
|
Me.DokumenteMassnahmen.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
|
|
Catch ex As Exception
|
|
Me.DokumenteMassnahmen.Init()
|
|
Me.DokumenteMassnahmen.Show_Toolbar = False
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub C1Massnahmen_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1Massnahmen.RowColChange
|
|
Me.txtmassnahmebezeichnung.Text = ""
|
|
Me.txtMassnahmebeschreibung.Text = ""
|
|
Me.txtMassnahmeResultat.Text = ""
|
|
|
|
Try
|
|
Me.txtmassnahmebezeichnung.Text = Me.C1Massnahmen.Columns("Kurzbeschreibung").Value
|
|
Me.txtMassnahmebeschreibung.Text = Me.C1Massnahmen.Columns("Beschreibung").Value
|
|
Me.txtMassnahmeResultat.Text = Me.C1Massnahmen.Columns("MassnahmeResultat").Value
|
|
Catch
|
|
End Try
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub C1Vorgaben_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1Vorgaben.RowColChange
|
|
Try
|
|
Me.txtStruktur.Text = Me.C1Vorgaben.Columns("Struktur").Value
|
|
Me.txtDefinitionBezeichnung.Text = Me.C1Vorgaben.Columns("Bezeichnung").Value
|
|
Me.txtDefinitionBeschreibung.Text = Me.C1Vorgaben.Columns("Definition").Value
|
|
Me.txtDefinitionBemerkung.Text = Me.C1Vorgaben.Columns("Bemerkungen").Value
|
|
Catch
|
|
End Try
|
|
|
|
Try
|
|
Me.DokumenteDefinition.Show_Toolbar = True
|
|
Me.DokumenteDefinition.ConnectionString = Globals.sConnectionString
|
|
Me.DokumenteDefinition.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
|
Me.DokumenteDefinition.Doktype = 2
|
|
Try
|
|
Me.DokumenteDefinition.ThemaNr = C1Vorgaben.Columns("VorgabeDefinitionNr").Value
|
|
Catch
|
|
Me.DokumenteDefinition.ThemaNr = -1
|
|
End Try
|
|
|
|
Me.DokumenteDefinition.Refresh()
|
|
Me.DokumenteDefinition.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub ZurückweisenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZurückweisenToolStripMenuItem.Click
|
|
Try
|
|
Dim f As New frmWeitergabe(Me.C1Daten.Columns("Pruefschrittnr").Value, Me.C1Daten.Columns("Verantwortungnr").Value, True)
|
|
f.Text = "Assessment zurückweisen"
|
|
f.btnok.Text = "Zurückweisen"
|
|
f.ShowDialog()
|
|
If f.DialogResult = DialogResult.OK Then
|
|
Dim clsnotiz As New clsPruefschrittNotiz
|
|
clsnotiz.Add_New()
|
|
clsnotiz.sNotiz = New SqlTypes.SqlString(CType(f.txtNotiz.Text, String))
|
|
clsnotiz.iPruefschrittnr = New SqlTypes.SqlInt32(CType(C1Daten.Columns("Pruefschrittnr").Value, Int32))
|
|
clsnotiz.Save_Data()
|
|
clsnotiz = Nothing
|
|
|
|
Dim History As New clsHistory
|
|
History.Insert_History(C1Daten.Columns("Pruefschrittnr").Value, 1, Globals.clsmitarbeiter.iMitarbeiternr.Value, f.cbboxmitarbeiter.SelectedValue)
|
|
History.Dispose()
|
|
|
|
Me.Pruefschritt.Get_Data(C1Daten.Columns("Pruefschrittnr").Value)
|
|
Me.Pruefschritt.iAktueller_Verantwortlicher = New SqlTypes.SqlInt32(CType(f.cbboxmitarbeiter.SelectedValue, Int32))
|
|
Me.Pruefschritt.iStatusnr = New SqlTypes.SqlInt32(CType(2, Int32))
|
|
Me.Pruefschritt.Save_Data()
|
|
Refresh_All()
|
|
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub AdvTree1_Click(sender As Object, e As EventArgs)
|
|
|
|
End Sub
|
|
|
|
Private Sub TreeMassnahmen_AfterNodeSelect(sender As Object, e As AdvTreeNodeEventArgs) Handles TreeMassnahmen.AfterNodeSelect
|
|
TreeMassnahmenUsed = True
|
|
Me.Treeclciked = True
|
|
Try
|
|
|
|
Me.C1Daten.Columns("Pruefschrittstatusnr").FilterText = Me.TreeUebersicht.SelectedNode.Tag
|
|
Catch
|
|
End Try
|
|
Me.DokumenteAllgemein.Pruefschrittnr = -1
|
|
Try
|
|
Me.DokumenteAllgemein.Pruefschrittnr = Me.C1Daten.Columns("Pruefschrittnr").Value
|
|
|
|
|
|
Catch
|
|
End Try
|
|
|
|
Me.Pruefschritt.Get_Massnahmen_Data(Me.C1Daten, Me.TreeMassnahmen.SelectedNode.Tag)
|
|
Me.Treeclciked = False
|
|
refresh_all_Details()
|
|
|
|
|
|
Me.DokumenteAllgemein.Pruefschrittnr = -1
|
|
Try
|
|
Me.DokumenteAllgemein.Pruefschrittnr = Me.C1Daten.Columns("Pruefschrittnr").Value
|
|
refresh_all_Details()
|
|
|
|
Catch
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub TreeMassnahmen_Click(sender As Object, e As EventArgs) Handles TreeMassnahmen.Click
|
|
|
|
End Sub
|
|
|
|
Private Sub TreeUebersicht_NodeClick(sender As Object, e As TreeNodeMouseEventArgs) Handles TreeUebersicht.NodeClick
|
|
If TreeMassnahmenUsed = True Then
|
|
Dim tn As New DevComponents.AdvTree.Node
|
|
tn = Me.TreeUebersicht.SelectedNode
|
|
|
|
Load_Status()
|
|
Pruefschritt.Get_Eintraege(Me.C1Daten, Globals.clsmitarbeiter.iMitarbeiternr, Me.TreeUebersicht)
|
|
Me.TreeUebersicht.SelectedNode = tn
|
|
TreeMassnahmenUsed = False
|
|
End If
|
|
End Sub
|
|
|
|
Sub Refresh_Toolbar()
|
|
Try
|
|
Select Case Me.TreeUebersicht.SelectedNode.Tag
|
|
Case 1, 2, 3
|
|
If Globals.clsmitarbeiter.iMitarbeiternr.Value = Me.C1Daten.Columns("Aktuelle_Verantwortungnr").Value Then
|
|
Me.tsbtnPruefschrittbearbeiten.Visible = True
|
|
Me.tsbtnAssessmentAnzeigen.Visible = False
|
|
Else
|
|
Me.tsbtnPruefschrittbearbeiten.Visible = False
|
|
Me.tsbtnAssessmentAnzeigen.Visible = True
|
|
End If
|
|
|
|
Case 4
|
|
|
|
Case 5
|
|
If Globals.clsmitarbeiter.iMitarbeiternr.Value = Me.C1Daten.Columns("Aktuelle_Verantwortungnr").Value Then
|
|
Me.tsbtnPruefschrittbearbeiten.Visible = True
|
|
Me.tsbtnAssessmentAnzeigen.Visible = False
|
|
Else
|
|
Me.tsbtnPruefschrittbearbeiten.Visible = False
|
|
Me.tsbtnAssessmentAnzeigen.Visible = True
|
|
End If
|
|
|
|
|
|
Case 6
|
|
Me.tsbtnPruefschrittbearbeiten.Visible = False
|
|
Me.tsbtnAssessmentAnzeigen.Visible = True
|
|
End Select
|
|
|
|
Catch
|
|
End Try
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub tsbtnAssessmentAnzeigen_Click(sender As Object, e As EventArgs) Handles tsbtnAssessmentAnzeigen.Click
|
|
tsbtnFindingBearbeiten_Click(sender, e)
|
|
End Sub
|
|
|
|
Private Sub C1Daten_Click(sender As Object, e As EventArgs) Handles C1Daten.Click
|
|
Try
|
|
If Treeclciked Then Exit Sub
|
|
refresh_all_Details()
|
|
Catch
|
|
End Try
|
|
|
|
End Sub
|
|
End Class |