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.
289 lines
10 KiB
289 lines
10 KiB
Imports System.ComponentModel
|
|
Imports C1.Win.C1TrueDBGrid
|
|
Imports DevComponents.AdvTree
|
|
|
|
Public Class frmMassnahmenuebersicht
|
|
|
|
#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 Massnahme As New clsMassnahme
|
|
|
|
|
|
#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
|
|
Refresh_All()
|
|
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 = 7
|
|
'Me.DokumenteAllgemein.ThemaNr = 0
|
|
'Me.DokumenteAllgemein.Refresh()
|
|
Me.DokumenteAllgemein.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
|
|
|
|
|
|
Me.TreeUebersicht.Nodes.Clear()
|
|
Dim i As Integer = 0
|
|
For Each r As DataRow In Massnahme.Status.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("StatusNr").FilterText = Me.TreeUebersicht.SelectedNode.Tag
|
|
Catch
|
|
End Try
|
|
Me.DokumenteAllgemein.Pruefschrittnr = -1
|
|
Try
|
|
Me.DokumenteAllgemein.Pruefschrittnr = Me.C1Daten.Columns("Massnahmenr").Value
|
|
|
|
Catch
|
|
End Try
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub C1Daten_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1Daten.RowColChange
|
|
Me.DokumenteAllgemein.Init()
|
|
Me.C1Notiz.DataSource = Nothing
|
|
Try
|
|
Me.DokumenteAllgemein.Pruefschrittnr = Me.C1Daten.Columns("Massnahmenr").Value
|
|
Refresh_notizen()
|
|
Refresh_History()
|
|
Catch
|
|
End Try
|
|
Refresh_Details()
|
|
|
|
End Sub
|
|
|
|
Sub Refresh_notizen()
|
|
Dim notizen As New clsPruefschrittNotiz
|
|
Try
|
|
notizen.Get_Eintraege(Me.C1Notiz, Me.C1Daten.Columns("Massnahmenr").Value)
|
|
Catch
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Sub Refresh_History()
|
|
Dim history As New clsHistory
|
|
Try
|
|
history.Get_Eintraege(Me.C1History, Me.C1Daten.Columns("Massnahmenr").Value)
|
|
Catch
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Sub Refresh_All()
|
|
Load_Status()
|
|
Massnahme.Get_Eintraege(Me.C1Daten, Globals.clsmitarbeiter.iMitarbeiternr, Me.TreeUebersicht)
|
|
Me.TreeUebersicht.SelectedNode = Me.TreeUebersicht.Nodes(0)
|
|
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.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("MassnahmeNr").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("MassnahmeNr").Value, Int32))
|
|
clsnotiz.Save_Data()
|
|
clsnotiz = Nothing
|
|
|
|
Dim History As New clsHistory
|
|
History.Insert_History(C1Daten.Columns("massnahmenr").Value, 1, Globals.clsmitarbeiter.iMitarbeiternr.Value, f.cbboxmitarbeiter.SelectedValue)
|
|
History.Dispose()
|
|
|
|
Me.Massnahme.Get_Data(C1Daten.Columns("MassnahmeNr").Value)
|
|
Me.Massnahme.iAktueller_Verantwortlicher = New SqlTypes.SqlInt32(CType(f.cbboxmitarbeiter.SelectedValue, Int32))
|
|
Me.Massnahme.iStatusNr = New SqlTypes.SqlInt32(CType(2, Int32))
|
|
Me.Massnahme.Save_Data()
|
|
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 ToolStripButton2.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 MassnahmeDetailBearbeitung
|
|
f.Massnahmenr = C1Daten.Columns("massnahmenr").Value
|
|
f.MdiParent = Me.MdiParent
|
|
f.Handler = Me.Handle
|
|
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()
|
|
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()
|
|
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.Enabled = False
|
|
Me.WeiterleitenToolStripMenuItem.Enabled = False
|
|
Me.AbschliessenToolStripMenuItem.Enabled = False
|
|
|
|
|
|
|
|
'Prüfung abgeschlossen
|
|
If Me.TreeUebersicht.SelectedNode.Tag < 4 Then
|
|
Me.BearbeitenToolStripMenuItem.Enabled = True
|
|
Me.WeiterleitenToolStripMenuItem.Enabled = True
|
|
Me.AbschliessenToolStripMenuItem.Enabled = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub AnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnzeigenToolStripMenuItem.Click
|
|
Dim f As New MassnahmeDetailBearbeitung
|
|
f.Massnahmenr = C1Daten.Columns("massnahmenr").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 die Massnahme definitiv abgeschlossen?", vbYesNo + vbQuestion) = MsgBoxResult.Yes Then
|
|
Massnahme.Get_Data(Me.C1Daten.Columns("PruefschrittNr").Value)
|
|
Dim f As New frmWeitergabe(Me.Massnahme.iMassnahmeNr, Me.Massnahme.iVerantwortungIsINr)
|
|
f.ShowDialog()
|
|
If f.DialogResult = DialogResult.OK Then
|
|
|
|
Me.Massnahme.iAktueller_Verantwortlicher = New SqlTypes.SqlInt32(CType(f.cbboxmitarbeiter.SelectedValue, Int32))
|
|
Me.Massnahme.iStatusNr = 5
|
|
Me.Massnahme.Save_Data()
|
|
|
|
Dim History As New clsHistory
|
|
History.Insert_History(C1Daten.Columns("massnahmenr").Value, 1, Globals.clsmitarbeiter.iMitarbeiternr.Value, f.cbboxmitarbeiter.SelectedValue)
|
|
History.Dispose()
|
|
|
|
|
|
Me.Refresh_All()
|
|
End If
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub tsBtnSearchStruktur_Definition_Click(sender As Object, e As EventArgs) Handles tsBtnSearchStruktur_Definition.Click
|
|
|
|
End Sub
|
|
End Class |