This commit is contained in:
SchreiberM 2019-10-18 13:35:10 +02:00
commit d8e7f94480
4 changed files with 350 additions and 402 deletions

View File

@ -308,24 +308,45 @@ Public Class frmMassValidator
oControl = ClassControlCreator.CreateExistingLine(oControlRow, False)
Case "LOOKUP"
Dim lookup As LookupControl2 = ClassControlCreator.CreateExistingLookupControl(oControlRow, False)
oControl = lookup
lookup.PreventDuplicates = oControlRow.Item("VKT_PREVENT_MULTIPLE_VALUES")
lookup.AllowAddNewValues = oControlRow.Item("VKT_ADD_ITEM")
lookup.MultiSelect = oControlRow.Item("MULTISELECT")
Dim oMultiselect = oControlRow.Item("MULTISELECT")
Dim oReadonly = oControlRow.Item("READ_ONLY")
'If NotNull(oControlRow.Item("DEFAULT_VALUE"), "") <> "" Then
' lookup.SelectedValues = New List(Of String) From {oControlRow.Item("DEFAULT_VALUE")}
'End If
If oMultiselect = False And oReadonly = True Then
Dim lookupReadonly = ClassControlCreator.CreateExistingTextbox(oControlRow, False)
oControl = lookupReadonly
Else
Dim lookup As LookupControl2 = ClassControlCreator.CreateExistingLookupControl(oControlRow, False)
''Wenn Multiselect false dann prüfen ob abhängiges Control
If CBool(oControlRow.Item("MULTISELECT")) = False Then
Dim filteredData As DataTable = DTCONTROLS.Clone()
Dim oExpression = $"SQL_UEBERPRUEFUNG like '%#CTRL#{oControl.Name}%'"
DTCONTROLS.Select(oExpression).CopyToDataTable(filteredData, LoadOption.PreserveChanges)
If filteredData.Rows.Count = 1 Then
AddHandler lookup.SelectedValuesChanged, AddressOf onLookUp1
lookup.PreventDuplicates = oControlRow.Item("VKT_PREVENT_MULTIPLE_VALUES")
lookup.AllowAddNewValues = oControlRow.Item("VKT_ADD_ITEM")
lookup.MultiSelect = oMultiselect
If NotNull(oControlRow.Item("DEFAULT_VALUE"), "") <> "" Then
lookup.SelectedValues = New List(Of String) From {oControlRow.Item("DEFAULT_VALUE")}
End If
oControl = lookup
'Wenn Multiselect false dann prüfen ob abhängiges Control
If CBool(oControlRow.Item("MULTISELECT")) = False Then
Dim filteredData As DataTable = DTCONTROLS.Clone()
Dim oExpression = $"SQL_UEBERPRUEFUNG like '%#CTRL#{oControl.Name}%'"
DTCONTROLS.Select(oExpression).CopyToDataTable(filteredData, LoadOption.PreserveChanges)
If filteredData.Rows.Count = 1 Then
'AddHandler lookup.EditValueChanged, AddressOf onLookUp1
AddHandler lookup.SelectedValuesChanged, AddressOf onLookUp1
End If
End If
AddHandler lookup.GotFocus, Sub(sender As Control, e As EventArgs)
If DirectCast(lookup.Tag, ClassControlCreator.ControlMetadata).ReadOnly = False Then
lookup.BackColor = Color.Lime
End If
End Sub
AddHandler lookup.LostFocus, Sub(sender As Control, e As EventArgs)
If DirectCast(lookup.Tag, ClassControlCreator.ControlMetadata).ReadOnly = False Then
lookup.BackColor = Color.White
End If
End Sub
End If
Case "TABLE"

View File

@ -22,10 +22,11 @@ Partial Class frmValidator
'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(frmValidator))
Me.BarAndDockingController3 = New DevExpress.XtraBars.BarAndDockingController()
Me.BarAndDockingController2 = New DevExpress.XtraBars.BarAndDockingController()
Me.BarAndDockingController1 = New DevExpress.XtraBars.BarAndDockingController()
Me.BarAndDockingController3 = New DevExpress.XtraBars.BarAndDockingController(Me.components)
Me.BarAndDockingController2 = New DevExpress.XtraBars.BarAndDockingController(Me.components)
Me.BarAndDockingController1 = New DevExpress.XtraBars.BarAndDockingController(Me.components)
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.tstrplblError = New System.Windows.Forms.ToolStripStatusLabel()
Me.tstrlbl_Info = New System.Windows.Forms.ToolStripStatusLabel()
@ -43,17 +44,17 @@ Partial Class frmValidator
Me.TBPM_PROFILE_CONTROLSTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter()
Me.TBPM_PROFILE_FILESTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter()
Me.TBPM_PROFILETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter()
Me.VWPM_CONTROL_INDEXBindingSource = New System.Windows.Forms.BindingSource()
Me.VWPM_CONTROL_INDEXBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.VWPM_CONTROL_INDEXTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.VWPM_CONTROL_INDEXTableAdapter()
Me.TBPM_PROFILE_CONTROLSBindingSource = New System.Windows.Forms.BindingSource()
Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource()
Me.TBPM_PROFILE_FILESBindingSource = New System.Windows.Forms.BindingSource()
Me.TBPM_PROFILEBindingSource = New System.Windows.Forms.BindingSource()
Me.TBPM_KONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource()
Me.TBPM_CONTROL_TABLEBindingSource = New System.Windows.Forms.BindingSource()
Me.TBPM_PROFILE_CONTROLSBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBPM_PROFILE_FILESBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBPM_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBPM_KONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBPM_CONTROL_TABLEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.pnlpdf = New System.Windows.Forms.Panel()
Me.PdfViewer1 = New DevExpress.XtraPdfViewer.PdfViewer()
Me.BarManager1 = New DevExpress.XtraBars.BarManager()
Me.BarManager1 = New DevExpress.XtraBars.BarManager(Me.components)
Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl()
Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl()
Me.barDockControlLeft = New DevExpress.XtraBars.BarDockControl()
@ -130,9 +131,9 @@ Partial Class frmValidator
Me.ToolStripButtonDeleteFile = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButtonAnnotation = New System.Windows.Forms.ToolStripButton()
Me.FinalIndexDataSet = New DD_PM_WINDREAM.FinalIndexDataSet()
Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource = New System.Windows.Forms.BindingSource()
Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = New DD_PM_WINDREAM.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter()
Me.ToolTip1 = New System.Windows.Forms.ToolTip()
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
CType(Me.BarAndDockingController3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.BarAndDockingController2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.BarAndDockingController1, System.ComponentModel.ISupportInitialize).BeginInit()

View File

@ -435,102 +435,15 @@
<metadata name="TBPM_CONTROL_TABLEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 134</value>
</metadata>
<metadata name="StatusStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>690, 134</value>
</metadata>
<data name="pnlpdf.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Right</value>
</data>
<data name="&gt;&gt;PdfViewer1.Name" xml:space="preserve">
<value>PdfViewer1</value>
</data>
<data name="&gt;&gt;PdfViewer1.Type" xml:space="preserve">
<value>DevExpress.XtraPdfViewer.PdfViewer, DevExpress.XtraPdfViewer.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;PdfViewer1.Parent" xml:space="preserve">
<value>pnlpdf</value>
</data>
<data name="&gt;&gt;PdfViewer1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="&gt;&gt;StatusStrip2.Name" xml:space="preserve">
<value>StatusStrip2</value>
</data>
<data name="&gt;&gt;StatusStrip2.Type" xml:space="preserve">
<value>System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;StatusStrip2.Parent" xml:space="preserve">
<value>pnlpdf</value>
</data>
<data name="&gt;&gt;StatusStrip2.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="&gt;&gt;RibbonControl1.Name" xml:space="preserve">
<value>RibbonControl1</value>
</data>
<data name="&gt;&gt;RibbonControl1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;RibbonControl1.Parent" xml:space="preserve">
<value>pnlpdf</value>
</data>
<data name="&gt;&gt;RibbonControl1.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="pnlpdf.Location" type="System.Drawing.Point, System.Drawing">
<value>279, 119</value>
</data>
<data name="pnlpdf.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>3, 4, 3, 4</value>
</data>
<data name="pnlpdf.Size" type="System.Drawing.Size, System.Drawing">
<value>146, 362</value>
</data>
<data name="pnlpdf.TabIndex" type="System.Int32, mscorlib">
<value>26</value>
</data>
<data name="pnlpdf.Visible" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="&gt;&gt;pnlpdf.Name" xml:space="preserve">
<value>pnlpdf</value>
</data>
<data name="&gt;&gt;pnlpdf.Type" xml:space="preserve">
<value>System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;pnlpdf.Parent" xml:space="preserve">
<value>SplitContainer1.Panel2</value>
</data>
<data name="&gt;&gt;pnlpdf.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<metadata name="BarManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>955, 134</value>
</metadata>
<data name="PdfViewer1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="PdfViewer1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 141</value>
</data>
<data name="PdfViewer1.Size" type="System.Drawing.Size, System.Drawing">
<value>146, 199</value>
</data>
<data name="PdfViewer1.TabIndex" type="System.Int32, mscorlib">
<value>5</value>
</data>
<data name="&gt;&gt;PdfViewer1.Name" xml:space="preserve">
<value>PdfViewer1</value>
</data>
<data name="&gt;&gt;PdfViewer1.Type" xml:space="preserve">
<value>DevExpress.XtraPdfViewer.PdfViewer, DevExpress.XtraPdfViewer.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;PdfViewer1.Parent" xml:space="preserve">
<value>pnlpdf</value>
</data>
<data name="&gt;&gt;PdfViewer1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<metadata name="BarManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>955, 134</value>
</metadata>
@ -624,15 +537,30 @@
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>251</value>
</metadata>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 173</value>
</metadata>
<data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
<value>7, 17</value>
</data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>962, 643</value>
</data>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 173</value>
</metadata>
<data name="ToolStrip1.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt</value>
</data>
<data name="ToolStrip1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="ToolStrip1.Size" type="System.Drawing.Size, System.Drawing">
<value>962, 25</value>
</data>
<data name="ToolStrip1.TabIndex" type="System.Int32, mscorlib">
<value>42</value>
</data>
<data name="ToolStrip1.Text" xml:space="preserve">
<value>ToolStrip1</value>
</data>
<data name="&gt;&gt;ToolStrip1.Name" xml:space="preserve">
<value>ToolStrip1</value>
</data>
@ -645,6 +573,165 @@
<data name="&gt;&gt;ToolStrip1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="SplitContainer1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Bottom, Left, Right</value>
</data>
<data name="SplitContainer1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 28</value>
</data>
<data name="&gt;&gt;SplitContainer1.Panel1.Name" xml:space="preserve">
<value>SplitContainer1.Panel1</value>
</data>
<data name="&gt;&gt;SplitContainer1.Panel1.Type" xml:space="preserve">
<value>System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;SplitContainer1.Panel1.Parent" xml:space="preserve">
<value>SplitContainer1</value>
</data>
<data name="&gt;&gt;SplitContainer1.Panel1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="WebBrowser.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="WebBrowser.Location" type="System.Drawing.Point, System.Drawing">
<value>3, 21</value>
</data>
<data name="WebBrowser.MinimumSize" type="System.Drawing.Size, System.Drawing">
<value>20, 20</value>
</data>
<data name="WebBrowser.Size" type="System.Drawing.Size, System.Drawing">
<value>194, 54</value>
</data>
<data name="WebBrowser.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="&gt;&gt;WebBrowser.Name" xml:space="preserve">
<value>WebBrowser</value>
</data>
<data name="&gt;&gt;WebBrowser.Type" xml:space="preserve">
<value>System.Windows.Forms.WebBrowser, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;WebBrowser.Parent" xml:space="preserve">
<value>grpbxMailBody</value>
</data>
<data name="&gt;&gt;WebBrowser.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<metadata name="StatusStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1228, 134</value>
</metadata>
<data name="StatusStrip3.Location" type="System.Drawing.Point, System.Drawing">
<value>3, 75</value>
</data>
<data name="StatusStrip3.Size" type="System.Drawing.Size, System.Drawing">
<value>194, 22</value>
</data>
<data name="StatusStrip3.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="StatusStrip3.Text" xml:space="preserve">
<value>StatusStrip3</value>
</data>
<data name="&gt;&gt;StatusStrip3.Name" xml:space="preserve">
<value>StatusStrip3</value>
</data>
<data name="&gt;&gt;StatusStrip3.Type" xml:space="preserve">
<value>System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;StatusStrip3.Parent" xml:space="preserve">
<value>grpbxMailBody</value>
</data>
<data name="&gt;&gt;StatusStrip3.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="grpbxMailBody.Location" type="System.Drawing.Point, System.Drawing">
<value>249, 13</value>
</data>
<data name="grpbxMailBody.Size" type="System.Drawing.Size, System.Drawing">
<value>200, 100</value>
</data>
<data name="grpbxMailBody.TabIndex" type="System.Int32, mscorlib">
<value>33</value>
</data>
<data name="grpbxMailBody.Text" xml:space="preserve">
<value>Body:</value>
</data>
<data name="&gt;&gt;grpbxMailBody.Name" xml:space="preserve">
<value>grpbxMailBody</value>
</data>
<data name="&gt;&gt;grpbxMailBody.Type" xml:space="preserve">
<value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;grpbxMailBody.Parent" xml:space="preserve">
<value>SplitContainer1.Panel2</value>
</data>
<data name="&gt;&gt;grpbxMailBody.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="&gt;&gt;txtBetreff.Name" xml:space="preserve">
<value>txtBetreff</value>
</data>
<data name="&gt;&gt;txtBetreff.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;txtBetreff.Parent" xml:space="preserve">
<value>grpBetreff</value>
</data>
<data name="&gt;&gt;txtBetreff.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="grpBetreff.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI Semibold, 9.75pt, style=Bold, Italic</value>
</data>
<data name="grpBetreff.Location" type="System.Drawing.Point, System.Drawing">
<value>26, 19</value>
</data>
<data name="grpBetreff.Size" type="System.Drawing.Size, System.Drawing">
<value>200, 57</value>
</data>
<data name="grpBetreff.TabIndex" type="System.Int32, mscorlib">
<value>31</value>
</data>
<data name="grpBetreff.Text" xml:space="preserve">
<value>Betreff</value>
</data>
<data name="grpBetreff.Visible" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="&gt;&gt;grpBetreff.Name" xml:space="preserve">
<value>grpBetreff</value>
</data>
<data name="&gt;&gt;grpBetreff.Type" xml:space="preserve">
<value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;grpBetreff.Parent" xml:space="preserve">
<value>SplitContainer1.Panel2</value>
</data>
<data name="&gt;&gt;grpBetreff.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="&gt;&gt;SplitContainer1.Panel2.Name" xml:space="preserve">
<value>SplitContainer1.Panel2</value>
</data>
<data name="&gt;&gt;SplitContainer1.Panel2.Type" xml:space="preserve">
<value>System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;SplitContainer1.Panel2.Parent" xml:space="preserve">
<value>SplitContainer1</value>
</data>
<data name="&gt;&gt;SplitContainer1.Panel2.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="SplitContainer1.Size" type="System.Drawing.Size, System.Drawing">
<value>962, 593</value>
</data>
<data name="SplitContainer1.SplitterDistance" type="System.Int32, mscorlib">
<value>477</value>
</data>
<data name="SplitContainer1.TabIndex" type="System.Int32, mscorlib">
<value>37</value>
</data>
<data name="&gt;&gt;SplitContainer1.Name" xml:space="preserve">
<value>SplitContainer1</value>
</data>
@ -1375,14 +1462,50 @@
<data name="BarButtonItem1.Caption" xml:space="preserve">
<value>BarButtonItem1</value>
</data>
<data name="PdfViewer1.Size" type="System.Drawing.Size, System.Drawing">
<value>345, 199</value>
</data>
<data name="PdfViewer1.TabIndex" type="System.Int32, mscorlib">
<value>5</value>
</data>
<data name="&gt;&gt;PdfViewer1.Name" xml:space="preserve">
<value>PdfViewer1</value>
</data>
<data name="&gt;&gt;PdfViewer1.Type" xml:space="preserve">
<value>DevExpress.XtraPdfViewer.PdfViewer, DevExpress.XtraPdfViewer.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;PdfViewer1.Parent" xml:space="preserve">
<value>pnlpdf</value>
</data>
<data name="&gt;&gt;PdfViewer1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<metadata name="StatusStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>690, 134</value>
</metadata>
<data name="pdfstatuslblPageNumber.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI Semibold, 9pt, style=Bold, Italic</value>
</data>
<data name="pdfstatuslblPageNumber.Size" type="System.Drawing.Size, System.Drawing">
<value>139, 17</value>
</data>
<data name="pdfstatuslblPageNumber.Text" xml:space="preserve">
<value>ToolStripStatusLabel1</value>
</data>
<data name="ToolStripDropDownButton1.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripDropDownButton1.Size" type="System.Drawing.Size, System.Drawing">
<value>153, 20</value>
</data>
<data name="ToolStripDropDownButton1.Text" xml:space="preserve">
<value>Seitenansicht Minimal</value>
</data>
<data name="StatusStrip2.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 340</value>
</data>
<data name="StatusStrip2.Size" type="System.Drawing.Size, System.Drawing">
<value>146, 22</value>
<value>345, 22</value>
</data>
<data name="StatusStrip2.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
@ -1402,29 +1525,11 @@
<data name="&gt;&gt;StatusStrip2.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="pdfstatuslblPageNumber.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI Semibold, 9pt, style=Bold, Italic</value>
</data>
<data name="pdfstatuslblPageNumber.Size" type="System.Drawing.Size, System.Drawing">
<value>139, 16</value>
</data>
<data name="pdfstatuslblPageNumber.Text" xml:space="preserve">
<value>ToolStripStatusLabel1</value>
</data>
<data name="ToolStripDropDownButton1.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripDropDownButton1.Size" type="System.Drawing.Size, System.Drawing">
<value>153, 20</value>
</data>
<data name="ToolStripDropDownButton1.Text" xml:space="preserve">
<value>Seitenansicht Minimal</value>
</data>
<data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>146, 141</value>
<value>345, 141</value>
</data>
<data name="&gt;&gt;RibbonControl1.Name" xml:space="preserve">
<value>RibbonControl1</value>
@ -1438,114 +1543,45 @@
<data name="&gt;&gt;RibbonControl1.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="pnlpdf.Location" type="System.Drawing.Point, System.Drawing">
<value>80, 119</value>
</data>
<data name="pnlpdf.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>3, 4, 3, 4</value>
</data>
<data name="pnlpdf.Size" type="System.Drawing.Size, System.Drawing">
<value>345, 362</value>
</data>
<data name="pnlpdf.TabIndex" type="System.Int32, mscorlib">
<value>26</value>
</data>
<data name="pnlpdf.Visible" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="&gt;&gt;pnlpdf.Name" xml:space="preserve">
<value>pnlpdf</value>
</data>
<data name="&gt;&gt;pnlpdf.Type" xml:space="preserve">
<value>System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;pnlpdf.Parent" xml:space="preserve">
<value>SplitContainer1.Panel2</value>
</data>
<data name="&gt;&gt;pnlpdf.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<metadata name="PdfBarController1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>807, 134</value>
</metadata>
<metadata name="PdfBarController2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1080, 134</value>
</metadata>
<data name="WebBrowser.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="WebBrowser.Location" type="System.Drawing.Point, System.Drawing">
<value>3, 21</value>
</data>
<data name="WebBrowser.MinimumSize" type="System.Drawing.Size, System.Drawing">
<value>20, 20</value>
</data>
<data name="WebBrowser.Size" type="System.Drawing.Size, System.Drawing">
<value>194, 54</value>
</data>
<data name="WebBrowser.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="&gt;&gt;WebBrowser.Name" xml:space="preserve">
<value>WebBrowser</value>
</data>
<data name="&gt;&gt;WebBrowser.Type" xml:space="preserve">
<value>System.Windows.Forms.WebBrowser, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;WebBrowser.Parent" xml:space="preserve">
<value>grpbxMailBody</value>
</data>
<data name="&gt;&gt;WebBrowser.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<metadata name="StatusStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1228, 134</value>
</metadata>
<data name="StatusStrip3.Location" type="System.Drawing.Point, System.Drawing">
<value>3, 75</value>
</data>
<data name="StatusStrip3.Size" type="System.Drawing.Size, System.Drawing">
<value>194, 22</value>
</data>
<data name="StatusStrip3.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="StatusStrip3.Text" xml:space="preserve">
<value>StatusStrip3</value>
</data>
<data name="&gt;&gt;StatusStrip3.Name" xml:space="preserve">
<value>StatusStrip3</value>
</data>
<data name="&gt;&gt;StatusStrip3.Type" xml:space="preserve">
<value>System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;StatusStrip3.Parent" xml:space="preserve">
<value>grpbxMailBody</value>
</data>
<data name="&gt;&gt;StatusStrip3.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="tslblWebbrowser.Size" type="System.Drawing.Size, System.Drawing">
<value>120, 17</value>
<value>119, 17</value>
</data>
<data name="tslblWebbrowser.Text" xml:space="preserve">
<value>ToolStripStatusLabel1</value>
</data>
<data name="&gt;&gt;txtBetreff.Name" xml:space="preserve">
<value>txtBetreff</value>
</data>
<data name="&gt;&gt;txtBetreff.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;txtBetreff.Parent" xml:space="preserve">
<value>grpBetreff</value>
</data>
<data name="&gt;&gt;txtBetreff.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="grpBetreff.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI Semibold, 9.75pt, style=Bold, Italic</value>
</data>
<data name="grpBetreff.Location" type="System.Drawing.Point, System.Drawing">
<value>26, 19</value>
</data>
<data name="grpBetreff.Size" type="System.Drawing.Size, System.Drawing">
<value>200, 57</value>
</data>
<data name="grpBetreff.TabIndex" type="System.Int32, mscorlib">
<value>31</value>
</data>
<data name="grpBetreff.Text" xml:space="preserve">
<value>Betreff</value>
</data>
<data name="grpBetreff.Visible" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="&gt;&gt;grpBetreff.Name" xml:space="preserve">
<value>grpBetreff</value>
</data>
<data name="&gt;&gt;grpBetreff.Type" xml:space="preserve">
<value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;grpBetreff.Parent" xml:space="preserve">
<value>SplitContainer1.Panel2</value>
</data>
<data name="&gt;&gt;grpBetreff.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="txtBetreff.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
@ -1573,138 +1609,6 @@
<data name="&gt;&gt;txtBetreff.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="SplitContainer1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Bottom, Left, Right</value>
</data>
<data name="SplitContainer1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 28</value>
</data>
<data name="&gt;&gt;SplitContainer1.Panel1.Name" xml:space="preserve">
<value>SplitContainer1.Panel1</value>
</data>
<data name="&gt;&gt;SplitContainer1.Panel1.Type" xml:space="preserve">
<value>System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;SplitContainer1.Panel1.Parent" xml:space="preserve">
<value>SplitContainer1</value>
</data>
<data name="&gt;&gt;SplitContainer1.Panel1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<metadata name="StatusStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1228, 134</value>
</metadata>
<data name="&gt;&gt;WebBrowser.Name" xml:space="preserve">
<value>WebBrowser</value>
</data>
<data name="&gt;&gt;WebBrowser.Type" xml:space="preserve">
<value>System.Windows.Forms.WebBrowser, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;WebBrowser.Parent" xml:space="preserve">
<value>grpbxMailBody</value>
</data>
<data name="&gt;&gt;WebBrowser.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="&gt;&gt;StatusStrip3.Name" xml:space="preserve">
<value>StatusStrip3</value>
</data>
<data name="&gt;&gt;StatusStrip3.Type" xml:space="preserve">
<value>System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;StatusStrip3.Parent" xml:space="preserve">
<value>grpbxMailBody</value>
</data>
<data name="&gt;&gt;StatusStrip3.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="grpbxMailBody.Location" type="System.Drawing.Point, System.Drawing">
<value>29, 102</value>
</data>
<data name="grpbxMailBody.Size" type="System.Drawing.Size, System.Drawing">
<value>200, 100</value>
</data>
<data name="grpbxMailBody.TabIndex" type="System.Int32, mscorlib">
<value>33</value>
</data>
<data name="grpbxMailBody.Text" xml:space="preserve">
<value>Body:</value>
</data>
<data name="&gt;&gt;grpbxMailBody.Name" xml:space="preserve">
<value>grpbxMailBody</value>
</data>
<data name="&gt;&gt;grpbxMailBody.Type" xml:space="preserve">
<value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;grpbxMailBody.Parent" xml:space="preserve">
<value>SplitContainer1.Panel2</value>
</data>
<data name="&gt;&gt;grpbxMailBody.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="&gt;&gt;SplitContainer1.Panel2.Name" xml:space="preserve">
<value>SplitContainer1.Panel2</value>
</data>
<data name="&gt;&gt;SplitContainer1.Panel2.Type" xml:space="preserve">
<value>System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;SplitContainer1.Panel2.Parent" xml:space="preserve">
<value>SplitContainer1</value>
</data>
<data name="&gt;&gt;SplitContainer1.Panel2.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="SplitContainer1.Size" type="System.Drawing.Size, System.Drawing">
<value>962, 593</value>
</data>
<data name="SplitContainer1.SplitterDistance" type="System.Int32, mscorlib">
<value>477</value>
</data>
<data name="SplitContainer1.TabIndex" type="System.Int32, mscorlib">
<value>37</value>
</data>
<data name="&gt;&gt;SplitContainer1.Name" xml:space="preserve">
<value>SplitContainer1</value>
</data>
<data name="&gt;&gt;SplitContainer1.Type" xml:space="preserve">
<value>System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;SplitContainer1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;SplitContainer1.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 173</value>
</metadata>
<data name="ToolStrip1.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt</value>
</data>
<data name="ToolStrip1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="ToolStrip1.Size" type="System.Drawing.Size, System.Drawing">
<value>962, 25</value>
</data>
<data name="ToolStrip1.TabIndex" type="System.Int32, mscorlib">
<value>42</value>
</data>
<data name="ToolStrip1.Text" xml:space="preserve">
<value>ToolStrip1</value>
</data>
<data name="&gt;&gt;ToolStrip1.Name" xml:space="preserve">
<value>ToolStrip1</value>
</data>
<data name="&gt;&gt;ToolStrip1.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;ToolStrip1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;ToolStrip1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="ToolStripDropDownButton2.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>

View File

@ -308,7 +308,6 @@ Public Class frmValidator
me_closing = False
pdfxchange = False
sumatra = False
RibbonControl1.Minimized = True
FormLoaded = False
@ -823,38 +822,49 @@ Public Class frmValidator
Case "LOOKUP"
LOGGER.Debug("Versuch LOOKUP zu laden")
Dim lookup As LookupControl2 = ClassControlCreator.CreateExistingLookupControl(oControlRow, False)
lookup.PreventDuplicates = oControlRow.Item("VKT_PREVENT_MULTIPLE_VALUES")
lookup.AllowAddNewValues = oControlRow.Item("VKT_ADD_ITEM")
lookup.MultiSelect = oControlRow.Item("MULTISELECT")
Dim oMultiselect = oControlRow.Item("MULTISELECT")
Dim oReadonly = oControlRow.Item("READ_ONLY")
If NotNull(oControlRow.Item("DEFAULT_VALUE"), "") <> "" Then
lookup.SelectedValues = New List(Of String) From {oControlRow.Item("DEFAULT_VALUE")}
End If
If oMultiselect = False And oReadonly = True Then
Dim lookupReadonly = ClassControlCreator.CreateExistingTextbox(oControlRow, False)
oMyControl = lookupReadonly
Else
Dim lookup As LookupControl2 = ClassControlCreator.CreateExistingLookupControl(oControlRow, False)
oMyControl = lookup
'Wenn Multiselect false dann prüfen ob abhängiges Control
If CBool(oControlRow.Item("MULTISELECT")) = False Then
Dim filteredData As DataTable = DTCONTROLS.Clone()
Dim oExpression = $"SQL_UEBERPRUEFUNG like '%#CTRL#{oMyControl.Name}%'"
DTCONTROLS.Select(oExpression).CopyToDataTable(filteredData, LoadOption.PreserveChanges)
If filteredData.Rows.Count = 1 Then
'AddHandler lookup.EditValueChanged, AddressOf onLookUp1
AddHandler lookup.SelectedValuesChanged, AddressOf onLookUp1
lookup.PreventDuplicates = oControlRow.Item("VKT_PREVENT_MULTIPLE_VALUES")
lookup.AllowAddNewValues = oControlRow.Item("VKT_ADD_ITEM")
lookup.MultiSelect = oMultiselect
If NotNull(oControlRow.Item("DEFAULT_VALUE"), "") <> "" Then
lookup.SelectedValues = New List(Of String) From {oControlRow.Item("DEFAULT_VALUE")}
End If
oMyControl = lookup
'Wenn Multiselect false dann prüfen ob abhängiges Control
If CBool(oControlRow.Item("MULTISELECT")) = False Then
Dim filteredData As DataTable = DTCONTROLS.Clone()
Dim oExpression = $"SQL_UEBERPRUEFUNG like '%#CTRL#{oMyControl.Name}%'"
DTCONTROLS.Select(oExpression).CopyToDataTable(filteredData, LoadOption.PreserveChanges)
If filteredData.Rows.Count = 1 Then
'AddHandler lookup.EditValueChanged, AddressOf onLookUp1
AddHandler lookup.SelectedValuesChanged, AddressOf onLookUp1
End If
End If
AddHandler lookup.GotFocus, Sub(sender As Control, e As EventArgs)
If DirectCast(lookup.Tag, ClassControlCreator.ControlMetadata).ReadOnly = False Then
lookup.BackColor = Color.Lime
End If
End Sub
AddHandler lookup.LostFocus, Sub(sender As Control, e As EventArgs)
If DirectCast(lookup.Tag, ClassControlCreator.ControlMetadata).ReadOnly = False Then
lookup.BackColor = Color.White
End If
End Sub
End If
AddHandler lookup.GotFocus, Sub(sender As Control, e As EventArgs)
If DirectCast(lookup.Tag, ClassControlCreator.ControlMetadata).ReadOnly = False Then
lookup.BackColor = Color.Lime
End If
End Sub
AddHandler lookup.LostFocus, Sub(sender As Control, e As EventArgs)
If DirectCast(lookup.Tag, ClassControlCreator.ControlMetadata).ReadOnly = False Then
lookup.BackColor = Color.White
End If
End Sub
'Return filteredData
'AddHandler lookup.Leave, AddressOf onLookUp0
@ -870,7 +880,26 @@ Public Class frmValidator
Where r.CONTROL_ID = oControlRow.Item("GUID")
Select r).ToList()
oMyControl = ClassControlCreator.CreateExistingGridControl(oControlRow, columns, False)
Dim oGrid = ClassControlCreator.CreateExistingGridControl(oControlRow, columns, False)
AddHandler oGrid.ProcessGridKey, Sub(ByVal _sender As Object, ByVal e As KeyEventArgs)
If e.KeyCode = Keys.Tab Then
Dim gridControl = TryCast(_sender, GridControl)
Dim view = TryCast(gridControl.FocusedView, Views.Base.ColumnView)
If (e.Modifiers = Keys.None And view.IsNewItemRow(view.FocusedRowHandle) And view.FocusedColumn.VisibleIndex = view.VisibleColumns.Count - 1) Then
If view.IsEditing Then
view.CloseEditor()
Me.SelectNextControl(gridControl, e.Modifiers = Keys.None, True, True, True)
e.Handled = True
End If
End If
End If
End Sub
oMyControl = oGrid
Case "LINE"
LOGGER.Debug("Versuch Linie zu laden")
@ -3966,13 +3995,6 @@ Public Class frmValidator
PdfViewer1.ZoomFactor = 20
End Sub
Private Sub PdfViewer1_ZoomChanged(sender As Object, e As DevExpress.XtraPdfViewer.PdfZoomChangedEventArgs) Handles PdfViewer1.ZoomChanged
'SaveMySettingsValue("PDFViewer_ZoomMode", PdfViewer1.ZoomFactor)
VIEWER_ZOOM_LEVEL = PdfViewer1.ZoomFactor
CONFIG.Config.PDFViewerZoomLevel = VIEWER_ZOOM_LEVEL
CONFIG.Save()
End Sub
Private Sub ToolStripDropDownButton1_Click(sender As Object, e As EventArgs) Handles ToolStripDropDownButton1.Click
PdfViewer1.ZoomFactor = 20
End Sub