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

MS_02.03

Browse Source
This commit is contained in:
SchreiberM 2016-03-03 16:50:38 +01:00
parent b2be9eca70
commit 45e67aea4e
20 changed files with 2018 additions and 2686 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
app/DD-Record-Organiser/DD-Record-Organiser.vbproj
View File

@ -496,16 +496,16 @@
<Compile Include="frmQuickInput.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmTaskmanagement.designer.vb">
<DependentUpon>frmTaskmanagement.vb</DependentUpon>
<Compile Include="frmTask_Management.designer.vb">
<DependentUpon>frmTask_Management.vb</DependentUpon>
</Compile>
<Compile Include="frmTaskmanagement.vb">
<Compile Include="frmTask_Management.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmTaskOverview.designer.vb">
<DependentUpon>frmTaskOverview.vb</DependentUpon>
<Compile Include="frmTask_Overview.designer.vb">
<DependentUpon>frmTask_Overview.vb</DependentUpon>
</Compile>
<Compile Include="frmTaskOverview.vb">
<Compile Include="frmTask_Overview.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmTool_ControlProperties.Designer.vb">
@ -538,10 +538,10 @@
<Compile Include="frmWD_Index_Dokart.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmTaskEditor.Designer.vb">
<DependentUpon>frmTaskEditor.vb</DependentUpon>
<Compile Include="frmTask_Editor.Designer.vb">
<DependentUpon>frmTask_Editor.vb</DependentUpon>
</Compile>
<Compile Include="frmTaskEditor.vb">
<Compile Include="frmTask_Editor.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmWiedervorlage.Designer.vb">
@ -706,14 +706,14 @@
<EmbeddedResource Include="frmSQLEditor.resx">
<DependentUpon>frmSQLEditor.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmTaskEditor.en-US.resx">
<DependentUpon>frmTaskEditor.vb</DependentUpon>
<EmbeddedResource Include="frmTask_Editor.en-US.resx">
<DependentUpon>frmTask_Editor.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmTaskmanagement.en-US.resx">
<DependentUpon>frmTaskmanagement.vb</DependentUpon>
<EmbeddedResource Include="frmTask_Management.en-US.resx">
<DependentUpon>frmTask_Management.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmTaskOverview.en-US.resx">
<DependentUpon>frmTaskOverview.vb</DependentUpon>
<EmbeddedResource Include="frmTask_Overview.en-US.resx">
<DependentUpon>frmTask_Overview.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmTemplates.en-US.resx">
<DependentUpon>frmTemplates.vb</DependentUpon>
@ -774,11 +774,11 @@
<EmbeddedResource Include="frmQuickInput.resx">
<DependentUpon>frmQuickInput.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmTaskmanagement.resx">
<DependentUpon>frmTaskmanagement.vb</DependentUpon>
<EmbeddedResource Include="frmTask_Management.resx">
<DependentUpon>frmTask_Management.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmTaskOverview.resx">
<DependentUpon>frmTaskOverview.vb</DependentUpon>
<EmbeddedResource Include="frmTask_Overview.resx">
<DependentUpon>frmTask_Overview.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmTool_ControlProperties.resx">
<DependentUpon>frmTool_ControlProperties.vb</DependentUpon>
@ -801,8 +801,8 @@
<EmbeddedResource Include="frmWD_Index_Dokart.resx">
<DependentUpon>frmWD_Index_Dokart.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmTaskEditor.resx">
<DependentUpon>frmTaskEditor.vb</DependentUpon>
<EmbeddedResource Include="frmTask_Editor.resx">
<DependentUpon>frmTask_Editor.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmWiedervorlage.en-US.resx">
<DependentUpon>frmWiedervorlage.vb</DependentUpon>

128
app/DD-Record-Organiser/DD_DMSDataSet.xsd
View File

@ -601,7 +601,24 @@ SELECT GUID, STATE_DESC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLOR
<Mapping SourceColumn="CHANGED_WHEN" DataSetColumn="CHANGED_WHEN" />
<Mapping SourceColumn="COLOR" DataSetColumn="COLOR" />
</Mappings>
<Sources />
<Sources>
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBPMO_WORKFLOW_TASK_STATE" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="FillBy" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetDataBy" GeneratorSourceName="FillBy" GetMethodModifier="Public" GetMethodName="GetDataBy" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy" UserSourceName="FillBy">
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT GUID, STATE_DESC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLOR, LANGUAGE
FROM TBPMO_WORKFLOW_TASK_STATE
WHERE (GUID IN
(SELECT STATE_ID
FROM TBPMO_WORKFLOW_ENTITY_STATE
WHERE (WF_ID = @WF_ID) AND (ENTITY_ID = @ENT_ID)))</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="WF_ID" ColumnName="" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@WF_ID" Precision="0" Scale="0" Size="4" SourceColumn="" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ENT_ID" ColumnName="" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@ENT_ID" Precision="0" Scale="0" Size="4" SourceColumn="" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</SelectCommand>
</DbSource>
</Sources>
</TableAdapter>
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="VWPMO_GUI_ENTITYTableAdapter" GeneratorDataComponentClassName="VWPMO_GUI_ENTITYTableAdapter" Name="VWPMO_GUI_ENTITY" UserDataComponentName="VWPMO_GUI_ENTITYTableAdapter">
<MainSource>
@ -821,49 +838,6 @@ WHERE (T2.GUID NOT IN
</DbSource>
</Sources>
</TableAdapter>
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="VWPMO_FOLLOWING_TASKSTableAdapter" GeneratorDataComponentClassName="VWPMO_FOLLOWING_TASKSTableAdapter" Name="VWPMO_FOLLOWING_TASKS" UserDataComponentName="VWPMO_FOLLOWING_TASKSTableAdapter">
<MainSource>
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectType="Unknown" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT T4.VALUE AS JOB, T2.GUID AS WF_TASK_ID, T3.TITLE, T2.RECORD_ID, T2.STATE_ID, T2.COMMENT, T2.DUE_DATE, @USER AS USERNAME, T2.ADDED_WHEN, T2.CHANGED_WHO, T2.CHANGED_WHEN
FROM TBPMO_WORKFLOW_TASK AS T2 INNER JOIN
TBPMO_WORKFLOW AS T3 ON T2.WF_ID = T3.GUID INNER JOIN
VWPMO_VALUES AS T4 ON T2.RECORD_ID = T4.RECORD_ID
WHERE (T4.CONTROL_ID = 10) AND (T2.GUID NOT IN
(SELECT WF_TASK_ID
FROM VWPMO_WF_USER_EXCLUSIV
WHERE (WF_TASK_ID NOT IN
(SELECT WF_TASK_ID
FROM VWPMO_WF_USER_EXCLUSIV AS VWPMO_WF_USER_EXCLUSIV_1
WHERE (UPPER(USERNAME) = UPPER(@USER)))))) AND (T2.STATE_ID NOT IN
(SELECT WORKFLOW_FINAL_STATE1
FROM TBPMO_KONFIGURATION
WHERE (GUID = 1))) AND (T2.RECORD_ID = @RECORD_ID) AND (T2.ACTIVE = 1) AND (T2.GUID &lt;&gt; @TASK_ID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="USER" ColumnName="" DataSourceName="" DataTypeServer="unknown" DbType="AnsiString" Direction="Input" ParameterName="@USER" Precision="0" Scale="0" Size="1024" SourceColumn="" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="RECORD_ID" ColumnName="RECORD_ID" DataSourceName="DD_ECM.dbo.TBPMO_WORKFLOW_TASK" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@RECORD_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="RECORD_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="TASK_ID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBPMO_WORKFLOW_TASK" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@TASK_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="WF_TASK_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</SelectCommand>
</DbSource>
</MainSource>
<Mappings>
<Mapping SourceColumn="JOB" DataSetColumn="JOB" />
<Mapping SourceColumn="WF_TASK_ID" DataSetColumn="WF_TASK_ID" />
<Mapping SourceColumn="TITLE" DataSetColumn="TITLE" />
<Mapping SourceColumn="RECORD_ID" DataSetColumn="RECORD_ID" />
<Mapping SourceColumn="STATE_ID" DataSetColumn="STATE_ID" />
<Mapping SourceColumn="COMMENT" DataSetColumn="COMMENT" />
<Mapping SourceColumn="DUE_DATE" DataSetColumn="DUE_DATE" />
<Mapping SourceColumn="USERNAME" DataSetColumn="USERNAME" />
<Mapping SourceColumn="ADDED_WHEN" DataSetColumn="ADDED_WHEN" />
<Mapping SourceColumn="CHANGED_WHO" DataSetColumn="CHANGED_WHO" />
<Mapping SourceColumn="CHANGED_WHEN" DataSetColumn="CHANGED_WHEN" />
</Mappings>
<Sources />
</TableAdapter>
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="VWPMO_WF_OVERVIEW_AUTHORITYTableAdapter" GeneratorDataComponentClassName="VWPMO_WF_OVERVIEW_AUTHORITYTableAdapter" Name="VWPMO_WF_OVERVIEW_AUTHORITY" UserDataComponentName="VWPMO_WF_OVERVIEW_AUTHORITYTableAdapter">
<MainSource>
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.VWPMO_WF_OVERVIEW_AUTHORITY" DbObjectType="View" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
@ -2208,7 +2182,7 @@ WHERE (RECORD_ID = @RECORD_ID)</CommandText>
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.VWPMO_WF_ACTIVE" DbObjectType="View" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="false" UserGetMethodName="GetData" UserSourceName="Fill">
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT WF_TASK_ID, TITLE, RECORD_ID, STATE_ID, STATE_DESC, COLOR, COMMENT, DUE_DATE, USERNAME, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE
<CommandText>SELECT WF_TASK_ID, TITLE, RECORD_ID, STATE_ID, STATE_DESC, COLOR, COMMENT, DUE_DATE, USERNAME, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE, WF_ENT_GUID, WF_ID
FROM VWPMO_WF_ACTIVE
WHERE (WF_TASK_ID NOT IN
(SELECT GUID
@ -2235,18 +2209,21 @@ WHERE (WF_TASK_ID NOT IN
<Mapping SourceColumn="CHANGED_WHO" DataSetColumn="CHANGED_WHO" />
<Mapping SourceColumn="CHANGED_WHEN" DataSetColumn="CHANGED_WHEN" />
<Mapping SourceColumn="TASK_DATE" DataSetColumn="TASK_DATE" />
<Mapping SourceColumn="WF_ENT_GUID" DataSetColumn="WF_ENT_GUID" />
<Mapping SourceColumn="WF_ID" DataSetColumn="WF_ID" />
</Mappings>
<Sources>
<DbSource ConnectionRef="DD_DMSConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.VWPMO_WF_ACTIVE" DbObjectType="View" FillMethodModifier="Public" FillMethodName="FillByRecord" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetDataByRecord" GeneratorSourceName="FillByRecord" GetMethodModifier="Public" GetMethodName="GetDataByRecord" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataByRecord" UserSourceName="FillByRecord">
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT WF_TASK_ID, TITLE, RECORD_ID, STATE_ID, STATE_DESC, COLOR, COMMENT, DUE_DATE, USERNAME, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE
<CommandText>SELECT TOP (1) WF_TASK_ID, TITLE, RECORD_ID, STATE_ID, STATE_DESC, COLOR, COMMENT, DUE_DATE, USERNAME, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE, WF_ENT_GUID, WF_ID
FROM VWPMO_WF_ACTIVE
WHERE (WF_TASK_ID NOT IN
WHERE (RECORD_ID = @RECID) AND (WF_TASK_ID NOT IN
(SELECT GUID
FROM VWPMO_WF_USER_EXCLUSIV
WHERE (UPPER(USERNAME) &lt;&gt; UPPER(@USERNAME))))</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="RECID" ColumnName="RECORD_ID" DataSourceName="DD_ECM.dbo.VWPMO_WF_ACTIVE" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@RECID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="RECORD_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="USERNAME" ColumnName="" DataSourceName="" DataTypeServer="unknown" DbType="AnsiString" Direction="Input" ParameterName="@USERNAME" Precision="0" Scale="0" Size="1024" SourceColumn="" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
@ -3463,53 +3440,6 @@ SELECT GUID, LANGUAGE_TYPE, SCREEN_ID, PMO_OBJECT_NAME, CAPTION, HINT, ADDED_WHO
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="VWPMO_FOLLOWING_TASKS" msprop:Generator_TableClassName="VWPMO_FOLLOWING_TASKSDataTable" msprop:Generator_TableVarName="tableVWPMO_FOLLOWING_TASKS" msprop:Generator_RowChangedName="VWPMO_FOLLOWING_TASKSRowChanged" msprop:Generator_TablePropName="VWPMO_FOLLOWING_TASKS" msprop:Generator_RowDeletingName="VWPMO_FOLLOWING_TASKSRowDeleting" msprop:Generator_RowChangingName="VWPMO_FOLLOWING_TASKSRowChanging" msprop:Generator_RowEvHandlerName="VWPMO_FOLLOWING_TASKSRowChangeEventHandler" msprop:Generator_RowDeletedName="VWPMO_FOLLOWING_TASKSRowDeleted" msprop:Generator_RowClassName="VWPMO_FOLLOWING_TASKSRow" msprop:Generator_UserTableName="VWPMO_FOLLOWING_TASKS" msprop:Generator_RowEvArgName="VWPMO_FOLLOWING_TASKSRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="JOB" msprop:Generator_ColumnVarNameInTable="columnJOB" msprop:Generator_ColumnPropNameInRow="JOB" msprop:Generator_ColumnPropNameInTable="JOBColumn" msprop:Generator_UserColumnName="JOB" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="100" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="WF_TASK_ID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnWF_TASK_ID" msprop:Generator_ColumnPropNameInRow="WF_TASK_ID" msprop:Generator_ColumnPropNameInTable="WF_TASK_IDColumn" msprop:Generator_UserColumnName="WF_TASK_ID" type="xs:int" />
<xs:element name="TITLE" msprop:Generator_ColumnVarNameInTable="columnTITLE" msprop:Generator_ColumnPropNameInRow="TITLE" msprop:Generator_ColumnPropNameInTable="TITLEColumn" msprop:Generator_UserColumnName="TITLE">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="100" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="RECORD_ID" msprop:Generator_ColumnVarNameInTable="columnRECORD_ID" msprop:Generator_ColumnPropNameInRow="RECORD_ID" msprop:Generator_ColumnPropNameInTable="RECORD_IDColumn" msprop:Generator_UserColumnName="RECORD_ID" type="xs:int" />
<xs:element name="STATE_ID" msprop:Generator_ColumnVarNameInTable="columnSTATE_ID" msprop:Generator_ColumnPropNameInRow="STATE_ID" msprop:Generator_ColumnPropNameInTable="STATE_IDColumn" msprop:Generator_UserColumnName="STATE_ID" type="xs:int" />
<xs:element name="COMMENT" msprop:Generator_ColumnVarNameInTable="columnCOMMENT" msprop:Generator_ColumnPropNameInRow="COMMENT" msprop:Generator_ColumnPropNameInTable="COMMENTColumn" msprop:Generator_UserColumnName="COMMENT" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="500" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="DUE_DATE" msprop:Generator_ColumnVarNameInTable="columnDUE_DATE" msprop:Generator_ColumnPropNameInRow="DUE_DATE" msprop:Generator_ColumnPropNameInTable="DUE_DATEColumn" msprop:Generator_UserColumnName="DUE_DATE" type="xs:dateTime" minOccurs="0" />
<xs:element name="USERNAME" msdata:ReadOnly="true" msprop:Generator_ColumnVarNameInTable="columnUSERNAME" msprop:Generator_ColumnPropNameInRow="USERNAME" msprop:Generator_ColumnPropNameInTable="USERNAMEColumn" msprop:Generator_UserColumnName="USERNAME" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="1024" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="ADDED_WHEN" msprop:Generator_ColumnVarNameInTable="columnADDED_WHEN" msprop:Generator_ColumnPropNameInRow="ADDED_WHEN" msprop:Generator_ColumnPropNameInTable="ADDED_WHENColumn" msprop:Generator_UserColumnName="ADDED_WHEN" type="xs:dateTime" />
<xs:element name="CHANGED_WHO" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHO" msprop:Generator_ColumnPropNameInRow="CHANGED_WHO" msprop:Generator_ColumnPropNameInTable="CHANGED_WHOColumn" msprop:Generator_UserColumnName="CHANGED_WHO" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="CHANGED_WHEN" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" />
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="VWPMO_WF_OVERVIEW_AUTHORITY" msprop:Generator_TableClassName="VWPMO_WF_OVERVIEW_AUTHORITYDataTable" msprop:Generator_TableVarName="tableVWPMO_WF_OVERVIEW_AUTHORITY" msprop:Generator_TablePropName="VWPMO_WF_OVERVIEW_AUTHORITY" msprop:Generator_RowDeletingName="VWPMO_WF_OVERVIEW_AUTHORITYRowDeleting" msprop:Generator_RowChangingName="VWPMO_WF_OVERVIEW_AUTHORITYRowChanging" msprop:Generator_RowEvHandlerName="VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEventHandler" msprop:Generator_RowDeletedName="VWPMO_WF_OVERVIEW_AUTHORITYRowDeleted" msprop:Generator_UserTableName="VWPMO_WF_OVERVIEW_AUTHORITY" msprop:Generator_RowChangedName="VWPMO_WF_OVERVIEW_AUTHORITYRowChanged" msprop:Generator_RowEvArgName="VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEvent" msprop:Generator_RowClassName="VWPMO_WF_OVERVIEW_AUTHORITYRow">
<xs:complexType>
<xs:sequence>
@ -4541,7 +4471,7 @@ SELECT GUID, LANGUAGE_TYPE, SCREEN_ID, PMO_OBJECT_NAME, CAPTION, HINT, ADDED_WHO
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="ADDED_WHEN" msprop:Generator_ColumnVarNameInTable="columnADDED_WHEN" msprop:Generator_ColumnPropNameInRow="ADDED_WHEN" msprop:Generator_ColumnPropNameInTable="ADDED_WHENColumn" msprop:Generator_UserColumnName="ADDED_WHEN" type="xs:dateTime" />
<xs:element name="ADDED_WHEN" msprop:Generator_ColumnVarNameInTable="columnADDED_WHEN" msprop:Generator_ColumnPropNameInRow="ADDED_WHEN" msprop:Generator_ColumnPropNameInTable="ADDED_WHENColumn" msprop:Generator_UserColumnName="ADDED_WHEN" type="xs:dateTime" minOccurs="0" />
<xs:element name="CHANGED_WHO" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHO" msprop:Generator_ColumnPropNameInRow="CHANGED_WHO" msprop:Generator_ColumnPropNameInTable="CHANGED_WHOColumn" msprop:Generator_UserColumnName="CHANGED_WHO" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
@ -4551,6 +4481,8 @@ SELECT GUID, LANGUAGE_TYPE, SCREEN_ID, PMO_OBJECT_NAME, CAPTION, HINT, ADDED_WHO
</xs:element>
<xs:element name="CHANGED_WHEN" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" />
<xs:element name="TASK_DATE" msprop:Generator_ColumnVarNameInTable="columnTASK_DATE" msprop:Generator_ColumnPropNameInRow="TASK_DATE" msprop:Generator_ColumnPropNameInTable="TASK_DATEColumn" msprop:Generator_UserColumnName="TASK_DATE" type="xs:dateTime" minOccurs="0" />
<xs:element name="WF_ENT_GUID" msprop:Generator_ColumnVarNameInTable="columnWF_ENT_GUID" msprop:Generator_ColumnPropNameInRow="WF_ENT_GUID" msprop:Generator_ColumnPropNameInTable="WF_ENT_GUIDColumn" msprop:Generator_UserColumnName="WF_ENT_GUID" type="xs:int" />
<xs:element name="WF_ID" msprop:Generator_ColumnVarNameInTable="columnWF_ID" msprop:Generator_ColumnPropNameInRow="WF_ID" msprop:Generator_ColumnPropNameInTable="WF_IDColumn" msprop:Generator_UserColumnName="WF_ID" type="xs:int" />
</xs:sequence>
</xs:complexType>
</xs:element>
@ -5093,10 +5025,6 @@ SELECT GUID, LANGUAGE_TYPE, SCREEN_ID, PMO_OBJECT_NAME, CAPTION, HINT, ADDED_WHO
<xs:selector xpath=".//mstns:VWPMO_WF_USER_ACTIVE" />
<xs:field xpath="mstns:WF_TASK_ID" />
</xs:unique>
<xs:unique name="VWPMO_FOLLOWING_TASKS_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
<xs:selector xpath=".//mstns:VWPMO_FOLLOWING_TASKS" />
<xs:field xpath="mstns:WF_TASK_ID" />
</xs:unique>
<xs:unique name="TBDD_DOKUMENTART_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
<xs:selector xpath=".//mstns:TBDD_DOKUMENTART" />
<xs:field xpath="mstns:GUID" />
@ -5217,8 +5145,6 @@ SELECT GUID, LANGUAGE_TYPE, SCREEN_ID, PMO_OBJECT_NAME, CAPTION, HINT, ADDED_WHO
<msdata:Relationship name="FK_TTBPMO_WORKFLOW_FORM_WF_ID" msdata:parent="TBPMO_WORKFLOW" msdata:child="TBPMO_WORKFLOW_FORM" msdata:parentkey="GUID" msdata:childkey="WF_ID" msprop:Generator_UserChildTable="TBPMO_WORKFLOW_FORM" msprop:Generator_ChildPropName="GetTBPMO_WORKFLOW_FORMRows" msprop:Generator_UserRelationName="FK_TTBPMO_WORKFLOW_FORM_WF_ID" msprop:Generator_RelationVarName="relationFK_TTBPMO_WORKFLOW_FORM_WF_ID" msprop:Generator_UserParentTable="TBPMO_WORKFLOW" msprop:Generator_ParentPropName="TBPMO_WORKFLOWRow" />
<msdata:Relationship name="FK_TBPMO_WORKFLOW_TASK_RECORD_ID" msdata:parent="TBPMO_RECORD" msdata:child="VWPMO_WF_USER_ACTIVE" msdata:parentkey="GUID" msdata:childkey="RECORD_ID" msprop:Generator_UserChildTable="VWPMO_WF_USER_ACTIVE" msprop:Generator_ChildPropName="GetVWPMO_WF_USER_ACTIVERows" msprop:Generator_UserRelationName="FK_TBPMO_WORKFLOW_TASK_RECORD_ID" msprop:Generator_RelationVarName="relationFK_TBPMO_WORKFLOW_TASK_RECORD_ID" msprop:Generator_UserParentTable="TBPMO_RECORD" msprop:Generator_ParentPropName="TBPMO_RECORDRow" />
<msdata:Relationship name="FK_TBPMO_WORKFLOW_TASK_STATE_ID" msdata:parent="TBPMO_WORKFLOW_TASK_STATE" msdata:child="VWPMO_WF_USER_ACTIVE" msdata:parentkey="GUID" msdata:childkey="STATE_ID" msprop:Generator_UserChildTable="VWPMO_WF_USER_ACTIVE" msprop:Generator_ChildPropName="GetVWPMO_WF_USER_ACTIVERows" msprop:Generator_UserRelationName="FK_TBPMO_WORKFLOW_TASK_STATE_ID" msprop:Generator_RelationVarName="relationFK_TBPMO_WORKFLOW_TASK_STATE_ID" msprop:Generator_UserParentTable="TBPMO_WORKFLOW_TASK_STATE" msprop:Generator_ParentPropName="TBPMO_WORKFLOW_TASK_STATERow" />
<msdata:Relationship name="FK_TBPMO_WORKFLOW_TASK_RECORD_ID1" msdata:parent="TBPMO_RECORD" msdata:child="VWPMO_FOLLOWING_TASKS" msdata:parentkey="GUID" msdata:childkey="RECORD_ID" msprop:Generator_UserChildTable="VWPMO_FOLLOWING_TASKS" msprop:Generator_ChildPropName="GetVWPMO_FOLLOWING_TASKSRows" msprop:Generator_UserRelationName="FK_TBPMO_WORKFLOW_TASK_RECORD_ID1" msprop:Generator_RelationVarName="relationFK_TBPMO_WORKFLOW_TASK_RECORD_ID1" msprop:Generator_UserParentTable="TBPMO_RECORD" msprop:Generator_ParentPropName="TBPMO_RECORDRow" />
<msdata:Relationship name="FK_TBPMO_WORKFLOW_TASK_STATE_ID1" msdata:parent="TBPMO_WORKFLOW_TASK_STATE" msdata:child="VWPMO_FOLLOWING_TASKS" msdata:parentkey="GUID" msdata:childkey="STATE_ID" msprop:Generator_UserChildTable="VWPMO_FOLLOWING_TASKS" msprop:Generator_ChildPropName="GetVWPMO_FOLLOWING_TASKSRows" msprop:Generator_UserRelationName="FK_TBPMO_WORKFLOW_TASK_STATE_ID1" msprop:Generator_RelationVarName="relationFK_TBPMO_WORKFLOW_TASK_STATE_ID1" msprop:Generator_UserParentTable="TBPMO_WORKFLOW_TASK_STATE" msprop:Generator_ParentPropName="TBPMO_WORKFLOW_TASK_STATERow" />
<msdata:Relationship name="FK_TBDD_DOKUMENTART_EINGID" msdata:parent="TBDD_EINGANGSARTEN" msdata:child="TBDD_DOKUMENTART" msdata:parentkey="GUID" msdata:childkey="EINGANGSART_ID" msprop:Generator_UserChildTable="TBDD_DOKUMENTART" msprop:Generator_ChildPropName="GetTBDD_DOKUMENTARTRows" msprop:Generator_UserRelationName="FK_TBDD_DOKUMENTART_EINGID" msprop:Generator_RelationVarName="relationFK_TBDD_DOKUMENTART_EINGID" msprop:Generator_UserParentTable="TBDD_EINGANGSARTEN" msprop:Generator_ParentPropName="TBDD_EINGANGSARTENRow" />
<msdata:Relationship name="FK_TBDD_INDEX_AUTOM_DOCID" msdata:parent="TBDD_DOKUMENTART" msdata:child="TBDD_INDEX_AUTOM" msdata:parentkey="GUID" msdata:childkey="DOCTYPE_ID" msprop:Generator_UserChildTable="TBDD_INDEX_AUTOM" msprop:Generator_ChildPropName="GetTBDD_INDEX_AUTOMRows" msprop:Generator_UserRelationName="FK_TBDD_INDEX_AUTOM_DOCID" msprop:Generator_ParentPropName="TBDD_DOKUMENTARTRow" msprop:Generator_RelationVarName="relationFK_TBDD_INDEX_AUTOM_DOCID" msprop:Generator_UserParentTable="TBDD_DOKUMENTART" />
<msdata:Relationship name="FK_TBDD_INDEX_AUTOM_DOCID1" msdata:parent="TBPMO_WD_FORMVIEW_DOKTYPES" msdata:child="TBDD_INDEX_AUTOM" msdata:parentkey="GUID" msdata:childkey="DOCTYPE_ID" msprop:Generator_UserChildTable="TBDD_INDEX_AUTOM" msprop:Generator_ChildPropName="GetTBDD_INDEX_AUTOMRows" msprop:Generator_UserRelationName="FK_TBDD_INDEX_AUTOM_DOCID1" msprop:Generator_RelationVarName="relationFK_TBDD_INDEX_AUTOM_DOCID1" msprop:Generator_UserParentTable="TBPMO_WD_FORMVIEW_DOKTYPES" msprop:Generator_ParentPropName="TBPMO_WD_FORMVIEW_DOKTYPESRow" />

1698
app/DD-Record-Organiser/DD_DMSDataSet1.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

4
app/DD-Record-Organiser/ModuleHelperMethods.vb
View File

@ -267,8 +267,8 @@
End Sub
Public Sub OpenTaskmanagement()
Dim frm As New frmTaskmanagement
frm = frmTaskmanagement.Instance()
Dim frm As New frmTask_Management
frm = frmTask_Management.Instance()
frm.MdiParent = MAIN_FORM
Dim activeChild As Form = MAIN_FORM.ActiveMdiChild

28
app/DD-Record-Organiser/frmConstructor_Main.resx
View File

@ -289,7 +289,7 @@
<value>0, 0</value>
</data>
<data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing">
<value>795, 270</value>
<value>788, 270</value>
</data>
<data name="GridControlMain.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@ -361,7 +361,7 @@
<value>0, 0</value>
</data>
<data name="pnlDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1072, 316</value>
<value>1069, 312</value>
</data>
<data name="pnlDetails.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@ -379,7 +379,7 @@
<value>0</value>
</data>
<data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1072, 316</value>
<value>1069, 312</value>
</data>
<data name="TabDetails.Text" xml:space="preserve">
<value>Detailansicht</value>
@ -397,7 +397,7 @@
<value>0</value>
</data>
<data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1078, 347</value>
<value>1071, 340</value>
</data>
<data name="TCDetails.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
@ -420,7 +420,7 @@
</value>
</data>
<data name="AxObjectListControl.Size" type="System.Drawing.Size, System.Drawing">
<value>1072, 291</value>
<value>1069, 287</value>
</data>
<data name="AxObjectListControl.TabIndex" type="System.Int32, mscorlib">
<value>6</value>
@ -481,7 +481,7 @@
<value>0, 0</value>
</data>
<data name="ToolStripDokumente.Size" type="System.Drawing.Size, System.Drawing">
<value>1072, 25</value>
<value>1069, 25</value>
</data>
<data name="ToolStripDokumente.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
@ -502,7 +502,7 @@
<value>1</value>
</data>
<data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing">
<value>1072, 316</value>
<value>1069, 312</value>
</data>
<data name="TabWindream.Text" xml:space="preserve">
<value>windream-Dateien</value>
@ -933,7 +933,7 @@
<value>2</value>
</data>
<data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing">
<value>1072, 316</value>
<value>1069, 312</value>
</data>
<data name="TabFollowUp.Text" xml:space="preserve">
<value>Wiedervorlage</value>
@ -960,7 +960,7 @@
<value>Cyan</value>
</data>
<data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1072, 291</value>
<value>1069, 287</value>
</data>
<data name="GridControlPos.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@ -984,7 +984,7 @@
<value>0, 25</value>
</data>
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>1072, 291</value>
<value>1069, 287</value>
</data>
<data name="Panel1.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
@ -1159,7 +1159,7 @@
<value>0, 0</value>
</data>
<data name="BindingNavigatorPOS.Size" type="System.Drawing.Size, System.Drawing">
<value>1072, 25</value>
<value>1069, 25</value>
</data>
<data name="BindingNavigatorPOS.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
@ -1188,7 +1188,7 @@
</value>
</data>
<data name="TabPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1072, 316</value>
<value>1069, 312</value>
</data>
<data name="TabPos.Text" xml:space="preserve">
<value>Positionen</value>
@ -1367,7 +1367,7 @@
<value>0, 0</value>
</data>
<data name="ToolStripEdit.Size" type="System.Drawing.Size, System.Drawing">
<value>1078, 25</value>
<value>1071, 25</value>
</data>
<data name="ToolStripEdit.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@ -1472,7 +1472,7 @@
<value>Panel2</value>
</data>
<data name="SplitContainerBottom.Size" type="System.Drawing.Size, System.Drawing">
<value>1083, 372</value>
<value>1083, 365</value>
</data>
<data name="SplitContainerBottom.TabIndex" type="System.Int32, mscorlib">
<value>0</value>

141
app/DD-Record-Organiser/frmConstructor_Main.vb
View File

@ -90,7 +90,7 @@ Public Class frmConstructor_Main
Private PARENT_ID As Integer
Private FORM_TYPE As Integer
Private FORM_ID As Integer
Private ENTITY_ID As Integer
Private FORMVIEW_ID As Integer
Private _ENTITYSQL As String
@ -811,8 +811,8 @@ Public Class frmConstructor_Main
Else
ACT_EBENE = 1
End If
FORM_ID = FormId
Dim Sql = "SELECT GUID from VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID
ENTITY_ID = FormId
Dim Sql = "SELECT GUID from VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID
CONSTRUCTOR_DETAIL_ID = ClassDatabase.Execute_Scalar(Sql, True)
Get_RecordCounts_Nodes()
Load_Entity_Data(ACT_EBENE)
@ -953,14 +953,14 @@ Public Class frmConstructor_Main
Sub Load_Controls(frmview_id As Integer)
FORMVIEW_ID = frmview_id
FORM_ID = ClassDatabase.Execute_Scalar("SELECT FORM_ID FROM TBPMO_FORM_VIEW WHERE GUID = " & frmview_id)
ENTITY_ID = ClassDatabase.Execute_Scalar("SELECT FORM_ID FROM TBPMO_FORM_VIEW WHERE GUID = " & frmview_id)
CtrlBuilder = New ClassControlBuilder(pnlDetails, ttToolTip)
'LoadControls(thisFormId)
CtrlCommandUI = New ClassControlCommandsUI(CtrlBuilder,
ContextMenuDetails,
AddressOf NewEditAppointment,
AddressOf OpenFormData)
CtrlCommandUI.LoadControls(FORM_ID)
CtrlCommandUI.LoadControls(ENTITY_ID)
Lock_RecordControls(True)
' pnlDetails.Enabled = False
@ -1020,7 +1020,7 @@ Public Class frmConstructor_Main
Lock_RecordControls(False)
tsButtonShowWorkflowTasks.Enabled = True
CURRENT_PARENT_ID = PARENT_ID
ClassControlValues.LoadDefaultValues(FORM_ID, SELECTED_RECORD_ID, pnlDetails.Controls)
ClassControlValues.LoadDefaultValues(ENTITY_ID, SELECTED_RECORD_ID, pnlDetails.Controls)
' Im gegensatz zu EnableEditMode muss hier nur der save button enabled werden
tsButtonSave.Enabled = True
EDIT_STATE = EditState.Insert
@ -1135,8 +1135,8 @@ Public Class frmConstructor_Main
Update_Status_Label(True, "Record gespeichert - " & Now, EditState.Update)
Update_Record_Label(SELECTED_RECORD_ID)
Dim FORM_TYPE = ClassDatabase.Execute_Scalar("SELECT FORM_TYPE_ID FROM TBPMO_FORM WHERE GUID = " & FORM_ID)
Dim IS_SINGLE_RECORD = ClassDatabase.Execute_Scalar("SELECT SINGLE_RECORD FROM TBPMO_FORM WHERE GUID = " & FORM_ID)
Dim FORM_TYPE = ClassDatabase.Execute_Scalar("SELECT FORM_TYPE_ID FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID)
Dim IS_SINGLE_RECORD = ClassDatabase.Execute_Scalar("SELECT SINGLE_RECORD FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID)
If IS_SINGLE_RECORD = False Then
If FORM_TYPE <> 5 Then
@ -1150,7 +1150,7 @@ Public Class frmConstructor_Main
'Get_Grid_Row_Handle(RECORD_ID)
LocateRecordById(RECORD_ID)
'Die Daten auf dem Panel laden
'ClassControlValues.LoadControlValues(RECORD_ID, FORM_ID, CtrlBuilder.AllControls)
'ClassControlValues.LoadControlValues(RECORD_ID, ENTITY_ID, CtrlBuilder.AllControls)
' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden!
RECORD_CHANGED = False
End If
@ -1212,12 +1212,12 @@ Public Class frmConstructor_Main
Me.tsButtonEditMode.Text = "Bearbeiten beenden"
' Abhängige Listen laden
ClassControlValues.LoadControlValuesListWithPlaceholders(FORM_ID, RECORD_ID, PARENT_ID, CtrlBuilder.AllControls)
ClassControlValues.LoadControlValuesListWithPlaceholders(ENTITY_ID, RECORD_ID, PARENT_ID, CtrlBuilder.AllControls)
RECORD_ENABLED = True
pnlDetails.Focus()
'If RECORD_ENABLED = False Then
' ClassControlValues.LoadControlValuesList(SELECTED_RECORD_ID, FORM_ID, CtrlBuilder.AllControls)
' ClassControlValues.LoadControlValuesList(SELECTED_RECORD_ID, ENTITY_ID, CtrlBuilder.AllControls)
'End If
End Sub
@ -1243,7 +1243,7 @@ Public Class frmConstructor_Main
Sub NewEditAppointment(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
Try
Dim ctrl As Control = sender
ClassFunctionCommandsUI.NewEditAppointment(ctrl.Name, FORM_ID, RECORD_ID, pnlDetails.Controls)
ClassFunctionCommandsUI.NewEditAppointment(ctrl.Name, ENTITY_ID, RECORD_ID, pnlDetails.Controls)
Catch ex As Exception
MsgBox("Error in OpenEditAppointment:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@ -1277,17 +1277,17 @@ Public Class frmConstructor_Main
RECORD_ID = 0
VerknüpfungenAnzeigenToolStripMenuItem.Enabled = True
'VerknüpfungenToolStripMenuItem.Enabled = False
FORM_TYPE = ClassDatabase.Execute_Scalar("SELECT FORM_TYPE_ID FROM TBPMO_FORM WHERE GUID = " & FORM_ID)
IS_SINGLE_RECORD = ClassDatabase.Execute_Scalar("SELECT SINGLE_RECORD FROM TBPMO_FORM WHERE GUID = " & FORM_ID)
LOAD_DIRECT = ClassDatabase.Execute_Scalar("SELECT LOAD_DIRECT FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID)
CURRENT_CONSTRUCTOR_DETAIL_ID = ClassDatabase.Execute_Scalar("SELECT GUID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID)
POS_ENTITY = ClassDatabase.Execute_Scalar("SELECT POS_ENTITY FROM TBPMO_FORM WHERE GUID = " & FORM_ID)
FORM_TYPE = ClassDatabase.Execute_Scalar("SELECT FORM_TYPE_ID FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID)
IS_SINGLE_RECORD = ClassDatabase.Execute_Scalar("SELECT SINGLE_RECORD FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID)
LOAD_DIRECT = ClassDatabase.Execute_Scalar("SELECT LOAD_DIRECT FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND ENTITY_ID = " & ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID)
CURRENT_CONSTRUCTOR_DETAIL_ID = ClassDatabase.Execute_Scalar("SELECT GUID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID)
POS_ENTITY = ClassDatabase.Execute_Scalar("SELECT POS_ENTITY FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID)
If VIEW_ID_RUNTIME <> -1 Then
GRID_TYPE_ID = VIEW_ID_RUNTIME
Else
Dim VIEW_ID = ClassDatabase.Execute_Scalar(String.Format("SELECT VIEW_ID FROM TBPMO_USER_CONSTR_VIEW_TYPE WHERE CONSTRUCTOR_DETAIL_ID = {0} AND [ENTITY_ID] = {1} AND USER_ID = {2}", CURRENT_CONSTRUCTOR_DETAIL_ID, FORM_ID, USER_GUID), True)
Dim VIEW_ID = ClassDatabase.Execute_Scalar(String.Format("SELECT VIEW_ID FROM TBPMO_USER_CONSTR_VIEW_TYPE WHERE CONSTRUCTOR_DETAIL_ID = {0} AND [ENTITY_ID] = {1} AND USER_ID = {2}", CURRENT_CONSTRUCTOR_DETAIL_ID, ENTITY_ID, USER_GUID), True)
If IsNothing(VIEW_ID) Then
ClassDatabase.Execute_non_Query("INSERT INTO TBPMO_USER_CONSTR_VIEW_TYPE ([USER_ID],CONSTRUCTOR_DETAIL_ID,[ENTITY_ID]) VALUES (" & USER_GUID & "," & CURRENT_CONSTRUCTOR_DETAIL_ID & "," & FORM_ID & ")", True)
ClassDatabase.Execute_non_Query("INSERT INTO TBPMO_USER_CONSTR_VIEW_TYPE ([USER_ID],CONSTRUCTOR_DETAIL_ID,[ENTITY_ID]) VALUES (" & USER_GUID & "," & CURRENT_CONSTRUCTOR_DETAIL_ID & "," & ENTITY_ID & ")", True)
VIEW_ID = 1
End If
GRID_TYPE_ID = VIEW_ID
@ -1307,7 +1307,7 @@ Public Class frmConstructor_Main
End Select
SELECTED_RECORD_ID = 0
Dim DT As DataTable
Dim sql As String = "SELECT PARENT_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID
Dim sql As String = "SELECT PARENT_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID
Dim PARENT_ID = ClassDatabase.Execute_Scalar(sql)
If PARENT_ID Is Nothing Then
MsgBox("Error in GetParentID for selectedNode - Check Logfile", MsgBoxStyle.Exclamation)
@ -1315,9 +1315,9 @@ Public Class frmConstructor_Main
End If
'Abhängig von der Entität die Selektierungs-Daten laden
Get_Grid_Sql(CONSTRUCTORID, FORM_ID)
Get_Grid_Sql(CONSTRUCTORID, ENTITY_ID)
'Anzahl der Datensätze
ENTITY_RECORD_COUNT = ClassDatabase.Execute_Scalar("SELECT COUNT(*) FROM TBPMO_RECORD where FORM_ID = " & FORM_ID, True)
ENTITY_RECORD_COUNT = ClassDatabase.Execute_Scalar("SELECT COUNT(*) FROM TBPMO_RECORD where FORM_ID = " & ENTITY_ID, True)
Select Case ClickedLevel
Case 1
EBENE1_ENTITY = ""
@ -1337,15 +1337,15 @@ Public Class frmConstructor_Main
'tslblEntity2.Visible = False
'tslblEntity3.Visible = False
EBENE1_COLUMNNAME = ClassDatabase.Execute_Scalar("SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID)
EBENE1_COLUMNNAME = ClassDatabase.Execute_Scalar("SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID)
EBENE2_COLUMNNAME = ""
EBENE3_COLUMNNAME = ""
EBENE2_GRID_RESULT = Nothing
EBENE3_GRID_RESULT = Nothing
'_sql = ClassDatabase.Execute_Scalar("SELECT SQL_QUICK_VIEW FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID)
'_sql = ClassDatabase.Execute_Scalar("SELECT SQL_QUICK_VIEW FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & ENTITY_ID)
Case 2
'Dim Level1Select = ClassDatabase.Execute_Scalar(Get_Grid_Sql(CONSTRUCTORID, FORM_ID)) 'ClassDatabase.Execute_Scalar("SELECT LEVEL1_SELECT FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID)
'Dim Level1Select = ClassDatabase.Execute_Scalar(Get_Grid_Sql(CONSTRUCTORID, ENTITY_ID)) 'ClassDatabase.Execute_Scalar("SELECT LEVEL1_SELECT FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND ENTITY_ID = " & ENTITY_ID)
'If CBool(Level1Select) = False And FORM_TYPE <> 5 And EBENE1_RECID = 0 Then
' MsgBox("Entität '" & TreeViewLevelSelect.SelectedNode.Text & "' kann nicht ohne Auswahl eines Ebene 1 Datensatzes gewählt werden!", MsgBoxStyle.Exclamation)
' TreeViewLevelSelect.SelectedNode = TreeViewLevelSelect.SelectedNode.Parent
@ -1360,7 +1360,7 @@ Public Class frmConstructor_Main
PARENT_RECORDID = EBENE1_RECID
PARENT_ID = EBENE1_RECID
If GRID_TYPE = GridType.Grid Then
_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FORM_ID.ToString & " T, TBPMO_RECORD_CONNECT t1 where T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = " & PARENT_ID
_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & ENTITY_ID.ToString & " T, TBPMO_RECORD_CONNECT t1 where T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = " & PARENT_ID
Else
_ENTITYSQL = _ENTITYSQL.Replace("@RecordID", EBENE2_RECID)
_ENTITYSQL = _ENTITYSQL.ToString.Replace("TBPMO_FORM T1", "TBPMO_FORM T1 ,TBPMO_RECORD_CONNECT T2")
@ -1384,7 +1384,7 @@ Public Class frmConstructor_Main
' End If
'End Select
EBENE2_COLUMNNAME = ClassDatabase.Execute_Scalar("SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID)
EBENE2_COLUMNNAME = ClassDatabase.Execute_Scalar("SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID)
EBENE3_COLUMNNAME = ""
EBENE2_GRID_RESULT = Nothing
EBENE3_GRID_RESULT = Nothing
@ -1394,7 +1394,7 @@ Public Class frmConstructor_Main
ACT_EBENE_STRING = EBENE3_ENTITY
If LogErrorsOnly = False Then ClassLogger.Add(">> Ebene 3 in TreeView selektiert", False)
EBENE3_COLUMNNAME = ClassDatabase.Execute_Scalar("SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & FORM_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID)
EBENE3_COLUMNNAME = ClassDatabase.Execute_Scalar("SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID)
'Wenn bereits ein Record für Ebene 1 gewählt wurde dann eisnchränken
If EBENE2_RECID > 0 Then
'Parent-ID setzen
@ -1402,7 +1402,7 @@ Public Class frmConstructor_Main
PARENT_ID = EBENE2_RECID
Try
If GRID_TYPE = GridType.Grid Then
_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FORM_ID.ToString & " T, TBPMO_RECORD_CONNECT t1 where T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = " & PARENT_ID
_ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & ENTITY_ID.ToString & " T, TBPMO_RECORD_CONNECT t1 where T.[Record-ID] = T1.RECORD2_ID AND T1.RECORD1_ID = " & PARENT_ID
Else
_ENTITYSQL = _ENTITYSQL.Replace("@RecordID", EBENE2_RECID)
_ENTITYSQL = _ENTITYSQL.ToString.Replace("TBPMO_FORM T1", "TBPMO_FORM T1 ,TBPMO_RECORD_CONNECT T2")
@ -1433,7 +1433,7 @@ Public Class frmConstructor_Main
_ENTITYSTRING = ACT_EBENE_STRING
PARENT_ID = PARENT_RECORDID
act_FormViewID = ClassDatabase.Execute_Scalar("SELECT GUID FROM TBPMO_FORM_VIEW where FORM_ID = " & FORM_ID)
act_FormViewID = ClassDatabase.Execute_Scalar("SELECT GUID FROM TBPMO_FORM_VIEW where FORM_ID = " & ENTITY_ID)
If EDIT_STATE = EditState.None Then
'Die Controls der Entität laden
@ -1518,7 +1518,7 @@ Public Class frmConstructor_Main
' End If
'End If
'Überprüfen ob es für diese Entität Wiedervorlagen gibt?
Check_FOLLOWUP_IsConfigured(FORM_ID)
Check_FOLLOWUP_IsConfigured(ENTITY_ID)
Load_Grid_Layout()
Load_Splitter_Layout()
End If
@ -1539,10 +1539,10 @@ Public Class frmConstructor_Main
'Dim firstRow As System.Data.DataRowView = GridControlMain.MainView.GetRow(0)
'If Not IsNothing(firstRow) Then
' Dim firstRecordId As Integer = firstRow.Row.Item("Record-ID")
' ClassControlValues.LoadControlValuesList(firstRecordId, PARENT_ID, FORM_ID, CtrlBuilder.MasterPanel.Controls)
' ClassControlValues.LoadControlValuesList(firstRecordId, PARENT_ID, ENTITY_ID, CtrlBuilder.MasterPanel.Controls)
'End If
' Hinfällig, da hier die Record-ID nicht gebraucht wird
ClassControlValues.LoadControlValuesList(FORM_ID, CtrlBuilder.MasterPanel.Controls)
ClassControlValues.LoadControlValuesList(ENTITY_ID, CtrlBuilder.MasterPanel.Controls)
'Zurücksetzen
ENTITY_LOADED = True
@ -1571,8 +1571,8 @@ Public Class frmConstructor_Main
SELECTED_RECORD_ID = Grid_RecordID
RECORD_ID = Grid_RecordID
'Daten zu Record in jedem Fall laden
'ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, FORM_ID, CtrlBuilder.AllControls)
ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, PARENT_ID, FORM_ID, CtrlBuilder.AllControls)
'ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, ENTITY_ID, CtrlBuilder.AllControls)
ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, PARENT_ID, ENTITY_ID, CtrlBuilder.AllControls)
' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden!
RECORD_CHANGED = False
Update_Record_Label(Grid_RecordID)
@ -1801,17 +1801,17 @@ Public Class frmConstructor_Main
End If
End Sub
Private Function GET_GROUP_OR_SINGLE_RECORD(PARENT_RECORD_ID As Integer, Entityload As Boolean)
'Dim sqlRecord As String = String.Format("SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = {0} AND T1.FORM_ID = (SELECT PARENT_ID FROM TBPMO_FORM WHERE GUID = {1})", LINKED_RECORD, FORM_ID)
Dim sql As String = String.Format("SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = {0} and T1.FORM_ID = {1}", PARENT_RECORD_ID, FORM_ID)
'Dim sqlRecord As String = String.Format("SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = {0} AND T1.ENTITY_ID = (SELECT PARENT_ID FROM TBPMO_FORM WHERE GUID = {1})", LINKED_RECORD, ENTITY_ID)
Dim sql As String = String.Format("SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = {0} and T1.FORM_ID = {1}", PARENT_RECORD_ID, ENTITY_ID)
Dim GRP_SINGLE_REC = ClassDatabase.Execute_Scalar(sql, True)
If IsNothing(GRP_SINGLE_REC) Then
If ClassControlCommandsUI.CreateRecord(FORM_ID) = True Then
If ClassControlCommandsUI.CreateRecord(ENTITY_ID) = True Then
GRP_SINGLE_REC = ClassControlCommandsUI.GetLastRecord
If Not IsNothing(GRP_SINGLE_REC) Then
'Die neue Record-ID setzen
RECORD_ID = GRP_SINGLE_REC
SELECTED_RECORD_ID = RECORD_ID
If ClassControlCommandsUI.ConnectRecord(PARENT_RECORD_ID, RECORD_ID, "PARENT_LINK (Group/Single-Record) for Entity " & FORM_ID.ToString) = False Then
If ClassControlCommandsUI.ConnectRecord(PARENT_RECORD_ID, RECORD_ID, "PARENT_LINK (Group/Single-Record) for Entity " & ENTITY_ID.ToString) = False Then
MsgBox("Unexpected Error in Connecting Record. Check log", MsgBoxStyle.Critical)
Return False
End If
@ -1897,7 +1897,7 @@ Public Class frmConstructor_Main
CreateTile()
Else
' Alle Checkboxen für aktuelle Ansicht heraussuchen
Dim sqlcheck As String = "SELECT CONTROL_COLUMN FROM VWPMO_VALUES WHERE CONTROL_TYPE_ID in (10,11) AND FORM_ID = " & FORM_ID
Dim sqlcheck As String = "SELECT CONTROL_COLUMN FROM VWPMO_VALUES WHERE CONTROL_TYPE_ID in (10,11) AND FORM_ID = " & ENTITY_ID
Dim dtcheck As DataTable = ClassDatabase.Return_Datatable(sqlcheck)
Dim listcheck As New List(Of String)
@ -1952,7 +1952,7 @@ Public Class frmConstructor_Main
End Function
Sub HideColumns()
Try
Dim SQL As String = "SELECT CONTROL_ID, CONTROL_COL_NAME, CONTROL_SHOW_COLUMN FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_SHOW_COLUMN = 0 AND FORM_ID = " & FORM_ID
Dim SQL As String = "SELECT CONTROL_ID, CONTROL_COL_NAME, CONTROL_SHOW_COLUMN FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_SHOW_COLUMN = 0 AND FORM_ID = " & ENTITY_ID
Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL)
If GRID_TYPE = GridType.Grid Then
Dim cols As DevExpress.XtraGrid.Columns.GridColumnCollection = grvwGrid.Columns
@ -2012,10 +2012,10 @@ Public Class frmConstructor_Main
' Dim pID As Integer
Select Case ACT_EBENE '#### Hier muss nun der Parent-Record gewählt werden ####
Case 3
linkedRecord = GET_LINKED_RECORD(Rec_ID, FORM_ID)
linkedRecord = GET_LINKED_RECORD(Rec_ID, ENTITY_ID)
If linkedRecord > 0 Then
Dim sqlp = "SELECT PARENT_ID FROM TBPMO_FORM WHERE GUID = " & FORM_ID
Dim sqlp = "SELECT PARENT_ID FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID
Dim Parent_EntityID = ClassDatabase.Execute_Scalar(sqlp, True)
Dim sql As String = String.Format("SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = {0} and T1.FORM_ID = {1}", RECORD_ID, Parent_EntityID)
Dim PARENT_RECORD1 = ClassDatabase.Execute_Scalar(sql, True)
@ -2025,7 +2025,7 @@ Public Class frmConstructor_Main
PARENT_ID = PARENT_RECORD1
End If
Case 2
linkedRecord = GET_LINKED_RECORD(Rec_ID, FORM_ID)
linkedRecord = GET_LINKED_RECORD(Rec_ID, ENTITY_ID)
If linkedRecord > 0 Then
EBENE1_RECID = Rec_ID
PARENT_RECORDID = EBENE1_RECID
@ -2085,8 +2085,8 @@ Public Class frmConstructor_Main
End If
If TCDetails.SelectedTabPage.Text.StartsWith("Detail") Or TCDetails.SelectedTabPage.Text.StartsWith("Kopf") Then
'Daten zu Record in jedem Fall laden
'ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, FORM_ID, CtrlBuilder.AllControls)
ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, PARENT_ID, FORM_ID, CtrlBuilder.AllControls)
'ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, ENTITY_ID, CtrlBuilder.AllControls)
ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, PARENT_ID, ENTITY_ID, CtrlBuilder.AllControls)
End If
If TCDetails.SelectedTabPage.Text.ToLower.StartsWith("wieder") Then
tsButtonEditMode.Enabled = False
@ -2330,7 +2330,7 @@ Public Class frmConstructor_Main
End If
' Record Speichern
Dim ResultMessage = CtrlCommandUI.SaveRecord(SELECTED_RECORD_ID, FORM_ID, PARENT_RECORDID)
Dim ResultMessage = CtrlCommandUI.SaveRecord(SELECTED_RECORD_ID, ENTITY_ID, PARENT_RECORDID)
'Jetzt die für die Entität notwendigen Prroceduren ausführen
Customer_Run_Procedures()
RECORD_CHANGED = False
@ -2340,11 +2340,11 @@ Public Class frmConstructor_Main
Private Sub Customer_Run_Procedures()
Try
Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_RUN_PROCEDURES WHERE FORM_ID = " & FORM_ID)
Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBPMO_RUN_PROCEDURES WHERE FORM_ID = " & ENTITY_ID)
If Not DT Is Nothing Then
For Each row As DataRow In DT.Rows
Dim prsql As String = row.Item("EXECUTE_COMMAND")
prsql = prsql.ToUpper.Replace("@FORM_ID", FORM_ID)
prsql = prsql.ToUpper.Replace("@FORM_ID", ENTITY_ID)
prsql = prsql.ToUpper.Replace("@RECORD_ID", RECORD_ID)
ClassDatabase.Execute_non_Query(prsql, True)
Next
@ -2390,7 +2390,7 @@ Public Class frmConstructor_Main
Cursor = Cursors.WaitCursor
Dim DTWD As DataTable
If Type = "ENTITY" Then
Dim _sql = "SELECT WINDREAM_SEARCH,SEARCH_PATTERN1,SEARCH_PATTERN2,SEARCH_PATTERN3,SEARCH_PATTERN4,SEARCH_PATTERN5 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE WINDREAM_SEARCH <> '' AND FORM_ID = " & FORM_ID
Dim _sql = "SELECT WINDREAM_SEARCH,SEARCH_PATTERN1,SEARCH_PATTERN2,SEARCH_PATTERN3,SEARCH_PATTERN4,SEARCH_PATTERN5 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE WINDREAM_SEARCH <> '' AND FORM_ID = " & ENTITY_ID
DTWD = ClassDatabase.Return_Datatable(_sql)
If DTWD.Rows.Count = 1 Then
If IsDBNull(DTWD.Rows(0).Item(0)) Then
@ -2403,7 +2403,7 @@ Public Class frmConstructor_Main
Exit Sub
End If
Else
Dim sql = "SELECT WINDREAM_SEARCH,SEARCH_PATTERN1,SEARCH_PATTERN2,SEARCH_PATTERN3,SEARCH_PATTERN4,SEARCH_PATTERN5 FROM TBPMO_FORM_VIEW WHERE WINDREAM_SEARCH <> '' AND FORM_ID = " & FORM_ID
Dim sql = "SELECT WINDREAM_SEARCH,SEARCH_PATTERN1,SEARCH_PATTERN2,SEARCH_PATTERN3,SEARCH_PATTERN4,SEARCH_PATTERN5 FROM TBPMO_FORM_VIEW WHERE WINDREAM_SEARCH <> '' AND FORM_ID = " & ENTITY_ID
DTWD = ClassDatabase.Return_Datatable(sql)
If DTWD.Rows.Count = 1 Then
If IsDBNull(DTWD.Rows(0).Item(0)) Then
@ -2663,7 +2663,7 @@ Public Class frmConstructor_Main
Case "@Record-ID".ToUpper
Return RECORD_ID
Case "@EntityID".ToUpper
Return FORM_ID
Return ENTITY_ID
Case "@ParentID".ToUpper
Return PARENT_RECORDID
Case Else
@ -2759,7 +2759,7 @@ Public Class frmConstructor_Main
VIEWTYPE_ID = 3
End Select
Dim upd = String.Format("UPDATE TBPMO_USER_CONSTR_VIEW_TYPE SET VIEW_ID = {0} WHERE CONSTRUCTOR_DETAIL_ID = {1} AND [ENTITY_ID] = {2} AND USER_ID = {3}", VIEWTYPE_ID, CURRENT_CONSTRUCTOR_DETAIL_ID, FORM_ID, USER_GUID)
Dim upd = String.Format("UPDATE TBPMO_USER_CONSTR_VIEW_TYPE SET VIEW_ID = {0} WHERE CONSTRUCTOR_DETAIL_ID = {1} AND [ENTITY_ID] = {2} AND USER_ID = {3}", VIEWTYPE_ID, CURRENT_CONSTRUCTOR_DETAIL_ID, ENTITY_ID, USER_GUID)
If ClassDatabase.Execute_non_Query(upd, True) = True Then
' VIEW_ID Override zurücksetzen!!
VIEW_ID_RUNTIME = -1
@ -2806,13 +2806,13 @@ Public Class frmConstructor_Main
Refresh_FollowUps()
dtpFollowUp.Enabled = False
lblWiedervorlage_Control.Text = "<< Waiting for Selection:"
'Check_FOLLOWUP_IsConfigured(FORM_ID)
'Check_FOLLOWUP_IsConfigured(ENTITY_ID)
End If
Select Case TCDetails.SelectedTabPageIndex
Case 0
'If RECORD_NEEDS_REFRESH = True Then
' ClassControlValues.LoadControlValues(RECORD_ID, FORM_ID, CtrlBuilder.AllControls)
' ClassControlValues.LoadControlValues(RECORD_ID, ENTITY_ID, CtrlBuilder.AllControls)
' ' UpdRECORD_NEEDS_REFRESH(False)
'End If
@ -2899,7 +2899,7 @@ Public Class frmConstructor_Main
CURRENT_FILEID = Filerow.Item(0)
CURRENT_PARENT_ID = PARENT_ID
CURRENT_RECORD_ID = RECORD_ID
CURRENT_FORM_ID = FORM_ID
CURRENT_FORM_ID = ENTITY_ID
CURRENT_FORMVIEW_ID = FORMVIEW_ID
frmWD_Index_Dokart.ShowDialog()
RUN_WD_SEARCH(WD_Suche, "RECORD")
@ -3070,23 +3070,24 @@ Public Class frmConstructor_Main
Private Sub tsButtonShowWorkflowTasks_Click(sender As Object, e As EventArgs) Handles tsButtonShowWorkflowTasks.Click
If RECORD_ID > 0 Then
CURRENT_RECORD_ID = RECORD_ID
frmTaskEditor.ShowDialog()
CURRENT_FORM_ID = ENTITY_ID
frmTask_Editor.ShowDialog()
Show_act_WFTask()
Refresh_TaskOverview()
End If
End Sub
Private Sub tsButtonShowTaskOverview_Click(sender As Object, e As EventArgs) Handles tsButtonShowTaskOverview.Click
frmTaskOverview.Show()
frmTask_Overview.Show()
End Sub
Sub Refresh_TaskOverview()
Dim frmCollection As New FormCollection()
frmCollection = Application.OpenForms()
If frmTaskOverview.IsHandleCreated Then
If frmTask_Overview.IsHandleCreated Then
If Sett_TaskOverviewKeepInFront = True Then
frmTaskOverview.Refresh()
frmTask_Overview.Refresh()
End If
'Else
' Console.WriteLine("frmTaskOverview NICHT geladen")
@ -3094,7 +3095,7 @@ Public Class frmConstructor_Main
End Sub
Sub Show_act_WFTask()
Try
Me.VWPMO_WF_ACTIVETableAdapter.FillByRecord(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, Environment.UserName)
Me.VWPMO_WF_ACTIVETableAdapter.FillByRecord(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, RECORD_ID, Environment.UserName)
tsslblWorkflowstate.BackColor = Color.Black
If DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows.Count > 0 Then
CURRENT_TASK_ID = Me.DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows(0).Item("WF_TASK_ID")
@ -3126,7 +3127,7 @@ Public Class frmConstructor_Main
' grvwSelection.Appearance.FocusedRow.BackColor = Color.Fuchsia
End If
Dim sql1 As String = "SELECT COUNT(*) FROM TBPMO_WORKFLOW_FORM where FORM_ID = @FORM_ID"
sql1 = sql1.Replace("@FORM_ID", FORM_ID)
sql1 = sql1.Replace("@FORM_ID", ENTITY_ID)
Dim result As Integer = ClassDatabase.Execute_Scalar(sql1)
If result > 0 Then
tsButtonShowWorkflowTasks.Visible = True
@ -3158,7 +3159,7 @@ Public Class frmConstructor_Main
Exit Sub
End If
CURRENT_ENTITYSTRING = _ENTITYSTRING
CURRENT_FORM_ID = FORM_ID
CURRENT_FORM_ID = ENTITY_ID
frmWD_EntityImport.ShowDialog()
End Sub
@ -3177,9 +3178,9 @@ Public Class frmConstructor_Main
End If
result = MessageBox.Show(stg, "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Try
Dim sql = "EXEC PRPMO_RECORD_CREATE_WORKFLOWTASKS " & RECORD_ID
CURRENT_FORM_ID = ENTITY_ID
Dim sql = "EXEC PRPMO_CREATE_WF_TASKS " & CURRENT_FORM_ID & " " & RECORD_ID
If ClassDatabase.Execute_non_Query(sql) Then
Show_act_WFTask()
End If
@ -3288,7 +3289,7 @@ Public Class frmConstructor_Main
Sub Load_Templates()
Try
Dim sql As String = "SELECT * FROM VWPMO_TEMPLATE_ENTITY WHERE ENTITY_ID = " & FORM_ID & " ORDER BY TEMPLATE_NAME"
Dim sql As String = "SELECT * FROM VWPMO_TEMPLATE_ENTITY WHERE ENTITY_ID = " & ENTITY_ID & " ORDER BY TEMPLATE_NAME"
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "Load_Templates")
If Not IsNothing(DT) Then
If DT.Rows.Count > 0 Then
@ -3496,7 +3497,7 @@ Public Class frmConstructor_Main
Try
' SELECT COLUMN_NAME1 FROM VWTEMP_cPMO_FORM
Dim sql = String.Format("SELECT TOP 1 PARENT_ID, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'FORM_TITLE' " & _
"from VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {2} AND SCREEN_ID = {3} AND FORM_ID = {4}", USER_LANGUAGE, CURRENT_SCREEN_ID, CONSTRUCTORID, CURRENT_SCREEN_ID, FORM_ID)
"from VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {2} AND SCREEN_ID = {3} AND FORM_ID = {4}", USER_LANGUAGE, CURRENT_SCREEN_ID, CONSTRUCTORID, CURRENT_SCREEN_ID, ENTITY_ID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "Parent-Data")
Dim Parent_ID = DT.Rows(0).Item(0)
@ -3553,13 +3554,13 @@ Public Class frmConstructor_Main
If result <> MsgBoxResult.Yes Then
Exit Sub
Else
If ClassDatabase.Execute_non_Query("DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD2_ID = " & RECORD_ID & " AND RECORD1_ID = (SELECT PARENT_ID FROM TBPMO_FORM WHERE GUID = " & FORM_ID & ")", True) = False Then
If ClassDatabase.Execute_non_Query("DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD2_ID = " & RECORD_ID & " AND RECORD1_ID = (SELECT PARENT_ID FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID & ")", True) = False Then
Exit Sub
End If
End If
End If
If ClassControlCommandsUI.ConnectRecord(LinkParentID, RECORD_ID, "ReLInk ENTITY " & FORM_ID.ToString) = True Then
If ClassControlCommandsUI.ConnectRecord(LinkParentID, RECORD_ID, "ReLInk ENTITY " & ENTITY_ID.ToString) = True Then
'Save_GridViewParentEntityLayout()
MsgBox("Die Parent-Entität wurde erfolgreich aktualisiert!", MsgBoxStyle.Information)
Check_Record_Changed()
@ -3594,7 +3595,7 @@ Public Class frmConstructor_Main
If result = MsgBoxResult.Yes Then
Try
Cursor = Cursors.WaitCursor
CURRENT_FORM_ID = FORM_ID
CURRENT_FORM_ID = ENTITY_ID
ClassControlValueCache.ClearCache()
DisableEditMode()
Load_Entity_Data(ACT_EBENE)

110
app/DD-Record-Organiser/frmTaskEditor.Designer.vb → app/DD-Record-Organiser/frmTask_Editor.Designer.vb generated
View File

@ -1,5 +1,5 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmTaskEditor
Partial Class frmTask_Editor
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
@ -24,7 +24,7 @@ Partial Class frmTaskEditor
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim CHANGED_WHENLabel As System.Windows.Forms.Label
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTaskEditor))
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTask_Editor))
Dim GUIDLabel As System.Windows.Forms.Label
Dim CHANGED_WHOLabel As System.Windows.Forms.Label
Dim TITLELabel As System.Windows.Forms.Label
@ -42,8 +42,8 @@ Partial Class frmTaskEditor
Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager()
Me.TBPMO_WORKFLOW_TASK_STATETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_TASK_STATETableAdapter()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.RECORD_IDTextBox = New System.Windows.Forms.TextBox()
Me.VWPMO_WF_USER_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.WF_IDTextBox = New System.Windows.Forms.TextBox()
Me.VWPMO_WF_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
Me.btnAddAppointment = New System.Windows.Forms.Button()
Me.btndeleteTask = New System.Windows.Forms.Button()
@ -56,7 +56,6 @@ Partial Class frmTaskEditor
Me.DUE_DATEDateTimePicker = New System.Windows.Forms.DateTimePicker()
Me.STATE_IDComboBox = New System.Windows.Forms.ComboBox()
Me.TBPMO_WORKFLOW_TASK_STATEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.VWPMO_FOLLOWING_TASKSBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.Label1 = New System.Windows.Forms.Label()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.btnAddUser = New System.Windows.Forms.Button()
@ -68,10 +67,9 @@ Partial Class frmTaskEditor
Me.Label3 = New System.Windows.Forms.Label()
Me.btndeleteuser = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label()
Me.VWPMO_WF_USER_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_USER_ACTIVETableAdapter()
Me.VWPMO_FOLLOWING_TASKSTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_FOLLOWING_TASKSTableAdapter()
Me.btndelete_following = New System.Windows.Forms.Button()
Me.ListBoxFollowing = New System.Windows.Forms.ListBox()
Me.VWPMO_WF_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter()
CHANGED_WHENLabel = New System.Windows.Forms.Label()
GUIDLabel = New System.Windows.Forms.Label()
CHANGED_WHOLabel = New System.Windows.Forms.Label()
@ -85,9 +83,8 @@ Partial Class frmTaskEditor
CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPMO_WORKFLOW_TASKBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout()
CType(Me.VWPMO_WF_USER_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPMO_WORKFLOW_TASK_STATEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.VWPMO_FOLLOWING_TASKSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox2.SuspendLayout()
Me.SuspendLayout()
'
@ -144,13 +141,14 @@ Partial Class frmTaskEditor
'OK_Button
'
resources.ApplyResources(Me.OK_Button, "OK_Button")
Me.OK_Button.Image = Global.DD_Record_Organiser.My.Resources.Resources.brick_go
Me.OK_Button.Image = Global.DD_Record_Organiser.My.Resources.Resources.save
Me.OK_Button.Name = "OK_Button"
'
'Cancel_Button
'
resources.ApplyResources(Me.Cancel_Button, "Cancel_Button")
Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Cancel_Button.Image = Global.DD_Record_Organiser.My.Resources.Resources.cancel1
Me.Cancel_Button.Name = "Cancel_Button"
'
'DD_DMSDataSet
@ -206,9 +204,8 @@ Partial Class frmTaskEditor
'
'GroupBox1
'
resources.ApplyResources(Me.GroupBox1, "GroupBox1")
Me.GroupBox1.Controls.Add(Me.WF_IDTextBox)
Me.GroupBox1.Controls.Add(RECORD_IDLabel)
Me.GroupBox1.Controls.Add(Me.RECORD_IDTextBox)
Me.GroupBox1.Controls.Add(Me.DateTimePicker1)
Me.GroupBox1.Controls.Add(Label4)
Me.GroupBox1.Controls.Add(Me.btnAddAppointment)
@ -229,98 +226,97 @@ Partial Class frmTaskEditor
Me.GroupBox1.Controls.Add(Me.DUE_DATEDateTimePicker)
Me.GroupBox1.Controls.Add(Me.STATE_IDComboBox)
Me.GroupBox1.Controls.Add(DUE_DATELabel)
resources.ApplyResources(Me.GroupBox1, "GroupBox1")
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.TabStop = False
'
'RECORD_IDTextBox
'WF_IDTextBox
'
resources.ApplyResources(Me.RECORD_IDTextBox, "RECORD_IDTextBox")
Me.RECORD_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_USER_ACTIVEBindingSource, "RECORD_ID", True))
Me.RECORD_IDTextBox.Name = "RECORD_IDTextBox"
Me.RECORD_IDTextBox.ReadOnly = True
Me.RECORD_IDTextBox.TabStop = False
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"
'
'VWPMO_WF_USER_ACTIVEBindingSource
'VWPMO_WF_ACTIVEBindingSource
'
Me.VWPMO_WF_USER_ACTIVEBindingSource.DataMember = "VWPMO_WF_USER_ACTIVE"
Me.VWPMO_WF_USER_ACTIVEBindingSource.DataSource = Me.DD_DMSDataSet
Me.VWPMO_WF_ACTIVEBindingSource.DataMember = "VWPMO_WF_ACTIVE"
Me.VWPMO_WF_ACTIVEBindingSource.DataSource = Me.DD_DMSDataSet
'
'DateTimePicker1
'
resources.ApplyResources(Me.DateTimePicker1, "DateTimePicker1")
Me.DateTimePicker1.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.VWPMO_WF_USER_ACTIVEBindingSource, "TASK_DATE", True))
Me.DateTimePicker1.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.VWPMO_WF_ACTIVEBindingSource, "TASK_DATE", True))
Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
resources.ApplyResources(Me.DateTimePicker1, "DateTimePicker1")
Me.DateTimePicker1.Name = "DateTimePicker1"
'
'btnAddAppointment
'
resources.ApplyResources(Me.btnAddAppointment, "btnAddAppointment")
Me.btnAddAppointment.Image = Global.DD_Record_Organiser.My.Resources.Resources.AddTable_5632
resources.ApplyResources(Me.btnAddAppointment, "btnAddAppointment")
Me.btnAddAppointment.Name = "btnAddAppointment"
Me.btnAddAppointment.UseVisualStyleBackColor = True
'
'btndeleteTask
'
resources.ApplyResources(Me.btndeleteTask, "btndeleteTask")
Me.btndeleteTask.Image = Global.DD_Record_Organiser.My.Resources.Resources.note_delete
resources.ApplyResources(Me.btndeleteTask, "btndeleteTask")
Me.btndeleteTask.Name = "btndeleteTask"
Me.btndeleteTask.UseVisualStyleBackColor = True
'
'GUIDTextBox
'
Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "WF_TASK_ID", True))
resources.ApplyResources(Me.GUIDTextBox, "GUIDTextBox")
Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_USER_ACTIVEBindingSource, "WF_TASK_ID", True))
Me.GUIDTextBox.Name = "GUIDTextBox"
Me.GUIDTextBox.ReadOnly = True
'
'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.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_USER_ACTIVEBindingSource, "CHANGED_WHEN", True))
Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox"
Me.CHANGED_WHENTextBox.ReadOnly = True
'
'TITLETextBox
'
Me.TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "TITLE", True))
resources.ApplyResources(Me.TITLETextBox, "TITLETextBox")
Me.TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_USER_ACTIVEBindingSource, "TITLE", True))
Me.TITLETextBox.Name = "TITLETextBox"
Me.TITLETextBox.ReadOnly = True
'
'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.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_USER_ACTIVEBindingSource, "CHANGED_WHO", True))
Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox"
Me.CHANGED_WHOTextBox.ReadOnly = True
'
'COMMENTTextBox
'
Me.COMMENTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "COMMENT", True))
resources.ApplyResources(Me.COMMENTTextBox, "COMMENTTextBox")
Me.COMMENTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_USER_ACTIVEBindingSource, "COMMENT", True))
Me.COMMENTTextBox.Name = "COMMENTTextBox"
'
'ADDED_WHENTextBox
'
Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "ADDED_WHEN", True))
resources.ApplyResources(Me.ADDED_WHENTextBox, "ADDED_WHENTextBox")
Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_USER_ACTIVEBindingSource, "ADDED_WHEN", True))
Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox"
Me.ADDED_WHENTextBox.ReadOnly = True
'
'DUE_DATEDateTimePicker
'
resources.ApplyResources(Me.DUE_DATEDateTimePicker, "DUE_DATEDateTimePicker")
Me.DUE_DATEDateTimePicker.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.VWPMO_WF_USER_ACTIVEBindingSource, "DUE_DATE", True))
Me.DUE_DATEDateTimePicker.DataBindings.Add(New System.Windows.Forms.Binding("Value", 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"
'
'STATE_IDComboBox
'
resources.ApplyResources(Me.STATE_IDComboBox, "STATE_IDComboBox")
Me.STATE_IDComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.VWPMO_WF_USER_ACTIVEBindingSource, "STATE_ID", True))
Me.STATE_IDComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.VWPMO_WF_ACTIVEBindingSource, "STATE_ID", True))
Me.STATE_IDComboBox.DataSource = Me.TBPMO_WORKFLOW_TASK_STATEBindingSource
Me.STATE_IDComboBox.DisplayMember = "STATE_DESC"
Me.STATE_IDComboBox.FormattingEnabled = True
resources.ApplyResources(Me.STATE_IDComboBox, "STATE_IDComboBox")
Me.STATE_IDComboBox.Name = "STATE_IDComboBox"
Me.STATE_IDComboBox.ValueMember = "GUID"
'
@ -329,11 +325,6 @@ Partial Class frmTaskEditor
Me.TBPMO_WORKFLOW_TASK_STATEBindingSource.DataMember = "TBPMO_WORKFLOW_TASK_STATE"
Me.TBPMO_WORKFLOW_TASK_STATEBindingSource.DataSource = Me.DD_DMSDataSet
'
'VWPMO_FOLLOWING_TASKSBindingSource
'
Me.VWPMO_FOLLOWING_TASKSBindingSource.DataMember = "VWPMO_FOLLOWING_TASKS"
Me.VWPMO_FOLLOWING_TASKSBindingSource.DataSource = Me.DD_DMSDataSet
'
'Label1
'
resources.ApplyResources(Me.Label1, "Label1")
@ -355,8 +346,8 @@ Partial Class frmTaskEditor
'
'btnAddUser
'
resources.ApplyResources(Me.btnAddUser, "btnAddUser")
Me.btnAddUser.Image = Global.DD_Record_Organiser.My.Resources.Resources.arrow_left
resources.ApplyResources(Me.btnAddUser, "btnAddUser")
Me.btnAddUser.Name = "btnAddUser"
Me.btnAddUser.UseVisualStyleBackColor = True
'
@ -368,8 +359,8 @@ Partial Class frmTaskEditor
'
'ListView1
'
resources.ApplyResources(Me.ListView1, "ListView1")
Me.ListView1.AllowDrop = True
resources.ApplyResources(Me.ListView1, "ListView1")
Me.ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2, Me.ColumnHeader3})
Me.ListView1.FullRowSelect = True
Me.ListView1.Name = "ListView1"
@ -396,8 +387,8 @@ Partial Class frmTaskEditor
'
'btndeleteuser
'
resources.ApplyResources(Me.btndeleteuser, "btndeleteuser")
Me.btndeleteuser.Image = Global.DD_Record_Organiser.My.Resources.Resources.note_delete
resources.ApplyResources(Me.btndeleteuser, "btndeleteuser")
Me.btndeleteuser.Name = "btndeleteuser"
Me.btndeleteuser.UseVisualStyleBackColor = True
'
@ -407,31 +398,25 @@ Partial Class frmTaskEditor
Me.Label2.ForeColor = System.Drawing.Color.Crimson
Me.Label2.Name = "Label2"
'
'VWPMO_WF_USER_ACTIVETableAdapter
'
Me.VWPMO_WF_USER_ACTIVETableAdapter.ClearBeforeFill = True
'
'VWPMO_FOLLOWING_TASKSTableAdapter
'
Me.VWPMO_FOLLOWING_TASKSTableAdapter.ClearBeforeFill = True
'
'btndelete_following
'
resources.ApplyResources(Me.btndelete_following, "btndelete_following")
Me.btndelete_following.Image = Global.DD_Record_Organiser.My.Resources.Resources.note_delete
resources.ApplyResources(Me.btndelete_following, "btndelete_following")
Me.btndelete_following.Name = "btndelete_following"
Me.btndelete_following.UseVisualStyleBackColor = True
'
'ListBoxFollowing
'
resources.ApplyResources(Me.ListBoxFollowing, "ListBoxFollowing")
Me.ListBoxFollowing.DataSource = Me.VWPMO_FOLLOWING_TASKSBindingSource
Me.ListBoxFollowing.DisplayMember = "TITLE"
Me.ListBoxFollowing.FormattingEnabled = True
resources.ApplyResources(Me.ListBoxFollowing, "ListBoxFollowing")
Me.ListBoxFollowing.Name = "ListBoxFollowing"
Me.ListBoxFollowing.ValueMember = "WF_TASK_ID"
'
'frmTaskEditor
'VWPMO_WF_ACTIVETableAdapter
'
Me.VWPMO_WF_ACTIVETableAdapter.ClearBeforeFill = True
'
'frmTask_Editor
'
Me.AcceptButton = Me.OK_Button
resources.ApplyResources(Me, "$this")
@ -446,15 +431,14 @@ Partial Class frmTaskEditor
Me.Controls.Add(Me.GroupBox1)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmTaskEditor"
Me.Name = "frmTask_Editor"
Me.ShowInTaskbar = False
CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPMO_WORKFLOW_TASKBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
CType(Me.VWPMO_WF_USER_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPMO_WORKFLOW_TASK_STATEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.VWPMO_FOLLOWING_TASKSBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox2.PerformLayout()
Me.ResumeLayout(False)
@ -487,10 +471,6 @@ Partial Class frmTaskEditor
Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader
Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader
Friend WithEvents ColumnHeader3 As System.Windows.Forms.ColumnHeader
Friend WithEvents VWPMO_WF_USER_ACTIVEBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents VWPMO_WF_USER_ACTIVETableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_USER_ACTIVETableAdapter
Friend WithEvents VWPMO_FOLLOWING_TASKSBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents VWPMO_FOLLOWING_TASKSTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_FOLLOWING_TASKSTableAdapter
Friend WithEvents btndeleteTask As System.Windows.Forms.Button
Friend WithEvents btnAddAppointment As System.Windows.Forms.Button
Friend WithEvents btndelete_following As System.Windows.Forms.Button
@ -498,6 +478,8 @@ Partial Class frmTaskEditor
Friend WithEvents btnAddUser As System.Windows.Forms.Button
Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker
Friend WithEvents ListBoxFollowing As System.Windows.Forms.ListBox
Friend WithEvents RECORD_IDTextBox As System.Windows.Forms.TextBox
Friend WithEvents VWPMO_WF_ACTIVEBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents VWPMO_WF_ACTIVETableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter
Friend WithEvents WF_IDTextBox As System.Windows.Forms.TextBox
End Class

12
app/DD-Record-Organiser/frmTaskEditor.en-US.resx → app/DD-Record-Organiser/frmTask_Editor.en-US.resx
View File

@ -151,24 +151,21 @@
<data name="Cancel_Button.Text" xml:space="preserve">
<value>Cancel</value>
</data>
<data name="GroupBox1.Text" xml:space="preserve">
<value>Current Task:</value>
</data>
<data name="btnAddAppointment.Text" xml:space="preserve">
<value>Add to Calendar</value>
</data>
<data name="btndeleteTask.Text" xml:space="preserve">
<value>Delete</value>
</data>
<data name="GroupBox1.Text" xml:space="preserve">
<value>Current Task:</value>
</data>
<data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
<value>107, 15</value>
</data>
<data name="Label1.Text" xml:space="preserve">
<value>Subsequent tasks:</value>
</data>
<data name="GroupBox2.Text" xml:space="preserve">
<value>Exclusive Assignment of tasks to users:</value>
</data>
<data name="btnAddUser.Text" xml:space="preserve">
<value>Assign user to task</value>
</data>
@ -187,6 +184,9 @@
<data name="Label2.Text" xml:space="preserve">
<value>Assigned users:</value>
</data>
<data name="GroupBox2.Text" xml:space="preserve">
<value>Exclusive Assignment of tasks to users:</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAgAEBAAAAEACABoBQAAhgAAABAQAAABACAAaAQAAO4FAAAYGAAAAQAIAMgGAABWCgAAGBgAAAEA

2214
app/DD-Record-Organiser/frmTaskEditor.resx → app/DD-Record-Organiser/frmTask_Editor.resx
View File

File diff suppressed because it is too large Load Diff

44
app/DD-Record-Organiser/frmTaskEditor.vb → app/DD-Record-Organiser/frmTask_Editor.vb
View File

@ -1,15 +1,20 @@
Imports System.Windows.Forms
Public Class frmTaskEditor
Public Class frmTask_Editor
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
Try
Me.TBPMO_WORKFLOW_TASKTableAdapter.cmdUpdate(COMMENTTextBox.Text, DUE_DATEDateTimePicker.Value, STATE_IDComboBox.SelectedValue, 1, Environment.UserName, DateTimePicker1.Value, Me.GUIDTextBox.Text)
Dim 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, Environment.UserName, DateTimePicker1.Value, Me.GUIDTextBox.Text)
If ClassDatabase.Execute_non_Query(upd, True) Then
Me.Close()
Else
MsgBox("Update not successfull. Please check logfile.", MsgBoxStyle.Exclamation)
End If
' Me.TBPMO_WORKFLOW_TASKTableAdapter.cmdUpdate(COMMENTTextBox.Text, DUE_DATEDateTimePicker.Value, STATE_IDComboBox.SelectedValue, 1, Environment.UserName, DateTimePicker1.Value, Me.GUIDTextBox.Text)
Catch ex As Exception
MsgBox("Error in Exit:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
Me.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Close()
End Sub
Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
@ -22,18 +27,15 @@ Public Class frmTaskEditor
Try
Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPMO_WORKFLOW_TASKTableAdapter.Connection.ConnectionString = MyConnectionString
Me.VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
Me.VWPMO_FOLLOWING_TASKSTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATE)
Me.VWPMO_WF_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
Load_Task()
If DD_DMSDataSet.VWPMO_WF_USER_ACTIVE.Rows.Count = 0 Then
If DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows.Count = 0 Then
Dim result As MsgBoxResult = MsgBox("Aktuell ist der Workflow anscheinend noch nicht aktiv - Wollen Sie diesen nun starten?", MsgBoxStyle.YesNo, "Frage:")
If result = MsgBoxResult.Yes Then
TBPMO_WORKFLOW_TASKTableAdapter.cmdsetActive(Environment.UserName, CURRENT_RECORD_ID)
Load_Task()
If DD_DMSDataSet.VWPMO_WF_USER_ACTIVE.Rows.Count = 0 Then
If DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows.Count = 0 Then
MsgBox("Keine aktiven Tasks - Bitte informieren Sie Ihren Systembetreuer.", MsgBoxStyle.Exclamation)
Me.Close()
End If
@ -50,15 +52,19 @@ Public Class frmTaskEditor
Sub Load_Task()
Try
Me.VWPMO_WF_USER_ACTIVETableAdapter.FillByRecordID(Me.DD_DMSDataSet.VWPMO_WF_USER_ACTIVE, Environment.UserName, CURRENT_RECORD_ID)
Me.VWPMO_WF_ACTIVETableAdapter.FillByRecord(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, CURRENT_RECORD_ID, Environment.UserName)
Catch ex As Exception
MsgBox("Error in Load_Task:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Sub Load_Following()
Try
Me.VWPMO_FOLLOWING_TASKSTableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_FOLLOWING_TASKS, Environment.UserName, CURRENT_RECORD_ID, Me.GUIDTextBox.Text)
Dim sql = "select WF_TASK_ID,TITLE from VWPMO_WF_ACTIVE where WF_TASK_ID <> " & Me.GUIDTextBox.Text
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "GET FOLLOWING TASKS")
'Dim sql As String = "SELECT T.GUID as [Task-ID],T1.TITLE as Task, T2.STATE_DESC As Status ,T.DUE_DATE as Fälligkeit" & _
' " FROM TBPMO_WORKFLOW_TASK T, TBPMO_WORKFLOW T1, TBPMO_WORKFLOW_TASK_STATE T2" & _
' " WHERE T.WF_ID = T1.GUID AND T.STATE_ID = T2.GUID AND T2.GUID NOT IN (SELECT WORKFLOW_FINAL_STATE1 FROM TBPMO_KONFIGURATIOn WHERE GUID = 1) AND T.RECORD_ID = " & CURRENT_RECORD_ID & " and T.GUID <> " & Me.GUIDTextBox.Text
@ -67,15 +73,18 @@ Public Class frmTaskEditor
' Me.DataGridView1.Visible = False
' Exit Sub
'End If
If DD_DMSDataSet.VWPMO_FOLLOWING_TASKS.Rows.Count > 0 Then
If DD_DMSDataSet.VWPMO_FOLLOWING_TASKS.Rows.Count = 1 Then
If DT.rows.count > 0 Then
If DT.rows.count = 1 Then
Label1.Text = "1 nachfolgender Task:"
Else
Label1.Text = DD_DMSDataSet.VWPMO_FOLLOWING_TASKS.Rows.Count.ToString & " nachfolgende Tasks:"
Label1.Text = DT.rows.count.ToString & " nachfolgende Tasks:"
End If
ListBoxFollowing.Visible = True
btndelete_following.Visible = True
ListBoxFollowing.DataSource = DT
ListBoxFollowing.DisplayMember = DT.Columns(1).ColumnName
ListBoxFollowing.ValueMember = DT.Columns(0).ColumnName
'Me.DataGridView1.DataSource = DT
Else
Label1.Text = "Keine nachfolgenden Tasks"
@ -124,6 +133,11 @@ Public Class frmTaskEditor
End Sub
Private Sub frmWF_TaskEditor_Shown(sender As Object, e As EventArgs) Handles Me.Shown
Try
Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.FillBy(Me.DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATE, WF_IDTextBox.Text, CURRENT_FORM_ID)
Catch ex As Exception
End Try
Load_Following()
Load_User()
Load_TASK_USER()

16
app/DD-Record-Organiser/frmTaskmanagement.designer.vb → app/DD-Record-Organiser/frmTask_Management.designer.vb generated
View File

@ -1,5 +1,5 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmTaskmanagement
Partial Class frmTask_Management
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
@ -23,7 +23,7 @@ Partial Class frmTaskmanagement
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTaskmanagement))
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTask_Management))
Dim CHANGED_WHENLabel1 As System.Windows.Forms.Label
Dim ADDED_WHENLabel1 As System.Windows.Forms.Label
Dim CHANGED_WHOLabel1 As System.Windows.Forms.Label
@ -187,6 +187,7 @@ Partial Class frmTaskmanagement
Me.ListBox1.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.ListBox1.DataSource = Me.TBPMO_WORKFLOWBindingSource
Me.ListBox1.DisplayMember = "TITLE"
Me.ListBox1.ForeColor = System.Drawing.Color.Firebrick
Me.ListBox1.FormattingEnabled = True
resources.ApplyResources(Me.ListBox1, "ListBox1")
Me.ListBox1.Name = "ListBox1"
@ -263,6 +264,7 @@ Partial Class frmTaskmanagement
'
resources.ApplyResources(Me.GUIDTextBox1, "GUIDTextBox1")
Me.GUIDTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_WORKFLOWBindingSource, "GUID", True))
Me.GUIDTextBox1.ForeColor = System.Drawing.Color.Firebrick
Me.GUIDTextBox1.Name = "GUIDTextBox1"
'
'DESCRIPTIONLabel
@ -274,6 +276,7 @@ Partial Class frmTaskmanagement
'
resources.ApplyResources(Me.DESCRIPTIONTextBox, "DESCRIPTIONTextBox")
Me.DESCRIPTIONTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_WORKFLOWBindingSource, "DESCRIPTION", True))
Me.DESCRIPTIONTextBox.ForeColor = System.Drawing.Color.Firebrick
Me.DESCRIPTIONTextBox.Name = "DESCRIPTIONTextBox"
'
'TITLELabel
@ -285,6 +288,7 @@ Partial Class frmTaskmanagement
'
resources.ApplyResources(Me.TITLETextBox, "TITLETextBox")
Me.TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_WORKFLOWBindingSource, "TITLE", True))
Me.TITLETextBox.ForeColor = System.Drawing.Color.Firebrick
Me.TITLETextBox.Name = "TITLETextBox"
'
'TBPMO_WORKFLOWBindingNavigator
@ -479,6 +483,7 @@ Partial Class frmTaskmanagement
'ListBoxEntity_State
'
resources.ApplyResources(Me.ListBoxEntity_State, "ListBoxEntity_State")
Me.ListBoxEntity_State.ForeColor = System.Drawing.Color.ForestGreen
Me.ListBoxEntity_State.FormattingEnabled = True
Me.ListBoxEntity_State.Name = "ListBoxEntity_State"
'
@ -524,6 +529,7 @@ Partial Class frmTaskmanagement
'GUIDTextBox
'
Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_WORKFLOW_TASK_STATEBindingSource, "GUID", True))
Me.GUIDTextBox.ForeColor = System.Drawing.Color.ForestGreen
resources.ApplyResources(Me.GUIDTextBox, "GUIDTextBox")
Me.GUIDTextBox.Name = "GUIDTextBox"
'
@ -546,6 +552,7 @@ Partial Class frmTaskmanagement
'STATE_DESCTextBox
'
Me.STATE_DESCTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_WORKFLOW_TASK_STATEBindingSource, "STATE_DESC", True))
Me.STATE_DESCTextBox.ForeColor = System.Drawing.Color.ForestGreen
resources.ApplyResources(Me.STATE_DESCTextBox, "STATE_DESCTextBox")
Me.STATE_DESCTextBox.Name = "STATE_DESCTextBox"
'
@ -604,6 +611,7 @@ Partial Class frmTaskmanagement
'
'TreeViewEntities
'
Me.TreeViewEntities.ForeColor = System.Drawing.Color.OrangeRed
resources.ApplyResources(Me.TreeViewEntities, "TreeViewEntities")
Me.TreeViewEntities.Name = "TreeViewEntities"
'
@ -790,13 +798,13 @@ Partial Class frmTaskmanagement
Me.ColorDialog1.FullOpen = True
Me.ColorDialog1.SolidColorOnly = True
'
'frmTaskmanagement
'frmTask_Management
'
resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.SplitContainer1)
Me.Controls.Add(Me.StatusStrip1)
Me.Name = "frmTaskmanagement"
Me.Name = "frmTask_Management"
Me.SplitContainer1.Panel1.ResumeLayout(False)
Me.SplitContainer1.Panel1.PerformLayout()
Me.SplitContainer1.Panel2.ResumeLayout(False)

0
app/DD-Record-Organiser/frmTaskmanagement.en-US.resx → app/DD-Record-Organiser/frmTask_Management.en-US.resx
View File

33
app/DD-Record-Organiser/frmTaskmanagement.resx → app/DD-Record-Organiser/frmTask_Management.resx
View File

@ -876,16 +876,25 @@
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAAB1TeXN0
ZW0uV2luZG93cy5Gb3Jtcy5UcmVlTm9kZQoAAAAEVGV4dAtUb29sVGlwVGV4dAROYW1lCUlzQ2hlY2tl
ZApJbWFnZUluZGV4CEltYWdlS2V5ElNlbGVjdGVkSW1hZ2VJbmRleBBTZWxlY3RlZEltYWdlS2V5CkNo
aWxkQ291bnQJY2hpbGRyZW4wAQEBAAABAAEABAEICAgdU3lzdGVtLldpbmRvd3MuRm9ybXMuVHJlZU5v
ZGUCAAAAAgAAAAYDAAAAEG5vIGVudGl0eSBjaG9zZW4GBAAAAAAGBQAAAAdLbm90ZW4wAP////8JBAAA
AP////8JBAAAAAEAAAAJBwAAAAEHAAAAAQAAAAYIAAAAEm5vIHdvcmtmbG93IGNob3NlbgkEAAAABgoA
AAAHS25vdGVuMQD/////CQQAAAD/////CQQAAAABAAAACQwAAAAFDAAAAB1TeXN0ZW0uV2luZG93cy5G
b3Jtcy5UcmVlTm9kZQkAAAAEVGV4dAtUb29sVGlwVGV4dAROYW1lCUlzQ2hlY2tlZApJbWFnZUluZGV4
CEltYWdlS2V5ElNlbGVjdGVkSW1hZ2VJbmRleBBTZWxlY3RlZEltYWdlS2V5CkNoaWxkQ291bnQBAQEA
AAEAAQABCAgIAgAAAAYNAAAAD25vIHN0YXRlIGNob3NlbgkEAAAABg8AAAAHS25vdGVuMgD/////CQQA
AAD/////CQQAAAAAAAAACw==
ZW0uV2luZG93cy5Gb3Jtcy5UcmVlTm9kZQsAAAAHUHJvcEJhZwRUZXh0C1Rvb2xUaXBUZXh0BE5hbWUJ
SXNDaGVja2VkCkltYWdlSW5kZXgISW1hZ2VLZXkSU2VsZWN0ZWRJbWFnZUluZGV4EFNlbGVjdGVkSW1h
Z2VLZXkKQ2hpbGRDb3VudAljaGlsZHJlbjAEAQEBAAABAAEABClTeXN0ZW0uV2luZG93cy5Gb3Jtcy5P
d25lckRyYXdQcm9wZXJ0eUJhZwIAAAABCAgIHVN5c3RlbS5XaW5kb3dzLkZvcm1zLlRyZWVOb2RlAgAA
AAIAAAAJAwAAAAYEAAAAEG5vIGVudGl0eSBjaG9zZW4GBQAAAAAGBgAAAAdLbm90ZW4wAP////8JBQAA
AP////8JBQAAAAEAAAAJCAAAAAwJAAAAUVN5c3RlbS5EcmF3aW5nLCBWZXJzaW9uPTQuMC4wLjAsIEN1
bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49YjAzZjVmN2YxMWQ1MGEzYQUDAAAAKVN5c3RlbS5X
aW5kb3dzLkZvcm1zLk93bmVyRHJhd1Byb3BlcnR5QmFnAwAAAAlCYWNrQ29sb3IJRm9yZUNvbG9yBEZv
bnQEBAIUU3lzdGVtLkRyYXdpbmcuQ29sb3IJAAAAFFN5c3RlbS5EcmF3aW5nLkNvbG9yCQAAAAIAAAAF
9v///xRTeXN0ZW0uRHJhd2luZy5Db2xvcgQAAAAEbmFtZQV2YWx1ZQprbm93bkNvbG9yBXN0YXRlAQAA
AAkHBwkAAAAKAAAAAAAAAAAAAAAAAfX////2////CgAAAAAAAAAAgAABAAoBCAAAAAEAAAAJDAAAAAYN
AAAAEm5vIHdvcmtmbG93IGNob3NlbgkFAAAABg8AAAAHS25vdGVuMQD/////CQUAAAD/////CQUAAAAB
AAAACREAAAABDAAAAAMAAAAB7v////b///8KAAAAAAAAAAAAAAAAAe3////2////CgAAAAAAAAAARgAB
AAoFEQAAAB1TeXN0ZW0uV2luZG93cy5Gb3Jtcy5UcmVlTm9kZQoAAAAHUHJvcEJhZwRUZXh0C1Rvb2xU
aXBUZXh0BE5hbWUJSXNDaGVja2VkCkltYWdlSW5kZXgISW1hZ2VLZXkSU2VsZWN0ZWRJbWFnZUluZGV4
EFNlbGVjdGVkSW1hZ2VLZXkKQ2hpbGRDb3VudAQBAQEAAAEAAQApU3lzdGVtLldpbmRvd3MuRm9ybXMu
T3duZXJEcmF3UHJvcGVydHlCYWcCAAAAAQgICAIAAAAJFAAAAAYVAAAAD25vIHN0YXRlIGNob3NlbgkF
AAAABhcAAAAHS25vdGVuMgD/////CQUAAAD/////CQUAAAAAAAAAARQAAAADAAAAAef////2////CgAA
AAAAAAAAAAAAAAHm////9v///woAAAAAAAAAAEgAAQAKCw==
</value>
</data>
<data name="TreeView1.Size" type="System.Drawing.Size, System.Drawing">
@ -1852,7 +1861,7 @@ Wokflow hinzu</value>
<value>21</value>
</data>
<data name="XtraTabPage1.Size" type="System.Drawing.Size, System.Drawing">
<value>789, 562</value>
<value>793, 565</value>
</data>
<data name="XtraTabPage1.Text" xml:space="preserve">
<value>Entitätszuordnungen und Stati-Definition</value>
@ -2264,7 +2273,7 @@ Wokflow hinzu</value>
<value>System.Windows.Forms.ColorDialog, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmTaskmanagement</value>
<value>frmTask_Management</value>
</data>
<data name="&gt;&gt;$this.Type" xml:space="preserve">
<value>System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>

57
app/DD-Record-Organiser/frmTaskmanagement.vb → app/DD-Record-Organiser/frmTask_Management.vb
View File

@ -1,9 +1,9 @@
Public Class frmTaskmanagement
Private Shared _Instance As frmTaskmanagement = Nothing
Public Class frmTask_Management
Private Shared _Instance As frmTask_Management = Nothing
Private insert As Boolean = False
Public Shared Function Instance() As frmTaskmanagement
Public Shared Function Instance() As frmTask_Management
If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
_Instance = New frmTaskmanagement
_Instance = New frmTask_Management
End If
_Instance.BringToFront()
Return _Instance
@ -57,7 +57,7 @@
Catch ex As Exception
MsgBox("Error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Public Sub SetSelectedNodeStyle(tncoll As TreeNodeCollection)
@ -261,7 +261,7 @@
Save_State()
End If
End Sub
Private Sub ListBoxStati_DrawItem(sender As Object, e As DrawItemEventArgs) Handles ListBoxStati.DrawItem
Dim clrSelectedText As Color = Color.Red 'Our color for selected text
@ -306,7 +306,9 @@
TreeView1.Nodes(0).Nodes(0).Nodes(0).Text = STATE_DESCTextBox.Text
TreeView1.ExpandAll()
_ENTITYID = entityId
Load_ENTITY_States()
If Not IsNothing(ListBoxEntity_State.SelectedItem) And _ENTITYID > 0 Then
Load_ENTITY_States(ListBoxEntity_State.SelectedItem)
End If
Refresh_Workflow_Form(_ENTITYID)
SetSelectedNodeStyle(TreeViewEntities.Nodes)
TreeViewEntities.ExpandAll()
@ -339,13 +341,15 @@
Private Sub XtraTabControl1_TabIndexChanged(sender As Object, e As EventArgs) Handles XtraTabControl1.TabIndexChanged
Select Case XtraTabControl1.TabIndex
Case 1
Load_ENTITY_States
If GUIDTextBox1.Text <> "" And _ENTITYID > 0 Then
Load_ENTITY_States(GUIDTextBox1.Text)
End If
End Select
End Sub
Sub Load_ENTITY_States()
Sub Load_ENTITY_States(Workflow_ID As Integer)
Try
If GUIDTextBox1.Text = "" Or _ENTITYID = 0 Then Exit Sub
Dim sql = String.Format("SELECT T.GUID,T1.STATE_DESC FROM TBPMO_WORKFLOW_ENTITY_STATE T, TBPMO_WORKFLOW_TASK_STATE T1 WHERE T.STATE_ID = T1.GUID AND T.WF_ID = {0} AND T.ENTITY_ID = {1}", GUIDTextBox1.Text, _ENTITYID)
Dim sql = String.Format("SELECT T.GUID,T1.STATE_DESC FROM TBPMO_WORKFLOW_ENTITY_STATE T, TBPMO_WORKFLOW_TASK_STATE T1 WHERE T.STATE_ID = T1.GUID AND T.WF_ID = {0} AND T.ENTITY_ID = {1}", Workflow_ID, _ENTITYID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "Get Entity-States")
ListBoxEntity_State.DataSource = DT
ListBoxEntity_State.DisplayMember = DT.Columns(1).ColumnName
@ -360,8 +364,6 @@
Private Sub TBPMO_WORKFLOWBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBPMO_WORKFLOWBindingSource.CurrentChanged
If GUIDTextBox1.Text <> "" Then
If Not IsNothing(TreeViewEntities.SelectedNode) Then
_ENTITYID = Integer.Parse(TreeViewEntities.SelectedNode.Tag)
TreeView1.Nodes(0).Text = TreeViewEntities.SelectedNode.Text
@ -373,7 +375,9 @@
TreeView1.Nodes(0).Nodes(0).Text = TITLETextBox.Text
TreeView1.Nodes(0).Nodes(0).Nodes(0).Text = STATE_DESCTextBox.Text
TreeView1.ExpandAll()
Load_ENTITY_States()
If GUIDTextBox1.Text <> "" And _ENTITYID > 0 Then
Load_ENTITY_States(GUIDTextBox1.Text)
End If
End If
End Sub
@ -387,7 +391,7 @@
If USER_LANGUAGE <> "de-DE" Then
txt = "The record was added successfully - " & Now
End If
Load_ENTITY_States()
toolstriplabel(True, txt)
Else
Dim txt As String = "Unvorhergesehener Fehler bei Hinzufügen Datensatz - " & Now
@ -396,6 +400,9 @@
End If
toolstriplabel(True, txt)
End If
If GUIDTextBox1.Text <> "" And _ENTITYID > 0 Then
Load_ENTITY_States(GUIDTextBox1.Text)
End If
Else
Dim txt As String = "Bitte prüfen Sie ob ein Worflow, eine Entität und ein Status gewählt ist."
If USER_LANGUAGE <> "de-DE" Then
@ -423,16 +430,22 @@
Try
If ListBoxEntity_State.SelectedIndex <> -1 Then
Dim ID = ListBoxEntity_State.SelectedValue
Dim del As String = "DELETE FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE GUID = " & ID
Dim del = "DELETE FROM TBPMO_WORKFLOW_TASK WHERE STATE_ID = " & ID
If ClassDatabase.Execute_non_Query(del) = True Then
Dim txt As String = "Der Datensatz wurde erfolgreich gelöscht - " & Now
If USER_LANGUAGE <> "de-DE" Then
txt = "The record has been deleted - " & Now
del = "DELETE FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE GUID = " & ID
If ClassDatabase.Execute_non_Query(del) = True Then
Dim txt As String = "Der Datensatz wurde erfolgreich gelöscht - " & Now
If USER_LANGUAGE <> "de-DE" Then
txt = "The record has been deleted - " & Now
End If
If Not IsNothing(ListBoxEntity_State.SelectedItem) And _ENTITYID > 0 Then
Load_ENTITY_States(ListBoxEntity_State.SelectedItem)
End If
toolstriplabel(True, txt)
End If
Load_ENTITY_States()
toolstriplabel(True, txt)
End If
End If
Catch ex As Exception
MsgBox("Error in delete entity-workflow:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)

4
app/DD-Record-Organiser/frmTaskOverview.designer.vb → app/DD-Record-Organiser/frmTask_Overview.designer.vb generated
View File

@ -1,5 +1,5 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmTaskOverview
Partial Class frmTask_Overview
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
@ -23,7 +23,7 @@ Partial Class frmTaskOverview
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTaskOverview))
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmTask_Overview))
Me.Panel1 = New System.Windows.Forms.Panel()
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.ListViewActive = New System.Windows.Forms.ListView()

0
app/DD-Record-Organiser/frmTaskOverview.en-US.resx → app/DD-Record-Organiser/frmTask_Overview.en-US.resx
View File

0
app/DD-Record-Organiser/frmTaskOverview.resx → app/DD-Record-Organiser/frmTask_Overview.resx
View File

4
app/DD-Record-Organiser/frmTaskOverview.vb → app/DD-Record-Organiser/frmTask_Overview.vb
View File

@ -1,4 +1,4 @@
Public Class frmTaskOverview
Public Class frmTask_Overview
Public Sub Refresh()
Try
@ -74,6 +74,6 @@
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
frmTaskEditor.ShowDialog()
frmTask_Editor.ShowDialog()
End Sub
End Class

45
app/DD-Record-Organiser/frmUserKonfig_AddUsers.Designer.vb generated
View File

@ -28,6 +28,8 @@ Partial Class frmUserKonfig_AddUsers
Me.lbGroups = New System.Windows.Forms.ListBox()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
Me.RBCheck2 = New System.Windows.Forms.RadioButton()
Me.RBCheck1 = New System.Windows.Forms.RadioButton()
Me.clbUsers = New System.Windows.Forms.CheckedListBox()
Me.ToolStrip2 = New System.Windows.Forms.ToolStrip()
Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel()
@ -36,14 +38,14 @@ Partial Class frmUserKonfig_AddUsers
Me.btnCancel = New System.Windows.Forms.Button()
Me.btnAddUsers = New System.Windows.Forms.Button()
Me.ToolTipController1 = New DevExpress.Utils.ToolTipController(Me.components)
Me.RBCheck1 = New System.Windows.Forms.RadioButton()
Me.RBCheck2 = New System.Windows.Forms.RadioButton()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer1.Panel1.SuspendLayout()
Me.SplitContainer1.Panel2.SuspendLayout()
Me.SplitContainer1.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
Me.ToolStrip2.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()
'
'SplitContainer1
@ -58,8 +60,7 @@ Partial Class frmUserKonfig_AddUsers
'
'SplitContainer1.Panel2
'
Me.SplitContainer1.Panel2.Controls.Add(Me.RBCheck2)
Me.SplitContainer1.Panel2.Controls.Add(Me.RBCheck1)
Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox1)
Me.SplitContainer1.Panel2.Controls.Add(Me.clbUsers)
Me.SplitContainer1.Panel2.Controls.Add(Me.ToolStrip2)
Me.SplitContainer1.Panel2.Controls.Add(Me.btnCancel)
@ -84,6 +85,20 @@ Partial Class frmUserKonfig_AddUsers
resources.ApplyResources(Me.ToolStripLabel1, "ToolStripLabel1")
Me.ToolStripLabel1.Name = "ToolStripLabel1"
'
'RBCheck2
'
resources.ApplyResources(Me.RBCheck2, "RBCheck2")
Me.RBCheck2.Name = "RBCheck2"
Me.RBCheck2.UseVisualStyleBackColor = True
'
'RBCheck1
'
resources.ApplyResources(Me.RBCheck1, "RBCheck1")
Me.RBCheck1.Checked = True
Me.RBCheck1.Name = "RBCheck1"
Me.RBCheck1.TabStop = True
Me.RBCheck1.UseVisualStyleBackColor = True
'
'clbUsers
'
Me.clbUsers.BackColor = System.Drawing.SystemColors.GradientActiveCaption
@ -118,6 +133,7 @@ Partial Class frmUserKonfig_AddUsers
'
'btnCancel
'
Me.btnCancel.Image = Global.DD_Record_Organiser.My.Resources.Resources.cancel1
resources.ApplyResources(Me.btnCancel, "btnCancel")
Me.btnCancel.Name = "btnCancel"
Me.btnCancel.UseVisualStyleBackColor = True
@ -129,19 +145,13 @@ Partial Class frmUserKonfig_AddUsers
Me.btnAddUsers.Name = "btnAddUsers"
Me.btnAddUsers.UseVisualStyleBackColor = True
'
'RBCheck1
'GroupBox1
'
resources.ApplyResources(Me.RBCheck1, "RBCheck1")
Me.RBCheck1.Checked = True
Me.RBCheck1.Name = "RBCheck1"
Me.RBCheck1.TabStop = True
Me.RBCheck1.UseVisualStyleBackColor = True
'
'RBCheck2
'
resources.ApplyResources(Me.RBCheck2, "RBCheck2")
Me.RBCheck2.Name = "RBCheck2"
Me.RBCheck2.UseVisualStyleBackColor = True
Me.GroupBox1.Controls.Add(Me.RBCheck1)
Me.GroupBox1.Controls.Add(Me.RBCheck2)
resources.ApplyResources(Me.GroupBox1, "GroupBox1")
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.TabStop = False
'
'frmUserKonfig_AddUsers
'
@ -161,6 +171,8 @@ Partial Class frmUserKonfig_AddUsers
Me.ToolStrip1.PerformLayout()
Me.ToolStrip2.ResumeLayout(False)
Me.ToolStrip2.PerformLayout()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.ResumeLayout(False)
End Sub
@ -178,4 +190,5 @@ Partial Class frmUserKonfig_AddUsers
Friend WithEvents ToolTipController1 As DevExpress.Utils.ToolTipController
Friend WithEvents RBCheck2 As System.Windows.Forms.RadioButton
Friend WithEvents RBCheck1 As System.Windows.Forms.RadioButton
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
End Class

124
app/DD-Record-Organiser/frmUserKonfig_AddUsers.resx
View File

@ -132,7 +132,7 @@
<value>0, 25</value>
</data>
<data name="lbGroups.Size" type="System.Drawing.Size, System.Drawing">
<value>206, 432</value>
<value>263, 432</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="lbGroups.TabIndex" type="System.Int32, mscorlib">
@ -166,7 +166,7 @@
<value>0, 0</value>
</data>
<data name="ToolStrip1.Size" type="System.Drawing.Size, System.Drawing">
<value>206, 25</value>
<value>263, 25</value>
</data>
<data name="ToolStrip1.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
@ -198,41 +198,11 @@
<data name="&gt;&gt;SplitContainer1.Panel1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="RBCheck2.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="RBCheck2.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="RBCheck2.Location" type="System.Drawing.Point, System.Drawing">
<value>3, 432</value>
</data>
<data name="RBCheck2.Size" type="System.Drawing.Size, System.Drawing">
<value>137, 17</value>
</data>
<data name="RBCheck2.TabIndex" type="System.Int32, mscorlib">
<value>8</value>
</data>
<data name="RBCheck2.Text" xml:space="preserve">
<value>UserPrincipal-Method</value>
</data>
<data name="&gt;&gt;RBCheck2.Name" xml:space="preserve">
<value>RBCheck2</value>
</data>
<data name="&gt;&gt;RBCheck2.Type" xml:space="preserve">
<value>System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;RBCheck2.Parent" xml:space="preserve">
<value>SplitContainer1.Panel2</value>
</data>
<data name="&gt;&gt;RBCheck2.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="RBCheck1.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="RBCheck1.Location" type="System.Drawing.Point, System.Drawing">
<value>3, 409</value>
<value>18, 21</value>
</data>
<data name="RBCheck1.Size" type="System.Drawing.Size, System.Drawing">
<value>72, 17</value>
@ -250,11 +220,65 @@
<value>System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;RBCheck1.Parent" xml:space="preserve">
<value>SplitContainer1.Panel2</value>
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;RBCheck1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="RBCheck2.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="RBCheck2.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="RBCheck2.Location" type="System.Drawing.Point, System.Drawing">
<value>18, 44</value>
</data>
<data name="RBCheck2.Size" type="System.Drawing.Size, System.Drawing">
<value>137, 17</value>
</data>
<data name="RBCheck2.TabIndex" type="System.Int32, mscorlib">
<value>8</value>
</data>
<data name="RBCheck2.Text" xml:space="preserve">
<value>UserPrincipal-Method</value>
</data>
<data name="&gt;&gt;RBCheck2.Name" xml:space="preserve">
<value>RBCheck2</value>
</data>
<data name="&gt;&gt;RBCheck2.Type" xml:space="preserve">
<value>System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;RBCheck2.Parent" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;RBCheck2.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="GroupBox1.Location" type="System.Drawing.Point, System.Drawing">
<value>3, 378</value>
</data>
<data name="GroupBox1.Size" type="System.Drawing.Size, System.Drawing">
<value>185, 70</value>
</data>
<data name="GroupBox1.TabIndex" type="System.Int32, mscorlib">
<value>9</value>
</data>
<data name="GroupBox1.Text" xml:space="preserve">
<value>AD-Methodik</value>
</data>
<data name="&gt;&gt;GroupBox1.Name" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;GroupBox1.Type" xml:space="preserve">
<value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;GroupBox1.Parent" xml:space="preserve">
<value>SplitContainer1.Panel2</value>
</data>
<data name="&gt;&gt;GroupBox1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="clbUsers.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Top</value>
</data>
@ -262,7 +286,7 @@
<value>0, 25</value>
</data>
<data name="clbUsers.Size" type="System.Drawing.Size, System.Drawing">
<value>408, 378</value>
<value>409, 344</value>
</data>
<data name="clbUsers.TabIndex" type="System.Int32, mscorlib">
<value>6</value>
@ -277,7 +301,7 @@
<value>SplitContainer1.Panel2</value>
</data>
<data name="&gt;&gt;clbUsers.ZOrder" xml:space="preserve">
<value>2</value>
<value>1</value>
</data>
<metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>124, 17</value>
@ -343,7 +367,7 @@
<value>0, 0</value>
</data>
<data name="ToolStrip2.Size" type="System.Drawing.Size, System.Drawing">
<value>408, 25</value>
<value>409, 25</value>
</data>
<data name="ToolStrip2.TabIndex" type="System.Int32, mscorlib">
<value>5</value>
@ -361,13 +385,16 @@
<value>SplitContainer1.Panel2</value>
</data>
<data name="&gt;&gt;ToolStrip2.ZOrder" xml:space="preserve">
<value>3</value>
<value>2</value>
</data>
<data name="btnCancel.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
</data>
<data name="btnCancel.Location" type="System.Drawing.Point, System.Drawing">
<value>224, 425</value>
<value>297, 422</value>
</data>
<data name="btnCancel.Size" type="System.Drawing.Size, System.Drawing">
<value>75, 23</value>
<value>100, 26</value>
</data>
<data name="btnCancel.TabIndex" type="System.Int32, mscorlib">
<value>4</value>
@ -375,6 +402,9 @@
<data name="btnCancel.Text" xml:space="preserve">
<value>Abbrechen</value>
</data>
<data name="btnCancel.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleRight</value>
</data>
<data name="&gt;&gt;btnCancel.Name" xml:space="preserve">
<value>btnCancel</value>
</data>
@ -385,16 +415,16 @@
<value>SplitContainer1.Panel2</value>
</data>
<data name="&gt;&gt;btnCancel.ZOrder" xml:space="preserve">
<value>4</value>
<value>3</value>
</data>
<data name="btnAddUsers.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
</data>
<data name="btnAddUsers.Location" type="System.Drawing.Point, System.Drawing">
<value>305, 425</value>
<value>297, 389</value>
</data>
<data name="btnAddUsers.Size" type="System.Drawing.Size, System.Drawing">
<value>91, 23</value>
<value>100, 27</value>
</data>
<data name="btnAddUsers.TabIndex" type="System.Int32, mscorlib">
<value>3</value>
@ -415,7 +445,7 @@
<value>SplitContainer1.Panel2</value>
</data>
<data name="&gt;&gt;btnAddUsers.ZOrder" xml:space="preserve">
<value>5</value>
<value>4</value>
</data>
<data name="&gt;&gt;SplitContainer1.Panel2.Name" xml:space="preserve">
<value>SplitContainer1.Panel2</value>
@ -430,10 +460,10 @@
<value>1</value>
</data>
<data name="SplitContainer1.Size" type="System.Drawing.Size, System.Drawing">
<value>618, 457</value>
<value>676, 457</value>
</data>
<data name="SplitContainer1.SplitterDistance" type="System.Int32, mscorlib">
<value>206</value>
<value>263</value>
</data>
<data name="SplitContainer1.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
@ -460,7 +490,7 @@
<value>6, 13</value>
</data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>618, 457</value>
<value>676, 457</value>
</data>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt</value>