shu/AssesmentMgmt
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Initial commit

Browse Source
This commit is contained in:
Stefan Hutter
2020-10-21 10:44:38 +02:00
commit 039adbbadf
1125 changed files with 854026 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

267
SW/AssessmentMgmt/Pruefschritt/FrmFinding.Designer.vb generated Normal file
View File

@@ -0,0 +1,267 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class FrmFinding
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FrmFinding))
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.txtBezeichnung = New DevComponents.DotNetBar.Controls.TextBoxX()
Me.lblBezeichnung = New System.Windows.Forms.Label()
Me.lblAktiv = New System.Windows.Forms.Label()
Me.cbaktiv = New System.Windows.Forms.CheckBox()
Me.btnAbbruch = New System.Windows.Forms.Button()
Me.btnSave = New System.Windows.Forms.Button()
Me.txtBeschreibung = New System.Windows.Forms.TextBox()
Me.lblBeschreibung = New System.Windows.Forms.Label()
Me.lblkritikalitaet = New System.Windows.Forms.Label()
Me.lblAuswirkung = New System.Windows.Forms.Label()
Me.lblWichtigkeit = New System.Windows.Forms.Label()
Me.cbboxauswirkung = New System.Windows.Forms.ComboBox()
Me.cbboxkritikalitaet = New System.Windows.Forms.ComboBox()
Me.cbboxWichtigkeit = New System.Windows.Forms.ComboBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.ToolStrip1.SuspendLayout()
Me.SuspendLayout()
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.ToolStripButton1})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(701, 25)
Me.ToolStrip1.TabIndex = 8
Me.ToolStrip1.Text = "ToolStrip1"
'
'TSBtnQuit
'
Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TSBtnQuit.Name = "TSBtnQuit"
Me.TSBtnQuit.Size = New System.Drawing.Size(23, 22)
Me.TSBtnQuit.Text = "Fenster schliessen"
Me.TSBtnQuit.ToolTipText = "Fenster schliessen"
'
'ToolStripButton1
'
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton1.Text = "ToolStripButton1"
Me.ToolStripButton1.ToolTipText = "Neue Feststellung erfassen"
Me.ToolStripButton1.Visible = False
'
'txtBezeichnung
'
'
'
'
Me.txtBezeichnung.Border.Class = "TextBoxBorder"
Me.txtBezeichnung.Border.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.txtBezeichnung.Location = New System.Drawing.Point(89, 43)
Me.txtBezeichnung.Name = "txtBezeichnung"
Me.txtBezeichnung.PreventEnterBeep = True
Me.txtBezeichnung.Size = New System.Drawing.Size(599, 20)
Me.txtBezeichnung.TabIndex = 0
'
'lblBezeichnung
'
Me.lblBezeichnung.AutoSize = True
Me.lblBezeichnung.Location = New System.Drawing.Point(13, 43)
Me.lblBezeichnung.Name = "lblBezeichnung"
Me.lblBezeichnung.Size = New System.Drawing.Size(69, 13)
Me.lblBezeichnung.TabIndex = 36
Me.lblBezeichnung.Text = "Bezeichnung"
'
'lblAktiv
'
Me.lblAktiv.AutoSize = True
Me.lblAktiv.Location = New System.Drawing.Point(603, 208)
Me.lblAktiv.Name = "lblAktiv"
Me.lblAktiv.Size = New System.Drawing.Size(31, 13)
Me.lblAktiv.TabIndex = 35
Me.lblAktiv.Text = "Aktiv"
'
'cbaktiv
'
Me.cbaktiv.AutoSize = True
Me.cbaktiv.Location = New System.Drawing.Point(673, 207)
Me.cbaktiv.Name = "cbaktiv"
Me.cbaktiv.Size = New System.Drawing.Size(15, 14)
Me.cbaktiv.TabIndex = 5
Me.cbaktiv.UseVisualStyleBackColor = True
'
'btnAbbruch
'
Me.btnAbbruch.Location = New System.Drawing.Point(613, 304)
Me.btnAbbruch.Name = "btnAbbruch"
Me.btnAbbruch.Size = New System.Drawing.Size(75, 23)
Me.btnAbbruch.TabIndex = 7
Me.btnAbbruch.Text = "Abbruch"
Me.btnAbbruch.UseVisualStyleBackColor = True
'
'btnSave
'
Me.btnSave.Location = New System.Drawing.Point(13, 304)
Me.btnSave.Name = "btnSave"
Me.btnSave.Size = New System.Drawing.Size(75, 23)
Me.btnSave.TabIndex = 6
Me.btnSave.Text = "Speichern"
Me.btnSave.UseVisualStyleBackColor = True
'
'txtBeschreibung
'
Me.txtBeschreibung.Location = New System.Drawing.Point(89, 69)
Me.txtBeschreibung.Multiline = True
Me.txtBeschreibung.Name = "txtBeschreibung"
Me.txtBeschreibung.Size = New System.Drawing.Size(599, 123)
Me.txtBeschreibung.TabIndex = 1
'
'lblBeschreibung
'
Me.lblBeschreibung.AutoSize = True
Me.lblBeschreibung.Location = New System.Drawing.Point(13, 72)
Me.lblBeschreibung.Name = "lblBeschreibung"
Me.lblBeschreibung.Size = New System.Drawing.Size(72, 13)
Me.lblBeschreibung.TabIndex = 34
Me.lblBeschreibung.Text = "Beschreibung"
'
'lblkritikalitaet
'
Me.lblkritikalitaet.AutoSize = True
Me.lblkritikalitaet.Location = New System.Drawing.Point(14, 207)
Me.lblkritikalitaet.Name = "lblkritikalitaet"
Me.lblkritikalitaet.Size = New System.Drawing.Size(52, 13)
Me.lblkritikalitaet.TabIndex = 37
Me.lblkritikalitaet.Text = "Kritikalität"
'
'lblAuswirkung
'
Me.lblAuswirkung.AutoSize = True
Me.lblAuswirkung.Location = New System.Drawing.Point(14, 264)
Me.lblAuswirkung.Name = "lblAuswirkung"
Me.lblAuswirkung.Size = New System.Drawing.Size(62, 13)
Me.lblAuswirkung.TabIndex = 38
Me.lblAuswirkung.Text = "Auswirkung"
'
'lblWichtigkeit
'
Me.lblWichtigkeit.AutoSize = True
Me.lblWichtigkeit.Location = New System.Drawing.Point(14, 237)
Me.lblWichtigkeit.Name = "lblWichtigkeit"
Me.lblWichtigkeit.Size = New System.Drawing.Size(60, 13)
Me.lblWichtigkeit.TabIndex = 39
Me.lblWichtigkeit.Text = "Wichtigkeit"
'
'cbboxauswirkung
'
Me.cbboxauswirkung.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Append
Me.cbboxauswirkung.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
Me.cbboxauswirkung.FormattingEnabled = True
Me.cbboxauswirkung.Location = New System.Drawing.Point(89, 261)
Me.cbboxauswirkung.Name = "cbboxauswirkung"
Me.cbboxauswirkung.Size = New System.Drawing.Size(121, 21)
Me.cbboxauswirkung.TabIndex = 4
'
'cbboxkritikalitaet
'
Me.cbboxkritikalitaet.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Append
Me.cbboxkritikalitaet.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
Me.cbboxkritikalitaet.FormattingEnabled = True
Me.cbboxkritikalitaet.Location = New System.Drawing.Point(89, 207)
Me.cbboxkritikalitaet.Name = "cbboxkritikalitaet"
Me.cbboxkritikalitaet.Size = New System.Drawing.Size(121, 21)
Me.cbboxkritikalitaet.TabIndex = 2
'
'cbboxWichtigkeit
'
Me.cbboxWichtigkeit.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Append
Me.cbboxWichtigkeit.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
Me.cbboxWichtigkeit.FormattingEnabled = True
Me.cbboxWichtigkeit.Location = New System.Drawing.Point(89, 234)
Me.cbboxWichtigkeit.Name = "cbboxWichtigkeit"
Me.cbboxWichtigkeit.Size = New System.Drawing.Size(121, 21)
Me.cbboxWichtigkeit.TabIndex = 3
'
'Button1
'
Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image)
Me.Button1.Location = New System.Drawing.Point(216, 202)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(47, 48)
Me.Button1.TabIndex = 40
Me.Button1.UseVisualStyleBackColor = True
'
'FrmFinding
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(701, 338)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.cbboxWichtigkeit)
Me.Controls.Add(Me.cbboxauswirkung)
Me.Controls.Add(Me.cbboxkritikalitaet)
Me.Controls.Add(Me.lblWichtigkeit)
Me.Controls.Add(Me.lblAuswirkung)
Me.Controls.Add(Me.lblkritikalitaet)
Me.Controls.Add(Me.txtBezeichnung)
Me.Controls.Add(Me.lblBezeichnung)
Me.Controls.Add(Me.lblAktiv)
Me.Controls.Add(Me.cbaktiv)
Me.Controls.Add(Me.btnAbbruch)
Me.Controls.Add(Me.btnSave)
Me.Controls.Add(Me.txtBeschreibung)
Me.Controls.Add(Me.lblBeschreibung)
Me.Controls.Add(Me.ToolStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "FrmFinding"
Me.Text = "Feststellung"
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ToolStrip1 As ToolStrip
Friend WithEvents TSBtnQuit As ToolStripButton
Friend WithEvents ToolStripButton1 As ToolStripButton
Friend WithEvents txtBezeichnung As DevComponents.DotNetBar.Controls.TextBoxX
Friend WithEvents lblBezeichnung As Label
Friend WithEvents lblAktiv As Label
Friend WithEvents cbaktiv As CheckBox
Friend WithEvents btnAbbruch As Button
Friend WithEvents btnSave As Button
Friend WithEvents txtBeschreibung As TextBox
Friend WithEvents lblBeschreibung As Label
Friend WithEvents lblkritikalitaet As Label
Friend WithEvents lblAuswirkung As Label
Friend WithEvents lblWichtigkeit As Label
Friend WithEvents cbboxauswirkung As ComboBox
Friend WithEvents cbboxkritikalitaet As ComboBox
Friend WithEvents cbboxWichtigkeit As ComboBox
Friend WithEvents Button1 As Button
End Class

3527
SW/AssessmentMgmt/Pruefschritt/FrmFinding.resx Normal file
View File

File diff suppressed because it is too large Load Diff

106
SW/AssessmentMgmt/Pruefschritt/FrmFinding.vb Normal file
View File

@@ -0,0 +1,106 @@
Public Class FrmFinding
Dim Finding As New clsFinding
Dim m_key As Integer
Property Key As Integer
Get
Return m_key
End Get
Set(value As Integer)
m_key = value
End Set
End Property
Dim m_pruefschrittresultatnr As Integer
Property Pruefschrittresultatnr As Integer
Get
Return m_pruefschrittresultatnr
End Get
Set(value As Integer)
m_pruefschrittresultatnr = value
End Set
End Property
Dim m_isreadonly As Boolean
Property ISReadOnly As Boolean
Get
Return m_isreadonly
End Get
Set(value As Boolean)
m_isreadonly = value
End Set
End Property
Dim sec As New Utils.MySecurity
Private Sub FrmFinding_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.cbboxkritikalitaet.DataSource = Finding.kritikalitaet
Me.cbboxkritikalitaet.DisplayMember = "Bezeichnung"
Me.cbboxkritikalitaet.ValueMember = "kritikalitaetnr"
Me.cbboxauswirkung.DataSource = Finding.auswirkung
Me.cbboxauswirkung.DisplayMember = "Bezeichnung"
Me.cbboxauswirkung.ValueMember = "Auswirkungnr"
Me.cbboxWichtigkeit.DataSource = Finding.Wichtigkeit
Me.cbboxWichtigkeit.DisplayMember = "Bezeichnung"
Me.cbboxWichtigkeit.ValueMember = "WichtigkeitNr"
If Key = -1 Then
Me.cbaktiv.Checked = True
Else
Finding.Get_Data(Me.Key)
Me.txtBeschreibung.Text = Finding.sBeschreibung.Value
Me.txtBezeichnung.Text = Finding.sBezeichnung.Value
Me.cbaktiv.Checked = Finding.bAktiv.Value = True
Me.cbboxkritikalitaet.SelectedValue = Me.Finding.iKritikalitaetnr.Value
Me.cbboxWichtigkeit.SelectedValue = Me.Finding.iWichtigkeitnr.Value
Me.cbboxauswirkung.SelectedValue = Me.Finding.iAuswirkungnr.Value
End If
If ISReadOnly Then
sec.Set_Form_Readonly(Me)
Me.btnAbbruch.Visible = False
Me.btnSave.Visible = False
End If
End Sub
Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
Me.DialogResult = DialogResult.Abort
Me.Close()
End Sub
Private Sub btnAbbruch_Click(sender As Object, e As EventArgs) Handles btnAbbruch.Click
Me.DialogResult = DialogResult.Abort
End Sub
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
Me.DialogResult = DialogResult.OK
If Me.Key = -1 Then
Finding.Add_New()
Me.Key = Finding.iPruefschrittfindingNr
Else
Finding.Get_Data(Me.Key)
End If
Finding.sBezeichnung = New SqlTypes.SqlString(CType(Me.txtBezeichnung.Text, String))
Finding.sBeschreibung = New SqlTypes.SqlString(CType(Me.txtBeschreibung.Text, String))
Finding.iPruefschrittresultatnr = New SqlTypes.SqlInt32(CType(Me.Pruefschrittresultatnr, Int16))
Finding.bAktiv = New SqlTypes.SqlBoolean(CType(Me.cbaktiv.Checked, Boolean))
Finding.iAuswirkungnr = New SqlTypes.SqlInt32(CType(Me.cbboxauswirkung.SelectedValue, Int32))
Finding.iKritikalitaetnr = New SqlTypes.SqlInt32(CType(Me.cbboxkritikalitaet.SelectedValue, Int32))
Finding.iWichtigkeitnr = New SqlTypes.SqlInt32(CType(Me.cbboxWichtigkeit.SelectedValue, Int32))
Finding.Save_Data()
Me.Close()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim f As New frmFindingHilfe
f.Show()
End Sub
End Class

886
SW/AssessmentMgmt/Pruefschritt/PruefschrittDetailsBearbeitung.Designer.vb generated Normal file
View File

@@ -0,0 +1,886 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class PruefschrittDetailsBearbeitung
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(PruefschrittDetailsBearbeitung))
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
Me.TSBtnSave = New System.Windows.Forms.ToolStripButton()
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.GrpResultate = New System.Windows.Forms.GroupBox()
Me.GrpDokumente = New System.Windows.Forms.GroupBox()
Me.DokumenteAllgemein = New ThemenDokumente.Dokumente()
Me.GrpTypAnzahl_Massen = New System.Windows.Forms.GroupBox()
Me.lblFindingsKein = New System.Windows.Forms.Label()
Me.txtFindingsKein = New System.Windows.Forms.NumericUpDown()
Me.lblFindingsHoch = New System.Windows.Forms.Label()
Me.lblFindingsMittel = New System.Windows.Forms.Label()
Me.lblFidingsTief = New System.Windows.Forms.Label()
Me.txtFindingsHoch = New System.Windows.Forms.NumericUpDown()
Me.txtFindingsMittel = New System.Windows.Forms.NumericUpDown()
Me.txtFindingsTief = New System.Windows.Forms.NumericUpDown()
Me.txtAnzahlPruefungen = New System.Windows.Forms.NumericUpDown()
Me.lblAnzPruefungen = New System.Windows.Forms.Label()
Me.GrpBeschreibung = New System.Windows.Forms.GroupBox()
Me.txtBeschreibung = New System.Windows.Forms.TextBox()
Me.GrpKurzbeschreibung = New System.Windows.Forms.GroupBox()
Me.txtKurzbeschreibung = New System.Windows.Forms.TextBox()
Me.GrpStatus = New System.Windows.Forms.GroupBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.cbboxResultatText = New System.Windows.Forms.ComboBox()
Me.btnPruefungabgeschlossen = New System.Windows.Forms.Button()
Me.cbboxStatus = New System.Windows.Forms.ComboBox()
Me.grpFindings = New System.Windows.Forms.GroupBox()
Me.GrpMassnahmen = New System.Windows.Forms.GroupBox()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.DokumenteMassnahmen = New ThemenDokumente.Dokumente()
Me.GrpMassnahmenList = New System.Windows.Forms.GroupBox()
Me.txtMassnahmeResultat = New System.Windows.Forms.TextBox()
Me.lblMassnahmeResultat = New System.Windows.Forms.Label()
Me.txtMassnahmebeschreibung = New System.Windows.Forms.TextBox()
Me.txtMassnahmeBezeichnung = New System.Windows.Forms.TextBox()
Me.lblMassnahmeBezeichnung = New System.Windows.Forms.Label()
Me.lblMassnahmeBeschreibung = New System.Windows.Forms.Label()
Me.C1Massnahmen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ToolStripMassnahmen = New System.Windows.Forms.ToolStrip()
Me.tsbtnMassnahmeerfassen = New System.Windows.Forms.ToolStripButton()
Me.tsbtnMassnahmeEdit = New System.Windows.Forms.ToolStripButton()
Me.tsbtnMassnahmeLoeschen = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton8 = New System.Windows.Forms.ToolStripButton()
Me.GrpFinding = New System.Windows.Forms.GroupBox()
Me.GrpFindingDokumente = New System.Windows.Forms.GroupBox()
Me.DokumenteFindings = New ThemenDokumente.Dokumente()
Me.GrpFindingList = New System.Windows.Forms.GroupBox()
Me.txtFindingBeschreibung = New System.Windows.Forms.TextBox()
Me.C1Findings = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ToolStripFindings = New System.Windows.Forms.ToolStrip()
Me.tsbtnNeuesFinding = New System.Windows.Forms.ToolStripButton()
Me.tsbtnFindingBearbeiten = New System.Windows.Forms.ToolStripButton()
Me.tsbtnFindingDelete = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
Me.txtFindingBezeichnung = New System.Windows.Forms.TextBox()
Me.lblFindingBezeichnung = New System.Windows.Forms.Label()
Me.lblFindingBeschreibung = New System.Windows.Forms.Label()
Me.ImageListFindings = New System.Windows.Forms.ImageList(Me.components)
Me.ImageListeMassnahmen = New System.Windows.Forms.ImageList(Me.components)
Me.ToolStrip1.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.GrpResultate.SuspendLayout()
Me.GrpDokumente.SuspendLayout()
Me.GrpTypAnzahl_Massen.SuspendLayout()
CType(Me.txtFindingsKein, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFindingsHoch, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFindingsMittel, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtFindingsTief, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtAnzahlPruefungen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GrpBeschreibung.SuspendLayout()
Me.GrpKurzbeschreibung.SuspendLayout()
Me.GrpStatus.SuspendLayout()
Me.grpFindings.SuspendLayout()
Me.GrpMassnahmen.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.GrpMassnahmenList.SuspendLayout()
CType(Me.C1Massnahmen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStripMassnahmen.SuspendLayout()
Me.GrpFinding.SuspendLayout()
Me.GrpFindingDokumente.SuspendLayout()
Me.GrpFindingList.SuspendLayout()
CType(Me.C1Findings, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStripFindings.SuspendLayout()
Me.SuspendLayout()
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.TSBtnSave})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Padding = New System.Windows.Forms.Padding(0, 0, 2, 0)
Me.ToolStrip1.Size = New System.Drawing.Size(1185, 25)
Me.ToolStrip1.TabIndex = 7
Me.ToolStrip1.Text = "ToolStrip1"
'
'TSBtnQuit
'
Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TSBtnQuit.Name = "TSBtnQuit"
Me.TSBtnQuit.Size = New System.Drawing.Size(23, 22)
Me.TSBtnQuit.Text = "ToolStripButton1"
Me.TSBtnQuit.ToolTipText = "Fenster schliessen"
'
'TSBtnSave
'
Me.TSBtnSave.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.TSBtnSave.Image = CType(resources.GetObject("TSBtnSave.Image"), System.Drawing.Image)
Me.TSBtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TSBtnSave.Name = "TSBtnSave"
Me.TSBtnSave.Size = New System.Drawing.Size(23, 22)
Me.TSBtnSave.Text = "Speichern"
'
'MenuStrip1
'
Me.MenuStrip1.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(1185, 24)
Me.MenuStrip1.TabIndex = 8
Me.MenuStrip1.Text = "MenuStrip1"
'
'DateiToolStripMenuItem
'
Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem})
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
Me.DateiToolStripMenuItem.Text = "&Datei"
'
'BeendenToolStripMenuItem
'
Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(128, 22)
Me.BeendenToolStripMenuItem.Text = "&Schliessen"
'
'GrpResultate
'
Me.GrpResultate.Controls.Add(Me.GrpDokumente)
Me.GrpResultate.Controls.Add(Me.GrpTypAnzahl_Massen)
Me.GrpResultate.Controls.Add(Me.GrpBeschreibung)
Me.GrpResultate.Controls.Add(Me.GrpKurzbeschreibung)
Me.GrpResultate.Controls.Add(Me.GrpStatus)
Me.GrpResultate.Dock = System.Windows.Forms.DockStyle.Left
Me.GrpResultate.Location = New System.Drawing.Point(0, 49)
Me.GrpResultate.Name = "GrpResultate"
Me.GrpResultate.Size = New System.Drawing.Size(374, 689)
Me.GrpResultate.TabIndex = 9
Me.GrpResultate.TabStop = False
Me.GrpResultate.Text = "Resultat der Prüfung"
'
'GrpDokumente
'
Me.GrpDokumente.Controls.Add(Me.DokumenteAllgemein)
Me.GrpDokumente.Dock = System.Windows.Forms.DockStyle.Fill
Me.GrpDokumente.Location = New System.Drawing.Point(3, 445)
Me.GrpDokumente.Name = "GrpDokumente"
Me.GrpDokumente.Size = New System.Drawing.Size(368, 241)
Me.GrpDokumente.TabIndex = 2
Me.GrpDokumente.TabStop = False
Me.GrpDokumente.Text = "Dokumente"
'
'DokumenteAllgemein
'
Me.DokumenteAllgemein.ConnectionString = Nothing
Me.DokumenteAllgemein.Dock = System.Windows.Forms.DockStyle.Fill
Me.DokumenteAllgemein.Doktype = 0
Me.DokumenteAllgemein.Location = New System.Drawing.Point(3, 16)
Me.DokumenteAllgemein.Margin = New System.Windows.Forms.Padding(5, 6, 5, 6)
Me.DokumenteAllgemein.Mitarbeiternr = 0
Me.DokumenteAllgemein.Name = "DokumenteAllgemein"
Me.DokumenteAllgemein.Pruefschrittnr = 0
Me.DokumenteAllgemein.Size = New System.Drawing.Size(362, 222)
Me.DokumenteAllgemein.TabIndex = 33
Me.DokumenteAllgemein.TempFilePath = Nothing
Me.DokumenteAllgemein.ThemaNr = 0
'
'GrpTypAnzahl_Massen
'
Me.GrpTypAnzahl_Massen.Controls.Add(Me.lblFindingsKein)
Me.GrpTypAnzahl_Massen.Controls.Add(Me.txtFindingsKein)
Me.GrpTypAnzahl_Massen.Controls.Add(Me.lblFindingsHoch)
Me.GrpTypAnzahl_Massen.Controls.Add(Me.lblFindingsMittel)
Me.GrpTypAnzahl_Massen.Controls.Add(Me.lblFidingsTief)
Me.GrpTypAnzahl_Massen.Controls.Add(Me.txtFindingsHoch)
Me.GrpTypAnzahl_Massen.Controls.Add(Me.txtFindingsMittel)
Me.GrpTypAnzahl_Massen.Controls.Add(Me.txtFindingsTief)
Me.GrpTypAnzahl_Massen.Controls.Add(Me.txtAnzahlPruefungen)
Me.GrpTypAnzahl_Massen.Controls.Add(Me.lblAnzPruefungen)
Me.GrpTypAnzahl_Massen.Dock = System.Windows.Forms.DockStyle.Top
Me.GrpTypAnzahl_Massen.Location = New System.Drawing.Point(3, 323)
Me.GrpTypAnzahl_Massen.Name = "GrpTypAnzahl_Massen"
Me.GrpTypAnzahl_Massen.Size = New System.Drawing.Size(368, 122)
Me.GrpTypAnzahl_Massen.TabIndex = 6
Me.GrpTypAnzahl_Massen.TabStop = False
Me.GrpTypAnzahl_Massen.Text = "Anzahl Prüfungen"
'
'lblFindingsKein
'
Me.lblFindingsKein.AutoSize = True
Me.lblFindingsKein.Location = New System.Drawing.Point(194, 23)
Me.lblFindingsKein.Name = "lblFindingsKein"
Me.lblFindingsKein.Size = New System.Drawing.Size(75, 13)
Me.lblFindingsKein.TabIndex = 9
Me.lblFindingsKein.Text = "keine Findings"
'
'txtFindingsKein
'
Me.txtFindingsKein.Location = New System.Drawing.Point(273, 21)
Me.txtFindingsKein.Maximum = New Decimal(New Integer() {100000, 0, 0, 0})
Me.txtFindingsKein.Name = "txtFindingsKein"
Me.txtFindingsKein.Size = New System.Drawing.Size(75, 20)
Me.txtFindingsKein.TabIndex = 8
'
'lblFindingsHoch
'
Me.lblFindingsHoch.AutoSize = True
Me.lblFindingsHoch.Location = New System.Drawing.Point(194, 100)
Me.lblFindingsHoch.Name = "lblFindingsHoch"
Me.lblFindingsHoch.Size = New System.Drawing.Size(73, 13)
Me.lblFindingsHoch.TabIndex = 7
Me.lblFindingsHoch.Text = "Findings hoch"
'
'lblFindingsMittel
'
Me.lblFindingsMittel.AutoSize = True
Me.lblFindingsMittel.Location = New System.Drawing.Point(194, 74)
Me.lblFindingsMittel.Name = "lblFindingsMittel"
Me.lblFindingsMittel.Size = New System.Drawing.Size(73, 13)
Me.lblFindingsMittel.TabIndex = 6
Me.lblFindingsMittel.Text = "Findings mittel"
'
'lblFidingsTief
'
Me.lblFidingsTief.AutoSize = True
Me.lblFidingsTief.Location = New System.Drawing.Point(194, 48)
Me.lblFidingsTief.Name = "lblFidingsTief"
Me.lblFidingsTief.Size = New System.Drawing.Size(63, 13)
Me.lblFidingsTief.TabIndex = 5
Me.lblFidingsTief.Text = "Findings tief"
'
'txtFindingsHoch
'
Me.txtFindingsHoch.Location = New System.Drawing.Point(273, 98)
Me.txtFindingsHoch.Maximum = New Decimal(New Integer() {100000, 0, 0, 0})
Me.txtFindingsHoch.Name = "txtFindingsHoch"
Me.txtFindingsHoch.Size = New System.Drawing.Size(75, 20)
Me.txtFindingsHoch.TabIndex = 4
'
'txtFindingsMittel
'
Me.txtFindingsMittel.Location = New System.Drawing.Point(273, 72)
Me.txtFindingsMittel.Maximum = New Decimal(New Integer() {100000, 0, 0, 0})
Me.txtFindingsMittel.Name = "txtFindingsMittel"
Me.txtFindingsMittel.Size = New System.Drawing.Size(75, 20)
Me.txtFindingsMittel.TabIndex = 3
'
'txtFindingsTief
'
Me.txtFindingsTief.Location = New System.Drawing.Point(273, 46)
Me.txtFindingsTief.Maximum = New Decimal(New Integer() {100000, 0, 0, 0})
Me.txtFindingsTief.Name = "txtFindingsTief"
Me.txtFindingsTief.Size = New System.Drawing.Size(75, 20)
Me.txtFindingsTief.TabIndex = 2
'
'txtAnzahlPruefungen
'
Me.txtAnzahlPruefungen.Location = New System.Drawing.Point(95, 19)
Me.txtAnzahlPruefungen.Maximum = New Decimal(New Integer() {100000, 0, 0, 0})
Me.txtAnzahlPruefungen.Name = "txtAnzahlPruefungen"
Me.txtAnzahlPruefungen.Size = New System.Drawing.Size(75, 20)
Me.txtAnzahlPruefungen.TabIndex = 1
'
'lblAnzPruefungen
'
Me.lblAnzPruefungen.AutoSize = True
Me.lblAnzPruefungen.Location = New System.Drawing.Point(9, 21)
Me.lblAnzPruefungen.Name = "lblAnzPruefungen"
Me.lblAnzPruefungen.Size = New System.Drawing.Size(80, 13)
Me.lblAnzPruefungen.TabIndex = 0
Me.lblAnzPruefungen.Text = "Anz. Prüfungen"
'
'GrpBeschreibung
'
Me.GrpBeschreibung.Controls.Add(Me.txtBeschreibung)
Me.GrpBeschreibung.Dock = System.Windows.Forms.DockStyle.Top
Me.GrpBeschreibung.Location = New System.Drawing.Point(3, 102)
Me.GrpBeschreibung.Name = "GrpBeschreibung"
Me.GrpBeschreibung.Size = New System.Drawing.Size(368, 221)
Me.GrpBeschreibung.TabIndex = 1
Me.GrpBeschreibung.TabStop = False
Me.GrpBeschreibung.Text = "Beschreibung"
'
'txtBeschreibung
'
Me.txtBeschreibung.Dock = System.Windows.Forms.DockStyle.Fill
Me.txtBeschreibung.Location = New System.Drawing.Point(3, 16)
Me.txtBeschreibung.Multiline = True
Me.txtBeschreibung.Name = "txtBeschreibung"
Me.txtBeschreibung.Size = New System.Drawing.Size(362, 202)
Me.txtBeschreibung.TabIndex = 3
'
'GrpKurzbeschreibung
'
Me.GrpKurzbeschreibung.Controls.Add(Me.txtKurzbeschreibung)
Me.GrpKurzbeschreibung.Dock = System.Windows.Forms.DockStyle.Top
Me.GrpKurzbeschreibung.Location = New System.Drawing.Point(3, 92)
Me.GrpKurzbeschreibung.Name = "GrpKurzbeschreibung"
Me.GrpKurzbeschreibung.Size = New System.Drawing.Size(368, 10)
Me.GrpKurzbeschreibung.TabIndex = 0
Me.GrpKurzbeschreibung.TabStop = False
Me.GrpKurzbeschreibung.Text = "Kurzbeschreibung"
Me.GrpKurzbeschreibung.Visible = False
'
'txtKurzbeschreibung
'
Me.txtKurzbeschreibung.Dock = System.Windows.Forms.DockStyle.Bottom
Me.txtKurzbeschreibung.Location = New System.Drawing.Point(3, -4)
Me.txtKurzbeschreibung.Name = "txtKurzbeschreibung"
Me.txtKurzbeschreibung.ReadOnly = True
Me.txtKurzbeschreibung.Size = New System.Drawing.Size(362, 20)
Me.txtKurzbeschreibung.TabIndex = 4
'
'GrpStatus
'
Me.GrpStatus.Controls.Add(Me.Label1)
Me.GrpStatus.Controls.Add(Me.cbboxResultatText)
Me.GrpStatus.Controls.Add(Me.btnPruefungabgeschlossen)
Me.GrpStatus.Controls.Add(Me.cbboxStatus)
Me.GrpStatus.Dock = System.Windows.Forms.DockStyle.Top
Me.GrpStatus.Location = New System.Drawing.Point(3, 16)
Me.GrpStatus.Name = "GrpStatus"
Me.GrpStatus.Size = New System.Drawing.Size(368, 76)
Me.GrpStatus.TabIndex = 3
Me.GrpStatus.TabStop = False
Me.GrpStatus.Text = "Abschluss"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 19)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(60, 13)
Me.Label1.TabIndex = 3
Me.Label1.Text = "Prüfresultat"
'
'cbboxResultatText
'
Me.cbboxResultatText.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Append
Me.cbboxResultatText.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
Me.cbboxResultatText.FormattingEnabled = True
Me.cbboxResultatText.Location = New System.Drawing.Point(78, 16)
Me.cbboxResultatText.Name = "cbboxResultatText"
Me.cbboxResultatText.Size = New System.Drawing.Size(284, 21)
Me.cbboxResultatText.TabIndex = 2
'
'btnPruefungabgeschlossen
'
Me.btnPruefungabgeschlossen.Location = New System.Drawing.Point(9, 43)
Me.btnPruefungabgeschlossen.Name = "btnPruefungabgeschlossen"
Me.btnPruefungabgeschlossen.Size = New System.Drawing.Size(130, 23)
Me.btnPruefungabgeschlossen.TabIndex = 1
Me.btnPruefungabgeschlossen.Text = "Prüfung abgeschlossen"
Me.btnPruefungabgeschlossen.UseVisualStyleBackColor = True
'
'cbboxStatus
'
Me.cbboxStatus.FormattingEnabled = True
Me.cbboxStatus.Location = New System.Drawing.Point(10, 16)
Me.cbboxStatus.Name = "cbboxStatus"
Me.cbboxStatus.Size = New System.Drawing.Size(94, 21)
Me.cbboxStatus.TabIndex = 0
Me.cbboxStatus.Visible = False
'
'grpFindings
'
Me.grpFindings.Controls.Add(Me.GrpMassnahmen)
Me.grpFindings.Controls.Add(Me.GrpFinding)
Me.grpFindings.Dock = System.Windows.Forms.DockStyle.Fill
Me.grpFindings.Location = New System.Drawing.Point(374, 49)
Me.grpFindings.Name = "grpFindings"
Me.grpFindings.Size = New System.Drawing.Size(811, 689)
Me.grpFindings.TabIndex = 10
Me.grpFindings.TabStop = False
Me.grpFindings.Text = "Feststellungen und Massnahmen"
'
'GrpMassnahmen
'
Me.GrpMassnahmen.Controls.Add(Me.GroupBox2)
Me.GrpMassnahmen.Controls.Add(Me.GrpMassnahmenList)
Me.GrpMassnahmen.Dock = System.Windows.Forms.DockStyle.Fill
Me.GrpMassnahmen.Location = New System.Drawing.Point(3, 332)
Me.GrpMassnahmen.Name = "GrpMassnahmen"
Me.GrpMassnahmen.Size = New System.Drawing.Size(805, 354)
Me.GrpMassnahmen.TabIndex = 1
Me.GrpMassnahmen.TabStop = False
Me.GrpMassnahmen.Text = "Massnahmen"
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.DokumenteMassnahmen)
Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Fill
Me.GroupBox2.Location = New System.Drawing.Point(548, 16)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(254, 335)
Me.GroupBox2.TabIndex = 13
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Dokumente"
'
'DokumenteMassnahmen
'
Me.DokumenteMassnahmen.ConnectionString = Nothing
Me.DokumenteMassnahmen.Dock = System.Windows.Forms.DockStyle.Fill
Me.DokumenteMassnahmen.Doktype = 0
Me.DokumenteMassnahmen.Location = New System.Drawing.Point(3, 16)
Me.DokumenteMassnahmen.Margin = New System.Windows.Forms.Padding(5, 6, 5, 6)
Me.DokumenteMassnahmen.Mitarbeiternr = 0
Me.DokumenteMassnahmen.Name = "DokumenteMassnahmen"
Me.DokumenteMassnahmen.Pruefschrittnr = 0
Me.DokumenteMassnahmen.Size = New System.Drawing.Size(248, 316)
Me.DokumenteMassnahmen.TabIndex = 33
Me.DokumenteMassnahmen.TempFilePath = Nothing
Me.DokumenteMassnahmen.ThemaNr = 0
'
'GrpMassnahmenList
'
Me.GrpMassnahmenList.Controls.Add(Me.txtMassnahmeResultat)
Me.GrpMassnahmenList.Controls.Add(Me.lblMassnahmeResultat)
Me.GrpMassnahmenList.Controls.Add(Me.txtMassnahmebeschreibung)
Me.GrpMassnahmenList.Controls.Add(Me.txtMassnahmeBezeichnung)
Me.GrpMassnahmenList.Controls.Add(Me.lblMassnahmeBezeichnung)
Me.GrpMassnahmenList.Controls.Add(Me.lblMassnahmeBeschreibung)
Me.GrpMassnahmenList.Controls.Add(Me.C1Massnahmen)
Me.GrpMassnahmenList.Controls.Add(Me.ToolStripMassnahmen)
Me.GrpMassnahmenList.Dock = System.Windows.Forms.DockStyle.Left
Me.GrpMassnahmenList.Location = New System.Drawing.Point(3, 16)
Me.GrpMassnahmenList.Name = "GrpMassnahmenList"
Me.GrpMassnahmenList.Size = New System.Drawing.Size(545, 335)
Me.GrpMassnahmenList.TabIndex = 14
Me.GrpMassnahmenList.TabStop = False
'
'txtMassnahmeResultat
'
Me.txtMassnahmeResultat.BackColor = System.Drawing.Color.White
Me.txtMassnahmeResultat.Location = New System.Drawing.Point(251, 196)
Me.txtMassnahmeResultat.Multiline = True
Me.txtMassnahmeResultat.Name = "txtMassnahmeResultat"
Me.txtMassnahmeResultat.ReadOnly = True
Me.txtMassnahmeResultat.Size = New System.Drawing.Size(288, 94)
Me.txtMassnahmeResultat.TabIndex = 21
'
'lblMassnahmeResultat
'
Me.lblMassnahmeResultat.AutoSize = True
Me.lblMassnahmeResultat.Location = New System.Drawing.Point(251, 181)
Me.lblMassnahmeResultat.Name = "lblMassnahmeResultat"
Me.lblMassnahmeResultat.Size = New System.Drawing.Size(46, 13)
Me.lblMassnahmeResultat.TabIndex = 20
Me.lblMassnahmeResultat.Text = "Resultat"
'
'txtMassnahmebeschreibung
'
Me.txtMassnahmebeschreibung.BackColor = System.Drawing.Color.White
Me.txtMassnahmebeschreibung.Location = New System.Drawing.Point(2, 235)
Me.txtMassnahmebeschreibung.Multiline = True
Me.txtMassnahmebeschreibung.Name = "txtMassnahmebeschreibung"
Me.txtMassnahmebeschreibung.ReadOnly = True
Me.txtMassnahmebeschreibung.Size = New System.Drawing.Size(243, 55)
Me.txtMassnahmebeschreibung.TabIndex = 19
'
'txtMassnahmeBezeichnung
'
Me.txtMassnahmeBezeichnung.BackColor = System.Drawing.Color.White
Me.txtMassnahmeBezeichnung.Location = New System.Drawing.Point(2, 196)
Me.txtMassnahmeBezeichnung.Name = "txtMassnahmeBezeichnung"
Me.txtMassnahmeBezeichnung.ReadOnly = True
Me.txtMassnahmeBezeichnung.Size = New System.Drawing.Size(243, 20)
Me.txtMassnahmeBezeichnung.TabIndex = 18
'
'lblMassnahmeBezeichnung
'
Me.lblMassnahmeBezeichnung.AutoSize = True
Me.lblMassnahmeBezeichnung.Location = New System.Drawing.Point(3, 181)
Me.lblMassnahmeBezeichnung.Name = "lblMassnahmeBezeichnung"
Me.lblMassnahmeBezeichnung.Size = New System.Drawing.Size(69, 13)
Me.lblMassnahmeBezeichnung.TabIndex = 16
Me.lblMassnahmeBezeichnung.Text = "Bezeichnung"
'
'lblMassnahmeBeschreibung
'
Me.lblMassnahmeBeschreibung.AutoSize = True
Me.lblMassnahmeBeschreibung.Location = New System.Drawing.Point(3, 219)
Me.lblMassnahmeBeschreibung.Name = "lblMassnahmeBeschreibung"
Me.lblMassnahmeBeschreibung.Size = New System.Drawing.Size(72, 13)
Me.lblMassnahmeBeschreibung.TabIndex = 17
Me.lblMassnahmeBeschreibung.Text = "Beschreibung"
'
'C1Massnahmen
'
Me.C1Massnahmen.AllowUpdate = False
Me.C1Massnahmen.AlternatingRows = True
Me.C1Massnahmen.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Floating
Me.C1Massnahmen.Dock = System.Windows.Forms.DockStyle.Top
Me.C1Massnahmen.FilterBar = True
Me.C1Massnahmen.GroupByCaption = "Drag a column header here to group by that column"
Me.C1Massnahmen.Images.Add(CType(resources.GetObject("C1Massnahmen.Images"), System.Drawing.Image))
Me.C1Massnahmen.Location = New System.Drawing.Point(3, 41)
Me.C1Massnahmen.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
Me.C1Massnahmen.Name = "C1Massnahmen"
Me.C1Massnahmen.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1Massnahmen.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1Massnahmen.PreviewInfo.ZoomFactor = 75.0R
Me.C1Massnahmen.PrintInfo.PageSettings = CType(resources.GetObject("C1Massnahmen.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1Massnahmen.Size = New System.Drawing.Size(539, 128)
Me.C1Massnahmen.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
Me.C1Massnahmen.TabIndex = 11
Me.C1Massnahmen.Text = "C1TrueDBGrid1"
Me.C1Massnahmen.VisualStyle = C1.Win.C1TrueDBGrid.VisualStyle.Office2010Silver
Me.C1Massnahmen.PropBag = resources.GetString("C1Massnahmen.PropBag")
'
'ToolStripMassnahmen
'
Me.ToolStripMassnahmen.AllowDrop = True
Me.ToolStripMassnahmen.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnMassnahmeerfassen, Me.tsbtnMassnahmeEdit, Me.tsbtnMassnahmeLoeschen, Me.ToolStripButton8})
Me.ToolStripMassnahmen.Location = New System.Drawing.Point(3, 16)
Me.ToolStripMassnahmen.Name = "ToolStripMassnahmen"
Me.ToolStripMassnahmen.Size = New System.Drawing.Size(539, 25)
Me.ToolStripMassnahmen.TabIndex = 1
Me.ToolStripMassnahmen.Text = "ToolStrip3"
'
'tsbtnMassnahmeerfassen
'
Me.tsbtnMassnahmeerfassen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnMassnahmeerfassen.Image = CType(resources.GetObject("tsbtnMassnahmeerfassen.Image"), System.Drawing.Image)
Me.tsbtnMassnahmeerfassen.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnMassnahmeerfassen.Name = "tsbtnMassnahmeerfassen"
Me.tsbtnMassnahmeerfassen.Size = New System.Drawing.Size(23, 22)
Me.tsbtnMassnahmeerfassen.Text = "Neue Massnahme"
'
'tsbtnMassnahmeEdit
'
Me.tsbtnMassnahmeEdit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnMassnahmeEdit.Image = CType(resources.GetObject("tsbtnMassnahmeEdit.Image"), System.Drawing.Image)
Me.tsbtnMassnahmeEdit.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnMassnahmeEdit.Name = "tsbtnMassnahmeEdit"
Me.tsbtnMassnahmeEdit.Size = New System.Drawing.Size(23, 22)
Me.tsbtnMassnahmeEdit.Text = "Massnahme bearbeiten"
'
'tsbtnMassnahmeLoeschen
'
Me.tsbtnMassnahmeLoeschen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnMassnahmeLoeschen.Image = CType(resources.GetObject("tsbtnMassnahmeLoeschen.Image"), System.Drawing.Image)
Me.tsbtnMassnahmeLoeschen.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnMassnahmeLoeschen.Name = "tsbtnMassnahmeLoeschen"
Me.tsbtnMassnahmeLoeschen.Size = New System.Drawing.Size(23, 22)
Me.tsbtnMassnahmeLoeschen.Text = "Massnahme löschen"
'
'ToolStripButton8
'
Me.ToolStripButton8.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton8.Image = CType(resources.GetObject("ToolStripButton8.Image"), System.Drawing.Image)
Me.ToolStripButton8.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton8.Name = "ToolStripButton8"
Me.ToolStripButton8.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton8.Text = "Dokument anzeigen"
Me.ToolStripButton8.Visible = False
'
'GrpFinding
'
Me.GrpFinding.Controls.Add(Me.GrpFindingDokumente)
Me.GrpFinding.Controls.Add(Me.GrpFindingList)
Me.GrpFinding.Dock = System.Windows.Forms.DockStyle.Top
Me.GrpFinding.Location = New System.Drawing.Point(3, 16)
Me.GrpFinding.Name = "GrpFinding"
Me.GrpFinding.Size = New System.Drawing.Size(805, 316)
Me.GrpFinding.TabIndex = 0
Me.GrpFinding.TabStop = False
Me.GrpFinding.Text = "Feststellung"
'
'GrpFindingDokumente
'
Me.GrpFindingDokumente.Controls.Add(Me.DokumenteFindings)
Me.GrpFindingDokumente.Dock = System.Windows.Forms.DockStyle.Fill
Me.GrpFindingDokumente.Location = New System.Drawing.Point(384, 16)
Me.GrpFindingDokumente.Name = "GrpFindingDokumente"
Me.GrpFindingDokumente.Size = New System.Drawing.Size(418, 297)
Me.GrpFindingDokumente.TabIndex = 12
Me.GrpFindingDokumente.TabStop = False
Me.GrpFindingDokumente.Text = "Dokumente"
'
'DokumenteFindings
'
Me.DokumenteFindings.ConnectionString = Nothing
Me.DokumenteFindings.Dock = System.Windows.Forms.DockStyle.Fill
Me.DokumenteFindings.Doktype = 0
Me.DokumenteFindings.Location = New System.Drawing.Point(3, 16)
Me.DokumenteFindings.Margin = New System.Windows.Forms.Padding(5, 6, 5, 6)
Me.DokumenteFindings.Mitarbeiternr = 0
Me.DokumenteFindings.Name = "DokumenteFindings"
Me.DokumenteFindings.Pruefschrittnr = 0
Me.DokumenteFindings.Size = New System.Drawing.Size(412, 278)
Me.DokumenteFindings.TabIndex = 33
Me.DokumenteFindings.TempFilePath = Nothing
Me.DokumenteFindings.ThemaNr = 0
'
'GrpFindingList
'
Me.GrpFindingList.Controls.Add(Me.txtFindingBeschreibung)
Me.GrpFindingList.Controls.Add(Me.C1Findings)
Me.GrpFindingList.Controls.Add(Me.ToolStripFindings)
Me.GrpFindingList.Controls.Add(Me.txtFindingBezeichnung)
Me.GrpFindingList.Controls.Add(Me.lblFindingBezeichnung)
Me.GrpFindingList.Controls.Add(Me.lblFindingBeschreibung)
Me.GrpFindingList.Dock = System.Windows.Forms.DockStyle.Left
Me.GrpFindingList.Location = New System.Drawing.Point(3, 16)
Me.GrpFindingList.Name = "GrpFindingList"
Me.GrpFindingList.Size = New System.Drawing.Size(381, 297)
Me.GrpFindingList.TabIndex = 13
Me.GrpFindingList.TabStop = False
'
'txtFindingBeschreibung
'
Me.txtFindingBeschreibung.BackColor = System.Drawing.Color.White
Me.txtFindingBeschreibung.Location = New System.Drawing.Point(5, 236)
Me.txtFindingBeschreibung.Multiline = True
Me.txtFindingBeschreibung.Name = "txtFindingBeschreibung"
Me.txtFindingBeschreibung.ReadOnly = True
Me.txtFindingBeschreibung.Size = New System.Drawing.Size(362, 55)
Me.txtFindingBeschreibung.TabIndex = 15
'
'C1Findings
'
Me.C1Findings.AllowUpdate = False
Me.C1Findings.AlternatingRows = True
Me.C1Findings.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Floating
Me.C1Findings.Dock = System.Windows.Forms.DockStyle.Top
Me.C1Findings.FilterBar = True
Me.C1Findings.GroupByCaption = "Drag a column header here to group by that column"
Me.C1Findings.Images.Add(CType(resources.GetObject("C1Findings.Images"), System.Drawing.Image))
Me.C1Findings.Location = New System.Drawing.Point(3, 41)
Me.C1Findings.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
Me.C1Findings.Name = "C1Findings"
Me.C1Findings.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1Findings.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1Findings.PreviewInfo.ZoomFactor = 75.0R
Me.C1Findings.PrintInfo.PageSettings = CType(resources.GetObject("C1Findings.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1Findings.Size = New System.Drawing.Size(375, 138)
Me.C1Findings.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
Me.C1Findings.TabIndex = 11
Me.C1Findings.Text = "C1TrueDBGrid1"
Me.C1Findings.VisualStyle = C1.Win.C1TrueDBGrid.VisualStyle.Office2010Silver
Me.C1Findings.PropBag = resources.GetString("C1Findings.PropBag")
'
'ToolStripFindings
'
Me.ToolStripFindings.AllowDrop = True
Me.ToolStripFindings.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnNeuesFinding, Me.tsbtnFindingBearbeiten, Me.tsbtnFindingDelete, Me.ToolStripButton3})
Me.ToolStripFindings.Location = New System.Drawing.Point(3, 16)
Me.ToolStripFindings.Name = "ToolStripFindings"
Me.ToolStripFindings.Size = New System.Drawing.Size(375, 25)
Me.ToolStripFindings.TabIndex = 1
Me.ToolStripFindings.Text = "ToolStrip2"
'
'tsbtnNeuesFinding
'
Me.tsbtnNeuesFinding.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnNeuesFinding.Image = CType(resources.GetObject("tsbtnNeuesFinding.Image"), System.Drawing.Image)
Me.tsbtnNeuesFinding.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnNeuesFinding.Name = "tsbtnNeuesFinding"
Me.tsbtnNeuesFinding.Size = New System.Drawing.Size(23, 22)
Me.tsbtnNeuesFinding.Text = "Neue Feststellung erfassen"
'
'tsbtnFindingBearbeiten
'
Me.tsbtnFindingBearbeiten.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnFindingBearbeiten.Image = CType(resources.GetObject("tsbtnFindingBearbeiten.Image"), System.Drawing.Image)
Me.tsbtnFindingBearbeiten.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnFindingBearbeiten.Name = "tsbtnFindingBearbeiten"
Me.tsbtnFindingBearbeiten.Size = New System.Drawing.Size(23, 22)
Me.tsbtnFindingBearbeiten.Text = "Feststellung bearbeiten"
'
'tsbtnFindingDelete
'
Me.tsbtnFindingDelete.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnFindingDelete.Image = CType(resources.GetObject("tsbtnFindingDelete.Image"), System.Drawing.Image)
Me.tsbtnFindingDelete.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnFindingDelete.Name = "tsbtnFindingDelete"
Me.tsbtnFindingDelete.Size = New System.Drawing.Size(23, 22)
Me.tsbtnFindingDelete.Text = "Feststellung löschen"
'
'ToolStripButton3
'
Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image)
Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton3.Name = "ToolStripButton3"
Me.ToolStripButton3.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton3.Text = "Dokument anzeigen"
Me.ToolStripButton3.Visible = False
'
'txtFindingBezeichnung
'
Me.txtFindingBezeichnung.BackColor = System.Drawing.Color.White
Me.txtFindingBezeichnung.Location = New System.Drawing.Point(5, 197)
Me.txtFindingBezeichnung.Name = "txtFindingBezeichnung"
Me.txtFindingBezeichnung.ReadOnly = True
Me.txtFindingBezeichnung.Size = New System.Drawing.Size(362, 20)
Me.txtFindingBezeichnung.TabIndex = 14
'
'lblFindingBezeichnung
'
Me.lblFindingBezeichnung.AutoSize = True
Me.lblFindingBezeichnung.Location = New System.Drawing.Point(6, 182)
Me.lblFindingBezeichnung.Name = "lblFindingBezeichnung"
Me.lblFindingBezeichnung.Size = New System.Drawing.Size(69, 13)
Me.lblFindingBezeichnung.TabIndex = 12
Me.lblFindingBezeichnung.Text = "Bezeichnung"
'
'lblFindingBeschreibung
'
Me.lblFindingBeschreibung.AutoSize = True
Me.lblFindingBeschreibung.Location = New System.Drawing.Point(6, 220)
Me.lblFindingBeschreibung.Name = "lblFindingBeschreibung"
Me.lblFindingBeschreibung.Size = New System.Drawing.Size(72, 13)
Me.lblFindingBeschreibung.TabIndex = 13
Me.lblFindingBeschreibung.Text = "Beschreibung"
'
'ImageListFindings
'
Me.ImageListFindings.ImageStream = CType(resources.GetObject("ImageListFindings.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageListFindings.TransparentColor = System.Drawing.Color.Transparent
Me.ImageListFindings.Images.SetKeyName(0, "Keine.png")
Me.ImageListFindings.Images.SetKeyName(1, "Tief.png")
Me.ImageListFindings.Images.SetKeyName(2, "Mittel.png")
Me.ImageListFindings.Images.SetKeyName(3, "Hoch.png")
'
'ImageListeMassnahmen
'
Me.ImageListeMassnahmen.ColorDepth = System.Windows.Forms.ColorDepth.Depth8Bit
Me.ImageListeMassnahmen.ImageSize = New System.Drawing.Size(16, 16)
Me.ImageListeMassnahmen.TransparentColor = System.Drawing.Color.Transparent
'
'PruefschrittDetailsBearbeitung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1185, 738)
Me.Controls.Add(Me.grpFindings)
Me.Controls.Add(Me.GrpResultate)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.MenuStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "PruefschrittDetailsBearbeitung"
Me.Text = "Assessment-Detail"
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
Me.GrpResultate.ResumeLayout(False)
Me.GrpDokumente.ResumeLayout(False)
Me.GrpTypAnzahl_Massen.ResumeLayout(False)
Me.GrpTypAnzahl_Massen.PerformLayout()
CType(Me.txtFindingsKein, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFindingsHoch, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFindingsMittel, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtFindingsTief, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtAnzahlPruefungen, System.ComponentModel.ISupportInitialize).EndInit()
Me.GrpBeschreibung.ResumeLayout(False)
Me.GrpBeschreibung.PerformLayout()
Me.GrpKurzbeschreibung.ResumeLayout(False)
Me.GrpKurzbeschreibung.PerformLayout()
Me.GrpStatus.ResumeLayout(False)
Me.GrpStatus.PerformLayout()
Me.grpFindings.ResumeLayout(False)
Me.GrpMassnahmen.ResumeLayout(False)
Me.GroupBox2.ResumeLayout(False)
Me.GrpMassnahmenList.ResumeLayout(False)
Me.GrpMassnahmenList.PerformLayout()
CType(Me.C1Massnahmen, System.ComponentModel.ISupportInitialize).EndInit()
Me.ToolStripMassnahmen.ResumeLayout(False)
Me.ToolStripMassnahmen.PerformLayout()
Me.GrpFinding.ResumeLayout(False)
Me.GrpFindingDokumente.ResumeLayout(False)
Me.GrpFindingList.ResumeLayout(False)
Me.GrpFindingList.PerformLayout()
CType(Me.C1Findings, System.ComponentModel.ISupportInitialize).EndInit()
Me.ToolStripFindings.ResumeLayout(False)
Me.ToolStripFindings.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ToolStrip1 As ToolStrip
Friend WithEvents TSBtnQuit As ToolStripButton
Friend WithEvents MenuStrip1 As MenuStrip
Friend WithEvents DateiToolStripMenuItem As ToolStripMenuItem
Friend WithEvents BeendenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents GrpResultate As GroupBox
Friend WithEvents GrpDokumente As GroupBox
Friend WithEvents GrpBeschreibung As GroupBox
Friend WithEvents txtBeschreibung As TextBox
Friend WithEvents GrpKurzbeschreibung As GroupBox
Friend WithEvents txtKurzbeschreibung As TextBox
Friend WithEvents grpFindings As GroupBox
Friend WithEvents GrpMassnahmen As GroupBox
Friend WithEvents GrpFinding As GroupBox
Friend WithEvents ToolStripMassnahmen As ToolStrip
Friend WithEvents tsbtnMassnahmeerfassen As ToolStripButton
Friend WithEvents tsbtnMassnahmeEdit As ToolStripButton
Friend WithEvents tsbtnMassnahmeLoeschen As ToolStripButton
Friend WithEvents ToolStripButton8 As ToolStripButton
Friend WithEvents ToolStripFindings As ToolStrip
Friend WithEvents tsbtnNeuesFinding As ToolStripButton
Friend WithEvents tsbtnFindingBearbeiten As ToolStripButton
Friend WithEvents tsbtnFindingDelete As ToolStripButton
Friend WithEvents ToolStripButton3 As ToolStripButton
Friend WithEvents C1Massnahmen As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents C1Findings As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents GroupBox2 As GroupBox
Friend WithEvents GrpFindingDokumente As GroupBox
Friend WithEvents txtFindingBeschreibung As TextBox
Friend WithEvents txtFindingBezeichnung As TextBox
Friend WithEvents lblFindingBeschreibung As Label
Friend WithEvents lblFindingBezeichnung As Label
Friend WithEvents GrpFindingList As GroupBox
Friend WithEvents GrpMassnahmenList As GroupBox
Friend WithEvents txtMassnahmebeschreibung As TextBox
Friend WithEvents txtMassnahmeBezeichnung As TextBox
Friend WithEvents lblMassnahmeBezeichnung As Label
Friend WithEvents lblMassnahmeBeschreibung As Label
Friend WithEvents TSBtnSave As ToolStripButton
Friend WithEvents DokumenteAllgemein As ThemenDokumente.Dokumente
Friend WithEvents DokumenteMassnahmen As ThemenDokumente.Dokumente
Friend WithEvents DokumenteFindings As ThemenDokumente.Dokumente
Friend WithEvents ImageListFindings As ImageList
Friend WithEvents ImageListeMassnahmen As ImageList
Friend WithEvents GrpStatus As GroupBox
Friend WithEvents cbboxStatus As ComboBox
Friend WithEvents btnPruefungabgeschlossen As Button
Friend WithEvents txtMassnahmeResultat As TextBox
Friend WithEvents lblMassnahmeResultat As Label
Friend WithEvents cbboxResultatText As ComboBox
Friend WithEvents Label1 As Label
Friend WithEvents GrpTypAnzahl_Massen As GroupBox
Friend WithEvents lblFindingsHoch As Label
Friend WithEvents lblFindingsMittel As Label
Friend WithEvents lblFidingsTief As Label
Friend WithEvents txtFindingsHoch As NumericUpDown
Friend WithEvents txtFindingsMittel As NumericUpDown
Friend WithEvents txtFindingsTief As NumericUpDown
Friend WithEvents txtAnzahlPruefungen As NumericUpDown
Friend WithEvents lblAnzPruefungen As Label
Friend WithEvents lblFindingsKein As Label
Friend WithEvents txtFindingsKein As NumericUpDown
End Class

3957
SW/AssessmentMgmt/Pruefschritt/PruefschrittDetailsBearbeitung.resx Normal file
View File

File diff suppressed because it is too large Load Diff

721
SW/AssessmentMgmt/Pruefschritt/PruefschrittDetailsBearbeitung.vb Normal file
View File

@@ -0,0 +1,721 @@
Imports C1.Win.C1TrueDBGrid
Public Class PruefschrittDetailsBearbeitung
#Region "Deklarationen"
Dim Pruefresultatnr As Integer
Dim OnRefresh_Findings As Boolean = False
Dim m_pruefschrittnr As Integer
Property Pruefschrittnr As Integer
Get
Return m_pruefschrittnr
End Get
Set(value As Integer)
m_pruefschrittnr = value
Me.Pruefresultatnr = value
End Set
End Property
Dim m_handler As Integer
Property Handler As Integer
Get
Return m_handler
End Get
Set(value As Integer)
m_handler = value
End Set
End Property
Dim m_readonly As Boolean
Property IsReadonly As Boolean
Get
Return m_readonly
End Get
Set(value As Boolean)
m_readonly = value
End Set
End Property
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 Pruefschrittresultat As New clsPruefschrittResultat
Dim pruefschrittstatus As New clsStatus
Dim Pruefschritt As New clsPruefschritt
#End Region
#Region "Closing / Check_Changes"
''' <summary>
''' Schliessen des Formulars
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Private Sub FormularClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If Me.FormReadonly = True Then Exit Sub
If Me.IsReadonly = True Then Exit Sub
evh.pruefschrittResultat_Close(Me.Handler, Me.Pruefschrittnr)
If Check_Changes() = False Then
e.Cancel = True
Else
Me.Dispose()
End If
End Sub
''' <summary>
''' Prüfung, ob Datenänderungen vorgenommen wurden.
''' </summary>
''' <remarks></remarks>
Private Function Check_Changes() As Boolean
If Me.FormReadonly Then
Return True
Exit Function
End If
Dim msgres As MsgBoxResult
If Me.FormDataChanged Then
msgres = msg.Show_MessageYesNoCancel(3)
Select Case msgres
Case MsgBoxResult.Yes
save_data()
Return True
Case MsgBoxResult.Cancel
Return False
Case MsgBoxResult.No
Me.FormDataChanged = False
Return True
End Select
Else
Return True
End If
End Function
#End Region
#Region "Eventhandler ChangeEreignisse"
''' <summary>
''' Allg Eventhandler für Chanage-Ereignise festlegen
''' </summary>
''' <param name="Container"></param>
''' <remarks></remarks>
Private Sub AddChanges(ByVal Container As Control)
Dim l As New List(Of Control)
Me.GetControl(Me, "*", l)
Dim evh As EventHandler = AddressOf ChangesMade
For Each c As Control In l
If TypeOf c Is NumericUpDown Then
Dim ctl As NumericUpDown = c
AddHandler ctl.ValueChanged, evh
End If
If TypeOf c Is TextBox Then
Dim ctl As TextBox = c
AddHandler ctl.TextChanged, evh
End If
If TypeOf c Is MaskedTextBox Then
Dim ctl As MaskedTextBox = c
AddHandler ctl.TextChanged, evh
End If
If TypeOf c Is ComboBox Then
Dim ctl As ComboBox = c
If ctl.Name <> "cbboxResultatText" Then AddHandler ctl.SelectedValueChanged, evh
End If
If TypeOf c Is RichTextBox Then
Dim ctl As RichTextBox = c
AddHandler ctl.TextChanged, evh
End If
If TypeOf c Is CheckBox Then
If c.Name <> "cboxNurAktive" Then
Dim ctl As CheckBox = c
AddHandler ctl.CheckedChanged, evh
End If
End If
If TypeOf c Is CheckedListBox Then
Dim ctl As CheckedListBox = c
AddHandler ctl.ItemCheck, AddressOf ChecketListBoxChange
End If
If TypeOf c Is DateTimePicker Then
Dim ctl As DateTimePicker = c
AddHandler ctl.ValueChanged, evh
End If
Next
End Sub
''' <summary>
''' Envent-Handler für Change-Ereignisse
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Private Sub ChangesMade(ByVal sender As Object, ByVal e As System.EventArgs)
If UCase(sender.name) = "TXTFINDINGBEZEICHNUNG" Or UCase(sender.NAME) = "TXTFINDINGBESCHREIBUNG" Then Exit Sub
If UCase(sender.name) = "TXTMASSNAHMEBEZEICHNUNG" Or UCase(sender.NAME) = "TXTMASSNAHMEBESCHREIBUNG" Or UCase(sender.NAME) = "TXTMASSNAHMERESULTAT" Then Exit Sub
Me.FormDataChanged = True
Dim objtype As System.Type = sender.GetType
If objtype.Name = "MaskedTextBox" Then
Dim o As MaskedTextBox = sender
If o.Text = "01.01.1900" Then o.Text = " . . "
End If
End Sub
Private Sub ChecketListBoxChange(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs)
Me.FormDataChanged = True
End Sub
Private Sub generalhandler()
Me.FormDataChanged = True
End Sub
''' <summary>
''' Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet
''' die gefundnen Controls in der Liste L zur weiteren Bearbeitung
''' </summary>
''' <param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
''' <param name="Key">Schlüssel welcher gesucht werden soll</param>
''' <param name="L">Liste der gefundenen Objekte</param>
''' <returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
''' </returns>
''' <remarks></remarks>
Private Function GetControl(ByVal BaseControl As Control, ByVal Key As String, ByRef L As List(Of Control), Optional ByVal ReturnAtFirstElement As Boolean = False) As Boolean
If L Is Nothing Then L = New List(Of Control)
Dim Gut As Boolean
Dim ReturnFlag As Boolean = False
If Key IsNot Nothing Then Key = Key.ToLower
If BaseControl.HasChildren = True Then
For Each ctl As Control In BaseControl.Controls
Gut = False
If Key Is Nothing Then
Gut = True
Else
If ctl.Name.Length >= Key.Length Then
Key = Key.ToLower
If Key.StartsWith("*") Then
If Key.Substring(1) = ctl.Name.ToLower.Substring(ctl.Name.Length - (Key.Length - 1), Key.Length - 1) Then Gut = True
ElseIf Key.EndsWith("*") Then
If Key.Substring(0, Key.Length - 1) = ctl.Name.ToLower.Substring(0, Key.Length - 1) Then Gut = True
Else
If Key = ctl.Name.ToLower Then Gut = True
End If
End If
End If
If Gut = True Then
L.Add(ctl)
If ReturnAtFirstElement = True Then ReturnFlag = True
End If
If ReturnFlag = False Then
Call GetControl(ctl, Key, L)
End If
Next
End If
If L.Count - 1 > -1 Then
Return True
Else
Return False
End If
End Function
#End Region
#Region "Fomular"
Private Sub PruefschrittDetailsBearbeitung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Cursor = Cursors.WaitCursor
Application.DoEvents()
Try
Me.Pruefschrittresultat.Get_Data(Pruefresultatnr)
If Me.Pruefschrittresultat.daten.Rows.Count = 0 Then
Me.Pruefschrittresultat.Add_New(Pruefresultatnr)
End If
Pruefschritt.Get_Data(Me.Pruefschrittnr)
Refresh_Details()
Refresh_Finding_Dokumente()
Refresh_Allgemeine_Dokumente
pruefschrittstatus.Get_Mögliche_Status(Pruefschritt.iStatusnr, cbboxStatus)
For Each r As DataRow In Pruefschritt.PruefschrittResultattext.Rows
Me.cbboxResultatText.DataSource = Nothing
Me.cbboxResultatText.DataSource = Me.Pruefschritt.PruefschrittResultattext
Me.cbboxResultatText.DisplayMember = "Bezeichnung"
Me.cbboxResultatText.ValueMember = "PruefschrittTextnr"
Next
AddChanges(Me)
If Me.IsReadonly = True Then
sec.Set_Form_Readonly(Me)
Me.DokumenteFindings.Show_Toolbar = False
Me.DokumenteMassnahmen.Show_Toolbar = False
Me.ToolStripFindings.Enabled = False
Me.ToolStripMassnahmen.Enabled = False
Me.DokumenteAllgemein.Show_Toolbar = False
End If
Dim i As Integer
If Me.txtKurzbeschreibung.Text <> "" Then
For i = 0 To Pruefschritt.PruefschrittResultattext.Rows.Count - 1
If Pruefschritt.PruefschrittResultattext.Rows(i).Item("Bezeichnung") = Me.txtKurzbeschreibung.Text Then Me.cbboxResultatText.SelectedValue = Pruefschritt.PruefschrittResultattext.Rows(i).Item(0)
Next
End If
If Pruefschritt.iAssessmenttyp.Value = 1 Then
Me.GrpTypAnzahl_Massen.Visible = False
End If
If Pruefschritt.iAssessmenttyp.Value = 2 Then
Me.GrpTypAnzahl_Massen.Visible = True
Me.lblFidingsTief.Visible = False
Me.lblFindingsHoch.Visible = False
Me.lblFindingsMittel.Visible = False
Me.txtFindingsHoch.Visible = False
Me.txtFindingsMittel.Visible = False
Me.txtFindingsTief.Visible = False
Me.txtFindingsKein.Visible = False
Me.lblFindingsKein.Visible = False
End If
If Pruefschritt.iAssessmenttyp.Value = 3 Then
Me.GrpTypAnzahl_Massen.Visible = True
Me.lblFidingsTief.Visible = True
Me.lblFindingsHoch.Visible = True
Me.lblFindingsMittel.Visible = True
Me.txtFindingsHoch.Visible = True
Me.txtFindingsMittel.Visible = True
Me.txtFindingsTief.Visible = True
Me.txtFindingsKein.Visible = True
Me.lblFindingsKein.Visible = True
End If
Do_Massnahmen_RowColChange()
If Me.IsReadonly = True Then Me.TSBtnSave.Visible = False
Try
If Me.C1Massnahmen.Splits(0).Rows.Count > 0 Then Me.C1Massnahmen_RowColChange(sender, e)
Catch ex As Exception
End Try
Catch
Finally
Me.Cursor = Cursors.Default
Application.DoEvents()
End Try
End Sub
Private Sub PruefschrittDetailsBearbeitung_Resize(sender As Object, e As EventArgs) Handles Me.Resize
Me.GrpResultate.Width = Me.ClientSize.Width / 3
Me.GrpFindingList.Width = Me.grpFindings.Width / 3 * 2
Me.GrpMassnahmenList.Width = Me.GrpFindingList.Width
End Sub
Private Sub Refresh_Details()
Me.txtKurzbeschreibung.Text = Me.Pruefschrittresultat.sKurzbeschreibung.Value
Me.txtBeschreibung.Text = Me.Pruefschrittresultat.sBeschreibung.Value
Select Case Pruefschritt.iAssessmenttyp.Value
Case 2
Me.txtAnzahlPruefungen.Value = Me.Pruefschrittresultat.iAnzahl_Pruefungen.Value
Case 3
Me.txtAnzahlPruefungen.Value = Me.Pruefschrittresultat.iAnzahl_Pruefungen.Value
Me.txtFindingsTief.Value = Me.Pruefschrittresultat.iFindings_niedrig.Value
Me.txtFindingsMittel.Value = Me.Pruefschrittresultat.iFindings_mittel.Value
Me.txtFindingsHoch.Value = Me.Pruefschrittresultat.iFindings_hoch.Value
Me.txtFindingsKein.Value = Me.Pruefschrittresultat.iFinding_kein.Value
End Select
Refresh_Findings()
Refresh_Massnahmen()
End Sub
#End Region
Sub save_data()
Pruefschritt.Get_Data(Me.Pruefschrittnr)
Me.Pruefschrittresultat.sBeschreibung = New SqlTypes.SqlString(CType(Me.txtBeschreibung.Text, String))
Me.Pruefschrittresultat.sKurzbeschreibung = New SqlTypes.SqlString(CType(Me.txtKurzbeschreibung.Text, String))
Select Case Pruefschritt.iAssessmenttyp.Value
Case 2
Me.Pruefschrittresultat.iAnzahl_Pruefungen = New SqlTypes.SqlInt32(CType(Me.txtAnzahlPruefungen.Value, Int32))
Case 3
Me.Pruefschrittresultat.iAnzahl_Pruefungen = New SqlTypes.SqlInt32(CType(Me.txtAnzahlPruefungen.Value, Int32))
Me.Pruefschrittresultat.iFindings_niedrig = New SqlTypes.SqlInt32(CType(Me.txtFindingsTief.Value, Int32))
Me.Pruefschrittresultat.iFindings_mittel = New SqlTypes.SqlInt32(CType(Me.txtFindingsMittel.Value, Int32))
Me.Pruefschrittresultat.iFindings_hoch = New SqlTypes.SqlInt32(CType(Me.txtFindingsHoch.Value, Int32))
Me.Pruefschrittresultat.iFinding_kein = New SqlTypes.SqlInt32(CType(Me.txtFindingsKein.Value, Int32))
End Select
Me.Pruefschrittresultat.Save_Data()
Pruefschritt.Get_Data(Me.Pruefschrittnr)
If Pruefschritt.bDurchfuehrung_ISI.Value = True And Pruefschritt.Is_IsiMitarbeiter(Globals.clsmitarbeiter.iMitarbeiternr) = True Then
If Pruefschritt.iStatusnr <> 2 Then
If MsgBox("Status auf 'In Bearbeitung' setzen?", vbYesNo + vbQuestion) = MsgBoxResult.Yes Then
Pruefschritt.iStatusnr = New SqlTypes.SqlInt32(CType(2, Int32))
Pruefschritt.Save_Data()
Me.FormDataChanged = False
evh.PruefplanResultat_Save(Me.Handler, Me.Pruefschrittnr)
Exit Sub
Else
Me.FormDataChanged = False
evh.PruefplanResultat_Save(Me.Handler, Me.Pruefschrittnr)
Exit Sub
End If
End If
End If
If Pruefschritt.iStatusnr.Value <> 2 And Pruefschritt.iStatusnr.Value <> 5 Then
Pruefschritt.iStatusnr = New SqlTypes.SqlInt32(CType(2, Int32))
Pruefschritt.iAktueller_Verantwortlicher = New SqlTypes.SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
End If
Pruefschritt.Save_Data()
Me.FormDataChanged = False
evh.PruefplanResultat_Save(Me.Handler, Me.Pruefschrittnr)
End Sub
#Region "Findings"
Sub Refresh_Findings()
Dim findings As New clsFinding
findings.Get_Eintraege(Me.C1Findings, Me.Pruefresultatnr, Me.ImageListFindings)
Refresh_Finding_Dokumente()
End Sub
Sub Refresh_Finding_Dokumente()
If Me.C1Findings.Splits(0).Rows.Count < 1 Then
Me.DokumenteFindings.Init()
Me.DokumenteFindings.Show_Toolbar = Me.IsReadonly = True
Exit Sub
End If
Try
Me.DokumenteFindings.Show_Toolbar = Me.IsReadonly = 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_allgemeine_Dokumente()
'If Me.C1Findings.Splits(0).Rows.Count < 1 Then
' Me.DokumenteAllgemein.Init()
' Me.DokumenteAllgemein.Show_Toolbar = Me.IsReadonly = False
' Exit Sub
'End If
Try
Me.DokumenteAllgemein.Show_Toolbar = Me.IsReadonly = False
Me.DokumenteAllgemein.ConnectionString = Globals.sConnectionString
Me.DokumenteAllgemein.Mitarbeiternr = Globals.clsmitarbeiter.iMitarbeiternr.Value
Me.DokumenteAllgemein.Init()
Me.DokumenteAllgemein.Doktype = 4
Me.DokumenteAllgemein.ThemaNr = Me.Pruefschrittnr
Me.DokumenteAllgemein.Refresh_Dokumente()
Me.DokumenteAllgemein.TempFilePath = Globals.clsapplication.sTmp_filepath.Value
Catch ex As Exception
Me.DokumenteAllgemein.Init()
Me.DokumenteAllgemein.Show_Toolbar = False
End Try
End Sub
#End Region
#Region "Massnahmen"
Sub Refresh_Massnahmen()
If OnRefresh_Findings Then Exit Sub
Me.ToolStripMassnahmen.Enabled = False
Me.DokumenteMassnahmen.Enabled = False
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()
Me.ToolStripMassnahmen.Enabled = True
Catch
End Try
End If
Do_Massnahmen_RowColChange()
End Sub
Sub Refresh_Massnahmen_Dokument()
If OnRefresh_Findings Then Exit Sub
If Me.C1Massnahmen.Splits(0).Rows.Count < 1 Then
Me.DokumenteMassnahmen.Init()
Me.DokumenteMassnahmen.Show_Toolbar = Me.IsReadonly = False
Me.DokumenteMassnahmen.Enabled = False
Exit Sub
End If
Try
Me.DokumenteMassnahmen.Show_Toolbar = Me.IsReadonly = 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
Me.DokumenteMassnahmen.Enabled = True
Catch ex As Exception
Me.DokumenteMassnahmen.Init()
Me.DokumenteMassnahmen.Show_Toolbar = False
End Try
End Sub
#End Region
Private Sub tsbtnNeuesFinding_Click(sender As Object, e As EventArgs) Handles tsbtnNeuesFinding.Click
Dim f As New FrmFinding
f.Key = -1
f.Pruefschrittresultatnr = Me.Pruefresultatnr
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
OnRefresh_Findings = True
Me.Refresh_Findings()
OnRefresh_Findings = False
Refresh_Massnahmen()
End If
End Sub
Private Sub C1Findings_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1Findings.RowColChange
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_Massnahmen()
End Sub
Private Sub tsbtnFindingBearbeiten_Click(sender As Object, e As EventArgs) Handles tsbtnFindingBearbeiten.Click
Try
Dim f As New FrmFinding
f.Key = Me.C1Findings.Columns("Pruefschrittfindingnr").Value
f.Pruefschrittresultatnr = Me.Pruefresultatnr
f.isreadonly = Me.IsReadonly
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
OnRefresh_Findings = True
Me.Refresh_Findings()
OnRefresh_Findings = False
Refresh_Massnahmen()
End If
Catch ex As Exception
End Try
End Sub
Private Sub tsbtnMassnahmeerfassen_Click(sender As Object, e As EventArgs) Handles tsbtnMassnahmeerfassen.Click
Dim f As New frmMassnahme
f.Key = -1
f.Pruefschrittresultatnr = Me.C1Findings.Columns("Pruefschrittfindingnr").Value
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
Me.Refresh_Massnahmen()
End If
End Sub
Private Sub C1Findings_DoubleClick(sender As Object, e As EventArgs) Handles C1Findings.DoubleClick
Try
tsbtnFindingBearbeiten_Click(sender, e)
Catch
End Try
End Sub
Private Sub C1Massnahmen_DoubleClick(sender As Object, e As EventArgs) Handles C1Massnahmen.DoubleClick
tsbtnMassnahmeEdit_click(sender,e)
End Sub
Private Sub tsbtnMassnahmeEdit_Click(sender As Object, e As EventArgs) Handles tsbtnMassnahmeEdit.Click
Dim f As New frmMassnahme
f.Key = Me.C1Massnahmen.Columns("Pruefschrittmassnahmenr").Value
f.Pruefschrittresultatnr = Me.C1Findings.Columns("Pruefschrittfindingnr").Value
If C1Massnahmen.Columns("Verantwortungnr").Value = Globals.clsmitarbeiter.iMitarbeiternr.Value Then
f.IsReadonly = False
Else
f.IsReadonly = Me.IsReadonly
End If
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
Me.Refresh_Massnahmen()
End If
End Sub
Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
Me.Close()
End Sub
Private Sub TSBtnSave_Click(sender As Object, e As EventArgs) Handles TSBtnSave.Click
Me.save_data()
End Sub
Private Sub btnPruefungabgeschlossen_Click(sender As Object, e As EventArgs) Handles btnPruefungabgeschlossen.Click
Me.txtKurzbeschreibung.Text = Me.cbboxResultatText.Text
Me.save_data()
Select Case Me.cbboxResultatText.SelectedValue
Case 0
MsgBox("Bitte wählen Sie ein Prüfresultat aus, welches zur Prüfung passt.", vbInformation)
Exit Sub
Case 1
If Me.C1Findings.Splits(0).Rows.Count > 0 Then
MsgBox("Sie haben Feststellungen erfasst. Somit kann das Resultat der Prüfung nicht '" + Me.cbboxResultatText.Text + "' lauten.", vbExclamation)
Exit Sub
End If
Case 2, 3
If Me.C1Findings.Splits(0).Rows.Count < 1 Then
MsgBox("Sie haben keine Feststellungen erfasst. Somit kann das Resultat der Prüfung nicht '" + Me.cbboxResultatText.Text + "' lauten.", vbExclamation)
Exit Sub
End If
Case 4
If Trim(Me.txtBeschreibung.Text) = "" Then
MsgBox("Für den Status 'Nicht durchgeführt' ist zwingend eine Beschreibung notwendig.", vbExclamation)
Me.txtBeschreibung.Select()
Exit Sub
End If
End Select
If MsgBox("Haben Sie die Prüfung abgeschlossen und alle Feststellungen und Massnahmen festgehalten?", vbYesNo + vbQuestion) = vbYes Then
Pruefschritt.Get_Data(Me.Pruefschrittnr)
'Pruefschritt.iStatusnr = New SqlTypes.SqlInt32(CType(6, Int32))
'Pruefschritt.Save_Data()
If Pruefschritt.iVerantwortlichNr.Value = Pruefschritt.iAktueller_Verantwortlicher.Value Then
Pruefschritt.iStatusnr = New SqlTypes.SqlInt32(CType(5, Int32))
Pruefschritt.iAktueller_Verantwortlicher = New SqlTypes.SqlInt32(CType(Pruefschritt.iVeramtwortungISINr.Value, Int32))
Dim pplan As New DB.clsPruefplan
pplan.cpMainConnectionProvider = Globals.conn
pplan.iPruefplanNr = New SqlTypes.SqlInt32(CType(Pruefschritt.iPruefplanNr.Value, Int32))
pplan.SelectOne()
If pplan.bSelbstkontrolle.Value = True Then
Pruefschritt.iStatusnr = New SqlTypes.SqlInt32(CType(6, Int32))
Pruefschritt.Save_Data()
End If
pplan = Nothing
Else
If Pruefschritt.iStatusnr.Value = 5 Then
Pruefschritt.iStatusnr = New SqlTypes.SqlInt32(CType(6, Int32))
Else
Pruefschritt.iAktueller_Verantwortlicher = New SqlTypes.SqlInt32(CType(Pruefschritt.iVerantwortlichNr.Value, Int32))
Pruefschritt.iStatusnr = New SqlTypes.SqlInt32(CType(3, Int32))
Pruefschritt.Insert_Message(3, Pruefschritt.iPruefschrittNr.Value, Pruefschritt.iAktueller_Verantwortlicher.Value, 0, "")
End If
End If
Pruefschritt.Save_Data()
Me.Close()
End If
End Sub
Private Sub C1Massnahmen_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1Massnahmen.RowColChange
Do_Massnahmen_RowColChange()
End Sub
Sub Do_Massnahmen_RowColChange()
Try
Me.txtMassnahmeBezeichnung.Text = ""
Me.txtMassnahmebeschreibung.Text = ""
Me.txtMassnahmeResultat.Text = ""
Dim pruefschrittmassnahme As New clsPruefschrittMassnahme
pruefschrittmassnahme.Get_Data(Me.C1Massnahmen.Columns("Pruefschrittmassnahmenr").Value)
Me.txtMassnahmeBezeichnung.Text = pruefschrittmassnahme.sKurzbeschreibung.Value
Me.txtMassnahmebeschreibung.Text = pruefschrittmassnahme.sBeschreibung.Value
Me.txtMassnahmeResultat.Text = pruefschrittmassnahme.sMassnahmeResultat.Value
Refresh_Massnahmen_Dokument()
If Me.IsReadonly Then Me.ToolStripMassnahmen.Enabled = False
If C1Massnahmen.Columns("Verantwortungnr").Value = Globals.clsmitarbeiter.iMitarbeiternr.Value Then
If Me.Pruefschritt.iAktueller_Verantwortlicher <> Globals.clsmitarbeiter.iMitarbeiternr.Value Then
Me.ToolStripMassnahmen.Enabled = True
Me.tsbtnMassnahmeerfassen.Enabled = False
Me.tsbtnMassnahmeLoeschen.Enabled = False
Me.tsbtnMassnahmeEdit.Enabled = True
Me.DokumenteMassnahmen.Show_Toolbar = True
End If
Else
Me.DokumenteMassnahmen.Show_Toolbar = False
End If
Catch
End Try
End Sub
Private Sub tsbtnFindingDelete_Click(sender As Object, e As EventArgs) Handles tsbtnFindingDelete.Click
Try
If MsgBox("Datensatz wirklich löschen?", vbYesNo + vbQuestion) = MsgBoxResult.Yes Then
Dim clsf As New clsFinding
clsf.Delete_Data(Me.C1Findings.Columns("Pruefschrittfindingnr").Value)
clsf.dispose()
Refresh_Findings()
Refresh_Massnahmen()
End If
Catch ex As Exception
End Try
End Sub
Private Sub DokumenteFindings_Load(sender As Object, e As EventArgs) Handles DokumenteFindings.Load
End Sub
Private Sub tsbtnMassnahmeLoeschen_Click(sender As Object, e As EventArgs) Handles tsbtnMassnahmeLoeschen.Click
Try
If MsgBox("Datensatz wirklich löschen?", vbYesNo + vbQuestion) = vbYes Then
Dim clsm As New clsPruefschrittMassnahme
clsm.Delete_Data(Me.C1Massnahmen.Columns("Pruefschrittmassnahmenr").Value)
clsm.dispose()
Me.Refresh_Massnahmen()
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 MenuStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked
End Sub
Private Sub C1Findings_FilterChange(sender As Object, e As EventArgs) Handles C1Findings.FilterChange
Refresh_Finding_Dokumente()
Refresh_Massnahmen()
End Sub
End Class

270
SW/AssessmentMgmt/Pruefschritt/clsFinding.vb Normal file
View File

@@ -0,0 +1,270 @@
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Public Class clsFinding
Inherits DB.clsPruefschrittFinding
#Region "Deklarationen"
Public daten As New DataTable
Public Neuer_Datensatz As Boolean = False
Public Mitarbeiterdaten As New DataTable
Dim stammdaten As New DB.clsStammdaten
Dim SpaltenTitel As New Utils.Tabellenspalte
Dim mMutierer As String
Property MutiererText() As String
Get
Return mMutierer
End Get
Set(ByVal value As String)
mMutierer = value
End Set
End Property
Public auswirkung As New DataTable
Public Kritikalitaet As New DataTable
Public Wichtigkeit As New DataTable
#End Region
Sub New()
MyBase.New()
auswirkung = stammdaten.Get_Stammdaten("auswirkung", "Sort")
Kritikalitaet = stammdaten.Get_Stammdaten("Kritikalitaet", "Sort")
Wichtigkeit = stammdaten.Get_Stammdaten("Wichtigkeit", "Sort")
End Sub
Public Overloads Sub dispose()
MyBase.Dispose()
auswirkung.Dispose()
Kritikalitaet.Dispose()
Wichtigkeit.Dispose()
Try
Me.stammdaten = Nothing
Catch
End Try
End Sub
''' <summary>
''' Mutierer auslesen
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function Get_Mutierer(ByVal nr As Integer) As String
Try
Dim ma As New DB.clsMitarbeiter
Dim dt As New DataTable
Dim Retvalue As String
ma.cpMainConnectionProvider = Globals.conn
ma.iMitarbeiternr = New SqlInt32(CType(nr, Int32))
dt = ma.SelectOne()
If dt.Rows.Count = 0 Then
Retvalue = ("{" + nr.ToString + "}")
Else
Retvalue = ma.sName.ToString + " " + ma.sVorname.ToString + ", " + ma.sTgnummer.ToString
End If
ma.Dispose()
dt.Dispose()
Return Retvalue
Catch
Return ""
End Try
End Function
Public Function Get_Data(ByVal Nr As Integer)
Me.cpMainConnectionProvider = Globals.conn
Me.iPruefschrittfindingNr = New SqlInt32(CType(Nr, Int32))
Globals.conn.OpenConnection()
Me.daten = Me.SelectOne()
Globals.conn.CloseConnection(True)
Try
Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
Catch ex As Exception
Me.MutiererText = ""
End Try
End Function
Public Function Save_Data() As Integer
Me.cpMainConnectionProvider = Globals.conn
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
Globals.conn.OpenConnection()
Me.Update()
Globals.conn.CloseConnection(True)
Me.Neuer_Datensatz = False
End Function
Public Function Create_Copy(Optional ByVal Basenr As Integer = 0) As Integer
If Basenr <> 0 Then
Get_Data(Basenr)
End If
Dim db As New DB.clsMyKey_Tabelle
db.cpMainConnectionProvider = Globals.conn
Dim newkey = db.get_dbkey("PruefschrittFinding")
db.Dispose()
Me.cpMainConnectionProvider = Globals.conn
Me.iPruefschrittfindingNr = New SqlInt32(CType(newkey, Int32))
Me.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
Globals.conn.OpenConnection()
Me.Insert()
Globals.conn.CloseConnection(True)
Me.Neuer_Datensatz = True
Return newkey
End Function
''' <summary>
''' Löschen eines Datensatzes erstellen.
''' </summary>
''' <param name="Basenr">Ursprungs-Person: Ist dieser Wert nicht 0, werden die Daten mit BaseNr zuerst gelesen</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function Delete_Data(Optional ByVal Basenr As Integer = 0) As Integer
If Basenr <> 0 Then
Get_Data(Basenr)
End If
If bAktiv.Value = False Then Exit Function
Me.cpMainConnectionProvider = Globals.conn
Me.bAktiv = New SqlBoolean(CType(False, Boolean))
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
Globals.conn.OpenConnection()
Me.Update()
Globals.conn.CloseConnection(True)
Me.Neuer_Datensatz = False
End Function
Public Overloads Function Delete(Optional ByVal Basenr As Integer = 0) As Integer
If Basenr <> 0 Then
Get_Data(Basenr)
End If
Me.cpMainConnectionProvider = Globals.conn
Globals.conn.OpenConnection()
MyBase.Delete()
Globals.conn.CloseConnection(True)
Me.Neuer_Datensatz = False
End Function
''' <summary>
''' Neue Person einfügen
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function Add_New() As Integer
Dim db As New DB.clsMyKey_Tabelle
db.cpMainConnectionProvider = Globals.conn
Dim newkey = db.get_dbkey("Pruefschrittfinding")
db.Dispose()
Me.iPruefschrittfindingNr = New SqlInt32(CType(newkey, Int32))
Me.iPruefschrittresultatnr = New SqlInt32(CType(0, Int32))
Me.iPruefschrittfindingNr = New SqlInt32(CType(newkey, Int32))
Me.sBezeichnung = New SqlString(CType("", String))
Me.sBeschreibung = New SqlString(CType("", String))
Me.bAktiv = New SqlBoolean(CType(True, Boolean))
Me.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
Me.cpMainConnectionProvider = Globals.conn
Try
Globals.conn.OpenConnection()
Me.Insert()
Globals.conn.CloseConnection(True)
Catch ex As Exception
MsgBox(ex.Message)
End Try
Me.Neuer_Datensatz = True
Return Me.iPruefschrittfindingNr.Value
End Function
Public Function Get_Eintraege(ByRef c1daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid, ByVal Key As Integer, ByVal images As ImageList)
Try
Dim ds As New DataSet
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("", connection)
Dim sqlcmd As New SqlCommand
sqlcmd.CommandText = "sp_get_PruefschrittFinding"
sqlcmd.Parameters.Add(New SqlParameter("@key", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Key))
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.Connection = connection
Try
connection.ConnectionString = Globals.sConnectionString
connection.Open()
da.SelectCommand = sqlcmd
da.Fill(ds, "Datatable1")
Try
c1daten.DataSource = Nothing
Catch
End Try
c1daten.DataSource = ds.Tables(0)
c1daten.DataMember = ds.Tables(0).TableName
SpaltenTitel.Spaltentitel_aktualisieren(c1daten, "Pruefschrittfinding", ds.Tables(0))
Dim bmp0 As New Bitmap(images.Images(0))
Dim bmp1 As New Bitmap(images.Images(1))
Dim bmp2 As New Bitmap(images.Images(2))
Dim bmp3 As New Bitmap(images.Images(3))
Dim v0 As New C1.Win.C1TrueDBGrid.ValueItem()
Dim v1 As New C1.Win.C1TrueDBGrid.ValueItem()
Dim v2 As New C1.Win.C1TrueDBGrid.ValueItem()
Dim v3 As New C1.Win.C1TrueDBGrid.ValueItem()
v0.DisplayValue = bmp0
v0.Value = 1
v1.DisplayValue = bmp1
v1.Value = 2
v2.DisplayValue = bmp2
v2.Value = 3
v3.DisplayValue = bmp3
v3.Value = 4
c1daten.Columns("Auswirkungnr").ValueItems.Values.Add(v0)
c1daten.Columns("Auswirkungnr").ValueItems.Values.Add(v1)
c1daten.Columns("Auswirkungnr").ValueItems.Values.Add(v2)
c1daten.Columns("Auswirkungnr").ValueItems.Values.Add(v3)
c1daten.Columns("Auswirkungnr").ValueItems.Translate = True
c1daten.Splits(0).DisplayColumns("Auswirkungnr").Style.HorizontalAlignment = C1.Win.C1TrueDBGrid.AlignHorzEnum.Center
c1daten.Columns("kritikalitaetnr").ValueItems.Values.Add(v0)
c1daten.Columns("kritikalitaetnr").ValueItems.Values.Add(v1)
c1daten.Columns("kritikalitaetnr").ValueItems.Values.Add(v2)
c1daten.Columns("kritikalitaetnr").ValueItems.Values.Add(v3)
c1daten.Columns("kritikalitaetnr").ValueItems.Translate = True
c1daten.Splits(0).DisplayColumns("kritikalitaetnr").Style.HorizontalAlignment = C1.Win.C1TrueDBGrid.AlignHorzEnum.Center
c1daten.Columns("wichtigkeitnr").ValueItems.Values.Add(v0)
c1daten.Columns("wichtigkeitnr").ValueItems.Values.Add(v1)
c1daten.Columns("wichtigkeitnr").ValueItems.Values.Add(v2)
c1daten.Columns("wichtigkeitnr").ValueItems.Values.Add(v3)
c1daten.Columns("wichtigkeitnr").ValueItems.Translate = True
c1daten.Splits(0).DisplayColumns("wichtigkeitnr").Style.HorizontalAlignment = C1.Win.C1TrueDBGrid.AlignHorzEnum.Center
Catch ex As Exception
MsgBox(ex.Message)
Finally
connection.Close()
da.Dispose()
sqlcmd.Dispose()
End Try
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
End Class

557
SW/AssessmentMgmt/Pruefschritt/clsPruefschritt.vb Normal file
View File

@@ -0,0 +1,557 @@
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Imports DevComponents
Public Class clsPruefschritt
Inherits DB.clsPruefschritt
#Region "Deklarationen"
Public daten As New DataTable
Public Neuer_Datensatz As Boolean = False
Public Mitarbeiterdaten As New DataTable
Public PruefschrittResultattext As New DataTable
Dim stammdaten As New DB.clsStammdaten
Dim SpaltenTitel As New Utils.Tabellenspalte
Public Pruefschrittstatus As DataTable
Dim mMutierer As String
Property MutiererText() As String
Get
Return mMutierer
End Get
Set(ByVal value As String)
mMutierer = value
End Set
End Property
#End Region
Sub New()
MyBase.New()
Pruefschrittstatus = stammdaten.Get_Stammdaten("pruefschrittstatus", "")
PruefschrittResultattext = stammdaten.Get_Stammdaten("PruefschrittResultatText", "PruefschrittTextnr")
End Sub
Public Overloads Sub dispose()
MyBase.Dispose()
Try
Me.stammdaten = Nothing
Me.Pruefschrittstatus.Dispose()
Catch
End Try
End Sub
''' <summary>
''' Mutierer auslesen
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function Get_Mutierer(ByVal nr As Integer) As String
Try
Dim ma As New DB.clsMitarbeiter
Dim dt As New DataTable
Dim Retvalue As String
ma.cpMainConnectionProvider = Globals.conn
ma.iMitarbeiternr = New SqlInt32(CType(nr, Int32))
dt = ma.SelectOne()
If dt.Rows.Count = 0 Then
Retvalue = ("{" + nr.ToString + "}")
Else
Retvalue = ma.sName.ToString + " " + ma.sVorname.ToString + ", " + ma.sTgnummer.ToString
End If
ma.Dispose()
dt.Dispose()
Return Retvalue
Catch
Return ""
End Try
End Function
Public Function Get_Data(ByVal Nr As Integer)
Me.cpMainConnectionProvider = Globals.conn
Me.iPruefschrittNr = New SqlInt32(CType(Nr, Int32))
Globals.conn.OpenConnection()
Me.daten = Me.SelectOne()
Globals.conn.CloseConnection(True)
Try
Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
Catch ex As Exception
Me.MutiererText = ""
End Try
End Function
Public Function Save_Data() As Integer
Me.cpMainConnectionProvider = Globals.conn
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
Globals.conn.OpenConnection()
Me.Update()
Globals.conn.CloseConnection(True)
Me.Neuer_Datensatz = False
End Function
''' <summary>
''' Löschen eines Datensatzes erstellen.
''' </summary>
''' <param name="Basenr">Ursprungs-Person: Ist dieser Wert nicht 0, werden die Daten mit BaseNr zuerst gelesen</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function Delete_Data(Optional ByVal Basenr As Integer = 0) As Integer
If Basenr <> 0 Then
Get_Data(Basenr)
End If
If bAktiv.Value = False Then Exit Function
Me.cpMainConnectionProvider = Globals.conn
Me.bAktiv = New SqlBoolean(CType(False, Boolean))
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
Globals.conn.OpenConnection()
Me.Update()
Globals.conn.CloseConnection(True)
Me.Neuer_Datensatz = False
End Function
Public Overloads Function Delete(Optional ByVal Basenr As Integer = 0) As Integer
If Basenr <> 0 Then
Get_Data(Basenr)
End If
Me.cpMainConnectionProvider = Globals.conn
Globals.conn.OpenConnection()
MyBase.Delete()
Globals.conn.CloseConnection(True)
Me.Neuer_Datensatz = False
End Function
''' <summary>
''' Neue Person einfügen
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function Add_New() As Integer
Dim db As New DB.clsMyKey_Tabelle
db.cpMainConnectionProvider = Globals.conn
Dim newkey = db.get_dbkey("Pruefschritt")
db.Dispose()
Me.bAktiv = New SqlBoolean(CType(True, Boolean))
Me.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
Me.cpMainConnectionProvider = Globals.conn
Try
Globals.conn.OpenConnection()
Me.Insert()
Globals.conn.CloseConnection(True)
Catch ex As Exception
MsgBox(ex.Message)
End Try
Me.Neuer_Datensatz = True
Return Me.iPruefschrittNr.Value
End Function
Public Function Get_Eintraege(ByRef c1daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid, ByVal Mitarbeiternr As Integer, ByRef tree As DevComponents.AdvTree.AdvTree)
Try
Dim ds As New DataSet
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("", connection)
Dim sqlcmd As New SqlCommand
sqlcmd.CommandText = "sp_get_pruefschritt"
sqlcmd.Parameters.Add(New SqlParameter("@manr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Mitarbeiternr))
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.Connection = connection
Try
connection.ConnectionString = Globals.sConnectionString
connection.Open()
da.SelectCommand = sqlcmd
da.Fill(ds, "Datatable1")
Dim status As New clsStatus
c1daten.DataSource = Nothing
c1daten.DataSource = ds.Tables(0)
c1daten.DataMember = ds.Tables(0).TableName
SpaltenTitel.Spaltentitel_aktualisieren(c1daten, "Pruefschritt", ds.Tables(0))
Dim intarray(Me.Pruefschrittstatus.Rows.Count) As Integer
For i As Integer = 1 To Me.Pruefschrittstatus.Rows.Count
intarray(i) = 0
Next
For Each r As DataRow In ds.Tables(0).Rows
intarray(r.Item("Pruefschrittstatusnr")) = intarray(r.Item("Pruefschrittstatusnr")) + 1
Next
For Each n As DevComponents.AdvTree.Node In tree.Nodes
n.Text = n.Text + " (" + intarray(n.Tag).ToString + ")"
Next
Catch ex As Exception
MsgBox(ex.Message)
Finally
connection.Close()
da.Dispose()
sqlcmd.Dispose()
End Try
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
Public Function Get_Vorgaben(ByRef c1daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid, ByVal key As Integer)
Dim ds As New DataSet
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("", connection)
Dim sqlcmd As New SqlCommand
sqlcmd.CommandText = "sp_get_vorgabedaten"
sqlcmd.Parameters.Add(New SqlParameter("@key", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, key))
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.Connection = connection
Try
connection.ConnectionString = Globals.sConnectionString
connection.Open()
da.SelectCommand = sqlcmd
da.Fill(ds, "Datatable1")
Dim status As New clsStatus
c1daten.DataSource = Nothing
c1daten.DataSource = ds.Tables(0)
c1daten.DataMember = ds.Tables(0).TableName
SpaltenTitel.Spaltentitel_aktualisieren(c1daten, "_Pruefschritt_Vorgaben", ds.Tables(0))
Catch ex As Exception
MsgBox(ex.Message)
Finally
connection.Close()
da.Dispose()
sqlcmd.Dispose()
End Try
End Function
Public Sub Get_Massnahmen(ByRef tree As DevComponents.AdvTree.AdvTree)
Dim ds As New DataSet
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("", connection)
Dim sqlcmd As New SqlCommand
sqlcmd.CommandText = "sp_get_massnahme_tree"
sqlcmd.Parameters.Add(New SqlParameter("@ma", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.clsmitarbeiter.iMitarbeiternr.Value))
sqlcmd.Parameters.Add(New SqlParameter("@node1", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
sqlcmd.Parameters.Add(New SqlParameter("@node2", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
sqlcmd.Parameters.Add(New SqlParameter("@node3", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.Connection = connection
Try
connection.ConnectionString = Globals.sConnectionString
connection.Open()
sqlcmd.ExecuteNonQuery()
Try
tree.Nodes.Clear()
Catch
End Try
Dim i As Integer
For i = 0 To 2
Dim tn As New DevComponents.AdvTree.Node
tn.ImageIndex = i
tn.Tag = i
tn.Text = sqlcmd.Parameters(i + 1).Value
tree.Nodes.Add(tn)
Next
Catch ex As Exception
MsgBox(ex.Message)
Finally
connection.Close()
da.Dispose()
sqlcmd.Dispose()
End Try
End Sub
Public Sub Get_Massnahmen_Data(ByRef c1daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid, typ As Integer)
Try
Dim ds As New DataSet
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("", connection)
Dim sqlcmd As New SqlCommand
sqlcmd.CommandText = "sp_get_pruefschritt_massnahmen"
sqlcmd.Parameters.Add(New SqlParameter("@manr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.clsmitarbeiter.iMitarbeiternr.Value))
sqlcmd.Parameters.Add(New SqlParameter("@typ", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, typ))
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.Connection = connection
Try
connection.ConnectionString = Globals.sConnectionString
connection.Open()
da.SelectCommand = sqlcmd
da.Fill(ds, "Datatable1")
Dim status As New clsStatus
c1daten.DataSource = Nothing
c1daten.DataSource = ds.Tables(0)
c1daten.DataMember = ds.Tables(0).TableName
SpaltenTitel.Spaltentitel_aktualisieren(c1daten, "Pruefschritt", ds.Tables(0))
'Dim intarray(Me.Pruefschrittstatus.Rows.Count) As Integer
'For i As Integer = 1 To Me.Pruefschrittstatus.Rows.Count
' intarray(i) = 0
'Next
'For Each r As DataRow In ds.Tables(0).Rows
' intarray(r.Item("Pruefschrittstatusnr")) = intarray(r.Item("Pruefschrittstatusnr")) + 1
'Next
'For Each n As DevComponents.AdvTree.Node In tree.Nodes
' n.Text = n.Text + " (" + intarray(n.Tag).ToString + ")"
'Next
Catch ex As Exception
MsgBox(ex.Message)
Finally
connection.Close()
da.Dispose()
sqlcmd.Dispose()
End Try
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Public Sub Insert_Message(ByVal Typ As Integer, pruefschrittnr As Integer, Empfaenger As Integer, Urspruenglicher_MA As Integer, Optional Notiz As String = "")
Try
Dim ds As New DataSet
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("", connection)
Dim sqlcmd As New SqlCommand
sqlcmd.CommandText = "sp_insert_message"
sqlcmd.Parameters.Add(New SqlParameter("@type", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Typ))
sqlcmd.Parameters.Add(New SqlParameter("@pruefschrittnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, pruefschrittnr))
sqlcmd.Parameters.Add(New SqlParameter("@empfaenger", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Empfaenger))
sqlcmd.Parameters.Add(New SqlParameter("@absender", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Urspruenglicher_MA))
sqlcmd.Parameters.Add(New SqlParameter("@Notiz", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Notiz))
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.Connection = connection
Try
connection.ConnectionString = Globals.sConnectionString
connection.Open()
sqlcmd.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message)
Finally
connection.Close()
da.Dispose()
sqlcmd.Dispose()
End Try
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Public Function Is_IsiMitarbeiter(ByVal Mitarbeiternr As Integer) As Boolean
Dim Verantwortungisi As New DataTable
Verantwortungisi = stammdaten.Get_Stammdaten("VerantwortungIsi", "Bezeichnung")
For Each r As DataRow In Verantwortungisi.Rows
If r.Item(0) = Mitarbeiternr Then
Return True
Exit For
End If
Next
Return False
End Function
End Class
Public Class clsPruefschrittStatus
Inherits DB.clsPruefSchrittStatus
End Class
Public Class clsPruefschrittNotiz
Inherits DB.clsPruefschrittnotiz
Public daten As New DataTable
Public Neuer_Datensatz As Boolean = False
Public Mitarbeiterdaten As New DataTable
Dim stammdaten As New DB.clsStammdaten
Dim SpaltenTitel As New Utils.Tabellenspalte
Dim mMutierer As String
Sub New()
End Sub
Property MutiererText() As String
Get
Return mMutierer
End Get
Set(ByVal value As String)
mMutierer = value
End Set
End Property
Public Function Get_Mutierer(ByVal nr As Integer) As String
Try
Dim ma As New DB.clsMitarbeiter
Dim dt As New DataTable
Dim Retvalue As String
ma.cpMainConnectionProvider = Globals.conn
ma.iMitarbeiternr = New SqlInt32(CType(nr, Int32))
dt = ma.SelectOne()
If dt.Rows.Count = 0 Then
Retvalue = ("{" + nr.ToString + "}")
Else
Retvalue = ma.sName.ToString + " " + ma.sVorname.ToString + ", " + ma.sTgnummer.ToString
End If
ma.Dispose()
dt.Dispose()
Return Retvalue
Catch
Return ""
End Try
End Function
Public Function Get_Data(ByVal Nr As Integer)
Me.cpMainConnectionProvider = Globals.conn
Me.iPruefschrittnr = New SqlInt32(CType(Nr, Int32))
Globals.conn.OpenConnection()
Me.daten = Me.SelectOne()
Globals.conn.CloseConnection(True)
Try
Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
Catch ex As Exception
Me.MutiererText = ""
End Try
End Function
Public Function Save_Data() As Integer
Me.cpMainConnectionProvider = Globals.conn
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
Globals.conn.OpenConnection()
Me.Update()
Globals.conn.CloseConnection(True)
Me.Neuer_Datensatz = False
End Function
''' <summary>
''' Löschen eines Datensatzes erstellen.
''' </summary>
''' <param name="Basenr">Ursprungs-Person: Ist dieser Wert nicht 0, werden die Daten mit BaseNr zuerst gelesen</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function Delete_Data(Optional ByVal Basenr As Integer = 0) As Integer
If Basenr <> 0 Then
Get_Data(Basenr)
End If
If bAktiv.Value = False Then Exit Function
Me.cpMainConnectionProvider = Globals.conn
Me.bAktiv = New SqlBoolean(CType(False, Boolean))
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
Globals.conn.OpenConnection()
Me.Update()
Globals.conn.CloseConnection(True)
Me.Neuer_Datensatz = False
End Function
Public Overloads Function Delete(Optional ByVal Basenr As Integer = 0) As Integer
If Basenr <> 0 Then
Get_Data(Basenr)
End If
Me.cpMainConnectionProvider = Globals.conn
Globals.conn.OpenConnection()
MyBase.Delete()
Globals.conn.CloseConnection(True)
Me.Neuer_Datensatz = False
End Function
''' <summary>
''' Neue Person einfügen
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function Add_New() As Integer
Dim db As New DB.clsMyKey_Tabelle
db.cpMainConnectionProvider = Globals.conn
Dim newkey = db.get_dbkey("Pruefschrittnotiz")
db.Dispose()
Me.bAktiv = New SqlBoolean(CType(True, Boolean))
Me.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
Me.sNotiz = New SqlString(CType("", String))
Me.iPruefschrittnotizNr = New SqlInt32(CType(newkey, Int32))
Me.iPruefschrittnr = New SqlInt32(CType(0, Int32))
Me.cpMainConnectionProvider = Globals.conn
Try
Globals.conn.OpenConnection()
Me.Insert()
Globals.conn.CloseConnection(True)
Catch ex As Exception
MsgBox(ex.Message)
End Try
Me.Neuer_Datensatz = True
Return Me.iPruefschrittnr.Value
End Function
Public Function Get_Eintraege(ByRef c1daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid, ByVal Pruefschrittnr As Integer)
Try
Dim ds As New DataSet
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("", connection)
Dim sqlcmd As New SqlCommand
sqlcmd.CommandText = "sp_get_pruefschrittNotiz"
sqlcmd.Parameters.Add(New SqlParameter("@key", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Pruefschrittnr))
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.Connection = connection
Try
connection.ConnectionString = Globals.sConnectionString
connection.Open()
da.SelectCommand = sqlcmd
da.Fill(ds, "Datatable1")
c1daten.DataSource = Nothing
c1daten.DataSource = ds.Tables(0)
c1daten.DataMember = ds.Tables(0).TableName
SpaltenTitel.Spaltentitel_aktualisieren(c1daten, "Pruefschrittnotiz", ds.Tables(0))
Catch ex As Exception
MsgBox(ex.Message)
Finally
connection.Close()
da.Dispose()
sqlcmd.Dispose()
End Try
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
End Class

261
SW/AssessmentMgmt/Pruefschritt/clsPruefschrittMassnahme.vb Normal file
View File

@@ -0,0 +1,261 @@
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Public Class clsPruefschrittMassnahme
Inherits DB.clsPruefSchrittMassnahme
#Region "Deklarationen"
Public daten As New DataTable
Public Neuer_Datensatz As Boolean = False
Public Mitarbeiterdaten As New DataTable
Dim stammdaten As New DB.clsStammdaten
Dim SpaltenTitel As New Utils.Tabellenspalte
Public Verantwortung As New DataTable
Dim mMutierer As String
Property MutiererText() As String
Get
Return mMutierer
End Get
Set(ByVal value As String)
mMutierer = value
End Set
End Property
#End Region
Sub New()
MyBase.New()
Verantwortung = stammdaten.Get_Stammdaten("Verantwortung", "Bezeichnung")
End Sub
Public Overloads Sub dispose()
MyBase.Dispose()
Me.Verantwortung.Dispose()
Try
Me.stammdaten = Nothing
Catch
End Try
End Sub
''' <summary>
''' Mutierer auslesen
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function Get_Mutierer(ByVal nr As Integer) As String
Try
Dim ma As New DB.clsMitarbeiter
Dim dt As New DataTable
Dim Retvalue As String
ma.cpMainConnectionProvider = Globals.conn
ma.iMitarbeiternr = New SqlInt32(CType(nr, Int32))
dt = ma.SelectOne()
If dt.Rows.Count = 0 Then
Retvalue = ("{" + nr.ToString + "}")
Else
Retvalue = ma.sName.ToString + " " + ma.sVorname.ToString + ", " + ma.sTgnummer.ToString
End If
ma.Dispose()
dt.Dispose()
Return Retvalue
Catch
Return ""
End Try
End Function
Public Function Get_Data(ByVal Nr As Integer)
Me.cpMainConnectionProvider = Globals.conn
Me.iPruefschrittmassnahmeNr = New SqlInt32(CType(Nr, Int32))
Globals.conn.OpenConnection()
Me.daten = Me.SelectOne()
Globals.conn.CloseConnection(True)
Try
Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
Catch ex As Exception
Me.MutiererText = ""
End Try
End Function
Public Function Save_Data() As Integer
Me.cpMainConnectionProvider = Globals.conn
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
Globals.conn.OpenConnection()
Me.Update()
Globals.conn.CloseConnection(True)
Me.Neuer_Datensatz = False
End Function
Public Function Create_Copy(Optional ByVal Basenr As Integer = 0) As Integer
If Basenr <> 0 Then
Get_Data(Basenr)
End If
Dim db As New DB.clsMyKey_Tabelle
db.cpMainConnectionProvider = Globals.conn
Dim newkey = db.get_dbkey("PruefschrittMassnahme")
db.Dispose()
Me.cpMainConnectionProvider = Globals.conn
Me.iPruefschrittmassnahmeNr = New SqlInt32(CType(newkey, Int32))
Me.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
Globals.conn.OpenConnection()
Me.Insert()
Globals.conn.CloseConnection(True)
Me.Neuer_Datensatz = True
Return newkey
End Function
''' <summary>
''' Löschen eines Datensatzes erstellen.
''' </summary>
''' <param name="Basenr">Ursprungs-Person: Ist dieser Wert nicht 0, werden die Daten mit BaseNr zuerst gelesen</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function Delete_Data(Optional ByVal Basenr As Integer = 0) As Integer
If Basenr <> 0 Then
Get_Data(Basenr)
End If
If bAktiv.Value = False Then Exit Function
Me.cpMainConnectionProvider = Globals.conn
Me.bAktiv = New SqlBoolean(CType(False, Boolean))
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
Globals.conn.OpenConnection()
Me.Update()
Globals.conn.CloseConnection(True)
Me.Neuer_Datensatz = False
End Function
Public Overloads Function Delete(Optional ByVal Basenr As Integer = 0) As Integer
If Basenr <> 0 Then
Get_Data(Basenr)
End If
Me.cpMainConnectionProvider = Globals.conn
Globals.conn.OpenConnection()
MyBase.Delete()
Globals.conn.CloseConnection(True)
Me.Neuer_Datensatz = False
End Function
''' <summary>
''' Neue Person einfügen
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function Add_New() As Integer
Dim db As New DB.clsMyKey_Tabelle
db.cpMainConnectionProvider = Globals.conn
Dim newkey = db.get_dbkey("PruefschrittMassnahme")
db.Dispose()
Me.iPruefschrittmassnahmeNr = New SqlInt32(CType(newkey, Int32))
Me.iPruefschrittfindingnr = New SqlInt32(CType(0, Int32))
Me.iPruefschrittfindingnr = New SqlInt32(CType(newkey, Int32))
Me.sKurzbeschreibung = New SqlString(CType("", String))
Me.sBeschreibung = New SqlString(CType("", String))
Me.bAktiv = New SqlBoolean(CType(True, Boolean))
Me.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
Me.cpMainConnectionProvider = Globals.conn
Try
Globals.conn.OpenConnection()
Me.Insert()
Globals.conn.CloseConnection(True)
Catch ex As Exception
MsgBox(ex.Message)
End Try
Me.Neuer_Datensatz = True
Return Me.iPruefschrittfindingnr.Value
End Function
Public Function Get_Eintraege(ByRef c1daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid, ByVal Key As Integer, ByVal images As ImageList)
Try
Dim ds As New DataSet
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("", connection)
Dim sqlcmd As New SqlCommand
sqlcmd.CommandText = "sp_get_PruefschrittMassnahme"
sqlcmd.Parameters.Add(New SqlParameter("@key", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Key))
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.Connection = connection
Try
connection.ConnectionString = Globals.sConnectionString
connection.Open()
da.SelectCommand = sqlcmd
da.Fill(ds, "Datatable1")
c1daten.DataSource = Nothing
c1daten.DataSource = ds.Tables(0)
c1daten.DataMember = ds.Tables(0).TableName
SpaltenTitel.Spaltentitel_aktualisieren(c1daten, "PruefschrittMassnahme", ds.Tables(0))
'Dim bmp0 As New Bitmap(images.Images(0))
'Dim bmp1 As New Bitmap(images.Images(1))
'Dim bmp2 As New Bitmap(images.Images(2))
'Dim bmp3 As New Bitmap(images.Images(3))
'Dim v0 As New C1.Win.C1TrueDBGrid.ValueItem()
'Dim v1 As New C1.Win.C1TrueDBGrid.ValueItem()
'Dim v2 As New C1.Win.C1TrueDBGrid.ValueItem()
'Dim v3 As New C1.Win.C1TrueDBGrid.ValueItem()
'v0.DisplayValue = bmp0
'v0.Value = 1
'v1.DisplayValue = bmp1
'v1.Value = 2
'v2.DisplayValue = bmp2
'v2.Value = 3
'v3.DisplayValue = bmp3
'v3.Value = 4
'c1daten.Columns("Auswirkungnr").ValueItems.Values.Add(v0)
'c1daten.Columns("Auswirkungnr").ValueItems.Values.Add(v1)
'c1daten.Columns("Auswirkungnr").ValueItems.Values.Add(v2)
'c1daten.Columns("Auswirkungnr").ValueItems.Values.Add(v3)
'c1daten.Columns("Auswirkungnr").ValueItems.Translate = True
'c1daten.Splits(0).DisplayColumns("Auswirkungnr").Style.HorizontalAlignment = C1.Win.C1TrueDBGrid.AlignHorzEnum.Center
'c1daten.Columns("kritikalitaetnr").ValueItems.Values.Add(v0)
'c1daten.Columns("kritikalitaetnr").ValueItems.Values.Add(v1)
'c1daten.Columns("kritikalitaetnr").ValueItems.Values.Add(v2)
'c1daten.Columns("kritikalitaetnr").ValueItems.Values.Add(v3)
'c1daten.Columns("kritikalitaetnr").ValueItems.Translate = True
'c1daten.Splits(0).DisplayColumns("kritikalitaetnr").Style.HorizontalAlignment = C1.Win.C1TrueDBGrid.AlignHorzEnum.Center
'c1daten.Columns("wichtigkeitnr").ValueItems.Values.Add(v0)
'c1daten.Columns("wichtigkeitnr").ValueItems.Values.Add(v1)
'c1daten.Columns("wichtigkeitnr").ValueItems.Values.Add(v2)
'c1daten.Columns("wichtigkeitnr").ValueItems.Values.Add(v3)
'c1daten.Columns("wichtigkeitnr").ValueItems.Translate = True
'c1daten.Splits(0).DisplayColumns("wichtigkeitnr").Style.HorizontalAlignment = C1.Win.C1TrueDBGrid.AlignHorzEnum.Center
Catch ex As Exception
MsgBox(ex.Message)
Finally
connection.Close()
da.Dispose()
sqlcmd.Dispose()
End Try
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
End Class

192
SW/AssessmentMgmt/Pruefschritt/clsPruefschrittResultat.vb Normal file
View File

@@ -0,0 +1,192 @@
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Public Class clsPruefschrittResultat
Inherits DB.clsPruefSchrittResultat
#Region "Deklarationen"
Public daten As New DataTable
Public Neuer_Datensatz As Boolean = False
Public Mitarbeiterdaten As New DataTable
Dim stammdaten As New DB.clsStammdaten
Dim SpaltenTitel As New Utils.Tabellenspalte
Dim status As New clsStatus
Dim mMutierer As String
Property MutiererText() As String
Get
Return mMutierer
End Get
Set(ByVal value As String)
mMutierer = value
End Set
End Property
#End Region
Sub New()
MyBase.New()
End Sub
Public Overloads Sub dispose()
MyBase.Dispose()
Try
Me.stammdaten = Nothing
Catch
End Try
End Sub
''' <summary>
''' Mutierer auslesen
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function Get_Mutierer(ByVal nr As Integer) As String
Try
Dim ma As New DB.clsMitarbeiter
Dim dt As New DataTable
Dim Retvalue As String
ma.cpMainConnectionProvider = Globals.conn
ma.iMitarbeiternr = New SqlInt32(CType(nr, Int32))
dt = ma.SelectOne()
If dt.Rows.Count = 0 Then
Retvalue = ("{" + nr.ToString + "}")
Else
Retvalue = ma.sName.ToString + " " + ma.sVorname.ToString + ", " + ma.sTgnummer.ToString
End If
ma.Dispose()
dt.Dispose()
Return Retvalue
Catch
Return ""
End Try
End Function
Public Function Get_Data(ByVal Nr As Integer)
Me.cpMainConnectionProvider = Globals.conn
Me.iPruefSchrittResultatNr = New SqlInt32(CType(Nr, Int32))
Globals.conn.OpenConnection()
Me.daten = Me.SelectOne()
Globals.conn.CloseConnection(True)
Try
Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
Catch ex As Exception
Me.MutiererText = ""
End Try
End Function
Public Function Save_Data() As Integer
Me.cpMainConnectionProvider = Globals.conn
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
Globals.conn.OpenConnection()
Me.Update()
Globals.conn.CloseConnection(True)
Me.Neuer_Datensatz = False
End Function
''' <summary>
''' Löschen eines Datensatzes erstellen.
''' </summary>
''' <param name="Basenr">Ursprungs-Person: Ist dieser Wert nicht 0, werden die Daten mit BaseNr zuerst gelesen</param>
''' <returns></returns>
''' <remarks></remarks>
Public Function Delete_Data(Optional ByVal Basenr As Integer = 0) As Integer
If Basenr <> 0 Then
Get_Data(Basenr)
End If
If bAktiv.Value = False Then Exit Function
Me.cpMainConnectionProvider = Globals.conn
Me.bAktiv = New SqlBoolean(CType(False, Boolean))
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
Globals.conn.OpenConnection()
Me.Update()
Globals.conn.CloseConnection(True)
Me.Neuer_Datensatz = False
End Function
Public Overloads Function Delete(Optional ByVal Basenr As Integer = 0) As Integer
If Basenr <> 0 Then
Get_Data(Basenr)
End If
Me.cpMainConnectionProvider = Globals.conn
Globals.conn.OpenConnection()
MyBase.Delete()
Globals.conn.CloseConnection(True)
Me.Neuer_Datensatz = False
End Function
''' <summary>
''' Neue Person einfügen
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Function Add_New(ByVal PruefschrittNr As Integer) As Integer
Me.iPruefSchrittResultatNr = New SqlInt32(CType(PruefschrittNr, Int32))
Me.iPruefschrittNr = New SqlInt32(CType(PruefschrittNr, Int32))
Me.bAktiv = New SqlBoolean(CType(True, Boolean))
Me.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr, Int32))
Me.sKurzbeschreibung = New SqlString(CType("", String))
Me.sBeschreibung = New SqlString(CType("", String))
Me.iAnzahl_Pruefungen = New SqlInt32(CType(0, Int32))
Me.iFindings_hoch = New SqlInt32(CType(0, Int32))
Me.iFindings_mittel = New SqlInt32(CType(0, Int32))
Me.iFindings_niedrig = New SqlInt32(CType(0, Int32))
Me.iFinding_kein = New SqlInt32(CType(0, Int32))
Me.cpMainConnectionProvider = Globals.conn
Try
Globals.conn.OpenConnection()
Me.Insert()
Globals.conn.CloseConnection(True)
Catch ex As Exception
MsgBox(ex.Message)
End Try
Me.Neuer_Datensatz = True
Return Me.iPruefSchrittResultatNr.Value
End Function
Public Function Get_Eintraege(ByRef c1daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid, ByVal Mitarbeiternr As Integer, ByRef tree As DevComponents.AdvTree.AdvTree)
Try
Dim ds As New DataSet
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("", connection)
Dim sqlcmd As New SqlCommand
sqlcmd.CommandText = "sp_get_pruefschritt"
sqlcmd.Parameters.Add(New SqlParameter("@manr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Mitarbeiternr))
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.Connection = connection
Try
connection.ConnectionString = Globals.sConnectionString
connection.Open()
da.SelectCommand = sqlcmd
da.Fill(ds, "Datatable1")
c1daten.DataSource = Nothing
c1daten.DataSource = ds.Tables(0)
c1daten.DataMember = ds.Tables(0).TableName
SpaltenTitel.Spaltentitel_aktualisieren(c1daten, "Pruefschritt", ds.Tables(0))
Catch ex As Exception
MsgBox(ex.Message)
Finally
connection.Close()
da.Dispose()
sqlcmd.Dispose()
End Try
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
End Class

39
SW/AssessmentMgmt/Pruefschritt/clsStatus.vb Normal file
View File

@@ -0,0 +1,39 @@
Public Class clsStatus
Dim stammdaten As New DB.clsStammdaten
Dim Status As New DataTable
Sub New()
MyBase.New
Status = stammdaten.Get_Stammdaten("PruefSchrittStatus", "Beschreibung")
End Sub
Public Function Get_Mögliche_Status(ByVal aktuellerStatus As Integer, ByRef cbbox As ComboBox) As DataTable
Dim dt As New DataTable
dt = Status.Copy
dt.Rows.Clear()
Select Case aktuellerStatus
Case 1, 2
For Each r As DataRow In Status.Rows
If r.Item(0) = 1 Then addrow(dt, r)
If r.Item(0) = 2 Then addrow(dt, r)
If r.Item(0) = 3 Then addrow(dt, r)
Next
End Select
cbbox.DataSource = Nothing
cbbox.DataSource = dt
cbbox.DisplayMember = "Bezeichnung"
cbbox.ValueMember = "pruefschrittstatusnr"
cbbox.SelectedValue = aktuellerStatus
End Function
Sub addrow(ByRef dt As DataTable, dr As DataRow)
Dim r As DataRow = dt.NewRow
For Each c As DataColumn In dt.Columns
r.Item(c.ColumnName) = dr.Item(c.ColumnName)
Next
dt.Rows.Add(r)
End Sub
End Class

92
SW/AssessmentMgmt/Pruefschritt/frmFindingHilfe.Designer.vb generated Normal file
View File

@@ -0,0 +1,92 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmFindingHilfe
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFindingHilfe))
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.WebBrowser1 = New System.Windows.Forms.WebBrowser()
Me.ToolStrip1.SuspendLayout()
Me.SuspendLayout()
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.ToolStripButton1})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(607, 25)
Me.ToolStrip1.TabIndex = 9
Me.ToolStrip1.Text = "ToolStrip1"
'
'TSBtnQuit
'
Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TSBtnQuit.Name = "TSBtnQuit"
Me.TSBtnQuit.Size = New System.Drawing.Size(23, 22)
Me.TSBtnQuit.Text = "Fenster schliessen"
Me.TSBtnQuit.ToolTipText = "Fenster schliessen"
'
'ToolStripButton1
'
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton1.Text = "ToolStripButton1"
Me.ToolStripButton1.ToolTipText = "Neue Feststellung erfassen"
Me.ToolStripButton1.Visible = False
'
'WebBrowser1
'
Me.WebBrowser1.Dock = System.Windows.Forms.DockStyle.Fill
Me.WebBrowser1.Location = New System.Drawing.Point(0, 25)
Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
Me.WebBrowser1.Name = "WebBrowser1"
Me.WebBrowser1.Size = New System.Drawing.Size(607, 554)
Me.WebBrowser1.TabIndex = 10
'
'frmFindingHilfe
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(607, 579)
Me.Controls.Add(Me.WebBrowser1)
Me.Controls.Add(Me.ToolStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmFindingHilfe"
Me.Text = "Hilfe"
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ToolStrip1 As ToolStrip
Friend WithEvents TSBtnQuit As ToolStripButton
Friend WithEvents ToolStripButton1 As ToolStripButton
Friend WithEvents WebBrowser1 As WebBrowser
End Class

174
SW/AssessmentMgmt/Pruefschritt/frmFindingHilfe.resx Normal file
View File

@@ -0,0 +1,174 @@
<?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=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.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
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK2SURBVDhPnZLdS1NhHMcfCPoDuummi+gyunJg0QviNrd5
PDtzc7Z5ztl20pUzo6I3yFIrS9N8K7Qih6lUFJVaGWXZi6KRoZSFmCuyi+iiiCKILgo+HTUWu7QffOD5
PfB8eL6/5xH/U1+mh4IzM+O/Ovdm8Hdrvi5X5PR2H86ht2oWKUnPEYkr5XYexXfyebKfTxO3+P5mkIv7
ramCngqZtDV2Vq+zsWbDP9LXWVllWc+PRD+J3krGWv18TTzm8kFHqqC7TCbD6sRml7A7XEmsWU7S19t4
3Rlh7JzO6Okgn1/d5dqh7FSBo1kg1Swi2+5DcilI2W4kScblktlglZjsMBg9G+JJS5CPYz1zUf8eFcJ2
XJD42IXTlORkaridARTJjyJ7kd0eMh1uXsbDjLTqDDYXMDN8idvVyrzAViOYeN9Gx6Ago1pgbxA4Twnk
sqV4lSCeXD9ZOT7Gz2kMntT5cWc5UwPt3K31Ilx1gqfvqomPCNqGzfXbIp69i/D8Q3hOku8Jk5cXRPIE
eHZa5WGTxs/+Fby63cpAg39e8CCxh/i4ID4maH8p6JgUvPgWwXFSEMwrYmMghDtPY6QlwEBjkLY9Tp73
HOdxc2AugsVuRuib2kxXQpA5G+GEwNEkyC1fhq5GUXUDX9BgqNnPvfp8rh9WeHqpguEWNTlES1atoPet
D2ejwAjswtBKMcLFGEaUiFFIIBTlYYOXO3U++mq8DJ3fzeiZUMozWpzmlZW6xUSN7USLSiiKFs9RaKJt
inG/zkNfdS43jnrob40x3hZJEYjO0rVsKSmlJLaDkq3bksRMCou3c69W5uYxhe4qNzfrQ0y0FyJ0XUfX
QmhaGFWdxVyrmtmrSVSz31igsy8W4EKFYv5AmatHcpns2jw/xIVSpqfvrzyw8vf0hVhqhAXUEpM0IYTl
DzXbwlLPDlfpAAAAAElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
Wu75Zu6Nuf9nX5/9322S/TmoDJEAaIDnctc3k69M/D/hSt9/p0nm56EyRAKwATZveq+0/O++0gg0wAiP
AfUMTOYLtWx81tnYB0CxZZ+ak88myw9dV8v/d1wp+e88T++2/XxtB591FvYeQOyyzsTeYJGyFVi/cAGn
Se6J5P99V5v+T7ze8H/Szbr/U27V/O++kfe/43rm/9Zr6f87r+f+775e9L/tSsH/hot5/yvPZf8P2Ov6
ny+OXZlBLJfTogoo0H+9Fqi56v+U2xX/p94p/d9+M+5/283o/y03I/533Ur+33Mz63/79fT/DZdT/1ee
T/4fdtD5P28ImzqDUAaLRcQOwf9ph4T/554U+l94Ruh/wRnB/zXXzP633/H533rH83/5ZZ3/+af5/+cB
cdZx/v9JB/j++27lAhrAoM7A6cQgLRnPsFk2mWGbYhrDNuV0IA3EaftFf3Y+sP3f/sDqf9gm8Q8gMRgG
qRWPZ9jAZ8EgBA4HIGBEwfYMLOGHmN7UPeb4X/eY67/7ciZQLKCqgWAcABiNiecY3nS8YvgPwj5rGEhP
B7kXBN4s+CT/f/5H+f9hG3lJNyBpr+6bOQ89/oNwwCJ1Eg1gYGCSymXYYdjGcAOExeIZ5kHFSQIsDCoM
7GDMwMAMEUIHDAwArmHzT5KTHe0AAAAASUVORK5CYII=
</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAICAEAAAAAADoAgAAFgAAACgAAAAgAAAAQAAAAAEABAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA/wD/AP//
AAD///8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAHcAAAAAAAAAAHd3d3d3dwB4cEcAAAAAAABEREREREd3iHBEAAAAAAAAAAAAAAAEj/hwAEcAAAAA
d3d3d3d3d4//d3d0AAAAB4iIiIiIiI////iIcAAAAAf//////4iI/////3AAAAAH//////hwB4////9w
AAAAB//////4d3eP////cAAAAAf//////4iI/////3AAAAAH//////+Ij/////9wAAAAB//////4d3j/
////cAAAAAf/////+HRXj////3AAAAAH//////h1R4////9wAAAAB///////h0R4j///cAAAAAf/////
//h3d3j//3AAAAAH////iP//h0BHj/9wAAAAB///+HeI//hAB4//cAAAAAf///gAeP/4cACP/3AAAAAH
///4AEeP+HAAj/9wAAAAB///+HAAiIgAB4//cAAAAAf///iHAHd3AHiP/3AAAAAH////+HAAAAeP//9w
AAAAB/////iHd3d4j///cAAAAAf//////////////3AAAAAH//////////////9wAAAAB///////////
///4cAAAAAB3d3d3d3d3d3d3dwAAAAAAAAAAAAAAAAAAAAAAAAD///z////8////8P////D//AAAP/wA
AD/wAAAP8AAAD8AAAA/AAAAPwAAAD8AAAA/AAAAPwAAAD8AAAA/AAAAPwAAAD8AAAA/AAAAPwAAAD8AA
AA/AAAAPwAAAD8AAAA/AAAAPwAAAD8AAAA/AAAAPwAAAD8AAAA/wAAA/8AAAPw==
</value>
</data>
</root>

9
SW/AssessmentMgmt/Pruefschritt/frmFindingHilfe.vb Normal file
View File

@@ -0,0 +1,9 @@
Public Class frmFindingHilfe
Private Sub frmFindingHilfe_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.WebBrowser1.Navigate(Application.StartupPath + "\findinghelp.pdf")
End Sub
Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
Me.Close()
End Sub
End Class

250
SW/AssessmentMgmt/Pruefschritt/frmMassnahme.Designer.vb generated Normal file
View File

@@ -0,0 +1,250 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmMassnahme
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMassnahme))
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.txtBezeichnung = New DevComponents.DotNetBar.Controls.TextBoxX()
Me.lblBezeichnung = New System.Windows.Forms.Label()
Me.lblAktiv = New System.Windows.Forms.Label()
Me.cbaktiv = New System.Windows.Forms.CheckBox()
Me.btnAbbruch = New System.Windows.Forms.Button()
Me.btnSave = New System.Windows.Forms.Button()
Me.txtBeschreibung = New System.Windows.Forms.TextBox()
Me.lblBeschreibung = New System.Windows.Forms.Label()
Me.lblTermin = New System.Windows.Forms.Label()
Me.dtTermin = New System.Windows.Forms.DateTimePicker()
Me.cbboxVerantwortlich = New System.Windows.Forms.ComboBox()
Me.lblVerantwortlich = New System.Windows.Forms.Label()
Me.txtResultat = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.ToolStrip1.SuspendLayout()
Me.SuspendLayout()
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit, Me.ToolStripButton1})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(706, 25)
Me.ToolStrip1.TabIndex = 9
Me.ToolStrip1.Text = "ToolStrip1"
'
'TSBtnQuit
'
Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TSBtnQuit.Name = "TSBtnQuit"
Me.TSBtnQuit.Size = New System.Drawing.Size(23, 22)
Me.TSBtnQuit.Text = "ToolStripButton1"
Me.TSBtnQuit.ToolTipText = "Fenster schliessen"
'
'ToolStripButton1
'
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton1.Text = "ToolStripButton1"
Me.ToolStripButton1.Visible = False
'
'txtBezeichnung
'
'
'
'
Me.txtBezeichnung.Border.Class = "TextBoxBorder"
Me.txtBezeichnung.Border.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.txtBezeichnung.Location = New System.Drawing.Point(91, 28)
Me.txtBezeichnung.Name = "txtBezeichnung"
Me.txtBezeichnung.PreventEnterBeep = True
Me.txtBezeichnung.Size = New System.Drawing.Size(599, 20)
Me.txtBezeichnung.TabIndex = 0
'
'lblBezeichnung
'
Me.lblBezeichnung.AutoSize = True
Me.lblBezeichnung.Location = New System.Drawing.Point(15, 30)
Me.lblBezeichnung.Name = "lblBezeichnung"
Me.lblBezeichnung.Size = New System.Drawing.Size(69, 13)
Me.lblBezeichnung.TabIndex = 50
Me.lblBezeichnung.Text = "Bezeichnung"
'
'lblAktiv
'
Me.lblAktiv.AutoSize = True
Me.lblAktiv.Location = New System.Drawing.Point(605, 193)
Me.lblAktiv.Name = "lblAktiv"
Me.lblAktiv.Size = New System.Drawing.Size(31, 13)
Me.lblAktiv.TabIndex = 49
Me.lblAktiv.Text = "Aktiv"
'
'cbaktiv
'
Me.cbaktiv.AutoSize = True
Me.cbaktiv.Location = New System.Drawing.Point(675, 192)
Me.cbaktiv.Name = "cbaktiv"
Me.cbaktiv.Size = New System.Drawing.Size(15, 14)
Me.cbaktiv.TabIndex = 3
Me.cbaktiv.UseVisualStyleBackColor = True
'
'btnAbbruch
'
Me.btnAbbruch.Location = New System.Drawing.Point(608, 393)
Me.btnAbbruch.Name = "btnAbbruch"
Me.btnAbbruch.Size = New System.Drawing.Size(75, 23)
Me.btnAbbruch.TabIndex = 7
Me.btnAbbruch.Text = "Abbruch"
Me.btnAbbruch.UseVisualStyleBackColor = True
'
'btnSave
'
Me.btnSave.Location = New System.Drawing.Point(8, 393)
Me.btnSave.Name = "btnSave"
Me.btnSave.Size = New System.Drawing.Size(75, 23)
Me.btnSave.TabIndex = 6
Me.btnSave.Text = "Speichern"
Me.btnSave.UseVisualStyleBackColor = True
'
'txtBeschreibung
'
Me.txtBeschreibung.Location = New System.Drawing.Point(91, 54)
Me.txtBeschreibung.Multiline = True
Me.txtBeschreibung.Name = "txtBeschreibung"
Me.txtBeschreibung.Size = New System.Drawing.Size(599, 123)
Me.txtBeschreibung.TabIndex = 1
'
'lblBeschreibung
'
Me.lblBeschreibung.AutoSize = True
Me.lblBeschreibung.Location = New System.Drawing.Point(15, 57)
Me.lblBeschreibung.Name = "lblBeschreibung"
Me.lblBeschreibung.Size = New System.Drawing.Size(72, 13)
Me.lblBeschreibung.TabIndex = 48
Me.lblBeschreibung.Text = "Beschreibung"
'
'lblTermin
'
Me.lblTermin.AutoSize = True
Me.lblTermin.Location = New System.Drawing.Point(15, 192)
Me.lblTermin.Name = "lblTermin"
Me.lblTermin.Size = New System.Drawing.Size(39, 13)
Me.lblTermin.TabIndex = 51
Me.lblTermin.Text = "Termin"
'
'dtTermin
'
Me.dtTermin.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.dtTermin.Location = New System.Drawing.Point(91, 187)
Me.dtTermin.Name = "dtTermin"
Me.dtTermin.Size = New System.Drawing.Size(125, 20)
Me.dtTermin.TabIndex = 2
'
'cbboxVerantwortlich
'
Me.cbboxVerantwortlich.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Append
Me.cbboxVerantwortlich.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
Me.cbboxVerantwortlich.FormattingEnabled = True
Me.cbboxVerantwortlich.Location = New System.Drawing.Point(91, 213)
Me.cbboxVerantwortlich.Name = "cbboxVerantwortlich"
Me.cbboxVerantwortlich.Size = New System.Drawing.Size(125, 21)
Me.cbboxVerantwortlich.TabIndex = 4
'
'lblVerantwortlich
'
Me.lblVerantwortlich.AutoSize = True
Me.lblVerantwortlich.Location = New System.Drawing.Point(15, 216)
Me.lblVerantwortlich.Name = "lblVerantwortlich"
Me.lblVerantwortlich.Size = New System.Drawing.Size(74, 13)
Me.lblVerantwortlich.TabIndex = 54
Me.lblVerantwortlich.Text = "Verantwortlich"
'
'txtResultat
'
Me.txtResultat.Location = New System.Drawing.Point(91, 253)
Me.txtResultat.Multiline = True
Me.txtResultat.Name = "txtResultat"
Me.txtResultat.Size = New System.Drawing.Size(599, 123)
Me.txtResultat.TabIndex = 5
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(15, 256)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(46, 13)
Me.Label1.TabIndex = 56
Me.Label1.Text = "Resultat"
'
'frmMassnahme
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(706, 427)
Me.Controls.Add(Me.txtResultat)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.cbboxVerantwortlich)
Me.Controls.Add(Me.lblVerantwortlich)
Me.Controls.Add(Me.dtTermin)
Me.Controls.Add(Me.lblTermin)
Me.Controls.Add(Me.txtBezeichnung)
Me.Controls.Add(Me.lblBezeichnung)
Me.Controls.Add(Me.lblAktiv)
Me.Controls.Add(Me.cbaktiv)
Me.Controls.Add(Me.btnAbbruch)
Me.Controls.Add(Me.btnSave)
Me.Controls.Add(Me.txtBeschreibung)
Me.Controls.Add(Me.lblBeschreibung)
Me.Controls.Add(Me.ToolStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmMassnahme"
Me.Text = "Massnahme"
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ToolStrip1 As ToolStrip
Friend WithEvents TSBtnQuit As ToolStripButton
Friend WithEvents ToolStripButton1 As ToolStripButton
Friend WithEvents txtBezeichnung As DevComponents.DotNetBar.Controls.TextBoxX
Friend WithEvents lblBezeichnung As Label
Friend WithEvents lblAktiv As Label
Friend WithEvents cbaktiv As CheckBox
Friend WithEvents btnAbbruch As Button
Friend WithEvents btnSave As Button
Friend WithEvents txtBeschreibung As TextBox
Friend WithEvents lblBeschreibung As Label
Friend WithEvents lblTermin As Label
Friend WithEvents dtTermin As DateTimePicker
Friend WithEvents cbboxVerantwortlich As ComboBox
Friend WithEvents lblVerantwortlich As Label
Friend WithEvents txtResultat As TextBox
Friend WithEvents Label1 As Label
End Class

3682
SW/AssessmentMgmt/Pruefschritt/frmMassnahme.resx Normal file
View File

File diff suppressed because it is too large Load Diff

93
SW/AssessmentMgmt/Pruefschritt/frmMassnahme.vb Normal file
View File

@@ -0,0 +1,93 @@
Public Class frmMassnahme
Dim Massnahme As New clsPruefschrittMassnahme
Dim m_key As Integer
Property Key As Integer
Get
Return m_key
End Get
Set(value As Integer)
m_key = value
End Set
End Property
Dim m_pruefschrittfinding_nr As Integer
Property Pruefschrittresultatnr As Integer
Get
Return m_pruefschrittfinding_nr
End Get
Set(value As Integer)
m_pruefschrittfinding_nr = value
End Set
End Property
Dim m_isReadonly As Boolean
Property IsReadonly As Boolean
Get
Return m_isReadonly
End Get
Set(value As Boolean)
m_isReadonly = value
End Set
End Property
Dim sec As New Utils.MySecurity
Private Sub frmMassnahme_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.cbboxVerantwortlich.DataSource = Massnahme.Verantwortung
Me.cbboxVerantwortlich.DisplayMember = "Bezeichnung"
Me.cbboxVerantwortlich.ValueMember = "Verantwortungnr"
If Key = -1 Then
Me.cbaktiv.Checked = True
Else
Massnahme.Get_Data(Me.Key)
Me.txtBeschreibung.Text = Massnahme.sBeschreibung.Value
Me.txtBezeichnung.Text = Massnahme.sKurzbeschreibung.Value
Me.cbaktiv.Checked = Massnahme.bAktiv.Value = True
Me.dtTermin.Value = Massnahme.daTermin.Value
Me.cbboxVerantwortlich.SelectedValue = Massnahme.iVerantwortungNr.Value
Me.txtResultat.Text = Massnahme.sMassnahmeResultat.Value
End If
If IsReadonly = True Then
sec.Set_Form_Readonly(Me)
End If
End Sub
Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
Me.DialogResult = DialogResult.Abort
Me.Close()
End Sub
Private Sub btnAbbruch_Click(sender As Object, e As EventArgs) Handles btnAbbruch.Click
Me.DialogResult = DialogResult.Abort
End Sub
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
' Dim Save_Verantwortung As Integer
Me.DialogResult = DialogResult.OK
If Me.Key = -1 Then
Massnahme.Add_New()
Me.Key = Massnahme.iPruefschrittmassnahmeNr
' Save_Verantwortung = -1
Else
Massnahme.Get_Data(Me.Key)
' Save_Verantwortung = Massnahme.iVerantwortungNr.Value
End If
Massnahme.sKurzbeschreibung = New SqlTypes.SqlString(CType(Me.txtBezeichnung.Text, String))
Massnahme.sBeschreibung = New SqlTypes.SqlString(CType(Me.txtBeschreibung.Text, String))
Massnahme.sMassnahmeResultat = New SqlTypes.SqlString(CType(Me.txtResultat.Text, String))
Massnahme.iPruefschrittfindingnr = New SqlTypes.SqlInt32(CType(Me.m_pruefschrittfinding_nr, Int16))
Massnahme.bAktiv = New SqlTypes.SqlBoolean(CType(Me.cbaktiv.Checked, Boolean))
Massnahme.daTermin = New SqlTypes.SqlDateTime(CType(Me.dtTermin.Value, DateTime))
Massnahme.iVerantwortungNr = New SqlTypes.SqlInt32(CType(Me.cbboxVerantwortlich.SelectedValue, Int32))
Massnahme.Save_Data()
Me.Close()
'mailversand massnahe
End Sub
End Class

2008
SW/AssessmentMgmt/Pruefschritt/frmPruefschrittUebersicht.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

4217
SW/AssessmentMgmt/Pruefschritt/frmPruefschrittUebersicht.resx Normal file
View File

File diff suppressed because it is too large Load Diff

781
SW/AssessmentMgmt/Pruefschritt/frmPruefschrittUebersicht.vb Normal file
View File

@@ -0,0 +1,781 @@
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

113
SW/AssessmentMgmt/Pruefschritt/frmWeitergabe.Designer.vb generated Normal file
View File

@@ -0,0 +1,113 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmWeitergabe
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmWeitergabe))
Me.lblWeitergabe = New System.Windows.Forms.Label()
Me.cbboxmitarbeiter = New System.Windows.Forms.ComboBox()
Me.lblNotiz = New System.Windows.Forms.Label()
Me.txtNotiz = New System.Windows.Forms.TextBox()
Me.btnok = New System.Windows.Forms.Button()
Me.btnabbruch = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'lblWeitergabe
'
Me.lblWeitergabe.AutoSize = True
Me.lblWeitergabe.Location = New System.Drawing.Point(12, 25)
Me.lblWeitergabe.Name = "lblWeitergabe"
Me.lblWeitergabe.Size = New System.Drawing.Size(80, 13)
Me.lblWeitergabe.TabIndex = 0
Me.lblWeitergabe.Text = "weitergeben an"
'
'cbboxmitarbeiter
'
Me.cbboxmitarbeiter.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Append
Me.cbboxmitarbeiter.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
Me.cbboxmitarbeiter.FormattingEnabled = True
Me.cbboxmitarbeiter.Location = New System.Drawing.Point(112, 22)
Me.cbboxmitarbeiter.Name = "cbboxmitarbeiter"
Me.cbboxmitarbeiter.Size = New System.Drawing.Size(297, 21)
Me.cbboxmitarbeiter.TabIndex = 0
'
'lblNotiz
'
Me.lblNotiz.AutoSize = True
Me.lblNotiz.Location = New System.Drawing.Point(12, 57)
Me.lblNotiz.Name = "lblNotiz"
Me.lblNotiz.Size = New System.Drawing.Size(31, 13)
Me.lblNotiz.TabIndex = 2
Me.lblNotiz.Text = "Notiz"
'
'txtNotiz
'
Me.txtNotiz.Location = New System.Drawing.Point(112, 54)
Me.txtNotiz.Multiline = True
Me.txtNotiz.Name = "txtNotiz"
Me.txtNotiz.Size = New System.Drawing.Size(297, 78)
Me.txtNotiz.TabIndex = 1
'
'btnok
'
Me.btnok.Location = New System.Drawing.Point(12, 150)
Me.btnok.Name = "btnok"
Me.btnok.Size = New System.Drawing.Size(100, 23)
Me.btnok.TabIndex = 2
Me.btnok.Text = "Weitergeben"
Me.btnok.UseVisualStyleBackColor = True
'
'btnabbruch
'
Me.btnabbruch.Location = New System.Drawing.Point(310, 150)
Me.btnabbruch.Name = "btnabbruch"
Me.btnabbruch.Size = New System.Drawing.Size(100, 23)
Me.btnabbruch.TabIndex = 3
Me.btnabbruch.Text = "Abbruch"
Me.btnabbruch.UseVisualStyleBackColor = True
'
'frmWeitergabe
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(422, 185)
Me.Controls.Add(Me.btnabbruch)
Me.Controls.Add(Me.btnok)
Me.Controls.Add(Me.txtNotiz)
Me.Controls.Add(Me.lblNotiz)
Me.Controls.Add(Me.cbboxmitarbeiter)
Me.Controls.Add(Me.lblWeitergabe)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmWeitergabe"
Me.Text = "Assessment weiter geben"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents lblWeitergabe As Label
Friend WithEvents cbboxmitarbeiter As ComboBox
Friend WithEvents lblNotiz As Label
Friend WithEvents txtNotiz As TextBox
Friend WithEvents btnok As Button
Friend WithEvents btnabbruch As Button
End Class

138
SW/AssessmentMgmt/Pruefschritt/frmWeitergabe.resx Normal file
View File

@@ -0,0 +1,138 @@
<?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=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAICAEAAAAAADoAgAAFgAAACgAAAAgAAAAQAAAAAEABAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA/wD/AP//
AAD///8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAd3d3d3cAAAAAAAAAAAAACIiIiIiHcAAA
AAAAAAAAAI//////iHAAAAAAAAAAAACIiIiP//hwAAAAAAAAAAAAd3d3d3d4cAAAAAAAAAAAAIiIiIj/
+HAAAAAAAAAAAAAAAAiI//hwAAAAAAAGZmZmZmZgd3d4cAAAAAAACOjo6OjoYIiP+HAAAAAAAA6Ojo6O
joYIj/hwAAAAAAAA6Ojo6OjmB3d4cAAAAAAAAI6Ojo6OjmCI+HAAAAAAAAAI6Ojo6OhgiPhwAAAAAAAA
Do4AAACOhgd4cAAAAAAAAADo6Ojo6OYIiHAAAAAAAAAAjoAAAA6IYIhwAAAAAAAAAAjo6Ojo6GCIcAAA
AAAAAAAOjo6Ojo6GCHAAAAAAAAAAAOjo6Ojo5ghwAAAAAAAAAACAjg6Ajg5gAAAAAAAAAAAADwDwDwDw
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD////////////////////////wA///
4AH//8AA//+AAP//gAD//4AA//+AAO/gAADnwAAA48AAAAHAAAAA4AAAAGAAAADwAAAB8AAA4/gAAOf4
AADv/AAA//wAAP/+AAD//gAB//8AA///kk///////////////////////////w==
</value>
</data>
</root>

59
SW/AssessmentMgmt/Pruefschritt/frmWeitergabe.vb Normal file
View File

@@ -0,0 +1,59 @@
Public Class frmWeitergabe
Dim Pruefschrittnr As Integer
Dim clsNotiz As New clsPruefschrittNotiz
Dim clsmitarbeiter As New clsMitarbeiter
Dim Verantwortlich As Integer = 0
Dim empfaenger As Integer
Sub New(ByVal Pruefschrittnr As Integer)
InitializeComponent()
Me.Pruefschrittnr = Pruefschrittnr
End Sub
Sub New(ByVal Pruefschrittnr As Integer, verantwortungnr As Integer)
InitializeComponent()
Me.Pruefschrittnr = Pruefschrittnr
Me.Verantwortlich = verantwortungnr
End Sub
Sub New(ByVal Pruefschrittnr As Integer, verantwortungnr As Integer, AlsEmpfaenger As Boolean)
InitializeComponent()
Me.Pruefschrittnr = Pruefschrittnr
If AlsEmpfaenger = True Then Me.empfaenger = verantwortungnr
End Sub
Private Sub frmWeitergabe_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.cbboxmitarbeiter.DataSource = clsmitarbeiter.Mitarbeiterdaten
Me.cbboxmitarbeiter.DisplayMember = "Bezeichnung"
Me.cbboxmitarbeiter.ValueMember = "Mitarbeiternr"
If Me.Verantwortlich <> 0 Then
Me.cbboxmitarbeiter.DataSource = Nothing
Me.cbboxmitarbeiter.DataSource = clsmitarbeiter.VerantwortlichISIdaten
Me.cbboxmitarbeiter.DisplayMember = "Bezeichnung"
Me.cbboxmitarbeiter.ValueMember = "verantwortungisinr"
Me.cbboxmitarbeiter.SelectedValue = Me.Verantwortlich
Me.cbboxmitarbeiter.Enabled = False
End If
If Me.empfaenger <> 0 Then
Me.cbboxmitarbeiter.SelectedValue = Me.empfaenger
Me.cbboxmitarbeiter.Enabled = False
End If
End Sub
Private Sub btnok_Click(sender As Object, e As EventArgs) Handles btnok.Click
Me.DialogResult = DialogResult.OK
Me.Close()
End Sub
Private Sub btnabbruch_Click(sender As Object, e As EventArgs) Handles btnabbruch.Click
Me.DialogResult = DialogResult.Cancel
Me.Close()
End Sub
End Class