Initial commit
This commit is contained in:
289
SW/AssessmentMgmt/Massnahmen/frmMassnahmeuebersicht.vb
Normal file
289
SW/AssessmentMgmt/Massnahmen/frmMassnahmeuebersicht.vb
Normal file
@@ -0,0 +1,289 @@
|
||||
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
|
||||
Reference in New Issue
Block a user