AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS1003

Browse Source
This commit is contained in:
SchreiberM
2017-03-10 11:52:55 +01:00
parent b623a129f5
commit 701f303176
15 changed files with 300 additions and 250 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
app/DD-Record-Organizer/ClassWorkflow.vb Normal file
View File

@@ -0,0 +1,11 @@
Public Class ClassWorkflow
Public Shared Sub Refresh_Workflows_Entity()
Dim sql = String.Format("SELECT WF_TASK_ID, WF_ID, dbo.FNPMO_GETOBJECTCAPTION('{0}', 'TASK_TITLE' + CONVERT(VARCHAR(5), WF_ID), 1) AS WF_TITLE, RECORD_ID, STATE_ID, " & _
"dbo.FNPMO_GETOBJECTCAPTION('{0}', 'WF_STATE_TITLE' + CONVERT(VARCHAR(5), STATE_ID), 1) AS STATE_TITLE, FORM_VIEW_ID, ENTITY_ID, " & _
"dbo.FNPMO_GETOBJECTCAPTION('{0}', 'FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), 1) AS 'ENTITY_TITLE', COMMENT, DUE_DATE, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE, FINAL, COLOR, " & _
"'{1}' AS USERNAME, dbo.FNPMO_GET_ENTITY_COLUMN_CONTENT(RECORD_ID) AS RECORD_DESCRIPTION, DESCRIPTION, RECORD_DESCRIPTION AS Expr1, FINISHED, MANUALLY, " & _
"CREATE_ON_REC_CREATE, CREATE_ON_FOLL_UP FROM VWPMO_WF_ACTIVE AS T", USER_LANGUAGE, USER_USERNAME)
CURRENT_VWPMO_WF_ACTIVE = ClassDatabase.Return_Datatable(sql, True)
End Sub
End Class

1
app/DD-Record-Organizer/DD-Record-Organizer.vbproj
View File

@@ -275,6 +275,7 @@
<Compile Include="ClassDOC_SEARCH.vb" />
<Compile Include="ClassWDRights.vb" />
<Compile Include="ClassWindreamDocGrid.vb" />
<Compile Include="ClassWorkflow.vb" />
<Compile Include="DD_DMSDataSet.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>

54
app/DD-Record-Organizer/DD_DMSDataSet.xss
View File

@@ -4,16 +4,16 @@
Changes to this file may cause incorrect behavior and will be lost if
the code is regenerated.
</autogenerated>-->
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="-47" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="803" ViewPortY="-21" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<Shapes>
<Shape ID="DesignTable:TBPMO_FORM" ZOrder="30" X="389" Y="366" Height="286" Width="229" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
<Shape ID="DesignTable:VWPMO_CONTROL_SCREEN" ZOrder="11" X="78" Y="352" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBPMO_FORM_VIEW" ZOrder="2" X="492" Y="68" Height="324" Width="265" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:VWPMO_CONTROL_SCREEN" ZOrder="12" X="78" Y="352" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBPMO_FORM_VIEW" ZOrder="3" X="492" Y="69" Height="324" Width="265" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBPMO_RECORD" ZOrder="55" X="875" Y="408" Height="172" Width="242" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="121" />
<Shape ID="DesignTable:VWPMO_DOKUMENTTYPES" ZOrder="9" X="556" Y="357" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:VWPMO_DOKUMENTTYPES" ZOrder="10" X="556" Y="357" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:TBPMO_WD_FVIEW_DT_INDEX" ZOrder="71" X="819" Y="147" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBPMO_WORKFLOW_TASK" ZOrder="54" X="603" Y="718" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
<Shape ID="DesignTable:TBPMO_WORKFLOW_TASK_STATE" ZOrder="23" X="950" Y="736" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:TBPMO_WORKFLOW_TASK_STATE" ZOrder="24" X="950" Y="736" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:VWPMO_GUI_ENTITY" ZOrder="51" X="395" Y="443" Height="134" Width="207" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="83" />
<Shape ID="DesignTable:TBPMO_WORKFLOW" ZOrder="25" X="192" Y="678" Height="210" Width="266" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:VWPMO_WF_OVERVIEW_AUTHORITY" ZOrder="53" X="877" Y="44" Height="210" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
@@ -22,14 +22,14 @@
<Shape ID="DesignTable:TBDD_INDEX_AUTOM" ZOrder="46" X="1687" Y="332" Height="282" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="192" />
<Shape ID="DesignTable:TBPMO_WD_FORMVIEW_DOKTYPES" ZOrder="69" X="427" Y="-11" Height="287" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:TBPMO_KONFIGURATION" ZOrder="65" X="1644" Y="247" Height="168" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="78" />
<Shape ID="DesignTable:TBDD_USER" ZOrder="12" X="1632" Y="12" Height="243" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="59" />
<Shape ID="DesignTable:TBDD_USER" ZOrder="13" X="1632" Y="12" Height="243" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="59" />
<Shape ID="DesignTable:TBPMO_FORM_TYPE" ZOrder="64" X="1357" Y="80" Height="191" Width="263" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="140" />
<Shape ID="DesignTable:TBDD_USER_GROUPS" ZOrder="19" X="842" Y="-46" Height="168" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="78" />
<Shape ID="DesignTable:TBDD_USER_GROUPS" ZOrder="20" X="842" Y="-46" Height="168" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="78" />
<Shape ID="DesignTable:VWPMO_USERS_GROUPS" ZOrder="62" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBDD_GROUPS_USER" ZOrder="33" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBWH_DOKART_MODULE" ZOrder="61" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPMO_FORM_CONSTRUCTOR" ZOrder="5" X="1185" Y="-27" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:TBPMO_WD_OBJECTTYPE" ZOrder="1" X="-1" Y="1" Height="229" Width="293" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBPMO_FORM_CONSTRUCTOR" ZOrder="6" X="1185" Y="-27" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:TBPMO_WD_OBJECTTYPE" ZOrder="2" X="-1" Y="1" Height="229" Width="293" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBPMO_FOLLOW_UP_EMAIL" ZOrder="35" X="903" Y="388" Height="204" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="136" />
<Shape ID="DesignTable:TBPMO_FOLLUPEMAIL_USER" ZOrder="58" X="59" Y="77" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPMO_RECORD_LOG_CONFIG" ZOrder="52" X="1128" Y="408" Height="300" Width="235" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="232" />
@@ -42,21 +42,21 @@
<Shape ID="DesignTable:TBPMO_TEMPLATE_ENTITY" ZOrder="44" X="2068" Y="300" Height="191" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="140" />
<Shape ID="DesignTable:TBPMO_TEMPLATE_PATTERN" ZOrder="41" X="2348" Y="521" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
<Shape ID="DesignTable:TBTEMP_QUICKDISPLAY" ZOrder="39" X="2117" Y="51" Height="115" Width="210" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" />
<Shape ID="DesignTable:TBPMO_LANGUAGE_OBJECT" ZOrder="4" X="1161" Y="308" Height="267" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
<Shape ID="DesignTable:TBPMO_LANGUAGE_OBJECT" ZOrder="5" X="1161" Y="308" Height="267" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
<Shape ID="DesignTable:TBDD_CLIENT" ZOrder="34" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPMO_CONSTRUCTOR_USER_SQL" ZOrder="27" X="258" Y="41" Height="280" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="212" />
<Shape ID="DesignTable:TBPMO_WD_IMPORT_PROFILE" ZOrder="32" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPMO_WD_IMPORT_PROFILE_IDX" ZOrder="29" X="1895" Y="934" Height="267" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="216" />
<Shape ID="DesignTable:VWPMO_WF_ACTIVE" ZOrder="24" X="1910" Y="509" Height="357" Width="378" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="270" />
<Shape ID="DesignTable:TBPMO_RIGHT_GROUP" ZOrder="22" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPMO_WD_NAMECONVENTION_FORMAT" ZOrder="18" X="0" Y="0" Height="90" Width="247" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPMO_STRUCTURE_NODES_CONFIGURATION" ZOrder="10" X="64" Y="2" Height="359" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="289" />
<Shape ID="DesignTable:TBWH_ENTITY" ZOrder="17" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPMO_WORKFLOW_TASK_HISTORY" ZOrder="16" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:VWPMO_RIGHTS_2B_WORKED" ZOrder="13" X="2579" Y="410" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBPMO_RIGHT_USER" ZOrder="8" X="23" Y="353" Height="305" Width="267" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBPMO_RECORD_VARIANT" ZOrder="7" X="653" Y="1140" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBPMO_APPOINTMENTS" ZOrder="3" X="1807" Y="62" Height="305" Width="290" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:VWPMO_WF_ACTIVE" ZOrder="1" X="1910" Y="509" Height="357" Width="378" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="270" />
<Shape ID="DesignTable:TBPMO_RIGHT_GROUP" ZOrder="23" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPMO_WD_NAMECONVENTION_FORMAT" ZOrder="19" X="0" Y="0" Height="90" Width="247" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPMO_STRUCTURE_NODES_CONFIGURATION" ZOrder="11" X="64" Y="2" Height="359" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="289" />
<Shape ID="DesignTable:TBWH_ENTITY" ZOrder="18" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPMO_WORKFLOW_TASK_HISTORY" ZOrder="17" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:VWPMO_RIGHTS_2B_WORKED" ZOrder="14" X="2579" Y="410" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBPMO_RIGHT_USER" ZOrder="9" X="23" Y="353" Height="305" Width="267" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBPMO_RECORD_VARIANT" ZOrder="8" X="653" Y="1140" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBPMO_APPOINTMENTS" ZOrder="4" X="1807" Y="62" Height="305" Width="290" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
</Shapes>
<Connectors>
<Connector ID="DesignRelation:FK_TBPMO_FORM_VIEW_FORM_ID" ZOrder="72" LineWidth="11">
@@ -67,11 +67,11 @@
</Point>
<Point>
<X>437</X>
<Y>340</Y>
<Y>341</Y>
</Point>
<Point>
<X>492</X>
<Y>340</Y>
<Y>341</Y>
</Point>
</RoutePoints>
</Connector>
@@ -291,7 +291,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBPMO_RIGHT_GROUP_ENTITY_ID" ZOrder="21" LineWidth="11">
<Connector ID="DesignRelation:FK_TBPMO_RIGHT_GROUP_ENTITY_ID" ZOrder="22" LineWidth="11">
<RoutePoints>
<Point>
<X>22</X>
@@ -311,7 +311,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBPMO_RIGHT_GROUP_GROUP_ID" ZOrder="20" LineWidth="11">
<Connector ID="DesignRelation:FK_TBPMO_RIGHT_GROUP_GROUP_ID" ZOrder="21" LineWidth="11">
<RoutePoints>
<Point>
<X>14</X>
@@ -331,7 +331,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBPMO_STRUCTURE_NODES_CONFIGURATION_ENTITY_ID" ZOrder="15" LineWidth="11">
<Connector ID="DesignRelation:FK_TBPMO_STRUCTURE_NODES_CONFIGURATION_ENTITY_ID" ZOrder="16" LineWidth="11">
<RoutePoints>
<Point>
<X>389</X>
@@ -347,7 +347,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBPMO_FORM_VIEW_FORM_ID1" ZOrder="14" LineWidth="11">
<Connector ID="DesignRelation:FK_TBPMO_FORM_VIEW_FORM_ID1" ZOrder="15" LineWidth="11">
<RoutePoints>
<Point>
<X>158</X>
@@ -367,7 +367,7 @@
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBPMO_RECORD_VARIANT_RECORD_ID" ZOrder="6" LineWidth="11">
<Connector ID="DesignRelation:FK_TBPMO_RECORD_VARIANT_RECORD_ID" ZOrder="7" LineWidth="11">
<RoutePoints>
<Point>
<X>961</X>

2
app/DD-Record-Organizer/ModuleRuntimeVariables.vb
View File

@@ -108,6 +108,8 @@
Public CURRENT_DOC_DROPDOWN As DataTable
Public CURRENT_PARENT_DT As DataTable
Public CURRENT_VWPMO_WF_ACTIVE As DataTable
Public CURRENT_TBPMO_FILES_USER As DataTable
Public CURRENT_SEARCH_TYPE As String = "RECORD"

21
app/DD-Record-Organizer/frmConstructor_Main.Designer.vb generated
View File

@@ -219,10 +219,7 @@ Partial Class frmConstructor_Main
Me.cmsrpContainer = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ChangeHidepanelToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.VWPMO_WF_USER_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.VWPMO_WF_USER_ACTIVETableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter()
Me.TableAdapterManager = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager()
Me.VWPMO_WF_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.VWPMO_WF_ACTIVETableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter()
Me.ToolTipController = New DevExpress.Utils.ToolTipController(Me.components)
Me.TBPMO_RECORD_VARIANTTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_RECORD_VARIANTTableAdapter()
Me.TimerClearResultfiles = New System.Windows.Forms.Timer(Me.components)
@@ -272,7 +269,6 @@ Partial Class frmConstructor_Main
CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.cmsrpContainer.SuspendLayout()
CType(Me.VWPMO_WF_USER_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'SplitContainerMain
@@ -1526,10 +1522,6 @@ Partial Class frmConstructor_Main
Me.ChangeHidepanelToolStripMenuItem.Name = "ChangeHidepanelToolStripMenuItem"
resources.ApplyResources(Me.ChangeHidepanelToolStripMenuItem, "ChangeHidepanelToolStripMenuItem")
'
'VWPMO_WF_USER_ACTIVETableAdapter
'
Me.VWPMO_WF_USER_ACTIVETableAdapter.ClearBeforeFill = True
'
'TableAdapterManager
'
Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
@@ -1572,15 +1564,6 @@ Partial Class frmConstructor_Main
Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing
Me.TableAdapterManager.UpdateOrder = DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
'
'VWPMO_WF_ACTIVEBindingSource
'
Me.VWPMO_WF_ACTIVEBindingSource.DataMember = "VWPMO_WF_ACTIVE"
Me.VWPMO_WF_ACTIVEBindingSource.DataSource = Me.DD_DMSDataSet
'
'VWPMO_WF_ACTIVETableAdapter
'
Me.VWPMO_WF_ACTIVETableAdapter.ClearBeforeFill = True
'
'TBPMO_RECORD_VARIANTTableAdapter
'
Me.TBPMO_RECORD_VARIANTTableAdapter.ClearBeforeFill = True
@@ -1658,7 +1641,6 @@ Partial Class frmConstructor_Main
CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).EndInit()
Me.cmsrpContainer.ResumeLayout(False)
CType(Me.VWPMO_WF_USER_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -1715,10 +1697,7 @@ Partial Class frmConstructor_Main
Friend WithEvents ContextMenuDetails As System.Windows.Forms.ContextMenuStrip
Friend WithEvents DD_DMSDataSet As DD_Record_Organizer.DD_DMSDataSet
Friend WithEvents VWPMO_WF_USER_ACTIVEBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents VWPMO_WF_USER_ACTIVETableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter
Friend WithEvents TableAdapterManager As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager
Friend WithEvents VWPMO_WF_ACTIVEBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents VWPMO_WF_ACTIVETableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter
Friend WithEvents cmsTreeView As System.Windows.Forms.ContextMenuStrip
Friend WithEvents ResetEbenenAuswahlToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents tsslblWorkflowstate As System.Windows.Forms.ToolStripStatusLabel

65
app/DD-Record-Organizer/frmConstructor_Main.resx
View File

@@ -501,7 +501,7 @@
<value>Detail-Ansicht Datensatz</value>
</data>
<data name="ContextMenuGrid.Size" type="System.Drawing.Size, System.Drawing">
<value>252, 270</value>
<value>252, 292</value>
</data>
<data name="&gt;&gt;ContextMenuGrid.Name" xml:space="preserve">
<value>ContextMenuGrid</value>
@@ -525,7 +525,7 @@
<value>0, 25</value>
</data>
<data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing">
<value>1067, 212</value>
<value>1074, 212</value>
</data>
<data name="GridControlMain.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@@ -665,7 +665,7 @@
<value>0, 0</value>
</data>
<data name="ToolStripRecords.Size" type="System.Drawing.Size, System.Drawing">
<value>1067, 25</value>
<value>1074, 25</value>
</data>
<data name="ToolStripRecords.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@@ -749,7 +749,7 @@
<value>0, 0</value>
</data>
<data name="pnlDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>786, 336</value>
<value>786, 343</value>
</data>
<data name="pnlDetails.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@@ -779,7 +779,7 @@
<value>0, 26</value>
</data>
<data name="pnlDocFill.Size" type="System.Drawing.Size, System.Drawing">
<value>554, 286</value>
<value>561, 293</value>
</data>
<data name="pnlDocFill.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
@@ -826,10 +826,10 @@
<value>Ansicht eingeschränkt - Klick Bearbeiten für Entsperren</value>
</data>
<data name="statStripDoc.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 312</value>
<value>0, 319</value>
</data>
<data name="statStripDoc.Size" type="System.Drawing.Size, System.Drawing">
<value>554, 24</value>
<value>561, 24</value>
</data>
<data name="statStripDoc.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@@ -856,7 +856,7 @@
<value>0, 0</value>
</data>
<data name="pnlDocToolStrip.Size" type="System.Drawing.Size, System.Drawing">
<value>554, 26</value>
<value>561, 26</value>
</data>
<data name="pnlDocToolStrip.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@@ -877,7 +877,7 @@
<value>Panel2</value>
</data>
<data name="SplitContainerDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 340</value>
<value>1356, 347</value>
</data>
<data name="SplitContainerDetails.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
@@ -1050,7 +1050,7 @@
<value>1</value>
</data>
<data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 365</value>
<value>1356, 372</value>
</data>
<data name="TabDetails.Text" xml:space="preserve">
<value>Detailansicht</value>
@@ -1068,7 +1068,7 @@
<value>0</value>
</data>
<data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1362, 396</value>
<value>1362, 403</value>
</data>
<data name="TCDetails.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
@@ -1083,7 +1083,7 @@
<value>Cyan</value>
</data>
<data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 340</value>
<value>1356, 347</value>
</data>
<data name="GridControlPos.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@@ -1107,7 +1107,7 @@
<value>0, 25</value>
</data>
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 340</value>
<value>1356, 347</value>
</data>
<data name="Panel1.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
@@ -1361,7 +1361,7 @@
</value>
</data>
<data name="TabPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 365</value>
<value>1356, 372</value>
</data>
<data name="TabPos.Text" xml:space="preserve">
<value>Positionen</value>
@@ -1423,7 +1423,7 @@
<value>Aqua</value>
</data>
<data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 340</value>
<value>1356, 347</value>
</data>
<data name="GridControlDocSearch.TabIndex" type="System.Int32, mscorlib">
<value>7</value>
@@ -1525,7 +1525,7 @@
<value>1</value>
</data>
<data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 365</value>
<value>1356, 372</value>
</data>
<data name="TabWindream.Text" xml:space="preserve">
<value>Dateien</value>
@@ -1956,7 +1956,7 @@
<value>2</value>
</data>
<data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 365</value>
<value>1356, 372</value>
</data>
<data name="TabFollowUp.Text" xml:space="preserve">
<value>Wiedervorlage</value>
@@ -2067,7 +2067,7 @@
<value>5</value>
</data>
<data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 340</value>
<value>1356, 347</value>
</data>
<data name="GridControl1.TabIndex" type="System.Int32, mscorlib">
<value>90</value>
@@ -2139,7 +2139,7 @@
<value>1</value>
</data>
<data name="TabPageVariant.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 365</value>
<value>1356, 372</value>
</data>
<data name="TabPageVariant.Text" xml:space="preserve">
<value>Vorgängervarianten</value>
@@ -2611,18 +2611,9 @@
<metadata name="VWPMO_WF_USER_ACTIVEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
</metadata>
<metadata name="VWPMO_WF_USER_ACTIVETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>295, 56</value>
</metadata>
<metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>567, 56</value>
</metadata>
<metadata name="VWPMO_WF_ACTIVEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>740, 56</value>
</metadata>
<metadata name="VWPMO_WF_ACTIVETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>984, 56</value>
</metadata>
<metadata name="ToolTipController.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1283, 17</value>
</metadata>
@@ -3975,30 +3966,12 @@
<data name="&gt;&gt;VWPMO_WF_USER_ACTIVEBindingSource.Type" xml:space="preserve">
<value>System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;VWPMO_WF_USER_ACTIVETableAdapter.Name" xml:space="preserve">
<value>VWPMO_WF_USER_ACTIVETableAdapter</value>
</data>
<data name="&gt;&gt;VWPMO_WF_USER_ACTIVETableAdapter.Type" xml:space="preserve">
<value>DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
</data>
<data name="&gt;&gt;TableAdapterManager.Name" xml:space="preserve">
<value>TableAdapterManager</value>
</data>
<data name="&gt;&gt;TableAdapterManager.Type" xml:space="preserve">
<value>DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
</data>
<data name="&gt;&gt;VWPMO_WF_ACTIVEBindingSource.Name" xml:space="preserve">
<value>VWPMO_WF_ACTIVEBindingSource</value>
</data>
<data name="&gt;&gt;VWPMO_WF_ACTIVEBindingSource.Type" xml:space="preserve">
<value>System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;VWPMO_WF_ACTIVETableAdapter.Name" xml:space="preserve">
<value>VWPMO_WF_ACTIVETableAdapter</value>
</data>
<data name="&gt;&gt;VWPMO_WF_ACTIVETableAdapter.Type" xml:space="preserve">
<value>DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
</data>
<data name="&gt;&gt;ToolTipController.Name" xml:space="preserve">
<value>ToolTipController</value>
</data>

13
app/DD-Record-Organizer/frmConstructor_Main.vb
View File

@@ -279,8 +279,7 @@ Public Class frmConstructor_Main
ClassWindowLocation.LoadFormLocationSize(Me, CONSTRUCTORID, CURRENT_SCREEN_ID, "CONSTRUCTOR_MAIN")
' VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
'Me.VWPMO_WF_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
'VWPMO_WF_ACTIVETableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, USER_LANGUAGE, USER_USERNAME)
ClassWorkflow.Refresh_Workflows_Entity()
SQL = String.Format("SELECT *, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " & _
"FROM VWPMO_CONSTRUCTOR_FORMS WHERE SCREEN_ID = {2} AND CONSTRUCT_ID = {3} ORDER BY SEQUENCE", USER_LANGUAGE, CURRENT_SCREEN_ID, CURRENT_SCREEN_ID, CONSTRUCTORID)
@@ -4408,23 +4407,22 @@ Public Class frmConstructor_Main
End Sub
Sub Show_act_WFTask()
Try
Dim query = From table In DD_DMSDataSet.VWPMO_WF_ACTIVE.AsEnumerable()
Dim query = From table In CURRENT_VWPMO_WF_ACTIVE.AsEnumerable()
Select table Where table.Item("ENTITY_ID") = ENTITY_ID
Dim Entity_rows = query.ToList()
If Entity_rows.Count > 0 Then
tsButtonShowTaskOverview.Visible = True
tsButtonShowTaskOverview.Enabled = True
If _MANUAL_WORKFLOW = True Then
CreateWorkflowtaskstsmi.Enabled = True
End If
tsslblWorkflowstate.Visible = True
Else
tsButtonShowTaskOverview.Visible = False
CreateWorkflowtaskstsmi.Enabled = False
tsslblWorkflowstate.Visible = False
End If
tsButtonShowTaskOverview.Visible = False
For Each _row In Entity_rows
If _row.Item("RECORD_ID") = RECORD_ID Then
tsButtonShowTaskOverview.Visible = True
CURRENT_TASK_ID = _row.Item("WF_TASK_ID")
Dim text = "Task: " & _row.Item("WF_TITLE")
text += " - " & _row.Item("STATE_TITLE")
@@ -5903,7 +5901,7 @@ Public Class frmConstructor_Main
CURRENT_ENTITY_ID = ENTITY_ID
Dim sql = "EXEC PRPMO_CREATE_WF_TASKS " & CURRENT_ENTITY_ID & ", " & RECORD_ID
If ClassDatabase.Execute_non_Query(sql) = True Then
' VWPMO_WF_ACTIVETableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, USER_LANGUAGE, USER_USERNAME)
ClassWorkflow.Refresh_Workflows_Entity()
Show_act_WFTask()
If USER_LANGUAGE = "de-DE" Then
stg = "Workflows erzeugt! Wollen Sie die Workflowübersicht nun anzeigen?"
@@ -5915,6 +5913,7 @@ Public Class frmConstructor_Main
result = MessageBox.Show(stg, caption, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
ClassJumpRecord.JumpToRecord(2, RECORD_ID)
ClassWorkflow.Refresh_Workflows_Entity()
JUMP_RECORD_ID = 0
End If
Else

43
app/DD-Record-Organizer/frmRecordView.Designer.vb generated
View File

@@ -82,8 +82,6 @@ Partial Class frmRecordView
Me.tslblWindreamView = New System.Windows.Forms.ToolStripLabel()
Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage()
Me.txtStateActual = New System.Windows.Forms.TextBox()
Me.VWPMO_WF_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.DD_DMSDataSet = New DD_Record_Organizer.DD_DMSDataSet()
Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPage3 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControlUsersSelection = New DevExpress.XtraGrid.GridControl()
@@ -104,6 +102,7 @@ Partial Class frmRecordView
Me.XtraTabPage4 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
Me.TBPMO_WORKFLOW_TASK_HISTORYBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.DD_DMSDataSet = New DD_Record_Organizer.DD_DMSDataSet()
Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colSTATE_DESC = New DevExpress.XtraGrid.Columns.GridColumn()
@@ -124,7 +123,6 @@ Partial Class frmRecordView
Me.STATE_IDComboBox = New System.Windows.Forms.ComboBox()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.VWPMO_WF_ACTIVETableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter()
Me.TableAdapterManager = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager()
Me.TBPMO_WORKFLOW_TASK_HISTORYTableAdapter = New DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_TASK_HISTORYTableAdapter()
Label1 = New System.Windows.Forms.Label()
@@ -161,8 +159,6 @@ Partial Class frmRecordView
CType(Me.GridViewDoc_Search, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStrip2.SuspendLayout()
Me.XtraTabPage1.SuspendLayout()
CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControl1.SuspendLayout()
Me.XtraTabPage3.SuspendLayout()
@@ -173,6 +169,7 @@ Partial Class frmRecordView
Me.XtraTabPage4.SuspendLayout()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPMO_WORKFLOW_TASK_HISTORYBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
@@ -226,6 +223,7 @@ Partial Class frmRecordView
'STATE_IDLabel
'
resources.ApplyResources(STATE_IDLabel, "STATE_IDLabel")
STATE_IDLabel.ForeColor = System.Drawing.Color.DodgerBlue
STATE_IDLabel.Name = "STATE_IDLabel"
'
'SplitContainerMain
@@ -595,22 +593,11 @@ Partial Class frmRecordView
'
'txtStateActual
'
Me.txtStateActual.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "STATE_TITLE", True))
resources.ApplyResources(Me.txtStateActual, "txtStateActual")
Me.txtStateActual.ForeColor = System.Drawing.Color.OrangeRed
Me.txtStateActual.Name = "txtStateActual"
Me.txtStateActual.ReadOnly = True
'
'VWPMO_WF_ACTIVEBindingSource
'
Me.VWPMO_WF_ACTIVEBindingSource.DataMember = "VWPMO_WF_ACTIVE"
Me.VWPMO_WF_ACTIVEBindingSource.DataSource = Me.DD_DMSDataSet
'
'DD_DMSDataSet
'
Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet"
Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'XtraTabControl1
'
resources.ApplyResources(Me.XtraTabControl1, "XtraTabControl1")
@@ -755,6 +742,11 @@ Partial Class frmRecordView
Me.TBPMO_WORKFLOW_TASK_HISTORYBindingSource.DataMember = "TBPMO_WORKFLOW_TASK_HISTORY"
Me.TBPMO_WORKFLOW_TASK_HISTORYBindingSource.DataSource = Me.DD_DMSDataSet
'
'DD_DMSDataSet
'
Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet"
Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'GridView2
'
Me.GridView2.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridView2.Appearance.EvenRow.BackColor"), System.Drawing.Color)
@@ -813,25 +805,21 @@ Partial Class frmRecordView
'
'WF_IDTextBox
'
Me.WF_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "WF_ID", True))
resources.ApplyResources(Me.WF_IDTextBox, "WF_IDTextBox")
Me.WF_IDTextBox.Name = "WF_IDTextBox"
'
'CHANGED_WHENTextBox
'
Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "CHANGED_WHEN", True))
resources.ApplyResources(Me.CHANGED_WHENTextBox, "CHANGED_WHENTextBox")
Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox"
'
'CHANGED_WHOTextBox
'
Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "CHANGED_WHO", True))
resources.ApplyResources(Me.CHANGED_WHOTextBox, "CHANGED_WHOTextBox")
Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox"
'
'WF_TASK_IDTextBox
'
Me.WF_TASK_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "WF_TASK_ID", True))
resources.ApplyResources(Me.WF_TASK_IDTextBox, "WF_TASK_IDTextBox")
Me.WF_TASK_IDTextBox.Name = "WF_TASK_IDTextBox"
'
@@ -850,27 +838,23 @@ Partial Class frmRecordView
'
'TITLETextBox
'
Me.TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "WF_TITLE", True))
resources.ApplyResources(Me.TITLETextBox, "TITLETextBox")
Me.TITLETextBox.Name = "TITLETextBox"
Me.TITLETextBox.ReadOnly = True
'
'DateTimePickerTASK_DATE
'
Me.DateTimePickerTASK_DATE.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "TASK_DATE", True))
Me.DateTimePickerTASK_DATE.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
resources.ApplyResources(Me.DateTimePickerTASK_DATE, "DateTimePickerTASK_DATE")
Me.DateTimePickerTASK_DATE.Name = "DateTimePickerTASK_DATE"
'
'COMMENTTextBox
'
Me.COMMENTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "COMMENT", True))
resources.ApplyResources(Me.COMMENTTextBox, "COMMENTTextBox")
Me.COMMENTTextBox.Name = "COMMENTTextBox"
'
'DUE_DATEDateTimePicker
'
Me.DUE_DATEDateTimePicker.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "DUE_DATE", True))
Me.DUE_DATEDateTimePicker.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
resources.ApplyResources(Me.DUE_DATEDateTimePicker, "DUE_DATEDateTimePicker")
Me.DUE_DATEDateTimePicker.Name = "DUE_DATEDateTimePicker"
@@ -878,6 +862,7 @@ Partial Class frmRecordView
'STATE_IDComboBox
'
resources.ApplyResources(Me.STATE_IDComboBox, "STATE_IDComboBox")
Me.STATE_IDComboBox.ForeColor = System.Drawing.Color.DodgerBlue
Me.STATE_IDComboBox.FormattingEnabled = True
Me.STATE_IDComboBox.Name = "STATE_IDComboBox"
'
@@ -890,10 +875,6 @@ Partial Class frmRecordView
'
Me.GridView1.Name = "GridView1"
'
'VWPMO_WF_ACTIVETableAdapter
'
Me.VWPMO_WF_ACTIVETableAdapter.ClearBeforeFill = True
'
'TableAdapterManager
'
Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
@@ -907,6 +888,7 @@ Partial Class frmRecordView
Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_APPOINTMENTSTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing
Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing
@@ -978,8 +960,6 @@ Partial Class frmRecordView
Me.ToolStrip2.PerformLayout()
Me.XtraTabPage1.ResumeLayout(False)
Me.XtraTabPage1.PerformLayout()
CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabControl1.ResumeLayout(False)
Me.XtraTabPage3.ResumeLayout(False)
@@ -991,6 +971,7 @@ Partial Class frmRecordView
Me.XtraTabPage4.ResumeLayout(False)
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPMO_WORKFLOW_TASK_HISTORYBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
@@ -1074,8 +1055,6 @@ Partial Class frmRecordView
Friend WithEvents lblWiedervorlage_Control As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents DD_DMSDataSet As DD_Record_Organizer.DD_DMSDataSet
Friend WithEvents VWPMO_WF_ACTIVEBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents VWPMO_WF_ACTIVETableAdapter As DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter
Friend WithEvents TableAdapterManager As DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager
Friend WithEvents DD_ECMAdmin As DD_Record_Organizer.DD_ECMAdmin
Friend WithEvents TBAD_UsersBindingSource As System.Windows.Forms.BindingSource

80
app/DD-Record-Organizer/frmRecordView.resx
View File

@@ -166,7 +166,7 @@
<value>Tahoma, 8.25pt, style=Italic</value>
</data>
<data name="WF_IDLabel.Location" type="System.Drawing.Point, System.Drawing">
<value>556, 85</value>
<value>481, 55</value>
</data>
<data name="WF_IDLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>41, 13</value>
@@ -199,7 +199,7 @@
<value>Tahoma, 8.25pt, style=Italic</value>
</data>
<data name="CHANGED_WHENLabel.Location" type="System.Drawing.Point, System.Drawing">
<value>125, 235</value>
<value>128, 273</value>
</data>
<data name="CHANGED_WHENLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>83, 13</value>
@@ -232,7 +232,7 @@
<value>Tahoma, 8.25pt, style=Italic</value>
</data>
<data name="CHANGED_WHOLabel.Location" type="System.Drawing.Point, System.Drawing">
<value>8, 235</value>
<value>11, 273</value>
</data>
<data name="CHANGED_WHOLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>77, 13</value>
@@ -367,7 +367,7 @@
<value>NoControl</value>
</data>
<data name="Label4.Location" type="System.Drawing.Point, System.Drawing">
<value>10, 179</value>
<value>11, 203</value>
</data>
<data name="Label4.Size" type="System.Drawing.Size, System.Drawing">
<value>59, 13</value>
@@ -400,7 +400,7 @@
<value>NoControl</value>
</data>
<data name="DUE_DATELabel.Location" type="System.Drawing.Point, System.Drawing">
<value>112, 179</value>
<value>112, 203</value>
</data>
<data name="DUE_DATELabel.Size" type="System.Drawing.Size, System.Drawing">
<value>52, 13</value>
@@ -436,7 +436,7 @@
<value>NoControl</value>
</data>
<data name="STATE_IDLabel.Location" type="System.Drawing.Point, System.Drawing">
<value>330, 178</value>
<value>330, 203</value>
</data>
<data name="STATE_IDLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>91, 14</value>
@@ -493,7 +493,7 @@
<value>0, 0</value>
</data>
<data name="pnlDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1336, 304</value>
<value>1332, 301</value>
</data>
<data name="pnlDetails.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@@ -511,7 +511,7 @@
<value>0</value>
</data>
<data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1336, 304</value>
<value>1332, 301</value>
</data>
<data name="TabDetails.Text" xml:space="preserve">
<value>Detailansicht</value>
@@ -1314,7 +1314,7 @@
<value>0, 25</value>
</data>
<data name="GridControlDocSearch.Size" type="System.Drawing.Size, System.Drawing">
<value>1336, 305</value>
<value>1332, 302</value>
</data>
<data name="GridControlDocSearch.TabIndex" type="System.Int32, mscorlib">
<value>8</value>
@@ -1347,7 +1347,7 @@
<value>0, 0</value>
</data>
<data name="ToolStrip2.Size" type="System.Drawing.Size, System.Drawing">
<value>1336, 25</value>
<value>1332, 25</value>
</data>
<data name="ToolStrip2.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
@@ -1368,7 +1368,7 @@
<value>1</value>
</data>
<data name="TabPageDoc.Size" type="System.Drawing.Size, System.Drawing">
<value>1336, 330</value>
<value>1332, 327</value>
</data>
<data name="TabPageDoc.Text" xml:space="preserve">
<value>Dateien</value>
@@ -1394,12 +1394,6 @@
<data name="XtraTabPage1.AutoScroll" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<metadata name="VWPMO_WF_ACTIVEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>752, 17</value>
</metadata>
<metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>609, 17</value>
</metadata>
<data name="txtStateActual.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9pt, style=Bold, Italic</value>
</data>
@@ -1482,7 +1476,7 @@
<value>102</value>
</data>
<data name="GridControlUsersSelection.Size" type="System.Drawing.Size, System.Drawing">
<value>284, 223</value>
<value>284, 220</value>
</data>
<data name="GridControlUsersSelection.TabIndex" type="System.Int32, mscorlib">
<value>88</value>
@@ -1518,7 +1512,7 @@
<value>16, 24</value>
</data>
<data name="ListViewExclusiveUser.Size" type="System.Drawing.Size, System.Drawing">
<value>174, 223</value>
<value>174, 220</value>
</data>
<data name="ListViewExclusiveUser.TabIndex" type="System.Int32, mscorlib">
<value>27</value>
@@ -1669,7 +1663,7 @@ zuordnen</value>
<value>5</value>
</data>
<data name="XtraTabPage3.Size" type="System.Drawing.Size, System.Drawing">
<value>620, 267</value>
<value>616, 264</value>
</data>
<data name="XtraTabPage3.Text" xml:space="preserve">
<value>User zuordnen</value>
@@ -1698,6 +1692,9 @@ zuordnen</value>
<metadata name="TBPMO_WORKFLOW_TASK_HISTORYBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>347, 56</value>
</metadata>
<metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>609, 17</value>
</metadata>
<data name="GridControl1.Location" type="System.Drawing.Point, System.Drawing">
<value>3, 6</value>
</data>
@@ -1843,7 +1840,7 @@ zuordnen</value>
<value>Tahoma, 8.25pt, style=Italic</value>
</data>
<data name="WF_IDTextBox.Location" type="System.Drawing.Point, System.Drawing">
<value>603, 82</value>
<value>528, 52</value>
</data>
<data name="WF_IDTextBox.Size" type="System.Drawing.Size, System.Drawing">
<value>41, 21</value>
@@ -1870,7 +1867,7 @@ zuordnen</value>
<value>Tahoma, 8.25pt, style=Italic</value>
</data>
<data name="CHANGED_WHENTextBox.Location" type="System.Drawing.Point, System.Drawing">
<value>128, 251</value>
<value>128, 289</value>
</data>
<data name="CHANGED_WHENTextBox.Size" type="System.Drawing.Size, System.Drawing">
<value>142, 21</value>
@@ -1897,7 +1894,7 @@ zuordnen</value>
<value>Tahoma, 8.25pt, style=Italic</value>
</data>
<data name="CHANGED_WHOTextBox.Location" type="System.Drawing.Point, System.Drawing">
<value>11, 251</value>
<value>11, 289</value>
</data>
<data name="CHANGED_WHOTextBox.Size" type="System.Drawing.Size, System.Drawing">
<value>108, 21</value>
@@ -1951,7 +1948,7 @@ zuordnen</value>
<value>MiddleLeft</value>
</data>
<data name="btnSaveWorkflow.Location" type="System.Drawing.Point, System.Drawing">
<value>333, 226</value>
<value>333, 264</value>
</data>
<data name="btnSaveWorkflow.Size" type="System.Drawing.Size, System.Drawing">
<value>311, 46</value>
@@ -2035,7 +2032,7 @@ zuordnen</value>
<value>15</value>
</data>
<data name="DateTimePickerTASK_DATE.Location" type="System.Drawing.Point, System.Drawing">
<value>13, 198</value>
<value>13, 223</value>
</data>
<data name="DateTimePickerTASK_DATE.Size" type="System.Drawing.Size, System.Drawing">
<value>96, 21</value>
@@ -2062,7 +2059,7 @@ zuordnen</value>
<value>True</value>
</data>
<data name="COMMENTTextBox.Size" type="System.Drawing.Size, System.Drawing">
<value>631, 69</value>
<value>631, 93</value>
</data>
<data name="COMMENTTextBox.TabIndex" type="System.Int32, mscorlib">
<value>36</value>
@@ -2080,7 +2077,7 @@ zuordnen</value>
<value>18</value>
</data>
<data name="DUE_DATEDateTimePicker.Location" type="System.Drawing.Point, System.Drawing">
<value>115, 198</value>
<value>115, 223</value>
</data>
<data name="DUE_DATEDateTimePicker.Size" type="System.Drawing.Size, System.Drawing">
<value>96, 21</value>
@@ -2104,7 +2101,7 @@ zuordnen</value>
<value>Tahoma, 9pt, style=Bold</value>
</data>
<data name="STATE_IDComboBox.Location" type="System.Drawing.Point, System.Drawing">
<value>333, 198</value>
<value>333, 222</value>
</data>
<data name="STATE_IDComboBox.Size" type="System.Drawing.Size, System.Drawing">
<value>311, 22</value>
@@ -2211,9 +2208,6 @@ zuordnen</value>
<data name="&gt;&gt;ToolStrip1.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<metadata name="VWPMO_WF_ACTIVETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>996, 17</value>
</metadata>
<metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1234, 17</value>
</metadata>
@@ -2519,18 +2513,6 @@ zuordnen</value>
<data name="&gt;&gt;tslblWindreamView.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;VWPMO_WF_ACTIVEBindingSource.Name" xml:space="preserve">
<value>VWPMO_WF_ACTIVEBindingSource</value>
</data>
<data name="&gt;&gt;VWPMO_WF_ACTIVEBindingSource.Type" xml:space="preserve">
<value>System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;DD_DMSDataSet.Name" xml:space="preserve">
<value>DD_DMSDataSet</value>
</data>
<data name="&gt;&gt;DD_DMSDataSet.Type" xml:space="preserve">
<value>DD_Record_Organizer.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
</data>
<data name="&gt;&gt;TBAD_UsersBindingSource.Name" xml:space="preserve">
<value>TBAD_UsersBindingSource</value>
</data>
@@ -2591,6 +2573,12 @@ zuordnen</value>
<data name="&gt;&gt;TBPMO_WORKFLOW_TASK_HISTORYBindingSource.Type" xml:space="preserve">
<value>System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;DD_DMSDataSet.Name" xml:space="preserve">
<value>DD_DMSDataSet</value>
</data>
<data name="&gt;&gt;DD_DMSDataSet.Type" xml:space="preserve">
<value>DD_Record_Organizer.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
</data>
<data name="&gt;&gt;GridView2.Name" xml:space="preserve">
<value>GridView2</value>
</data>
@@ -2633,12 +2621,6 @@ zuordnen</value>
<data name="&gt;&gt;GridView1.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;VWPMO_WF_ACTIVETableAdapter.Name" xml:space="preserve">
<value>VWPMO_WF_ACTIVETableAdapter</value>
</data>
<data name="&gt;&gt;VWPMO_WF_ACTIVETableAdapter.Type" xml:space="preserve">
<value>DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
</data>
<data name="&gt;&gt;TableAdapterManager.Name" xml:space="preserve">
<value>TableAdapterManager</value>
</data>

170
app/DD-Record-Organizer/frmRecordView.vb
View File

@@ -5,7 +5,7 @@ Imports DD_LIB_Standards
Public Class frmRecordView
Private recordView As ClassRecordView
Private ENTITY_ID, FORMVIEW_ID, PARENT_ENTITY_ID, WF_TASK_ID As Integer
Private ENTITY_ID, FORMVIEW_ID, PARENT_ENTITY_ID, WF_TASK_ID, RECORD_ID As Integer
Private Const SEE_MASK_INVOKEIDLIST = &HC
Private Const SEE_MASK_NOCLOSEPROCESS = &H40
Private Const SEE_MASK_FLAG_NO_UI = &H400
@@ -50,13 +50,15 @@ Public Class frmRecordView
Me.Text = "Detailansicht Record"
End If
recordView = New ClassRecordView(pnlDetails)
recordView.LoadRecord(JUMP_RECORD_ID)
RECORD_ID = JUMP_RECORD_ID
recordView.LoadRecord(RECORD_ID)
'Titel updaten
Me.Text &= " " + JUMP_RECORD_ID.ToString()
Dim sql = "SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = " & JUMP_RECORD_ID
Me.Text &= " " + RECORD_ID.ToString()
Dim sql = "SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = " & RECORD_ID
ENTITY_ID = ClassDatabase.Execute_Scalar(sql, True)
ClassRightManagement.Check_Set_Rights(JUMP_RECORD_ID, ENTITY_ID)
ClassRightManagement.Check_Set_Rights(RECORD_ID, ENTITY_ID)
ClassProxy.Refresh_Workflow_Data()
sql = String.Format("select * from TBPMO_DOCSEARCH_VARIABLE_CONTROLS WHERE ENTITY_ID = {0}", ENTITY_ID) 'TBPMO_WINDREAM_RESULTLIST_CONFIG"
DT_RESULTLIST_OPTIONS = ClassDatabase.Return_Datatable(sql, True)
@@ -74,7 +76,7 @@ Public Class frmRecordView
End Try
RUN_WDSEARCH_GRID()
Load_Tasks()
Load_Task_Data()
End Sub
Private Sub OnCBSelectedValueChanged(sender As Object, e As EventArgs)
@@ -139,7 +141,7 @@ Public Class frmRecordView
Dim sw As New Stopwatch
sw.Start()
Dim elapsed As Double
Dim DT_RESULT As DataTable = ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_RESULTLIST_VARIABLE_VALUE, DT_WINDREAM_RESULTLIST, ENTITY_ID, JUMP_RECORD_ID)
Dim DT_RESULT As DataTable = ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_RESULTLIST_VARIABLE_VALUE, DT_WINDREAM_RESULTLIST, ENTITY_ID, RECORD_ID)
If IsNothing(DT_RESULT) Then
Dim msg = "wrong DocSearch-Configuration - Check logfile and contact Digital Data"
tslblWindreamView.Text = msg
@@ -147,9 +149,9 @@ Public Class frmRecordView
Exit Sub
End If
If DT_RESULT.Rows.Count > 0 Then 'Es gibt Suchergebnisse
Dim msg = "Windream-Dokumente für Record: " & JUMP_RECORD_ID
Dim msg = "Windream-Dokumente für Record: " & RECORD_ID
If USER_LANGUAGE <> "de-DE" Then
msg = "windream-files for record: " & JUMP_RECORD_ID
msg = "windream-files for record: " & RECORD_ID
End If
tslblWindreamView.Text = msg
@@ -164,12 +166,12 @@ Public Class frmRecordView
AddressOf OnDateSelectedValueChanged,
AddressOf OnTextSelectedValueChanged,
AddressOf OnCheckboxValueChanged,
"RECORD", JUMP_RECORD_ID)
"RECORD", RECORD_ID)
End If
Else
Dim msg = "Keine Windream-Dokumente für Record: " & JUMP_RECORD_ID & " gefunden"
Dim msg = "Keine Windream-Dokumente für Record: " & RECORD_ID & " gefunden"
If USER_LANGUAGE <> "de-DE" Then
msg = "No windream-files found for record: " & JUMP_RECORD_ID
msg = "No windream-files found for record: " & RECORD_ID
End If
@@ -186,14 +188,59 @@ Public Class frmRecordView
End Try
Cursor = Cursors.Default
End Sub
Private Sub Load_Tasks()
Private Sub Load_Task_Data()
Try
'Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.Connection.ConnectionString = MyConnectionString
Me.VWPMO_WF_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
Me.VWPMO_WF_ACTIVETableAdapter.FillByRecord(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, USER_LANGUAGE, USER_USERNAME, JUMP_RECORD_ID)
If DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows.Count > 0 Then
Dim query = From table In CURRENT_VWPMO_WF_ACTIVE.AsEnumerable()
Select table Where table.Item("RECORD_ID") = RECORD_ID
Dim RECORD_ROW = query.ToList()
If RECORD_ROW.Count = 1 Then
TabControlBottom.TabPages(1).Appearance.Header.BackColor = Color.Red
For Each _row In RECORD_ROW
TITLETextBox.Text = _row.Item("WF_TITLE")
txtStateActual.Text = _row.Item("STATE_TITLE")
WF_IDTextBox.Text = _row.Item("WF_ID")
WF_TASK_IDTextBox.Text = _row.Item("WF_TASK_ID")
If Not IsDBNull(_row.Item("COMMENT")) Then
COMMENTTextBox.Text = _row.Item("COMMENT")
Else
COMMENTTextBox.Text = ""
End If
If Not IsDBNull(_row.Item("COMMENT")) Then
End If
If Not IsDBNull(_row.Item("CHANGED_WHO")) Then
CHANGED_WHOTextBox.Text = _row.Item("CHANGED_WHO")
End If
If Not IsDBNull(_row.Item("CHANGED_WHEN")) Then
CHANGED_WHENTextBox.Text = _row.Item("CHANGED_WHEN")
End If
If Not IsDBNull(_row.Item("TASK_DATE")) Then
DateTimePickerTASK_DATE.Text = _row.Item("TASK_DATE")
End If
If Not IsDBNull(_row.Item("DUE_DATE")) Then
DUE_DATEDateTimePicker.Text = _row.Item("DUE_DATE")
End If
Next
Else
TITLETextBox.Text = ""
txtStateActual.Text = ""
WF_IDTextBox.Text = ""
WF_TASK_IDTextBox.Text = ""
COMMENTTextBox.Text = ""
CHANGED_WHOTextBox.Text = ""
CHANGED_WHENTextBox.Text = ""
COMMENTTextBox.Enabled = False
DUE_DATEDateTimePicker.Enabled = False
DateTimePickerTASK_DATE.Enabled = False
STATE_IDComboBox.Enabled = False
lblTaskState.Visible = True
btnSaveWorkflow.Enabled = False
TabControlBottom.TabPages(1).Appearance.Header.BackColor = Nothing
End If
@@ -201,6 +248,8 @@ Public Class frmRecordView
FORMVIEW_ID = ClassDatabase.Execute_Scalar(Sql, True)
Sql = "SELECT PARENT_ID FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID
PARENT_ENTITY_ID = ClassDatabase.Execute_Scalar(Sql, True)
Catch ex As Exception
MsgBox("Error in Load_Tasks:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@@ -209,41 +258,29 @@ Public Class frmRecordView
Private Sub TabControl1_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles TabControlBottom.SelectedPageChanged
Try
If TabControlBottom.SelectedTabPageIndex = 1 Then
If DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows.Count = 0 Then
COMMENTTextBox.Enabled = False
DUE_DATEDateTimePicker.Enabled = False
DateTimePickerTASK_DATE.Enabled = False
STATE_IDComboBox.Enabled = False
lblTaskState.Visible = True
btnSaveWorkflow.Enabled = False
Else
If WF_TASK_IDTextBox.Text <> "" Then
WF_TASK_ID = WF_TASK_IDTextBox.Text
End If
Try
If WF_IDTextBox.Text <> "" Then
' Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.FillBy(Me.DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATE, USER_LANGUAGE, WF_IDTextBox.Text, ENTITY_ID)
Dim sel = ClassDatabase.Execute_Scalar("SELECT USER_SELECT FROM TBPMO_WORKFLOW_TASK WHERE GUID = " & WF_TASK_ID, True)
If Not IsNothing(sel) Then
Load_Selectable_Users(sel)
End If
End If
Catch ex As Exception
MsgBox("Error in load States:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
COMMENTTextBox.Enabled = True
DUE_DATEDateTimePicker.Enabled = True
DateTimePickerTASK_DATE.Enabled = True
STATE_IDComboBox.Enabled = True
lblTaskState.Text = "No active workflows"
lblTaskState.Visible = False
Load_Task_Data()
If WF_TASK_IDTextBox.Text <> "" Then
WF_TASK_ID = WF_TASK_IDTextBox.Text
btnSaveWorkflow.Enabled = True
Load_TASK_USER()
Load_States()
Check_end()
Else
WF_TASK_ID = 0
btnSaveWorkflow.Enabled = False
End If
Try
If WF_TASK_ID > 0 Then
lblTaskState.Text = "No active workflows"
lblTaskState.Visible = False
Dim sel = ClassDatabase.Execute_Scalar("SELECT USER_SELECT FROM TBPMO_WORKFLOW_TASK WHERE GUID = " & WF_TASK_ID, True)
If Not IsNothing(sel) Then
Load_Selectable_Users(sel)
End If
End If
Catch ex As Exception
MsgBox("Error in load States:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
Load_TASK_USER()
Load_States()
Check_end()
_Changed = False
End If
Catch ex As Exception
@@ -334,18 +371,35 @@ Public Class frmRecordView
Exit Sub
End If
Dim upd
If STATE_IDComboBox.SelectedIndex <> -1 Then
Dim STATE_id As Integer
Try
STATE_id = STATE_IDComboBox.SelectedValue
Catch ex As Exception
STATE_id = 0
End Try
If STATE_id > 0 Then
Dim sql = String.Format("SELECT dbo.FNPMO_GETOBJECTCAPTION('{0}', 'WF_STATE_TITLE' + CONVERT(VARCHAR(5), GUID), 1) AS STATE_DESC FROM TBPMO_WORKFLOW_TASK_STATE WHERE GUID = {1}", USER_LANGUAGE, STATE_IDComboBox.SelectedValue)
Dim State_DESC = ClassDatabase.Execute_Scalar(sql, True)
Dim Comment
If COMMENTTextBox.Text <> "" Then
Comment = String.Format(COMMENTTextBox.Text & vbNewLine & ">> " & Now.ToString & ": User {0} changed the state to: {1}", Environment.UserName, State_DESC)
Else
Comment = String.Format(">> " & Now.ToString & ": User {0} Changed the state to: {1}", Environment.UserName, State_DESC)
End If
upd = String.Format("UPDATE TBPMO_WORKFLOW_TASK SET COMMENT = '{0}', DUE_DATE = '{1}', STATE_ID = {2}, ACTIVE = {3}, CHANGED_WHO = '{4}', TASK_DATE = '{5}' " & _
"WHERE GUID = {6}", COMMENTTextBox.Text, DUE_DATEDateTimePicker.Value, STATE_IDComboBox.SelectedValue, 1, USER_USERNAME, DateTimePickerTASK_DATE.Value, WF_TASK_ID)
"WHERE GUID = {6}", Comment, DUE_DATEDateTimePicker.Value, STATE_id, 1, USER_USERNAME, DateTimePickerTASK_DATE.Value, WF_TASK_ID)
STATE_IDComboBox.SelectedIndex = -1
Else
upd = String.Format("UPDATE TBPMO_WORKFLOW_TASK SET COMMENT = '{0}', DUE_DATE = '{1}', ACTIVE = {2}, CHANGED_WHO = '{3}', TASK_DATE = '{4}' " & _
upd = String.Format("UPDATE TBPMO_WORKFLOW_TASK SET COMMENT = (SELECT )'{0}', DUE_DATE = '{1}', ACTIVE = {2}, CHANGED_WHO = '{3}', TASK_DATE = '{4}' " & _
"WHERE GUID = {5}", COMMENTTextBox.Text, DUE_DATEDateTimePicker.Value, 1, USER_USERNAME, DateTimePickerTASK_DATE.Value, WF_TASK_ID)
STATE_IDComboBox.SelectedIndex = -1
End If
If ClassDatabase.Execute_non_Query(upd, True) Then
ClassWorkflow.Refresh_Workflows_Entity()
ClassProxy.Refresh_Workflow_Data()
Load_Tasks()
Load_Task_Data()
Load_States()
Check_end()
If XtraTabControl1.SelectedTabPageIndex = 1 Then
@@ -479,18 +533,18 @@ Public Class frmRecordView
' RUN_WDSEARCH_GRID()
'End If
ElseIf (e.Data.GetDataPresent("FileGroupDescriptor")) AndAlso (e.Data.GetDataPresent("FileContents")) Then
CURRENT_RECORD_ID = JUMP_RECORD_ID
CURRENT_RECORD_ID = RECORD_ID
If ClassDragDrop.Drop_File(e) = True Then
Check_Dropped_Files()
End If
ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then
CURRENT_RECORD_ID = JUMP_RECORD_ID
CURRENT_RECORD_ID = RECORD_ID
If ClassDragDrop.Drop_File(e) = True Then
Check_Dropped_Files()
End If
End If
Else
CURRENT_RECORD_ID = JUMP_RECORD_ID
CURRENT_RECORD_ID = RECORD_ID
If ClassDragDrop.Drop_File(e) = True Then
Check_Dropped_Files()
End If
@@ -524,7 +578,7 @@ Public Class frmRecordView
'Dim datei = Str.ToString.Replace("@DROPFROMFSYSTEM@", "")
CURRENT_FILEID = Filerow.Item("GUID")
CURRENT_PARENT_ENTITY_ID = PARENT_ENTITY_ID
CURRENT_RECORD_ID = JUMP_RECORD_ID
CURRENT_RECORD_ID = RECORD_ID
CURRENT_ENTITY_ID = ENTITY_ID
CURRENT_FORMVIEW_ID = FORMVIEW_ID
If CURRENT_TBPMO_FILES_USER.Rows.Count = 1 Then