Initial commit

.svn/pristine/64/641a3c39895f65a25322f82ffeff7886b8d357ef.svn-base

@@ -0,0 +1,712 @@
+Imports DevComponents.AdvTree
+Imports System.ComponentModel
+Imports C1.Win.C1TrueDBGrid
+
+Public Class frmISI
+
+    Dim clsisiTree As New IsiTree
+    Dim clsisi As New clsISIUebersicht
+
+
+
+
+#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
+
+
+#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_Tree()
+
+        '        Refresh_All()
+    End Sub
+
+    Sub Refresh_Tree()
+        Try
+            Me.Cursor = Cursors.WaitCursor
+            Application.DoEvents()
+            clsisiTree.Load_Treeview(Me.TreeUebersicht)
+            Me.TreeUebersicht.ExpandAll()
+            Me.TreeUebersicht.SelectedNode = Me.TreeUebersicht.Nodes(0)
+        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 = 1
+        '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.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
+            Refresh_All()
+
+        Catch ex As Exception
+
+        End Try
+
+
+    End Sub
+
+    Private Sub C1Daten_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1Daten.RowColChange
+        refresh_all_Details()
+
+        Dim cps As New clsPruefschritt
+
+        Try
+            cps.Get_Data(C1Daten.Columns("Pruefschrittnr").Value)
+            If cps.iAktueller_Verantwortlicher <> Globals.clsmitarbeiter.iMitarbeiternr Or cps.iStatusnr = 6 Then
+                Me.tsbtnAssessmentAnzeigen.Visible = True
+                Me.tsbtnPruefschrittbearbeiten.Visible = False
+
+            Else
+                Me.tsbtnAssessmentAnzeigen.Visible = False
+                Me.tsbtnPruefschrittbearbeiten.Visible = True
+
+
+            End If
+            If cps.iStatusnr = 6 Then
+                Me.AssessmentZuteilenToolStripMenuItem.Visible = False
+            Else
+                Me.AssessmentZuteilenToolStripMenuItem.Visible = True
+            End If
+        Catch
+        Finally
+            cps.dispose()
+        End Try
+
+    End Sub
+    Sub refresh_all_Details()
+        If OnRefreshAll Then Exit Sub
+        Me.DokumenteAllgemein.Init()
+        Me.C1Findings.DataSource = Nothing
+        Me.C1Massnahmen.DataSource = Nothing
+        Me.C1Notiz.DataSource = Nothing
+        Me.DokumenteAllgemein.Pruefschrittnr = -1
+        Try
+            Me.DokumenteAllgemein.Pruefschrittnr = Me.C1Daten.Columns("Pruefschrittnr").Value
+            'refresh_all_Details()
+
+        Catch
+        End Try
+        Try
+            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()
+        Try
+            Refresh_Finding_Dokumente()
+            Me.Pruefschrittfinding.Get_Eintraege(Me.C1Findings, Me.Pruefschrittresultat.iPruefSchrittResultatNr.Value, ImageListFindings)
+        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)
+        Catch
+        End Try
+
+    End Sub
+    Sub Refresh_All(Optional key As Integer = 0)
+        Me.OnRefreshAll = True
+
+
+        clsisi.Get_Data(C1Daten, Me.TreeUebersicht.SelectedNode.Tag)
+        If C1Daten.Splits(0).Rows.Count = 0 Then
+            Me.tsbtnAssessmentAnzeigen.Visible = False
+            Me.tsbtnPruefschrittbearbeiten.Visible = False
+        End If
+        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
+        Dim tn As New DevComponents.AdvTree.Node
+        tn = Me.TreeUebersicht.SelectedNode
+        Refresh_Tree()
+        Me.TreeUebersicht.SelectedNode = tn
+        tn.Dispose()
+        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
+        'If cps.iAktueller_Verantwortlicher <> Globals.clsmitarbeiter.iMitarbeiternr Or cps.iStatusnr = 6 Then f.IsReadonly = True
+        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
+                Dim tn As New DevComponents.AdvTree.Node
+                tn = Me.TreeUebersicht.SelectedNode
+                Refresh_Tree()
+                Me.TreeUebersicht.SelectedNode = tn
+                Refresh_All(key)
+            End If
+        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
+                Dim tn As New DevComponents.AdvTree.Node
+                tn = Me.TreeUebersicht.SelectedNode
+                Refresh_Tree()
+                Me.TreeUebersicht.SelectedNode = tn
+                Refresh_All(key)
+            End If
+        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
+                If Globals.clsmitarbeiter.iMitarbeiternr.Value = Me.C1Daten.Columns("Aktuelle_Verantwortungnr").Value Then
+                    Me.BearbeitenToolStripMenuItem.Visible = True
+                    Me.WeiterleitenToolStripMenuItem.Visible = True
+                End If
+
+            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()
+            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.Show_Toolbar = False
+            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()
+                Dim tn As New DevComponents.AdvTree.Node
+                tn = Me.TreeUebersicht.SelectedNode
+                Refresh_Tree()
+                Me.TreeUebersicht.SelectedNode = tn
+                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 tsbtnAssessmentAnzeigen_Click(sender As Object, e As EventArgs) Handles tsbtnAssessmentAnzeigen.Click
+        Try
+            Me.C1Daten_DoubleClick(sender, e)
+        Catch
+        End Try
+
+    End Sub
+
+    Private Sub AssessmentZuteilenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AssessmentZuteilenToolStripMenuItem.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.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
+                Dim tn As New DevComponents.AdvTree.Node
+                tn = Me.TreeUebersicht.SelectedNode
+                Refresh_Tree()
+                Me.TreeUebersicht.SelectedNode = tn
+                'Refresh_All(key)
+                Refresh_All()
+
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Sub
+
+    Private Sub C1Daten_Click(sender As Object, e As EventArgs) Handles C1Daten.Click
+        Try
+            refresh_all_Details()
+
+            Dim cps As New clsPruefschritt
+
+            Try
+                cps.Get_Data(C1Daten.Columns("Pruefschrittnr").Value)
+                If cps.iAktueller_Verantwortlicher <> Globals.clsmitarbeiter.iMitarbeiternr Or cps.iStatusnr = 6 Then
+                    Me.tsbtnAssessmentAnzeigen.Visible = True
+                    Me.tsbtnPruefschrittbearbeiten.Visible = False
+
+                Else
+                    Me.tsbtnAssessmentAnzeigen.Visible = False
+                    Me.tsbtnPruefschrittbearbeiten.Visible = True
+
+
+                End If
+                If cps.iStatusnr = 6 Then
+                    Me.AssessmentZuteilenToolStripMenuItem.Visible = False
+                Else
+                    Me.AssessmentZuteilenToolStripMenuItem.Visible = True
+                End If
+            Catch
+            Finally
+                cps.dispose()
+            End Try
+        Catch
+        End Try
+    End Sub
+End Class

.svn/pristine/64/64886dfd949b4eba37e3818b0f900f94efe59bea.svn-base

@@ -0,0 +1,144 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>232, 17</value>
+  </metadata>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="TSBtnQuit.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACkSURBVDhPlZALDsMwCEM5OkfLzbIaMGH5dJkligL2a1o5
+        qP9RW3VVXYpzqLV2D+CZQVU/Y27uIg4OQQAJXz+hDsyEDtVQ7dib+1GH1fpUDljD6OF5HgjvKgHvN+iC
+        A0O1EvB+A8ghPvgqB4j9xPlHhidVB2lwwICfbkBxMAFGqHbszb1RGhywhtGxN/dGXAbgGD4CqACMMGZR
+        VwrA/Rtn/QiKfADckGXYsnwKqAAAAABJRU5ErkJggg==
+</value>
+  </data>
+  <data name="TSBtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
+        YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABSSURBVDhP3YxbCgAgCAQ9ukfzZkXBlkIv7Sf6GNB1HRKR
+        dEMVEFEII2Du4Yr2eCMAdUfoEejubwIcVujeUHDKVFDmHSFB6ekuskcEOHgxghiSMjk0Kh+omBHQAAAA
+        AElFTkSuQmCC
+</value>
+  </data>
+</root>