AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS Version 2.4.9.0

Browse Source 
Buttons, Nicht zuständig
This commit is contained in:
SchreiberM 2024-07-05 13:21:25 +02:00
parent 4660e8ee9a
commit 4a93b2e6fe
16 changed files with 985 additions and 297 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
app/TaskFlow/ClassControlCreator.vb
View File

@ -79,6 +79,7 @@ Public Class ClassControlCreator
Private Class ControlDBProps
Public Guid As Integer
Public Name As String
Public Attribute As String
Public Location As Point
Public [Font] As Font
Public [Color] As Color
@ -88,6 +89,7 @@ Public Class ClassControlCreator
Public Class ControlMetadata
Public Guid As Integer
Public Name As String
Public Attribute As String
Public [ReadOnly] As Boolean = False
Public BackColor As Color = Color.White
End Class
@ -106,7 +108,8 @@ Public Class ClassControlCreator
Dim family As FontFamily = New FontFamily(familyString)
Dim oGuid As Integer = row.Item("GUID")
Dim oName As String = row.Item("NAME")
Dim oName As String = NotNull(row.Item("NAME"), "")
Dim oAttribute As String = NotNull(row.Item("INDEX_NAME"), "")
Dim oLocation As New Point(x, y)
Dim oFont As New Font(family, size, style, GraphicsUnit.Point)
Dim oColor As Color = IntToColor(NotNull(row.Item("FONT_COLOR"), DEFAULT_COLOR))
@ -115,6 +118,7 @@ Public Class ClassControlCreator
Return New ControlDBProps() With {
.Guid = oGuid,
.Name = oName,
.Attribute = oAttribute,
.Location = oLocation,
.Font = oFont,
.Color = oColor,
@ -128,6 +132,7 @@ Public Class ClassControlCreator
ctrl.Tag = New ControlMetadata() With {
.Guid = props.Guid,
.Attribute = props.Attribute,
.ReadOnly = props.ReadOnly,
.Name = props.Name
}

6
app/TaskFlow/ClassInit.vb
View File

@ -16,12 +16,12 @@ Public Class ClassInit
Dim oLocalUserAppDataPath As String = Application.LocalUserAppDataPath
LOGCONFIG = New LogConfig(LogConfig.PathType.CustomPath,
oLocalUserAppDataPath & "\Log",
Nothing,
My.Settings.UserConfig_Prefix,
My.Application.Info.CompanyName,
My.Application.Info.ProductName)
LOGGER = LOGCONFIG.GetLogger("ProcessManager")
LOGGER = LOGCONFIG.GetLogger("taskFLOW")
LOGGER.Info("## ProcessManager started - {0}", Now)
LOGGER.Info("## taskFLOW started - {0}", Now)
Try
Dim directory As New IO.DirectoryInfo(Application.LocalUserAppDataPath & "\Log")

2
app/TaskFlow/My Project/AssemblyInfo.vb
View File

@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.4.8.1")>
<Assembly: AssemblyVersion("2.4.9.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguage("")>

6
app/TaskFlow/TaskFlow.vbproj
View File

@ -734,6 +734,12 @@
<EmbeddedResource Include="frmWorkflow.resx">
<DependentUpon>frmWorkflow.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmYesNo.en.resx">
<DependentUpon>frmYesNo.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmYesNo.fr.resx">
<DependentUpon>frmYesNo.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmYesNo.resx">
<DependentUpon>frmYesNo.vb</DependentUpon>
</EmbeddedResource>

3
app/TaskFlow/Translations/frmValidator_Strings.en.resx
View File

@ -117,6 +117,9 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="Bestaetigung" xml:space="preserve">
<value>Confirmation</value>
</data>
<data name="Bitte validieren Sie die rot markierten Felder!" xml:space="preserve">
<value>Please validate red marked fields!</value>
</data>

3
app/TaskFlow/Translations/frmValidator_Strings.fr.resx
View File

@ -117,6 +117,9 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="Bestaetigung" xml:space="preserve">
<value>Confirmation</value>
</data>
<data name="Bitte validieren Sie die rot markierten Felder!" xml:space="preserve">
<value>Veuillez valider les champs marqués en rouge!</value>
</data>

26
app/TaskFlow/frmAdmin_notResponsibleConfig.Designer.vb generated
View File

@ -38,6 +38,8 @@ Partial Class frmAdmin_notResponsibleConfig
Me.Label1 = New System.Windows.Forms.Label()
Me.txtPROFILE_NOT_RESPONSIBLE_QUEST = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.cmbAttrComment = New System.Windows.Forms.ComboBox()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
@ -171,11 +173,33 @@ Partial Class frmAdmin_notResponsibleConfig
Me.Label2.TabIndex = 102
Me.Label2.Text = "Sicherheitsfrage"
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.Label9.Location = New System.Drawing.Point(230, 233)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(119, 16)
Me.Label9.TabIndex = 107
Me.Label9.Text = "Attribut Kommentar"
'
'cmbAttrComment
'
Me.cmbAttrComment.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cmbAttrComment.FormattingEnabled = True
Me.cmbAttrComment.Location = New System.Drawing.Point(234, 255)
Me.cmbAttrComment.Name = "cmbAttrComment"
Me.cmbAttrComment.Size = New System.Drawing.Size(295, 24)
Me.cmbAttrComment.TabIndex = 106
'
'frmAdmin_notResponsibleConfig
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(778, 340)
Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.cmbAttrComment)
Me.Controls.Add(Me.txtPROFILE_NOT_RESPONSIBLE_QUEST)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label3)
@ -210,4 +234,6 @@ Partial Class frmAdmin_notResponsibleConfig
Friend WithEvents bstitmInfo As DevExpress.XtraBars.BarStaticItem
Friend WithEvents txtPROFILE_NOT_RESPONSIBLE_QUEST As TextBox
Friend WithEvents Label2 As Label
Friend WithEvents Label9 As Label
Friend WithEvents cmbAttrComment As ComboBox
End Class

51
app/TaskFlow/frmAdmin_notResponsibleConfig.vb
View File

@ -21,7 +21,7 @@ Public Class frmAdmin_notResponsibleConfig
End Sub
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
Dim oUpd = $"UPDATE TBPM_PROFILE SET NOT_RESP_SQL = '{oNotResponsible_SQL.Replace("'", "''")}', CHANGED_WHO = '{User.UserName}' WHERE GUID = {oProfilID}"
Dim oUpd = $"UPDATE TBPM_PROFILE SET NOT_RESP_SQL = '{oNotResponsible_SQL.Replace("'", "''")}',NOT_RESP_COMMENT_ATTRIBUTE = '{cmbAttrComment.Text}', CHANGED_WHO = '{User.UserName}' WHERE GUID = {oProfilID}"
If DatabaseECM.ExecuteNonQuery(oUpd) = True Then
oUpd = $"EXEC PRDD_GUI_LANGUAGE_PHRASE 'PM','PROFILE_NOT_RESPONSIBLE_QUEST{oProfilID}','{USER_LANGUAGE}','PROFILE_NOT_RESPONSIBLE_QUEST','{txtPROFILE_NOT_RESPONSIBLE_QUEST.Text}','','{USER_USERNAME}','{oProfilID}',0"
If DatabaseECM.ExecuteNonQuery(oUpd) Then
@ -37,9 +37,13 @@ Public Class frmAdmin_notResponsibleConfig
Private Sub frmAdmin_notResponsibleConfig_Load(sender As Object, e As EventArgs) Handles Me.Load
Try
Dim oSQL = $"SELECT NOT_RESP_SQL FROM TBPM_PROFILE WHERE GUID = {oProfilID}"
Dim oNR_Act_Attr As String
Dim oSQL = $"SELECT NOT_RESP_SQL, NOT_RESP_COMMENT_ATTRIBUTE FROM TBPM_PROFILE WHERE GUID = {oProfilID}"
Dim oDT = DatabaseECM.GetDatatable(oSQL)
oNotResponsible_SQL = oDT.Rows(0).Item(0)
oNotResponsible_SQL = oDT.Rows(0).Item("NOT_RESP_SQL")
oNR_Act_Attr = oDT.Rows(0).Item("NOT_RESP_COMMENT_ATTRIBUTE")
LOGGER.Debug($"oNR_Act_Attr: {oNR_Act_Attr}")
For Each oRow As DataRow In CURRENT_DT_PROFILE_LANGUAGE.Rows
If oRow.Item("TITLE") = $"PROFILE_NOT_RESPONSIBLE_CAPT{oProfilID}" And oRow.Item("LANGUAGE") = USER_LANGUAGE Then
@ -49,6 +53,47 @@ Public Class frmAdmin_notResponsibleConfig
End If
Next
If IDB_ACTIVE = False Then
If MyIndicies IsNot Nothing Then
Dim i As Integer = 0
For Each index As String In MyIndicies
Dim _vektorString = False
Dim oIndexType = WINDREAM.GetTypeOfIndex(index)
i += 1
MyIndicies_Types.Add(oIndexType)
Select Case oIndexType
Case 4097
_vektorString = True
Case 36865
_vektorString = True
Case Else
_vektorString = False
End Select
If _vektorString = False Then
Me.cmbAttrComment.Items.Add(index)
End If
Next
End If
Else
For Each oRow As DataRow In IDBData.DTVWIDB_BE_ATTRIBUTE.Rows
Dim oOk As Boolean = False
Select Case CInt(oRow.Item("TYP_ID"))
Case 1
oOk = True
End Select
If oOk Then
Me.cmbAttrComment.Items.Add(oRow.Item("ATTR_TITLE"))
End If
Next
End If
If oNR_Act_Attr <> "" Then
cmbAttrComment.SelectedIndex = cmbAttrComment.FindStringExact(oNR_Act_Attr)
Else
cmbAttrComment.SelectedIndex = -1
End If
txtPROFILE_NOT_RESPONSIBLE_QUEST.Text = oQuestion
txtCaption_NotResponsible.Text = oCaption
Catch ex As Exception

12
app/TaskFlow/frmRejectionCommit.Designer.vb generated
View File

@ -35,16 +35,16 @@ Partial Class frmRejectionCommit
'
'lblMsg1
'
resources.ApplyResources(Me.lblMsg1, "lblMsg1")
Me.lblMsg1.Appearance.Font = CType(resources.GetObject("lblMsg1.Appearance.Font"), System.Drawing.Font)
Me.lblMsg1.Appearance.Options.UseFont = True
resources.ApplyResources(Me.lblMsg1, "lblMsg1")
Me.lblMsg1.Name = "lblMsg1"
'
'lblMsg2
'
resources.ApplyResources(Me.lblMsg2, "lblMsg2")
Me.lblMsg2.Appearance.Font = CType(resources.GetObject("lblMsg2.Appearance.Font"), System.Drawing.Font)
Me.lblMsg2.Appearance.Options.UseFont = True
resources.ApplyResources(Me.lblMsg2, "lblMsg2")
Me.lblMsg2.Name = "lblMsg2"
'
'btnRejection
@ -69,22 +69,22 @@ Partial Class frmRejectionCommit
'
'lblReasons
'
resources.ApplyResources(Me.lblReasons, "lblReasons")
Me.lblReasons.Appearance.Font = CType(resources.GetObject("lblReasons.Appearance.Font"), System.Drawing.Font)
Me.lblReasons.Appearance.Options.UseFont = True
resources.ApplyResources(Me.lblReasons, "lblReasons")
Me.lblReasons.Name = "lblReasons"
'
'cmbReason
'
resources.ApplyResources(Me.cmbReason, "cmbReason")
Me.cmbReason.FormattingEnabled = True
resources.ApplyResources(Me.cmbReason, "cmbReason")
Me.cmbReason.Name = "cmbReason"
'
'LabelControl2
'
resources.ApplyResources(Me.LabelControl2, "LabelControl2")
Me.LabelControl2.Appearance.Font = CType(resources.GetObject("LabelControl2.Appearance.Font"), System.Drawing.Font)
Me.LabelControl2.Appearance.Options.UseFont = True
resources.ApplyResources(Me.LabelControl2, "LabelControl2")
Me.LabelControl2.Name = "LabelControl2"
'
'txtComment
@ -94,8 +94,8 @@ Partial Class frmRejectionCommit
'
'frmRejectionCommit
'
resources.ApplyResources(Me, "$this")
Me.Appearance.Options.UseFont = True
resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.txtComment)
Me.Controls.Add(Me.LabelControl2)

484
app/TaskFlow/frmRejectionCommit.resx
View File

@ -117,242 +117,68 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="SimpleButton1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Left</value>
</data>
<data name="&gt;&gt;lblReasons.Name" xml:space="preserve">
<value>lblReasons</value>
</data>
<data name="&gt;&gt;SimpleButton1.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.SimpleButton, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="btnRejection.Appearance.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9.75pt</value>
</data>
<data name="$this.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>4, 4, 4, 4</value>
</data>
<data name="&gt;&gt;$this.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.XtraForm, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="txtComment.Size" type="System.Drawing.Size, System.Drawing">
<value>316, 158</value>
</data>
<data name="lblReasons.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 74</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="txtComment.Multiline" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="SimpleButton1.Appearance.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9.75pt</value>
</data>
<data name="cmbReason.Size" type="System.Drawing.Size, System.Drawing">
<value>316, 24</value>
</data>
<data name="&gt;&gt;btnRejection.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.SimpleButton, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="btnRejection.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="$this.StartPosition" type="System.Windows.Forms.FormStartPosition, System.Windows.Forms">
<value>CenterScreen</value>
</data>
<data name="&gt;&gt;SimpleButton1.Name" xml:space="preserve">
<value>SimpleButton1</value>
</data>
<data name="txtComment.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 145</value>
</data>
<data name="LabelControl2.TabIndex" type="System.Int32, mscorlib">
<value>7</value>
</data>
<data name="lblMsg1.Text" xml:space="preserve">
<value>[GLP] Sie wollen diesen Beleg ablehnen?</value>
</data>
<data name="&gt;&gt;lblReasons.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.LabelControl, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;SimpleButton1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="lblReasons.TabIndex" type="System.Int32, mscorlib">
<value>4</value>
</data>
<data name="txtComment.TabIndex" type="System.Int32, mscorlib">
<value>8</value>
</data>
<data name="&gt;&gt;lblMsg2.ZOrder" xml:space="preserve">
<value>6</value>
</data>
<data name="&gt;&gt;lblMsg2.Name" xml:space="preserve">
<value>lblMsg2</value>
</data>
<data name="&gt;&gt;btnRejection.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="lblMsg2.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
<data name="lblMsg1.Appearance.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 12pt</value>
</data>
<data name="lblMsg1.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 12</value>
</data>
<data name="lblReasons.Appearance.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9.75pt</value>
<data name="lblMsg1.Size" type="System.Drawing.Size, System.Drawing">
<value>287, 19</value>
</data>
<data name="btnRejection.Size" type="System.Drawing.Size, System.Drawing">
<value>344, 37</value>
</data>
<data name="LabelControl2.Text" xml:space="preserve">
<value>Begründung:</value>
</data>
<data name="&gt;&gt;lblMsg1.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.LabelControl, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;cmbReason.Name" xml:space="preserve">
<value>cmbReason</value>
</data>
<data name="&gt;&gt;btnRejection.Name" xml:space="preserve">
<value>btnRejection</value>
</data>
<data name="LabelControl2.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 123</value>
</data>
<data name="&gt;&gt;lblMsg1.ZOrder" xml:space="preserve">
<value>7</value>
</data>
<data name="$this.Text" xml:space="preserve">
<value>So far none from GUI_LANGUAGE_PHRASE</value>
</data>
<data name="SimpleButton1.TabIndex" type="System.Int32, mscorlib">
<value>3</value>
</data>
<data name="SimpleButton1.Location" type="System.Drawing.Point, System.Drawing">
<value>362, 318</value>
</data>
<data name="&gt;&gt;lblReasons.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="btnRejection.Text" xml:space="preserve">
<value>SimpleButton1</value>
</data>
<data name="&gt;&gt;btnRejection.ZOrder" xml:space="preserve">
<value>5</value>
</data>
<data name="LabelControl2.Appearance.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9.75pt</value>
</data>
<data name="&gt;&gt;lblMsg2.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.LabelControl, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="SimpleButton1.Text" xml:space="preserve">
<value>Abbruch</value>
</data>
<data name="cmbReason.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 96</value>
</data>
<data name="&gt;&gt;LabelControl2.Name" xml:space="preserve">
<value>LabelControl2</value>
</data>
<data name="lblMsg1.Appearance.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 12pt, style=Bold</value>
</data>
<data name="&gt;&gt;LabelControl2.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="lblReasons.Text" xml:space="preserve">
<value>Grund auswählen:</value>
</data>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9.75pt</value>
</data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>616, 367</value>
</data>
<assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="SimpleButton1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPoBAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iQ2xlYXJIZWFkZXJBbmRGb290ZXIiIHN0eWxlPSJlbmFibGUtYmFja2dy
b3VuZDpuZXcgMCAwIDMyIDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5SZWR7ZmlsbDoj
RDExQzFDO30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTI3LDRINUM0LjUsNCw0LDQuNSw0LDV2MjJjMCww
LjUsMC41LDEsMSwxaDIyYzAuNSwwLDEtMC41LDEtMVY1QzI4LDQuNSwyNy41LDQsMjcsNHogTTIyLDIw
bC0yLDJsLTQtNGwtNCw0ICBsLTItMmw0LTRsLTQtNGwyLTJsNCw0bDQtNGwyLDJsLTQsNEwyMiwyMHoi
IGNsYXNzPSJSZWQiIC8+DQo8L3N2Zz4L
</value>
</data>
<data name="&gt;&gt;cmbReason.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="&gt;&gt;lblMsg1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
<value>7, 16</value>
</data>
<data name="&gt;&gt;LabelControl2.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="frmRejectionCommit.IconOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAM4CAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku
UmVke2ZpbGw6I0QxMUMxQzt9CgkuWWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuR3JlZW57ZmlsbDojMDM5
QzIzO30KPC9zdHlsZT4NCiAgPGcgaWQ9IlN0b3AiPg0KICAgIDxwYXRoIGQ9Ik0yNyw2Yy0xLjEsMC0y
LDAuOS0yLDJ2NmgtMVY0YzAtMS4xLTAuOS0yLTItMnMtMiwwLjktMiwydjEwaC0xVjJjMC0xLjEtMC45
LTItMi0ycy0yLDAuOS0yLDJ2MTJoLTFWNCAgIGMwLTEuMS0wLjktMi0yLTJzLTIsMC45LTIsMnYxMHY0
djAuNGwtNC45LTMuMWMtMC44LTAuNS0xLjgtMC40LTIuNSwwLjNjLTAuOCwwLjgtMC44LDIuMSwwLDIu
OWw5LjMsOS41YzEuMiwxLjMsMywyLjEsNC45LDIuMUgyMyAgIGMzLjMsMCw2LTIuNyw2LTZ2LTR2LTZW
OEMyOSw2LjksMjguMSw2LDI3LDZ6IiBjbGFzcz0iQmxhY2siIC8+DQogIDwvZz4NCjwvc3ZnPgs=
</value>
</data>
<data name="&gt;&gt;txtComment.ZOrder" xml:space="preserve">
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="lblMsg1.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="btnRejection.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Left</value>
</data>
<data name="cmbReason.TabIndex" type="System.Int32, mscorlib">
<value>5</value>
</data>
<data name="SimpleButton1.Size" type="System.Drawing.Size, System.Drawing">
<value>242, 37</value>
</data>
<data name="lblMsg2.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 37</value>
</data>
<data name="&gt;&gt;cmbReason.Type" xml:space="preserve">
<value>System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;txtComment.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmRejectionCommit</value>
<data name="lblMsg1.Text" xml:space="preserve">
<value>[GLP] Sie wollen diesen Beleg ablehnen?</value>
</data>
<data name="&gt;&gt;lblMsg1.Name" xml:space="preserve">
<value>lblMsg1</value>
</data>
<data name="lblMsg2.Appearance.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 12pt, style=Bold</value>
<data name="&gt;&gt;lblMsg1.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.LabelControl, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="lblMsg1.Size" type="System.Drawing.Size, System.Drawing">
<value>333, 19</value>
<data name="&gt;&gt;lblMsg1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;lblMsg1.ZOrder" xml:space="preserve">
<value>7</value>
</data>
<data name="lblMsg2.Appearance.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 12pt</value>
</data>
<data name="lblMsg2.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 37</value>
</data>
<data name="lblMsg2.Size" type="System.Drawing.Size, System.Drawing">
<value>513, 19</value>
</data>
<data name="lblMsg2.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
</data>
<data name="lblMsg2.Text" xml:space="preserve">
<value>[GLP] Wenn ja, dann geben Sie bitte einen Grund für die Ablehnung ein!</value>
</data>
<data name="&gt;&gt;lblMsg2.Name" xml:space="preserve">
<value>lblMsg2</value>
</data>
<data name="&gt;&gt;lblMsg2.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.LabelControl, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;lblMsg2.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;lblMsg2.ZOrder" xml:space="preserve">
<value>6</value>
</data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="btnRejection.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Left</value>
</data>
<data name="btnRejection.Appearance.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9.75pt</value>
</data>
<data name="btnRejection.ImageOptions.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@ -408,46 +234,220 @@
X9ttAMYAAAAASUVORK5CYII=
</value>
</data>
<data name="&gt;&gt;lblReasons.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="lblMsg1.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="btnRejection.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 318</value>
</data>
<data name="btnRejection.Size" type="System.Drawing.Size, System.Drawing">
<value>344, 37</value>
</data>
<data name="btnRejection.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="btnRejection.Text" xml:space="preserve">
<value>SimpleButton1</value>
</data>
<data name="&gt;&gt;btnRejection.Name" xml:space="preserve">
<value>btnRejection</value>
</data>
<data name="&gt;&gt;btnRejection.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.SimpleButton, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;btnRejection.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;btnRejection.ZOrder" xml:space="preserve">
<value>5</value>
</data>
<data name="SimpleButton1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Left</value>
</data>
<data name="SimpleButton1.Appearance.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9.75pt</value>
</data>
<assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="SimpleButton1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPoBAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iQ2xlYXJIZWFkZXJBbmRGb290ZXIiIHN0eWxlPSJlbmFibGUtYmFja2dy
b3VuZDpuZXcgMCAwIDMyIDMyIj4NCiAgPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KCS5SZWR7ZmlsbDoj
RDExQzFDO30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTI3LDRINUM0LjUsNCw0LDQuNSw0LDV2MjJjMCww
LjUsMC41LDEsMSwxaDIyYzAuNSwwLDEtMC41LDEtMVY1QzI4LDQuNSwyNy41LDQsMjcsNHogTTIyLDIw
bC0yLDJsLTQtNGwtNCw0ICBsLTItMmw0LTRsLTQtNGwyLTJsNCw0bDQtNGwyLDJsLTQsNEwyMiwyMHoi
IGNsYXNzPSJSZWQiIC8+DQo8L3N2Zz4L
</value>
</data>
<data name="SimpleButton1.Location" type="System.Drawing.Point, System.Drawing">
<value>362, 318</value>
</data>
<data name="SimpleButton1.Size" type="System.Drawing.Size, System.Drawing">
<value>242, 37</value>
</data>
<data name="SimpleButton1.TabIndex" type="System.Int32, mscorlib">
<value>3</value>
</data>
<data name="SimpleButton1.Text" xml:space="preserve">
<value>Abbruch</value>
</data>
<data name="&gt;&gt;SimpleButton1.Name" xml:space="preserve">
<value>SimpleButton1</value>
</data>
<data name="&gt;&gt;SimpleButton1.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.SimpleButton, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;SimpleButton1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;SimpleButton1.ZOrder" xml:space="preserve">
<value>4</value>
</data>
<data name="&gt;&gt;cmbReason.Parent" xml:space="preserve">
<value>$this</value>
<data name="lblReasons.Appearance.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9.75pt</value>
</data>
<data name="lblReasons.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 74</value>
</data>
<data name="lblReasons.Size" type="System.Drawing.Size, System.Drawing">
<value>104, 16</value>
</data>
<data name="lblMsg2.Text" xml:space="preserve">
<value>[GLP] Wenn ja, dann geben Sie bitte einen Grund für die Ablehnung ein!</value>
<data name="lblReasons.TabIndex" type="System.Int32, mscorlib">
<value>4</value>
</data>
<data name="lblMsg2.Size" type="System.Drawing.Size, System.Drawing">
<value>586, 19</value>
<data name="lblReasons.Text" xml:space="preserve">
<value>Grund auswählen:</value>
</data>
<data name="&gt;&gt;txtComment.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
<data name="&gt;&gt;lblReasons.Name" xml:space="preserve">
<value>lblReasons</value>
</data>
<data name="&gt;&gt;txtComment.Name" xml:space="preserve">
<value>txtComment</value>
</data>
<data name="&gt;&gt;LabelControl2.Type" xml:space="preserve">
<data name="&gt;&gt;lblReasons.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.LabelControl, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;lblReasons.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;lblReasons.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="cmbReason.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 96</value>
</data>
<data name="cmbReason.Size" type="System.Drawing.Size, System.Drawing">
<value>586, 24</value>
</data>
<data name="cmbReason.TabIndex" type="System.Int32, mscorlib">
<value>5</value>
</data>
<data name="&gt;&gt;cmbReason.Name" xml:space="preserve">
<value>cmbReason</value>
</data>
<data name="&gt;&gt;cmbReason.Type" xml:space="preserve">
<value>System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;cmbReason.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;cmbReason.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="LabelControl2.Appearance.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9.75pt</value>
</data>
<data name="LabelControl2.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 123</value>
</data>
<data name="LabelControl2.Size" type="System.Drawing.Size, System.Drawing">
<value>73, 16</value>
</data>
<data name="&gt;&gt;lblMsg2.Parent" xml:space="preserve">
<data name="LabelControl2.TabIndex" type="System.Int32, mscorlib">
<value>7</value>
</data>
<data name="LabelControl2.Text" xml:space="preserve">
<value>Begründung:</value>
</data>
<data name="&gt;&gt;LabelControl2.Name" xml:space="preserve">
<value>LabelControl2</value>
</data>
<data name="&gt;&gt;LabelControl2.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.LabelControl, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;LabelControl2.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;LabelControl2.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="txtComment.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 145</value>
</data>
<data name="txtComment.Multiline" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="txtComment.Size" type="System.Drawing.Size, System.Drawing">
<value>586, 158</value>
</data>
<data name="txtComment.TabIndex" type="System.Int32, mscorlib">
<value>8</value>
</data>
<data name="&gt;&gt;txtComment.Name" xml:space="preserve">
<value>txtComment</value>
</data>
<data name="&gt;&gt;txtComment.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;txtComment.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;txtComment.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
<value>7, 16</value>
</data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>616, 367</value>
</data>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9.75pt</value>
</data>
<data name="frmRejectionCommit.IconOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAM4CAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku
UmVke2ZpbGw6I0QxMUMxQzt9CgkuWWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuR3JlZW57ZmlsbDojMDM5
QzIzO30KPC9zdHlsZT4NCiAgPGcgaWQ9IlN0b3AiPg0KICAgIDxwYXRoIGQ9Ik0yNyw2Yy0xLjEsMC0y
LDAuOS0yLDJ2NmgtMVY0YzAtMS4xLTAuOS0yLTItMnMtMiwwLjktMiwydjEwaC0xVjJjMC0xLjEtMC45
LTItMi0ycy0yLDAuOS0yLDJ2MTJoLTFWNCAgIGMwLTEuMS0wLjktMi0yLTJzLTIsMC45LTIsMnYxMHY0
djAuNGwtNC45LTMuMWMtMC44LTAuNS0xLjgtMC40LTIuNSwwLjNjLTAuOCwwLjgtMC44LDIuMSwwLDIu
OWw5LjMsOS41YzEuMiwxLjMsMywyLjEsNC45LDIuMUgyMyAgIGMzLjMsMCw2LTIuNyw2LTZ2LTR2LTZW
OEMyOSw2LjksMjguMSw2LDI3LDZ6IiBjbGFzcz0iQmxhY2siIC8+DQogIDwvZz4NCjwvc3ZnPgs=
</value>
</data>
<data name="$this.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>4, 4, 4, 4</value>
</data>
<data name="$this.StartPosition" type="System.Windows.Forms.FormStartPosition, System.Windows.Forms">
<value>CenterScreen</value>
</data>
<data name="$this.Text" xml:space="preserve">
<value>So far none from GUI_LANGUAGE_PHRASE</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmRejectionCommit</value>
</data>
<data name="&gt;&gt;$this.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.XtraForm, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
</root>

49
app/TaskFlow/frmValidator.vb
View File

@ -61,6 +61,7 @@ Public Class frmValidator
Private Property PROFIL_CURRENCY_ATTRIBUTE
Private Property PROFIL_REJECT_ACTIONS_ATTRIBUTE As String = ""
Private Property PROFIL_REJECT_COMMENT_ATTRIBUTE As String = ""
Private Property PROFIL_NOT_RESP_COMMENT_ATTR As String = ""
Private Property oErrMsgMissingInput
Private Const PMDelimiter As String = "~"
@ -272,6 +273,7 @@ Public Class frmValidator
PROFIL_REJECT_ACTIONS_ATTRIBUTE = oProfileRow.Item("REJECT_ACTIONS_ATTRIBUTE")
PROFIL_REJECT_COMMENT_ATTRIBUTE = oProfileRow.Item("REJECT_COMMENT_ATTRIBUTE")
PROFIL_NOT_RESP_COMMENT_ATTR = oProfileRow.Item("NOT_RESP_COMMENT_ATTRIBUTE")
PROFIL_LOGINDEX = oProfileRow.Item("LOG_INDEX")
CURRENT_PROFILE_LOG_INDEX = PROFIL_LOGINDEX
@ -5983,11 +5985,56 @@ Public Class frmValidator
End Sub
Private Sub btnNotResponsible_Click(sender As Object, e As EventArgs) Handles btnNotResponsible.Click
Dim oCommentSoFar As String = ""
For Each oControl As Control In PanelValidatorControl.Controls
If DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Attribute = PROFIL_NOT_RESP_COMMENT_ATTR Then
Dim oName = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Name
Logger.Debug($"Got the control for the NR Attribute :{oName}..Gettin the value...")
If oControl.GetType() = GetType(DevExpress.XtraEditors.TextEdit) Or oControl.GetType() = GetType(MemoEdit) Then
Try
oCommentSoFar = DirectCast(oControl, DevExpress.XtraEditors.TextEdit).EditValue
Exit For
Catch ex As Exception
Logger.Warn($"Unexpected error in Checking EditValue: {ex.Message}")
End Try
End If
End If
Next
oProfile_NOT_RESP_SQL = clsPatterns.ReplaceAllValues(oProfile_NOT_RESP_SQL, PanelValidatorControl, True)
Dim frmDialog As New frmYesNo(oProfileNotResponsibleQuestion)
Dim oCaption As String = "Bestätigung - "
If USER_LANGUAGE <> "de-DE" Then
oCaption = "Confirmation - "
End If
Dim frmDialog As New frmYesNo(oProfileNotResponsibleQuestion, oCaption + oProfileNotResponsibleText, oCommentSoFar)
frmDialog.ShowDialog()
' result = MessageBox.Show(oProfileNotResponsibleQuestion, ADDITIONAL_TITLE, MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)
If frmDialog.DialogResult = DialogResult.OK Then
'For Each oControl As Control In PanelValidatorControl.Controls
' If DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Attribute = PROFIL_NOT_RESP_COMMENT_ATTR Then
' Dim oName = DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Name
' Logger.Debug($"Got the control for the NR Attribute :{oName}..Gettin the value...")
' If oControl.GetType() = GetType(DevExpress.XtraEditors.TextEdit) Or oControl.GetType() = GetType(MemoEdit) Then
' Try
' DirectCast(oControl, DevExpress.XtraEditors.TextEdit).EditValue = frmDialog.oComment
' Exit For
' Catch ex As Exception
' Logger.Warn($"Unexpected error in Setting EditValue NotResponsible: {ex.Message}")
' End Try
' End If
' End If
'Next
If IDB_ACTIVE = False Then
Indexiere_File(CURRENT_WMFILE, PROFIL_NOT_RESP_COMMENT_ATTR, frmDialog.oComment)
Else
Dim oREsult = IDBData.SetVariableValue(PROFIL_NOT_RESP_COMMENT_ATTR, frmDialog.oComment)
End If
OverrideAll = True
Override_SQLCommand = oProfile_NOT_RESP_SQL
Override = True

62
app/TaskFlow/frmYesNo.Designer.vb generated
View File

@ -28,92 +28,76 @@ Partial Class frmYesNo
Me.Cancel_Button = New System.Windows.Forms.Button()
Me.PictureEdit1 = New DevExpress.XtraEditors.PictureEdit()
Me.txtQuestion = New System.Windows.Forms.TextBox()
Me.LabelControl1 = New DevExpress.XtraEditors.LabelControl()
Me.txtReason = New System.Windows.Forms.TextBox()
Me.TableLayoutPanel1.SuspendLayout()
CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'TableLayoutPanel1
'
Me.TableLayoutPanel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TableLayoutPanel1.ColumnCount = 2
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
resources.ApplyResources(Me.TableLayoutPanel1, "TableLayoutPanel1")
Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0)
Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0)
Me.TableLayoutPanel1.Location = New System.Drawing.Point(193, 100)
Me.TableLayoutPanel1.Margin = New System.Windows.Forms.Padding(4)
Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
Me.TableLayoutPanel1.RowCount = 1
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel1.Size = New System.Drawing.Size(209, 48)
Me.TableLayoutPanel1.TabIndex = 0
'
'OK_Button
'
Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None
Me.OK_Button.Location = New System.Drawing.Point(9, 7)
Me.OK_Button.Margin = New System.Windows.Forms.Padding(4)
resources.ApplyResources(Me.OK_Button, "OK_Button")
Me.OK_Button.Name = "OK_Button"
Me.OK_Button.Size = New System.Drawing.Size(86, 34)
Me.OK_Button.TabIndex = 0
Me.OK_Button.Text = "OK"
'
'Cancel_Button
'
Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None
resources.ApplyResources(Me.Cancel_Button, "Cancel_Button")
Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Cancel_Button.Location = New System.Drawing.Point(113, 7)
Me.Cancel_Button.Margin = New System.Windows.Forms.Padding(4)
Me.Cancel_Button.Name = "Cancel_Button"
Me.Cancel_Button.Size = New System.Drawing.Size(86, 34)
Me.Cancel_Button.TabIndex = 1
Me.Cancel_Button.Text = "Abbrechen"
'
'PictureEdit1
'
Me.PictureEdit1.EditValue = CType(resources.GetObject("PictureEdit1.EditValue"), Object)
Me.PictureEdit1.Location = New System.Drawing.Point(12, 29)
resources.ApplyResources(Me.PictureEdit1, "PictureEdit1")
Me.PictureEdit1.Name = "PictureEdit1"
Me.PictureEdit1.Properties.Appearance.BackColor = System.Drawing.SystemColors.Control
Me.PictureEdit1.Properties.Appearance.Options.UseBackColor = True
Me.PictureEdit1.Properties.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder
Me.PictureEdit1.Properties.ShowCameraMenuItem = DevExpress.XtraEditors.Controls.CameraMenuItemVisibility.[Auto]
Me.PictureEdit1.Properties.SizeMode = DevExpress.XtraEditors.Controls.PictureSizeMode.Zoom
Me.PictureEdit1.Size = New System.Drawing.Size(45, 38)
Me.PictureEdit1.TabIndex = 2
'
'txtQuestion
'
Me.txtQuestion.BackColor = System.Drawing.SystemColors.Control
Me.txtQuestion.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtQuestion.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtQuestion.Location = New System.Drawing.Point(63, 29)
Me.txtQuestion.Multiline = True
resources.ApplyResources(Me.txtQuestion, "txtQuestion")
Me.txtQuestion.Name = "txtQuestion"
Me.txtQuestion.ReadOnly = True
Me.txtQuestion.Size = New System.Drawing.Size(336, 40)
Me.txtQuestion.TabIndex = 3
Me.txtQuestion.Text = "Beispieltext mit Ansicht zum Umbruch, weil Text auch länger sein kann"
'
'LabelControl1
'
Me.LabelControl1.Appearance.Font = CType(resources.GetObject("LabelControl1.Appearance.Font"), System.Drawing.Font)
Me.LabelControl1.Appearance.Options.UseFont = True
resources.ApplyResources(Me.LabelControl1, "LabelControl1")
Me.LabelControl1.Name = "LabelControl1"
'
'txtReason
'
resources.ApplyResources(Me.txtReason, "txtReason")
Me.txtReason.Name = "txtReason"
'
'frmYesNo
'
Me.AcceptButton = Me.OK_Button
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.CancelButton = Me.Cancel_Button
Me.ClientSize = New System.Drawing.Size(403, 149)
Me.Controls.Add(Me.txtReason)
Me.Controls.Add(Me.LabelControl1)
Me.Controls.Add(Me.txtQuestion)
Me.Controls.Add(Me.PictureEdit1)
Me.Controls.Add(Me.TableLayoutPanel1)
Me.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Margin = New System.Windows.Forms.Padding(4)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmYesNo"
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "Bestätigung/Confirmation"
Me.TableLayoutPanel1.ResumeLayout(False)
CType(Me.PictureEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
@ -125,4 +109,6 @@ Partial Class frmYesNo
Friend WithEvents Cancel_Button As System.Windows.Forms.Button
Friend WithEvents PictureEdit1 As DevExpress.XtraEditors.PictureEdit
Friend WithEvents txtQuestion As TextBox
Friend WithEvents LabelControl1 As DevExpress.XtraEditors.LabelControl
Friend WithEvents txtReason As TextBox
End Class

156
app/TaskFlow/frmYesNo.en.resx Normal file
View File

@ -0,0 +1,156 @@
<?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>
<data name="OK_Button.Text" xml:space="preserve">
<value>Confirm</value>
</data>
<assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="PictureEdit1.EditValue" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABkEAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5HcmVlbntmaWxsOiMwMzlD
MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntkaXNwbGF5Om5vbmU7fQoJLnN0M3tk
aXNwbGF5OmlubGluZTtmaWxsOiNGRkIxMTU7fQoJLnN0NHtkaXNwbGF5OmlubGluZTt9Cgkuc3Q1e2Rp
c3BsYXk6aW5saW5lO29wYWNpdHk6MC43NTt9Cgkuc3Q2e2Rpc3BsYXk6aW5saW5lO29wYWNpdHk6MC41
O30KCS5zdDd7ZGlzcGxheTppbmxpbmU7ZmlsbDojMDM5QzIzO30KCS5zdDh7ZGlzcGxheTppbmxpbmU7
ZmlsbDojRDExQzFDO30KCS5zdDl7ZGlzcGxheTppbmxpbmU7ZmlsbDojMTE3N0Q3O30KCS5zdDEwe2Rp
c3BsYXk6aW5saW5lO2ZpbGw6I0ZGRkZGRjt9Cjwvc3R5bGU+DQogIDxnIGlkPSJBdHRlbnRpb24iPg0K
ICAgIDxwYXRoIGQ9Ik0xNS4xLDIuNUwyLjEsMjYuNUMxLjgsMjcuMiwyLjMsMjgsMy4xLDI4aDI1Ljlj
MC44LDAsMS4zLTAuOCwwLjktMS41TDE2LjksMi41ICAgQzE2LjUsMS44LDE1LjUsMS44LDE1LjEsMi41
eiIgY2xhc3M9IlllbGxvdyIgLz4NCiAgICA8cGF0aCBkPSJNMTYsMjBjMS4xLDAsMiwwLjksMiwycy0w
LjksMi0yLDJzLTItMC45LTItMlMxNC45LDIwLDE2LDIweiBNMTQsMTBoNHY4aC00VjEweiIgY2xhc3M9
IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L
</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="LabelControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>40, 13</value>
</data>
<data name="LabelControl1.Text" xml:space="preserve">
<value>Reason:</value>
</data>
</root>

159
app/TaskFlow/frmYesNo.fr.resx Normal file
View File

@ -0,0 +1,159 @@
<?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>
<data name="OK_Button.Text" xml:space="preserve">
<value>Confirmer</value>
</data>
<data name="Cancel_Button.Text" xml:space="preserve">
<value>Annuler</value>
</data>
<assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="PictureEdit1.EditValue" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABkEAAAC77u/
PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5HcmVlbntmaWxsOiMwMzlD
MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntkaXNwbGF5Om5vbmU7fQoJLnN0M3tk
aXNwbGF5OmlubGluZTtmaWxsOiNGRkIxMTU7fQoJLnN0NHtkaXNwbGF5OmlubGluZTt9Cgkuc3Q1e2Rp
c3BsYXk6aW5saW5lO29wYWNpdHk6MC43NTt9Cgkuc3Q2e2Rpc3BsYXk6aW5saW5lO29wYWNpdHk6MC41
O30KCS5zdDd7ZGlzcGxheTppbmxpbmU7ZmlsbDojMDM5QzIzO30KCS5zdDh7ZGlzcGxheTppbmxpbmU7
ZmlsbDojRDExQzFDO30KCS5zdDl7ZGlzcGxheTppbmxpbmU7ZmlsbDojMTE3N0Q3O30KCS5zdDEwe2Rp
c3BsYXk6aW5saW5lO2ZpbGw6I0ZGRkZGRjt9Cjwvc3R5bGU+DQogIDxnIGlkPSJBdHRlbnRpb24iPg0K
ICAgIDxwYXRoIGQ9Ik0xNS4xLDIuNUwyLjEsMjYuNUMxLjgsMjcuMiwyLjMsMjgsMy4xLDI4aDI1Ljlj
MC44LDAsMS4zLTAuOCwwLjktMS41TDE2LjksMi41ICAgQzE2LjUsMS44LDE1LjUsMS44LDE1LjEsMi41
eiIgY2xhc3M9IlllbGxvdyIgLz4NCiAgICA8cGF0aCBkPSJNMTYsMjBjMS4xLDAsMiwwLjksMiwycy0w
LjksMi0yLDJzLTItMC45LTItMlMxNC45LDIwLDE2LDIweiBNMTQsMTBoNHY4aC00VjEweiIgY2xhc3M9
IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L
</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="LabelControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>61, 13</value>
</data>
<data name="LabelControl1.Text" xml:space="preserve">
<value>Justification:</value>
</data>
</root>

231
app/TaskFlow/frmYesNo.resx
View File

@ -117,6 +117,105 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="TableLayoutPanel1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Right</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="TableLayoutPanel1.ColumnCount" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="OK_Button.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>None</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="OK_Button.Location" type="System.Drawing.Point, System.Drawing">
<value>9, 7</value>
</data>
<data name="OK_Button.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>4, 4, 4, 4</value>
</data>
<data name="OK_Button.Size" type="System.Drawing.Size, System.Drawing">
<value>86, 34</value>
</data>
<data name="OK_Button.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="OK_Button.Text" xml:space="preserve">
<value>OK</value>
</data>
<data name="&gt;&gt;OK_Button.Name" xml:space="preserve">
<value>OK_Button</value>
</data>
<data name="&gt;&gt;OK_Button.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;OK_Button.Parent" xml:space="preserve">
<value>TableLayoutPanel1</value>
</data>
<data name="&gt;&gt;OK_Button.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="Cancel_Button.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>None</value>
</data>
<data name="Cancel_Button.Location" type="System.Drawing.Point, System.Drawing">
<value>113, 7</value>
</data>
<data name="Cancel_Button.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>4, 4, 4, 4</value>
</data>
<data name="Cancel_Button.Size" type="System.Drawing.Size, System.Drawing">
<value>86, 34</value>
</data>
<data name="Cancel_Button.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
</data>
<data name="Cancel_Button.Text" xml:space="preserve">
<value>Abbrechen</value>
</data>
<data name="&gt;&gt;Cancel_Button.Name" xml:space="preserve">
<value>Cancel_Button</value>
</data>
<data name="&gt;&gt;Cancel_Button.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Cancel_Button.Parent" xml:space="preserve">
<value>TableLayoutPanel1</value>
</data>
<data name="&gt;&gt;Cancel_Button.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="TableLayoutPanel1.Location" type="System.Drawing.Point, System.Drawing">
<value>242, 277</value>
</data>
<data name="TableLayoutPanel1.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>4, 4, 4, 4</value>
</data>
<data name="TableLayoutPanel1.RowCount" type="System.Int32, mscorlib">
<value>1</value>
</data>
<data name="TableLayoutPanel1.Size" type="System.Drawing.Size, System.Drawing">
<value>209, 48</value>
</data>
<data name="TableLayoutPanel1.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="&gt;&gt;TableLayoutPanel1.Name" xml:space="preserve">
<value>TableLayoutPanel1</value>
</data>
<data name="&gt;&gt;TableLayoutPanel1.Type" xml:space="preserve">
<value>System.Windows.Forms.TableLayoutPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;TableLayoutPanel1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;TableLayoutPanel1.ZOrder" xml:space="preserve">
<value>4</value>
</data>
<data name="TableLayoutPanel1.LayoutSettings" type="System.Windows.Forms.TableLayoutSettings, System.Windows.Forms">
<value>&lt;?xml version="1.0" encoding="utf-16"?&gt;&lt;TableLayoutSettings&gt;&lt;Controls&gt;&lt;Control Name="OK_Button" Row="0" RowSpan="1" Column="0" ColumnSpan="1" /&gt;&lt;Control Name="Cancel_Button" Row="0" RowSpan="1" Column="1" ColumnSpan="1" /&gt;&lt;/Controls&gt;&lt;Columns Styles="Percent,50,Percent,50" /&gt;&lt;Rows Styles="Percent,50" /&gt;&lt;/TableLayoutSettings&gt;</value>
</data>
<assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="PictureEdit1.EditValue" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@ -143,4 +242,136 @@
IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L
</value>
</data>
<data name="PictureEdit1.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 29</value>
</data>
<data name="PictureEdit1.Size" type="System.Drawing.Size, System.Drawing">
<value>45, 38</value>
</data>
<data name="PictureEdit1.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="&gt;&gt;PictureEdit1.Name" xml:space="preserve">
<value>PictureEdit1</value>
</data>
<data name="&gt;&gt;PictureEdit1.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.PictureEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;PictureEdit1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;PictureEdit1.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="txtQuestion.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9.75pt</value>
</data>
<data name="txtQuestion.Location" type="System.Drawing.Point, System.Drawing">
<value>63, 29</value>
</data>
<data name="txtQuestion.Multiline" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="txtQuestion.Size" type="System.Drawing.Size, System.Drawing">
<value>378, 68</value>
</data>
<data name="txtQuestion.TabIndex" type="System.Int32, mscorlib">
<value>3</value>
</data>
<data name="txtQuestion.Text" xml:space="preserve">
<value>Beispieltext mit Ansicht zum Umbruch, weil Text auch länger sein kann</value>
</data>
<data name="&gt;&gt;txtQuestion.Name" xml:space="preserve">
<value>txtQuestion</value>
</data>
<data name="&gt;&gt;txtQuestion.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;txtQuestion.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;txtQuestion.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="LabelControl1.Appearance.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9.75pt</value>
</data>
<data name="LabelControl1.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 103</value>
</data>
<data name="LabelControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>73, 16</value>
</data>
<data name="LabelControl1.TabIndex" type="System.Int32, mscorlib">
<value>4</value>
</data>
<data name="LabelControl1.Text" xml:space="preserve">
<value>Begründung:</value>
</data>
<data name="&gt;&gt;LabelControl1.Name" xml:space="preserve">
<value>LabelControl1</value>
</data>
<data name="&gt;&gt;LabelControl1.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.LabelControl, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;LabelControl1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;LabelControl1.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="txtReason.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Bottom, Left, Right</value>
</data>
<data name="txtReason.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 125</value>
</data>
<data name="txtReason.Multiline" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="txtReason.Size" type="System.Drawing.Size, System.Drawing">
<value>428, 139</value>
</data>
<data name="txtReason.TabIndex" type="System.Int32, mscorlib">
<value>5</value>
</data>
<data name="&gt;&gt;txtReason.Name" xml:space="preserve">
<value>txtReason</value>
</data>
<data name="&gt;&gt;txtReason.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;txtReason.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;txtReason.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
<value>7, 16</value>
</data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>452, 326</value>
</data>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9.75pt</value>
</data>
<data name="$this.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>4, 4, 4, 4</value>
</data>
<data name="$this.StartPosition" type="System.Windows.Forms.FormStartPosition, System.Windows.Forms">
<value>CenterParent</value>
</data>
<data name="$this.Text" xml:space="preserve">
<value>Bestätigung/Confirmation</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmYesNo</value>
</data>
<data name="&gt;&gt;$this.Type" xml:space="preserve">
<value>System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
</root>

25
app/TaskFlow/frmYesNo.vb
View File

@ -2,16 +2,35 @@
Public Class frmYesNo
Dim oQuestion As String
Public Sub New(pQuestion As String)
Dim oCaption As String
Public oComment As String
Public Sub New(pQuestion As String, pCaption As String, pCommentSoFar As String)
MyBase.New()
oQuestion = pQuestion
oCaption = pCaption
oComment = pCommentSoFar
InitializeComponent()
' Add any initialization after the InitializeComponent() call.
End Sub
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
If txtReason.Text = String.Empty Then
Dim oStop As String
If USER_LANGUAGE = "de-DE" Then
oStop = "Bitte eine Begründung eingeben!"
ElseIf USER_LANGUAGE = "es-ES" Then
oStop = "Introduzca un motivo!"
ElseIf USER_LANGUAGE = "en-US" Then
oStop = "Please enter a reason!"
ElseIf USER_LANGUAGE = "fr-FR" Then
oStop = "Veuillez saisir une justification!"
End If
MsgBox(oStop, MsgBoxStyle.Exclamation, ADDITIONAL_TITLE)
Exit Sub
End If
oComment = txtReason.Text
Me.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Close()
End Sub
@ -22,5 +41,7 @@ Public Class frmYesNo
Private Sub frmYesNo_Load(sender As Object, e As EventArgs) Handles Me.Load
txtQuestion.Text = oQuestion
txtReason.Text = oComment
Me.Text = oCaption
End Sub
End Class