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

51
app/RecordOrganizer_RightManager/frmCheckRightsRecords.Designer.vb generated
View File

@@ -22,6 +22,7 @@ Partial Class frmCheckRightsRecords
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmCheckRightsRecords))
Me.Label1 = New System.Windows.Forms.Label()
Me.cmbentity = New System.Windows.Forms.ComboBox()
Me.btnCheckRights = New System.Windows.Forms.Button()
@@ -33,6 +34,8 @@ Partial Class frmCheckRightsRecords
Me.GridControlMain = New DevExpress.XtraGrid.GridControl()
Me.GridViewMain = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.Label2 = New System.Windows.Forms.Label()
Me.btnSelectVisiblRows = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
CType(Me.GridControlMain, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewMain, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
@@ -40,7 +43,7 @@ Partial Class frmCheckRightsRecords
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(25, 9)
Me.Label1.Location = New System.Drawing.Point(5, 9)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(147, 16)
Me.Label1.TabIndex = 0
@@ -49,7 +52,7 @@ Partial Class frmCheckRightsRecords
'cmbentity
'
Me.cmbentity.FormattingEnabled = True
Me.cmbentity.Location = New System.Drawing.Point(28, 29)
Me.cmbentity.Location = New System.Drawing.Point(8, 29)
Me.cmbentity.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.cmbentity.Name = "cmbentity"
Me.cmbentity.Size = New System.Drawing.Size(335, 24)
@@ -79,7 +82,7 @@ Partial Class frmCheckRightsRecords
'
Me.btncancel.Image = Global.RecordOrganizer_RightManager.My.Resources.Resources.cancel1
Me.btncancel.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btncancel.Location = New System.Drawing.Point(881, 25)
Me.btncancel.Location = New System.Drawing.Point(876, 25)
Me.btncancel.Name = "btncancel"
Me.btncancel.Size = New System.Drawing.Size(75, 31)
Me.btncancel.TabIndex = 4
@@ -93,7 +96,7 @@ Partial Class frmCheckRightsRecords
Me.chklogging.AutoSize = True
Me.chklogging.Checked = True
Me.chklogging.CheckState = System.Windows.Forms.CheckState.Checked
Me.chklogging.Location = New System.Drawing.Point(379, 31)
Me.chklogging.Location = New System.Drawing.Point(359, 31)
Me.chklogging.Name = "chklogging"
Me.chklogging.Size = New System.Drawing.Size(113, 20)
Me.chklogging.TabIndex = 5
@@ -113,10 +116,13 @@ Partial Class frmCheckRightsRecords
'GridControlMain
'
Me.GridControlMain.AllowDrop = True
Me.GridControlMain.Location = New System.Drawing.Point(28, 105)
Me.GridControlMain.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.GridControlMain.Location = New System.Drawing.Point(8, 105)
Me.GridControlMain.MainView = Me.GridViewMain
Me.GridControlMain.Name = "GridControlMain"
Me.GridControlMain.Size = New System.Drawing.Size(928, 196)
Me.GridControlMain.Size = New System.Drawing.Size(1291, 488)
Me.GridControlMain.TabIndex = 9
Me.GridControlMain.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewMain})
'
@@ -139,17 +145,43 @@ Partial Class frmCheckRightsRecords
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(25, 86)
Me.Label2.Location = New System.Drawing.Point(5, 86)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(318, 16)
Me.Label2.TabIndex = 10
Me.Label2.Text = "Please select the records which files shall be checked:"
'
'btnSelectVisiblRows
'
Me.btnSelectVisiblRows.Image = CType(resources.GetObject("btnSelectVisiblRows.Image"), System.Drawing.Image)
Me.btnSelectVisiblRows.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSelectVisiblRows.Location = New System.Drawing.Point(876, 59)
Me.btnSelectVisiblRows.Name = "btnSelectVisiblRows"
Me.btnSelectVisiblRows.Size = New System.Drawing.Size(178, 39)
Me.btnSelectVisiblRows.TabIndex = 11
Me.btnSelectVisiblRows.Text = "Select all visible Rows"
Me.btnSelectVisiblRows.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnSelectVisiblRows.UseVisualStyleBackColor = True
'
'Button1
'
Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image)
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(1060, 59)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(178, 39)
Me.Button1.TabIndex = 12
Me.Button1.Text = "Unselect all visible Rows"
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button1.UseVisualStyleBackColor = True
'
'frmCheckRightsRecords
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(970, 305)
Me.ClientSize = New System.Drawing.Size(1304, 596)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.btnSelectVisiblRows)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.GridControlMain)
Me.Controls.Add(Me.lblstate)
@@ -160,7 +192,6 @@ Partial Class frmCheckRightsRecords
Me.Controls.Add(Me.cmbentity)
Me.Controls.Add(Me.Label1)
Me.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.MaximizeBox = False
Me.MinimizeBox = False
@@ -185,4 +216,6 @@ Partial Class frmCheckRightsRecords
Friend WithEvents GridControlMain As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewMain As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents btnSelectVisiblRows As System.Windows.Forms.Button
Friend WithEvents Button1 As System.Windows.Forms.Button
End Class

17
app/RecordOrganizer_RightManager/frmCheckRightsRecords.resx
View File

@@ -120,4 +120,21 @@
<metadata name="BW_RightsEntity.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="btnSelectVisiblRows.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAIAAACQkWg2AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsQAAA7EAZUrDhsAAAB0SURBVDhPpY27DYAwFAOZjalCHZYEhgCa1ByyhB5RvmC5
iJ7unCF05hbG5vwTjv0sVExFWJeNu/czbzEVAZQ7Gm8xJcHOUzElwc5TMbHg3MQDKJrPCg8XzWcFKpTY
eapjQtAnxM5THRNCrmJeQku+Ch0J4QLYS+ifBfoIBAAAAABJRU5ErkJggg==
</value>
</data>
<data name="Button1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAIAAACQkWg2AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAHRJREFUOE+ljbsNgDAUA5mNqUIdlgSGAJrUHLKEHlG+YLmInu6cIXTmFsbm/BOO
/SxUTEVYl4279zNvMRUBlDsabzElwc5TMSXBzlMxseDcxAMoms8KDxfNZwUqlNh5qmNC0CfEzlMdE0Ku
Yl5CS74KHQnhAthL6J8F+ggEAAAAAElFTkSuQmCC
</value>
</data>
</root>

19
app/RecordOrganizer_RightManager/frmCheckRightsRecords.vb
View File

@@ -204,4 +204,23 @@ Public Class frmCheckRightsRecords
Private Sub frmCheckRightsRecords_Shown(sender As Object, e As EventArgs) Handles Me.Shown
_formloaded = True
End Sub
Private Sub btnSelectVisiblRows_Click(sender As Object, e As EventArgs) Handles btnSelectVisiblRows.Click
Dim listRecords As New ArrayList
Dim collist As New ArrayList
For i = 0 To GridViewMain.RowCount
Dim recid = GridViewMain.GetRowCellValue(i, "Record-ID")
If Not IsNothing(recid) Then
listRecords.Add(recid)
End If
Next
For Each row As DataRow In DT_DATA.Rows
For Each Record As String In listRecords
If Record = row.Item("Record-ID") Then
row.Item("Selection") = True
Exit For
End If
Next
Next
End Sub
End Class

1
app/SetupWiX/Product.wxs
View File

@@ -190,6 +190,7 @@
<File Id="DevExpress.XtraDiagram.v15.2_" Name="DevExpress.XtraDiagram.v15.2.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraDiagram.v15.2.dll" />
<File Id="DevExpress.XtraCharts.Wizard" Name="DevExpress.XtraCharts.v15.2.Wizard.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraCharts.v15.2.Wizard.dll" />
<File Id="DevExpress.XtraMap.v15.2" Name="DevExpress.XtraMap.v15.2.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.XtraMap.v15.2.dll" />
<File Id="DevExpress.Map.v15.2.Core" Name="DevExpress.Map.v15.2.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.2\Components\Bin\Framework\DevExpress.Map.v15.2.Core.dll" />
</Component>
<!-- Lokalisierung für DEVEXPRESS Bibliotheken-->

2
app/VERSION_CHECKER/frmVersionCheck.vb
View File

@@ -45,7 +45,7 @@ Public Class frmVersionCheck
Else
VERSION_USER = CInt(VERSION_USER.ToString.Replace(".", ""))
VERSION_SERVER = CInt(VERSION_SERVER.ToString.Replace(".", ""))
If VERSION_USER = VERSION_SERVER Then
If (VERSION_USER = VERSION_SERVER) Or VERSION_SERVER = 1000 Or VERSION_USER = 1000 Then
Exit Sub
End If
UPDATE_NECESSARY = True