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"> <Compile Include="frmQuickInput.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="frmTaskmanagement.designer.vb"> <Compile Include="frmTask_Management.designer.vb">
<DependentUpon>frmTaskmanagement.vb</DependentUpon> <DependentUpon>frmTask_Management.vb</DependentUpon>
</Compile> </Compile>
<Compile Include="frmTaskmanagement.vb"> <Compile Include="frmTask_Management.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="frmTaskOverview.designer.vb"> <Compile Include="frmTask_Overview.designer.vb">
<DependentUpon>frmTaskOverview.vb</DependentUpon> <DependentUpon>frmTask_Overview.vb</DependentUpon>
</Compile> </Compile>
<Compile Include="frmTaskOverview.vb"> <Compile Include="frmTask_Overview.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="frmTool_ControlProperties.Designer.vb"> <Compile Include="frmTool_ControlProperties.Designer.vb">
@ -538,10 +538,10 @@
<Compile Include="frmWD_Index_Dokart.vb"> <Compile Include="frmWD_Index_Dokart.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="frmTaskEditor.Designer.vb"> <Compile Include="frmTask_Editor.Designer.vb">
<DependentUpon>frmTaskEditor.vb</DependentUpon> <DependentUpon>frmTask_Editor.vb</DependentUpon>
</Compile> </Compile>
<Compile Include="frmTaskEditor.vb"> <Compile Include="frmTask_Editor.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="frmWiedervorlage.Designer.vb"> <Compile Include="frmWiedervorlage.Designer.vb">
@ -706,14 +706,14 @@
<EmbeddedResource Include="frmSQLEditor.resx"> <EmbeddedResource Include="frmSQLEditor.resx">
<DependentUpon>frmSQLEditor.vb</DependentUpon> <DependentUpon>frmSQLEditor.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmTaskEditor.en-US.resx"> <EmbeddedResource Include="frmTask_Editor.en-US.resx">
<DependentUpon>frmTaskEditor.vb</DependentUpon> <DependentUpon>frmTask_Editor.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmTaskmanagement.en-US.resx"> <EmbeddedResource Include="frmTask_Management.en-US.resx">
<DependentUpon>frmTaskmanagement.vb</DependentUpon> <DependentUpon>frmTask_Management.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmTaskOverview.en-US.resx"> <EmbeddedResource Include="frmTask_Overview.en-US.resx">
<DependentUpon>frmTaskOverview.vb</DependentUpon> <DependentUpon>frmTask_Overview.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmTemplates.en-US.resx"> <EmbeddedResource Include="frmTemplates.en-US.resx">
<DependentUpon>frmTemplates.vb</DependentUpon> <DependentUpon>frmTemplates.vb</DependentUpon>
@ -774,11 +774,11 @@
<EmbeddedResource Include="frmQuickInput.resx"> <EmbeddedResource Include="frmQuickInput.resx">
<DependentUpon>frmQuickInput.vb</DependentUpon> <DependentUpon>frmQuickInput.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmTaskmanagement.resx"> <EmbeddedResource Include="frmTask_Management.resx">
<DependentUpon>frmTaskmanagement.vb</DependentUpon> <DependentUpon>frmTask_Management.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmTaskOverview.resx"> <EmbeddedResource Include="frmTask_Overview.resx">
<DependentUpon>frmTaskOverview.vb</DependentUpon> <DependentUpon>frmTask_Overview.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmTool_ControlProperties.resx"> <EmbeddedResource Include="frmTool_ControlProperties.resx">
<DependentUpon>frmTool_ControlProperties.vb</DependentUpon> <DependentUpon>frmTool_ControlProperties.vb</DependentUpon>
@ -801,8 +801,8 @@
<EmbeddedResource Include="frmWD_Index_Dokart.resx"> <EmbeddedResource Include="frmWD_Index_Dokart.resx">
<DependentUpon>frmWD_Index_Dokart.vb</DependentUpon> <DependentUpon>frmWD_Index_Dokart.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmTaskEditor.resx"> <EmbeddedResource Include="frmTask_Editor.resx">
<DependentUpon>frmTaskEditor.vb</DependentUpon> <DependentUpon>frmTask_Editor.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmWiedervorlage.en-US.resx"> <EmbeddedResource Include="frmWiedervorlage.en-US.resx">
<DependentUpon>frmWiedervorlage.vb</DependentUpon> <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="CHANGED_WHEN" DataSetColumn="CHANGED_WHEN" />
<Mapping SourceColumn="COLOR" DataSetColumn="COLOR" /> <Mapping SourceColumn="COLOR" DataSetColumn="COLOR" />
</Mappings> </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>
<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"> <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> <MainSource>
@ -821,49 +838,6 @@ WHERE (T2.GUID NOT IN
</DbSource> </DbSource>
</Sources> </Sources>
</TableAdapter> </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"> <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> <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"> <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"> <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> <SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="false"> <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 FROM VWPMO_WF_ACTIVE
WHERE (WF_TASK_ID NOT IN WHERE (WF_TASK_ID NOT IN
(SELECT GUID (SELECT GUID
@ -2235,18 +2209,21 @@ WHERE (WF_TASK_ID NOT IN
<Mapping SourceColumn="CHANGED_WHO" DataSetColumn="CHANGED_WHO" /> <Mapping SourceColumn="CHANGED_WHO" DataSetColumn="CHANGED_WHO" />
<Mapping SourceColumn="CHANGED_WHEN" DataSetColumn="CHANGED_WHEN" /> <Mapping SourceColumn="CHANGED_WHEN" DataSetColumn="CHANGED_WHEN" />
<Mapping SourceColumn="TASK_DATE" DataSetColumn="TASK_DATE" /> <Mapping SourceColumn="TASK_DATE" DataSetColumn="TASK_DATE" />
<Mapping SourceColumn="WF_ENT_GUID" DataSetColumn="WF_ENT_GUID" />
<Mapping SourceColumn="WF_ID" DataSetColumn="WF_ID" />
</Mappings> </Mappings>
<Sources> <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"> <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> <SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true"> <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 FROM VWPMO_WF_ACTIVE
WHERE (WF_TASK_ID NOT IN WHERE (RECORD_ID = @RECID) AND (WF_TASK_ID NOT IN
(SELECT GUID (SELECT GUID
FROM VWPMO_WF_USER_EXCLUSIV FROM VWPMO_WF_USER_EXCLUSIV
WHERE (UPPER(USERNAME) &lt;&gt; UPPER(@USERNAME))))</CommandText> WHERE (UPPER(USERNAME) &lt;&gt; UPPER(@USERNAME))))</CommandText>
<Parameters> <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" /> <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> </Parameters>
</DbCommand> </DbCommand>
@ -3463,53 +3440,6 @@ SELECT GUID, LANGUAGE_TYPE, SCREEN_ID, PMO_OBJECT_NAME, CAPTION, HINT, ADDED_WHO
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </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: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:complexType>
<xs:sequence> <xs:sequence>
@ -4541,7 +4471,7 @@ SELECT GUID, LANGUAGE_TYPE, SCREEN_ID, PMO_OBJECT_NAME, CAPTION, HINT, ADDED_WHO
</xs:restriction> </xs:restriction>
</xs:simpleType> </xs:simpleType>
</xs:element> </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: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:simpleType>
<xs:restriction base="xs:string"> <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>
<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="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="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:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </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:selector xpath=".//mstns:VWPMO_WF_USER_ACTIVE" />
<xs:field xpath="mstns:WF_TASK_ID" /> <xs:field xpath="mstns:WF_TASK_ID" />
</xs:unique> </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:unique name="TBDD_DOKUMENTART_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
<xs:selector xpath=".//mstns:TBDD_DOKUMENTART" /> <xs:selector xpath=".//mstns:TBDD_DOKUMENTART" />
<xs:field xpath="mstns:GUID" /> <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_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_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_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_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_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" /> <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 End Sub
Public Sub OpenTaskmanagement() Public Sub OpenTaskmanagement()
Dim frm As New frmTaskmanagement Dim frm As New frmTask_Management
frm = frmTaskmanagement.Instance() frm = frmTask_Management.Instance()
frm.MdiParent = MAIN_FORM frm.MdiParent = MAIN_FORM
Dim activeChild As Form = MAIN_FORM.ActiveMdiChild 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> <value>0, 0</value>
</data> </data>
<data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing"> <data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing">
<value>795, 270</value> <value>788, 270</value>
</data> </data>
<data name="GridControlMain.TabIndex" type="System.Int32, mscorlib"> <data name="GridControlMain.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
@ -361,7 +361,7 @@
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="pnlDetails.Size" type="System.Drawing.Size, System.Drawing"> <data name="pnlDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1072, 316</value> <value>1069, 312</value>
</data> </data>
<data name="pnlDetails.TabIndex" type="System.Int32, mscorlib"> <data name="pnlDetails.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
@ -379,7 +379,7 @@
<value>0</value> <value>0</value>
</data> </data>
<data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1072, 316</value> <value>1069, 312</value>
</data> </data>
<data name="TabDetails.Text" xml:space="preserve"> <data name="TabDetails.Text" xml:space="preserve">
<value>Detailansicht</value> <value>Detailansicht</value>
@ -397,7 +397,7 @@
<value>0</value> <value>0</value>
</data> </data>
<data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing"> <data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1078, 347</value> <value>1071, 340</value>
</data> </data>
<data name="TCDetails.TabIndex" type="System.Int32, mscorlib"> <data name="TCDetails.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>
@ -420,7 +420,7 @@
</value> </value>
</data> </data>
<data name="AxObjectListControl.Size" type="System.Drawing.Size, System.Drawing"> <data name="AxObjectListControl.Size" type="System.Drawing.Size, System.Drawing">
<value>1072, 291</value> <value>1069, 287</value>
</data> </data>
<data name="AxObjectListControl.TabIndex" type="System.Int32, mscorlib"> <data name="AxObjectListControl.TabIndex" type="System.Int32, mscorlib">
<value>6</value> <value>6</value>
@ -481,7 +481,7 @@
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="ToolStripDokumente.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripDokumente.Size" type="System.Drawing.Size, System.Drawing">
<value>1072, 25</value> <value>1069, 25</value>
</data> </data>
<data name="ToolStripDokumente.TabIndex" type="System.Int32, mscorlib"> <data name="ToolStripDokumente.TabIndex" type="System.Int32, mscorlib">
<value>2</value> <value>2</value>
@ -502,7 +502,7 @@
<value>1</value> <value>1</value>
</data> </data>
<data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabWindream.Size" type="System.Drawing.Size, System.Drawing">
<value>1072, 316</value> <value>1069, 312</value>
</data> </data>
<data name="TabWindream.Text" xml:space="preserve"> <data name="TabWindream.Text" xml:space="preserve">
<value>windream-Dateien</value> <value>windream-Dateien</value>
@ -933,7 +933,7 @@
<value>2</value> <value>2</value>
</data> </data>
<data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabFollowUp.Size" type="System.Drawing.Size, System.Drawing">
<value>1072, 316</value> <value>1069, 312</value>
</data> </data>
<data name="TabFollowUp.Text" xml:space="preserve"> <data name="TabFollowUp.Text" xml:space="preserve">
<value>Wiedervorlage</value> <value>Wiedervorlage</value>
@ -960,7 +960,7 @@
<value>Cyan</value> <value>Cyan</value>
</data> </data>
<data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing"> <data name="GridControlPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1072, 291</value> <value>1069, 287</value>
</data> </data>
<data name="GridControlPos.TabIndex" type="System.Int32, mscorlib"> <data name="GridControlPos.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
@ -984,7 +984,7 @@
<value>0, 25</value> <value>0, 25</value>
</data> </data>
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing"> <data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>1072, 291</value> <value>1069, 287</value>
</data> </data>
<data name="Panel1.TabIndex" type="System.Int32, mscorlib"> <data name="Panel1.TabIndex" type="System.Int32, mscorlib">
<value>2</value> <value>2</value>
@ -1159,7 +1159,7 @@
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="BindingNavigatorPOS.Size" type="System.Drawing.Size, System.Drawing"> <data name="BindingNavigatorPOS.Size" type="System.Drawing.Size, System.Drawing">
<value>1072, 25</value> <value>1069, 25</value>
</data> </data>
<data name="BindingNavigatorPOS.TabIndex" type="System.Int32, mscorlib"> <data name="BindingNavigatorPOS.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>
@ -1188,7 +1188,7 @@
</value> </value>
</data> </data>
<data name="TabPos.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabPos.Size" type="System.Drawing.Size, System.Drawing">
<value>1072, 316</value> <value>1069, 312</value>
</data> </data>
<data name="TabPos.Text" xml:space="preserve"> <data name="TabPos.Text" xml:space="preserve">
<value>Positionen</value> <value>Positionen</value>
@ -1367,7 +1367,7 @@
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="ToolStripEdit.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripEdit.Size" type="System.Drawing.Size, System.Drawing">
<value>1078, 25</value> <value>1071, 25</value>
</data> </data>
<data name="ToolStripEdit.TabIndex" type="System.Int32, mscorlib"> <data name="ToolStripEdit.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
@ -1472,7 +1472,7 @@
<value>Panel2</value> <value>Panel2</value>
</data> </data>
<data name="SplitContainerBottom.Size" type="System.Drawing.Size, System.Drawing"> <data name="SplitContainerBottom.Size" type="System.Drawing.Size, System.Drawing">
<value>1083, 372</value> <value>1083, 365</value>
</data> </data>
<data name="SplitContainerBottom.TabIndex" type="System.Int32, mscorlib"> <data name="SplitContainerBottom.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <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 PARENT_ID As Integer
Private FORM_TYPE As Integer Private FORM_TYPE As Integer
Private FORM_ID As Integer Private ENTITY_ID As Integer
Private FORMVIEW_ID As Integer Private FORMVIEW_ID As Integer
Private _ENTITYSQL As String Private _ENTITYSQL As String
@ -811,8 +811,8 @@ Public Class frmConstructor_Main
Else Else
ACT_EBENE = 1 ACT_EBENE = 1
End If End If
FORM_ID = FormId ENTITY_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 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) CONSTRUCTOR_DETAIL_ID = ClassDatabase.Execute_Scalar(Sql, True)
Get_RecordCounts_Nodes() Get_RecordCounts_Nodes()
Load_Entity_Data(ACT_EBENE) Load_Entity_Data(ACT_EBENE)
@ -953,14 +953,14 @@ Public Class frmConstructor_Main
Sub Load_Controls(frmview_id As Integer) Sub Load_Controls(frmview_id As Integer)
FORMVIEW_ID = frmview_id 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) CtrlBuilder = New ClassControlBuilder(pnlDetails, ttToolTip)
'LoadControls(thisFormId) 'LoadControls(thisFormId)
CtrlCommandUI = New ClassControlCommandsUI(CtrlBuilder, CtrlCommandUI = New ClassControlCommandsUI(CtrlBuilder,
ContextMenuDetails, ContextMenuDetails,
AddressOf NewEditAppointment, AddressOf NewEditAppointment,
AddressOf OpenFormData) AddressOf OpenFormData)
CtrlCommandUI.LoadControls(FORM_ID) CtrlCommandUI.LoadControls(ENTITY_ID)
Lock_RecordControls(True) Lock_RecordControls(True)
' pnlDetails.Enabled = False ' pnlDetails.Enabled = False
@ -1020,7 +1020,7 @@ Public Class frmConstructor_Main
Lock_RecordControls(False) Lock_RecordControls(False)
tsButtonShowWorkflowTasks.Enabled = True tsButtonShowWorkflowTasks.Enabled = True
CURRENT_PARENT_ID = PARENT_ID 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 ' Im gegensatz zu EnableEditMode muss hier nur der save button enabled werden
tsButtonSave.Enabled = True tsButtonSave.Enabled = True
EDIT_STATE = EditState.Insert EDIT_STATE = EditState.Insert
@ -1135,8 +1135,8 @@ Public Class frmConstructor_Main
Update_Status_Label(True, "Record gespeichert - " & Now, EditState.Update) Update_Status_Label(True, "Record gespeichert - " & Now, EditState.Update)
Update_Record_Label(SELECTED_RECORD_ID) Update_Record_Label(SELECTED_RECORD_ID)
Dim FORM_TYPE = ClassDatabase.Execute_Scalar("SELECT FORM_TYPE_ID 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 = " & FORM_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 IS_SINGLE_RECORD = False Then
If FORM_TYPE <> 5 Then If FORM_TYPE <> 5 Then
@ -1150,7 +1150,7 @@ Public Class frmConstructor_Main
'Get_Grid_Row_Handle(RECORD_ID) 'Get_Grid_Row_Handle(RECORD_ID)
LocateRecordById(RECORD_ID) LocateRecordById(RECORD_ID)
'Die Daten auf dem Panel laden '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! ' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden!
RECORD_CHANGED = False RECORD_CHANGED = False
End If End If
@ -1212,12 +1212,12 @@ Public Class frmConstructor_Main
Me.tsButtonEditMode.Text = "Bearbeiten beenden" Me.tsButtonEditMode.Text = "Bearbeiten beenden"
' Abhängige Listen laden ' 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 RECORD_ENABLED = True
pnlDetails.Focus() pnlDetails.Focus()
'If RECORD_ENABLED = False Then '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 If
End Sub End Sub
@ -1243,7 +1243,7 @@ Public Class frmConstructor_Main
Sub NewEditAppointment(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Sub NewEditAppointment(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
Try Try
Dim ctrl As Control = sender 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 Catch ex As Exception
MsgBox("Error in OpenEditAppointment:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in OpenEditAppointment:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
@ -1277,17 +1277,17 @@ Public Class frmConstructor_Main
RECORD_ID = 0 RECORD_ID = 0
VerknüpfungenAnzeigenToolStripMenuItem.Enabled = True VerknüpfungenAnzeigenToolStripMenuItem.Enabled = True
'VerknüpfungenToolStripMenuItem.Enabled = False 'VerknüpfungenToolStripMenuItem.Enabled = False
FORM_TYPE = ClassDatabase.Execute_Scalar("SELECT FORM_TYPE_ID 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 = " & FORM_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 FORM_ID = " & FORM_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_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 = " & 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 = " & ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID)
POS_ENTITY = ClassDatabase.Execute_Scalar("SELECT POS_ENTITY FROM TBPMO_FORM WHERE GUID = " & FORM_ID) POS_ENTITY = ClassDatabase.Execute_Scalar("SELECT POS_ENTITY FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID)
If VIEW_ID_RUNTIME <> -1 Then If VIEW_ID_RUNTIME <> -1 Then
GRID_TYPE_ID = VIEW_ID_RUNTIME GRID_TYPE_ID = VIEW_ID_RUNTIME
Else 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 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 VIEW_ID = 1
End If End If
GRID_TYPE_ID = VIEW_ID GRID_TYPE_ID = VIEW_ID
@ -1307,7 +1307,7 @@ Public Class frmConstructor_Main
End Select End Select
SELECTED_RECORD_ID = 0 SELECTED_RECORD_ID = 0
Dim DT As DataTable 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) Dim PARENT_ID = ClassDatabase.Execute_Scalar(sql)
If PARENT_ID Is Nothing Then If PARENT_ID Is Nothing Then
MsgBox("Error in GetParentID for selectedNode - Check Logfile", MsgBoxStyle.Exclamation) MsgBox("Error in GetParentID for selectedNode - Check Logfile", MsgBoxStyle.Exclamation)
@ -1315,9 +1315,9 @@ Public Class frmConstructor_Main
End If End If
'Abhängig von der Entität die Selektierungs-Daten laden '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 '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 Select Case ClickedLevel
Case 1 Case 1
EBENE1_ENTITY = "" EBENE1_ENTITY = ""
@ -1337,15 +1337,15 @@ Public Class frmConstructor_Main
'tslblEntity2.Visible = False 'tslblEntity2.Visible = False
'tslblEntity3.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 = "" EBENE2_COLUMNNAME = ""
EBENE3_COLUMNNAME = "" EBENE3_COLUMNNAME = ""
EBENE2_GRID_RESULT = Nothing EBENE2_GRID_RESULT = Nothing
EBENE3_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 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 '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) ' MsgBox("Entität '" & TreeViewLevelSelect.SelectedNode.Text & "' kann nicht ohne Auswahl eines Ebene 1 Datensatzes gewählt werden!", MsgBoxStyle.Exclamation)
' TreeViewLevelSelect.SelectedNode = TreeViewLevelSelect.SelectedNode.Parent ' TreeViewLevelSelect.SelectedNode = TreeViewLevelSelect.SelectedNode.Parent
@ -1360,7 +1360,7 @@ Public Class frmConstructor_Main
PARENT_RECORDID = EBENE1_RECID PARENT_RECORDID = EBENE1_RECID
PARENT_ID = EBENE1_RECID PARENT_ID = EBENE1_RECID
If GRID_TYPE = GridType.Grid Then 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 Else
_ENTITYSQL = _ENTITYSQL.Replace("@RecordID", EBENE2_RECID) _ENTITYSQL = _ENTITYSQL.Replace("@RecordID", EBENE2_RECID)
_ENTITYSQL = _ENTITYSQL.ToString.Replace("TBPMO_FORM T1", "TBPMO_FORM T1 ,TBPMO_RECORD_CONNECT T2") _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 If
'End Select '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 = "" EBENE3_COLUMNNAME = ""
EBENE2_GRID_RESULT = Nothing EBENE2_GRID_RESULT = Nothing
EBENE3_GRID_RESULT = Nothing EBENE3_GRID_RESULT = Nothing
@ -1394,7 +1394,7 @@ Public Class frmConstructor_Main
ACT_EBENE_STRING = EBENE3_ENTITY ACT_EBENE_STRING = EBENE3_ENTITY
If LogErrorsOnly = False Then ClassLogger.Add(">> Ebene 3 in TreeView selektiert", False) 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 'Wenn bereits ein Record für Ebene 1 gewählt wurde dann eisnchränken
If EBENE2_RECID > 0 Then If EBENE2_RECID > 0 Then
'Parent-ID setzen 'Parent-ID setzen
@ -1402,7 +1402,7 @@ Public Class frmConstructor_Main
PARENT_ID = EBENE2_RECID PARENT_ID = EBENE2_RECID
Try Try
If GRID_TYPE = GridType.Grid Then 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 Else
_ENTITYSQL = _ENTITYSQL.Replace("@RecordID", EBENE2_RECID) _ENTITYSQL = _ENTITYSQL.Replace("@RecordID", EBENE2_RECID)
_ENTITYSQL = _ENTITYSQL.ToString.Replace("TBPMO_FORM T1", "TBPMO_FORM T1 ,TBPMO_RECORD_CONNECT T2") _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 _ENTITYSTRING = ACT_EBENE_STRING
PARENT_ID = PARENT_RECORDID 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 If EDIT_STATE = EditState.None Then
'Die Controls der Entität laden 'Die Controls der Entität laden
@ -1518,7 +1518,7 @@ Public Class frmConstructor_Main
' End If ' End If
'End If 'End If
'Überprüfen ob es für diese Entität Wiedervorlagen gibt? 'Ü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_Grid_Layout()
Load_Splitter_Layout() Load_Splitter_Layout()
End If End If
@ -1539,10 +1539,10 @@ Public Class frmConstructor_Main
'Dim firstRow As System.Data.DataRowView = GridControlMain.MainView.GetRow(0) 'Dim firstRow As System.Data.DataRowView = GridControlMain.MainView.GetRow(0)
'If Not IsNothing(firstRow) Then 'If Not IsNothing(firstRow) Then
' Dim firstRecordId As Integer = firstRow.Row.Item("Record-ID") ' 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 'End If
' Hinfällig, da hier die Record-ID nicht gebraucht wird ' 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 'Zurücksetzen
ENTITY_LOADED = True ENTITY_LOADED = True
@ -1571,8 +1571,8 @@ Public Class frmConstructor_Main
SELECTED_RECORD_ID = Grid_RecordID SELECTED_RECORD_ID = Grid_RecordID
RECORD_ID = Grid_RecordID RECORD_ID = Grid_RecordID
'Daten zu Record in jedem Fall laden 'Daten zu Record in jedem Fall laden
'ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, FORM_ID, CtrlBuilder.AllControls) 'ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, ENTITY_ID, CtrlBuilder.AllControls)
ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, PARENT_ID, FORM_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! ' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden!
RECORD_CHANGED = False RECORD_CHANGED = False
Update_Record_Label(Grid_RecordID) Update_Record_Label(Grid_RecordID)
@ -1801,17 +1801,17 @@ Public Class frmConstructor_Main
End If End If
End Sub End Sub
Private Function GET_GROUP_OR_SINGLE_RECORD(PARENT_RECORD_ID As Integer, Entityload As Boolean) 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 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, 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, ENTITY_ID)
Dim GRP_SINGLE_REC = ClassDatabase.Execute_Scalar(sql, True) Dim GRP_SINGLE_REC = ClassDatabase.Execute_Scalar(sql, True)
If IsNothing(GRP_SINGLE_REC) Then 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 GRP_SINGLE_REC = ClassControlCommandsUI.GetLastRecord
If Not IsNothing(GRP_SINGLE_REC) Then If Not IsNothing(GRP_SINGLE_REC) Then
'Die neue Record-ID setzen 'Die neue Record-ID setzen
RECORD_ID = GRP_SINGLE_REC RECORD_ID = GRP_SINGLE_REC
SELECTED_RECORD_ID = RECORD_ID 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) MsgBox("Unexpected Error in Connecting Record. Check log", MsgBoxStyle.Critical)
Return False Return False
End If End If
@ -1897,7 +1897,7 @@ Public Class frmConstructor_Main
CreateTile() CreateTile()
Else Else
' Alle Checkboxen für aktuelle Ansicht heraussuchen ' 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 dtcheck As DataTable = ClassDatabase.Return_Datatable(sqlcheck)
Dim listcheck As New List(Of String) Dim listcheck As New List(Of String)
@ -1952,7 +1952,7 @@ Public Class frmConstructor_Main
End Function End Function
Sub HideColumns() Sub HideColumns()
Try 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) Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL)
If GRID_TYPE = GridType.Grid Then If GRID_TYPE = GridType.Grid Then
Dim cols As DevExpress.XtraGrid.Columns.GridColumnCollection = grvwGrid.Columns Dim cols As DevExpress.XtraGrid.Columns.GridColumnCollection = grvwGrid.Columns
@ -2012,10 +2012,10 @@ Public Class frmConstructor_Main
' Dim pID As Integer ' Dim pID As Integer
Select Case ACT_EBENE '#### Hier muss nun der Parent-Record gewählt werden #### Select Case ACT_EBENE '#### Hier muss nun der Parent-Record gewählt werden ####
Case 3 Case 3
linkedRecord = GET_LINKED_RECORD(Rec_ID, FORM_ID) linkedRecord = GET_LINKED_RECORD(Rec_ID, ENTITY_ID)
If linkedRecord > 0 Then 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 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 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) Dim PARENT_RECORD1 = ClassDatabase.Execute_Scalar(sql, True)
@ -2025,7 +2025,7 @@ Public Class frmConstructor_Main
PARENT_ID = PARENT_RECORD1 PARENT_ID = PARENT_RECORD1
End If End If
Case 2 Case 2
linkedRecord = GET_LINKED_RECORD(Rec_ID, FORM_ID) linkedRecord = GET_LINKED_RECORD(Rec_ID, ENTITY_ID)
If linkedRecord > 0 Then If linkedRecord > 0 Then
EBENE1_RECID = Rec_ID EBENE1_RECID = Rec_ID
PARENT_RECORDID = EBENE1_RECID PARENT_RECORDID = EBENE1_RECID
@ -2085,8 +2085,8 @@ Public Class frmConstructor_Main
End If End If
If TCDetails.SelectedTabPage.Text.StartsWith("Detail") Or TCDetails.SelectedTabPage.Text.StartsWith("Kopf") Then If TCDetails.SelectedTabPage.Text.StartsWith("Detail") Or TCDetails.SelectedTabPage.Text.StartsWith("Kopf") Then
'Daten zu Record in jedem Fall laden 'Daten zu Record in jedem Fall laden
'ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, FORM_ID, CtrlBuilder.AllControls) 'ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, ENTITY_ID, CtrlBuilder.AllControls)
ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, PARENT_ID, FORM_ID, CtrlBuilder.AllControls) ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, PARENT_ID, ENTITY_ID, CtrlBuilder.AllControls)
End If End If
If TCDetails.SelectedTabPage.Text.ToLower.StartsWith("wieder") Then If TCDetails.SelectedTabPage.Text.ToLower.StartsWith("wieder") Then
tsButtonEditMode.Enabled = False tsButtonEditMode.Enabled = False
@ -2330,7 +2330,7 @@ Public Class frmConstructor_Main
End If End If
' Record Speichern ' 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 'Jetzt die für die Entität notwendigen Prroceduren ausführen
Customer_Run_Procedures() Customer_Run_Procedures()
RECORD_CHANGED = False RECORD_CHANGED = False
@ -2340,11 +2340,11 @@ Public Class frmConstructor_Main
Private Sub Customer_Run_Procedures() Private Sub Customer_Run_Procedures()
Try 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 If Not DT Is Nothing Then
For Each row As DataRow In DT.Rows For Each row As DataRow In DT.Rows
Dim prsql As String = row.Item("EXECUTE_COMMAND") 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) prsql = prsql.ToUpper.Replace("@RECORD_ID", RECORD_ID)
ClassDatabase.Execute_non_Query(prsql, True) ClassDatabase.Execute_non_Query(prsql, True)
Next Next
@ -2390,7 +2390,7 @@ Public Class frmConstructor_Main
Cursor = Cursors.WaitCursor Cursor = Cursors.WaitCursor
Dim DTWD As DataTable Dim DTWD As DataTable
If Type = "ENTITY" Then 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) DTWD = ClassDatabase.Return_Datatable(_sql)
If DTWD.Rows.Count = 1 Then If DTWD.Rows.Count = 1 Then
If IsDBNull(DTWD.Rows(0).Item(0)) Then If IsDBNull(DTWD.Rows(0).Item(0)) Then
@ -2403,7 +2403,7 @@ Public Class frmConstructor_Main
Exit Sub Exit Sub
End If End If
Else 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) DTWD = ClassDatabase.Return_Datatable(sql)
If DTWD.Rows.Count = 1 Then If DTWD.Rows.Count = 1 Then
If IsDBNull(DTWD.Rows(0).Item(0)) Then If IsDBNull(DTWD.Rows(0).Item(0)) Then
@ -2663,7 +2663,7 @@ Public Class frmConstructor_Main
Case "@Record-ID".ToUpper Case "@Record-ID".ToUpper
Return RECORD_ID Return RECORD_ID
Case "@EntityID".ToUpper Case "@EntityID".ToUpper
Return FORM_ID Return ENTITY_ID
Case "@ParentID".ToUpper Case "@ParentID".ToUpper
Return PARENT_RECORDID Return PARENT_RECORDID
Case Else Case Else
@ -2759,7 +2759,7 @@ Public Class frmConstructor_Main
VIEWTYPE_ID = 3 VIEWTYPE_ID = 3
End Select 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 If ClassDatabase.Execute_non_Query(upd, True) = True Then
' VIEW_ID Override zurücksetzen!! ' VIEW_ID Override zurücksetzen!!
VIEW_ID_RUNTIME = -1 VIEW_ID_RUNTIME = -1
@ -2806,13 +2806,13 @@ Public Class frmConstructor_Main
Refresh_FollowUps() Refresh_FollowUps()
dtpFollowUp.Enabled = False dtpFollowUp.Enabled = False
lblWiedervorlage_Control.Text = "<< Waiting for Selection:" lblWiedervorlage_Control.Text = "<< Waiting for Selection:"
'Check_FOLLOWUP_IsConfigured(FORM_ID) 'Check_FOLLOWUP_IsConfigured(ENTITY_ID)
End If End If
Select Case TCDetails.SelectedTabPageIndex Select Case TCDetails.SelectedTabPageIndex
Case 0 Case 0
'If RECORD_NEEDS_REFRESH = True Then '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) ' ' UpdRECORD_NEEDS_REFRESH(False)
'End If 'End If
@ -2899,7 +2899,7 @@ Public Class frmConstructor_Main
CURRENT_FILEID = Filerow.Item(0) CURRENT_FILEID = Filerow.Item(0)
CURRENT_PARENT_ID = PARENT_ID CURRENT_PARENT_ID = PARENT_ID
CURRENT_RECORD_ID = RECORD_ID CURRENT_RECORD_ID = RECORD_ID
CURRENT_FORM_ID = FORM_ID CURRENT_FORM_ID = ENTITY_ID
CURRENT_FORMVIEW_ID = FORMVIEW_ID CURRENT_FORMVIEW_ID = FORMVIEW_ID
frmWD_Index_Dokart.ShowDialog() frmWD_Index_Dokart.ShowDialog()
RUN_WD_SEARCH(WD_Suche, "RECORD") 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 Private Sub tsButtonShowWorkflowTasks_Click(sender As Object, e As EventArgs) Handles tsButtonShowWorkflowTasks.Click
If RECORD_ID > 0 Then If RECORD_ID > 0 Then
CURRENT_RECORD_ID = RECORD_ID CURRENT_RECORD_ID = RECORD_ID
frmTaskEditor.ShowDialog() CURRENT_FORM_ID = ENTITY_ID
frmTask_Editor.ShowDialog()
Show_act_WFTask() Show_act_WFTask()
Refresh_TaskOverview() Refresh_TaskOverview()
End If End If
End Sub End Sub
Private Sub tsButtonShowTaskOverview_Click(sender As Object, e As EventArgs) Handles tsButtonShowTaskOverview.Click Private Sub tsButtonShowTaskOverview_Click(sender As Object, e As EventArgs) Handles tsButtonShowTaskOverview.Click
frmTaskOverview.Show() frmTask_Overview.Show()
End Sub End Sub
Sub Refresh_TaskOverview() Sub Refresh_TaskOverview()
Dim frmCollection As New FormCollection() Dim frmCollection As New FormCollection()
frmCollection = Application.OpenForms() frmCollection = Application.OpenForms()
If frmTaskOverview.IsHandleCreated Then If frmTask_Overview.IsHandleCreated Then
If Sett_TaskOverviewKeepInFront = True Then If Sett_TaskOverviewKeepInFront = True Then
frmTaskOverview.Refresh() frmTask_Overview.Refresh()
End If End If
'Else 'Else
' Console.WriteLine("frmTaskOverview NICHT geladen") ' Console.WriteLine("frmTaskOverview NICHT geladen")
@ -3094,7 +3095,7 @@ Public Class frmConstructor_Main
End Sub End Sub
Sub Show_act_WFTask() Sub Show_act_WFTask()
Try 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 tsslblWorkflowstate.BackColor = Color.Black
If DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows.Count > 0 Then 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") 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 ' grvwSelection.Appearance.FocusedRow.BackColor = Color.Fuchsia
End If End If
Dim sql1 As String = "SELECT COUNT(*) FROM TBPMO_WORKFLOW_FORM where FORM_ID = @FORM_ID" 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) Dim result As Integer = ClassDatabase.Execute_Scalar(sql1)
If result > 0 Then If result > 0 Then
tsButtonShowWorkflowTasks.Visible = True tsButtonShowWorkflowTasks.Visible = True
@ -3158,7 +3159,7 @@ Public Class frmConstructor_Main
Exit Sub Exit Sub
End If End If
CURRENT_ENTITYSTRING = _ENTITYSTRING CURRENT_ENTITYSTRING = _ENTITYSTRING
CURRENT_FORM_ID = FORM_ID CURRENT_FORM_ID = ENTITY_ID
frmWD_EntityImport.ShowDialog() frmWD_EntityImport.ShowDialog()
End Sub End Sub
@ -3177,9 +3178,9 @@ Public Class frmConstructor_Main
End If End If
result = MessageBox.Show(stg, "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) result = MessageBox.Show(stg, "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
Try 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 If ClassDatabase.Execute_non_Query(sql) Then
Show_act_WFTask() Show_act_WFTask()
End If End If
@ -3288,7 +3289,7 @@ Public Class frmConstructor_Main
Sub Load_Templates() Sub Load_Templates()
Try 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") Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "Load_Templates")
If Not IsNothing(DT) Then If Not IsNothing(DT) Then
If DT.Rows.Count > 0 Then If DT.Rows.Count > 0 Then
@ -3496,7 +3497,7 @@ Public Class frmConstructor_Main
Try Try
' SELECT COLUMN_NAME1 FROM VWTEMP_cPMO_FORM ' 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' " & _ 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 DT As DataTable = ClassDatabase.Return_Datatable(sql, "Parent-Data")
Dim Parent_ID = DT.Rows(0).Item(0) Dim Parent_ID = DT.Rows(0).Item(0)
@ -3553,13 +3554,13 @@ Public Class frmConstructor_Main
If result <> MsgBoxResult.Yes Then If result <> MsgBoxResult.Yes Then
Exit Sub Exit Sub
Else 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 Exit Sub
End If End If
End If 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() 'Save_GridViewParentEntityLayout()
MsgBox("Die Parent-Entität wurde erfolgreich aktualisiert!", MsgBoxStyle.Information) MsgBox("Die Parent-Entität wurde erfolgreich aktualisiert!", MsgBoxStyle.Information)
Check_Record_Changed() Check_Record_Changed()
@ -3594,7 +3595,7 @@ Public Class frmConstructor_Main
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
Try Try
Cursor = Cursors.WaitCursor Cursor = Cursors.WaitCursor
CURRENT_FORM_ID = FORM_ID CURRENT_FORM_ID = ENTITY_ID
ClassControlValueCache.ClearCache() ClassControlValueCache.ClearCache()
DisableEditMode() DisableEditMode()
Load_Entity_Data(ACT_EBENE) 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()> _ <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmTaskEditor Partial Class frmTask_Editor
Inherits System.Windows.Forms.Form Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
@ -24,7 +24,7 @@ Partial Class frmTaskEditor
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim CHANGED_WHENLabel As System.Windows.Forms.Label 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 GUIDLabel As System.Windows.Forms.Label
Dim CHANGED_WHOLabel As System.Windows.Forms.Label Dim CHANGED_WHOLabel As System.Windows.Forms.Label
Dim TITLELabel 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.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager()
Me.TBPMO_WORKFLOW_TASK_STATETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_TASK_STATETableAdapter() Me.TBPMO_WORKFLOW_TASK_STATETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_TASK_STATETableAdapter()
Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.RECORD_IDTextBox = New System.Windows.Forms.TextBox() Me.WF_IDTextBox = New System.Windows.Forms.TextBox()
Me.VWPMO_WF_USER_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.VWPMO_WF_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
Me.btnAddAppointment = New System.Windows.Forms.Button() Me.btnAddAppointment = New System.Windows.Forms.Button()
Me.btndeleteTask = 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.DUE_DATEDateTimePicker = New System.Windows.Forms.DateTimePicker()
Me.STATE_IDComboBox = New System.Windows.Forms.ComboBox() Me.STATE_IDComboBox = New System.Windows.Forms.ComboBox()
Me.TBPMO_WORKFLOW_TASK_STATEBindingSource = New System.Windows.Forms.BindingSource(Me.components) 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.Label1 = New System.Windows.Forms.Label()
Me.GroupBox2 = New System.Windows.Forms.GroupBox() Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.btnAddUser = New System.Windows.Forms.Button() Me.btnAddUser = New System.Windows.Forms.Button()
@ -68,10 +67,9 @@ Partial Class frmTaskEditor
Me.Label3 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label()
Me.btndeleteuser = New System.Windows.Forms.Button() Me.btndeleteuser = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label() 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.btndelete_following = New System.Windows.Forms.Button()
Me.ListBoxFollowing = New System.Windows.Forms.ListBox() 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() CHANGED_WHENLabel = New System.Windows.Forms.Label()
GUIDLabel = New System.Windows.Forms.Label() GUIDLabel = New System.Windows.Forms.Label()
CHANGED_WHOLabel = 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.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPMO_WORKFLOW_TASKBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPMO_WORKFLOW_TASKBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout() 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.TBPMO_WORKFLOW_TASK_STATEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.VWPMO_FOLLOWING_TASKSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox2.SuspendLayout() Me.GroupBox2.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
@ -144,13 +141,14 @@ Partial Class frmTaskEditor
'OK_Button 'OK_Button
' '
resources.ApplyResources(Me.OK_Button, "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" Me.OK_Button.Name = "OK_Button"
' '
'Cancel_Button 'Cancel_Button
' '
resources.ApplyResources(Me.Cancel_Button, "Cancel_Button") resources.ApplyResources(Me.Cancel_Button, "Cancel_Button")
Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel 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" Me.Cancel_Button.Name = "Cancel_Button"
' '
'DD_DMSDataSet 'DD_DMSDataSet
@ -206,9 +204,8 @@ Partial Class frmTaskEditor
' '
'GroupBox1 'GroupBox1
' '
resources.ApplyResources(Me.GroupBox1, "GroupBox1") Me.GroupBox1.Controls.Add(Me.WF_IDTextBox)
Me.GroupBox1.Controls.Add(RECORD_IDLabel) Me.GroupBox1.Controls.Add(RECORD_IDLabel)
Me.GroupBox1.Controls.Add(Me.RECORD_IDTextBox)
Me.GroupBox1.Controls.Add(Me.DateTimePicker1) Me.GroupBox1.Controls.Add(Me.DateTimePicker1)
Me.GroupBox1.Controls.Add(Label4) Me.GroupBox1.Controls.Add(Label4)
Me.GroupBox1.Controls.Add(Me.btnAddAppointment) 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.DUE_DATEDateTimePicker)
Me.GroupBox1.Controls.Add(Me.STATE_IDComboBox) Me.GroupBox1.Controls.Add(Me.STATE_IDComboBox)
Me.GroupBox1.Controls.Add(DUE_DATELabel) Me.GroupBox1.Controls.Add(DUE_DATELabel)
resources.ApplyResources(Me.GroupBox1, "GroupBox1")
Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.TabStop = False Me.GroupBox1.TabStop = False
' '
'RECORD_IDTextBox 'WF_IDTextBox
' '
resources.ApplyResources(Me.RECORD_IDTextBox, "RECORD_IDTextBox") Me.WF_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "WF_ID", True))
Me.RECORD_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_USER_ACTIVEBindingSource, "RECORD_ID", True)) resources.ApplyResources(Me.WF_IDTextBox, "WF_IDTextBox")
Me.RECORD_IDTextBox.Name = "RECORD_IDTextBox" Me.WF_IDTextBox.Name = "WF_IDTextBox"
Me.RECORD_IDTextBox.ReadOnly = True
Me.RECORD_IDTextBox.TabStop = False
' '
'VWPMO_WF_USER_ACTIVEBindingSource 'VWPMO_WF_ACTIVEBindingSource
' '
Me.VWPMO_WF_USER_ACTIVEBindingSource.DataMember = "VWPMO_WF_USER_ACTIVE" Me.VWPMO_WF_ACTIVEBindingSource.DataMember = "VWPMO_WF_ACTIVE"
Me.VWPMO_WF_USER_ACTIVEBindingSource.DataSource = Me.DD_DMSDataSet Me.VWPMO_WF_ACTIVEBindingSource.DataSource = Me.DD_DMSDataSet
' '
'DateTimePicker1 'DateTimePicker1
' '
resources.ApplyResources(Me.DateTimePicker1, "DateTimePicker1") Me.DateTimePicker1.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.VWPMO_WF_ACTIVEBindingSource, "TASK_DATE", True))
Me.DateTimePicker1.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.VWPMO_WF_USER_ACTIVEBindingSource, "TASK_DATE", True))
Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
resources.ApplyResources(Me.DateTimePicker1, "DateTimePicker1")
Me.DateTimePicker1.Name = "DateTimePicker1" Me.DateTimePicker1.Name = "DateTimePicker1"
' '
'btnAddAppointment 'btnAddAppointment
' '
resources.ApplyResources(Me.btnAddAppointment, "btnAddAppointment")
Me.btnAddAppointment.Image = Global.DD_Record_Organiser.My.Resources.Resources.AddTable_5632 Me.btnAddAppointment.Image = Global.DD_Record_Organiser.My.Resources.Resources.AddTable_5632
resources.ApplyResources(Me.btnAddAppointment, "btnAddAppointment")
Me.btnAddAppointment.Name = "btnAddAppointment" Me.btnAddAppointment.Name = "btnAddAppointment"
Me.btnAddAppointment.UseVisualStyleBackColor = True Me.btnAddAppointment.UseVisualStyleBackColor = True
' '
'btndeleteTask 'btndeleteTask
' '
resources.ApplyResources(Me.btndeleteTask, "btndeleteTask")
Me.btndeleteTask.Image = Global.DD_Record_Organiser.My.Resources.Resources.note_delete Me.btndeleteTask.Image = Global.DD_Record_Organiser.My.Resources.Resources.note_delete
resources.ApplyResources(Me.btndeleteTask, "btndeleteTask")
Me.btndeleteTask.Name = "btndeleteTask" Me.btndeleteTask.Name = "btndeleteTask"
Me.btndeleteTask.UseVisualStyleBackColor = True Me.btndeleteTask.UseVisualStyleBackColor = True
' '
'GUIDTextBox 'GUIDTextBox
' '
Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "WF_TASK_ID", True))
resources.ApplyResources(Me.GUIDTextBox, "GUIDTextBox") 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.Name = "GUIDTextBox"
Me.GUIDTextBox.ReadOnly = True Me.GUIDTextBox.ReadOnly = True
' '
'CHANGED_WHENTextBox '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") 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.Name = "CHANGED_WHENTextBox"
Me.CHANGED_WHENTextBox.ReadOnly = True Me.CHANGED_WHENTextBox.ReadOnly = True
' '
'TITLETextBox 'TITLETextBox
' '
Me.TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "TITLE", True))
resources.ApplyResources(Me.TITLETextBox, "TITLETextBox") 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.Name = "TITLETextBox"
Me.TITLETextBox.ReadOnly = True Me.TITLETextBox.ReadOnly = True
' '
'CHANGED_WHOTextBox '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") 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.Name = "CHANGED_WHOTextBox"
Me.CHANGED_WHOTextBox.ReadOnly = True Me.CHANGED_WHOTextBox.ReadOnly = True
' '
'COMMENTTextBox 'COMMENTTextBox
' '
Me.COMMENTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "COMMENT", True))
resources.ApplyResources(Me.COMMENTTextBox, "COMMENTTextBox") 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" Me.COMMENTTextBox.Name = "COMMENTTextBox"
' '
'ADDED_WHENTextBox '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") 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.Name = "ADDED_WHENTextBox"
Me.ADDED_WHENTextBox.ReadOnly = True Me.ADDED_WHENTextBox.ReadOnly = True
' '
'DUE_DATEDateTimePicker 'DUE_DATEDateTimePicker
' '
resources.ApplyResources(Me.DUE_DATEDateTimePicker, "DUE_DATEDateTimePicker") Me.DUE_DATEDateTimePicker.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.VWPMO_WF_ACTIVEBindingSource, "DUE_DATE", True))
Me.DUE_DATEDateTimePicker.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.VWPMO_WF_USER_ACTIVEBindingSource, "DUE_DATE", True))
Me.DUE_DATEDateTimePicker.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.DUE_DATEDateTimePicker.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
resources.ApplyResources(Me.DUE_DATEDateTimePicker, "DUE_DATEDateTimePicker")
Me.DUE_DATEDateTimePicker.Name = "DUE_DATEDateTimePicker" Me.DUE_DATEDateTimePicker.Name = "DUE_DATEDateTimePicker"
' '
'STATE_IDComboBox 'STATE_IDComboBox
' '
resources.ApplyResources(Me.STATE_IDComboBox, "STATE_IDComboBox") Me.STATE_IDComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.VWPMO_WF_ACTIVEBindingSource, "STATE_ID", True))
Me.STATE_IDComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.VWPMO_WF_USER_ACTIVEBindingSource, "STATE_ID", True))
Me.STATE_IDComboBox.DataSource = Me.TBPMO_WORKFLOW_TASK_STATEBindingSource Me.STATE_IDComboBox.DataSource = Me.TBPMO_WORKFLOW_TASK_STATEBindingSource
Me.STATE_IDComboBox.DisplayMember = "STATE_DESC" Me.STATE_IDComboBox.DisplayMember = "STATE_DESC"
Me.STATE_IDComboBox.FormattingEnabled = True Me.STATE_IDComboBox.FormattingEnabled = True
resources.ApplyResources(Me.STATE_IDComboBox, "STATE_IDComboBox")
Me.STATE_IDComboBox.Name = "STATE_IDComboBox" Me.STATE_IDComboBox.Name = "STATE_IDComboBox"
Me.STATE_IDComboBox.ValueMember = "GUID" 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.DataMember = "TBPMO_WORKFLOW_TASK_STATE"
Me.TBPMO_WORKFLOW_TASK_STATEBindingSource.DataSource = Me.DD_DMSDataSet 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 'Label1
' '
resources.ApplyResources(Me.Label1, "Label1") resources.ApplyResources(Me.Label1, "Label1")
@ -355,8 +346,8 @@ Partial Class frmTaskEditor
' '
'btnAddUser 'btnAddUser
' '
resources.ApplyResources(Me.btnAddUser, "btnAddUser")
Me.btnAddUser.Image = Global.DD_Record_Organiser.My.Resources.Resources.arrow_left Me.btnAddUser.Image = Global.DD_Record_Organiser.My.Resources.Resources.arrow_left
resources.ApplyResources(Me.btnAddUser, "btnAddUser")
Me.btnAddUser.Name = "btnAddUser" Me.btnAddUser.Name = "btnAddUser"
Me.btnAddUser.UseVisualStyleBackColor = True Me.btnAddUser.UseVisualStyleBackColor = True
' '
@ -368,8 +359,8 @@ Partial Class frmTaskEditor
' '
'ListView1 'ListView1
' '
resources.ApplyResources(Me.ListView1, "ListView1")
Me.ListView1.AllowDrop = True 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.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2, Me.ColumnHeader3})
Me.ListView1.FullRowSelect = True Me.ListView1.FullRowSelect = True
Me.ListView1.Name = "ListView1" Me.ListView1.Name = "ListView1"
@ -396,8 +387,8 @@ Partial Class frmTaskEditor
' '
'btndeleteuser 'btndeleteuser
' '
resources.ApplyResources(Me.btndeleteuser, "btndeleteuser")
Me.btndeleteuser.Image = Global.DD_Record_Organiser.My.Resources.Resources.note_delete Me.btndeleteuser.Image = Global.DD_Record_Organiser.My.Resources.Resources.note_delete
resources.ApplyResources(Me.btndeleteuser, "btndeleteuser")
Me.btndeleteuser.Name = "btndeleteuser" Me.btndeleteuser.Name = "btndeleteuser"
Me.btndeleteuser.UseVisualStyleBackColor = True Me.btndeleteuser.UseVisualStyleBackColor = True
' '
@ -407,31 +398,25 @@ Partial Class frmTaskEditor
Me.Label2.ForeColor = System.Drawing.Color.Crimson Me.Label2.ForeColor = System.Drawing.Color.Crimson
Me.Label2.Name = "Label2" 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 'btndelete_following
' '
resources.ApplyResources(Me.btndelete_following, "btndelete_following")
Me.btndelete_following.Image = Global.DD_Record_Organiser.My.Resources.Resources.note_delete 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.Name = "btndelete_following"
Me.btndelete_following.UseVisualStyleBackColor = True Me.btndelete_following.UseVisualStyleBackColor = True
' '
'ListBoxFollowing 'ListBoxFollowing
' '
resources.ApplyResources(Me.ListBoxFollowing, "ListBoxFollowing")
Me.ListBoxFollowing.DataSource = Me.VWPMO_FOLLOWING_TASKSBindingSource
Me.ListBoxFollowing.DisplayMember = "TITLE"
Me.ListBoxFollowing.FormattingEnabled = True Me.ListBoxFollowing.FormattingEnabled = True
resources.ApplyResources(Me.ListBoxFollowing, "ListBoxFollowing")
Me.ListBoxFollowing.Name = "ListBoxFollowing" Me.ListBoxFollowing.Name = "ListBoxFollowing"
Me.ListBoxFollowing.ValueMember = "WF_TASK_ID" Me.ListBoxFollowing.ValueMember = "WF_TASK_ID"
' '
'frmTaskEditor 'VWPMO_WF_ACTIVETableAdapter
'
Me.VWPMO_WF_ACTIVETableAdapter.ClearBeforeFill = True
'
'frmTask_Editor
' '
Me.AcceptButton = Me.OK_Button Me.AcceptButton = Me.OK_Button
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")
@ -446,15 +431,14 @@ Partial Class frmTaskEditor
Me.Controls.Add(Me.GroupBox1) Me.Controls.Add(Me.GroupBox1)
Me.MaximizeBox = False Me.MaximizeBox = False
Me.MinimizeBox = False Me.MinimizeBox = False
Me.Name = "frmTaskEditor" Me.Name = "frmTask_Editor"
Me.ShowInTaskbar = False Me.ShowInTaskbar = False
CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPMO_WORKFLOW_TASKBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPMO_WORKFLOW_TASKBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout() 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.TBPMO_WORKFLOW_TASK_STATEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.VWPMO_FOLLOWING_TASKSBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox2.ResumeLayout(False) Me.GroupBox2.ResumeLayout(False)
Me.GroupBox2.PerformLayout() Me.GroupBox2.PerformLayout()
Me.ResumeLayout(False) Me.ResumeLayout(False)
@ -487,10 +471,6 @@ Partial Class frmTaskEditor
Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader
Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader
Friend WithEvents ColumnHeader3 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 btndeleteTask As System.Windows.Forms.Button
Friend WithEvents btnAddAppointment As System.Windows.Forms.Button Friend WithEvents btnAddAppointment As System.Windows.Forms.Button
Friend WithEvents btndelete_following 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 btnAddUser As System.Windows.Forms.Button
Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker
Friend WithEvents ListBoxFollowing As System.Windows.Forms.ListBox 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 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"> <data name="Cancel_Button.Text" xml:space="preserve">
<value>Cancel</value> <value>Cancel</value>
</data> </data>
<data name="GroupBox1.Text" xml:space="preserve">
<value>Current Task:</value>
</data>
<data name="btnAddAppointment.Text" xml:space="preserve"> <data name="btnAddAppointment.Text" xml:space="preserve">
<value>Add to Calendar</value> <value>Add to Calendar</value>
</data> </data>
<data name="btndeleteTask.Text" xml:space="preserve"> <data name="btndeleteTask.Text" xml:space="preserve">
<value>Delete</value> <value>Delete</value>
</data> </data>
<data name="GroupBox1.Text" xml:space="preserve">
<value>Current Task:</value>
</data>
<data name="Label1.Size" type="System.Drawing.Size, System.Drawing"> <data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
<value>107, 15</value> <value>107, 15</value>
</data> </data>
<data name="Label1.Text" xml:space="preserve"> <data name="Label1.Text" xml:space="preserve">
<value>Subsequent tasks:</value> <value>Subsequent tasks:</value>
</data> </data>
<data name="GroupBox2.Text" xml:space="preserve">
<value>Exclusive Assignment of tasks to users:</value>
</data>
<data name="btnAddUser.Text" xml:space="preserve"> <data name="btnAddUser.Text" xml:space="preserve">
<value>Assign user to task</value> <value>Assign user to task</value>
</data> </data>
@ -187,6 +184,9 @@
<data name="Label2.Text" xml:space="preserve"> <data name="Label2.Text" xml:space="preserve">
<value>Assigned users:</value> <value>Assigned users:</value>
</data> </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"> <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAABAAgAEBAAAAEACABoBQAAhgAAABAQAAABACAAaAQAAO4FAAAYGAAAAQAIAMgGAABWCgAAGBgAAAEA 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 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 Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
Try 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 Catch ex As Exception
MsgBox("Error in Exit:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in Exit:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
Me.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Close()
End Sub End Sub
Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click 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 Try
Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.Connection.ConnectionString = MyConnectionString Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPMO_WORKFLOW_TASKTableAdapter.Connection.ConnectionString = MyConnectionString Me.TBPMO_WORKFLOW_TASKTableAdapter.Connection.ConnectionString = MyConnectionString
Me.VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString Me.VWPMO_WF_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
Me.VWPMO_FOLLOWING_TASKSTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATE)
Load_Task() 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:") 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 If result = MsgBoxResult.Yes Then
TBPMO_WORKFLOW_TASKTableAdapter.cmdsetActive(Environment.UserName, CURRENT_RECORD_ID) TBPMO_WORKFLOW_TASKTableAdapter.cmdsetActive(Environment.UserName, CURRENT_RECORD_ID)
Load_Task() 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) MsgBox("Keine aktiven Tasks - Bitte informieren Sie Ihren Systembetreuer.", MsgBoxStyle.Exclamation)
Me.Close() Me.Close()
End If End If
@ -50,15 +52,19 @@ Public Class frmTaskEditor
Sub Load_Task() Sub Load_Task()
Try 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 Catch ex As Exception
MsgBox("Error in Load_Task:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in Load_Task:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
End Sub End Sub
Sub Load_Following() Sub Load_Following()
Try 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" & _ '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" & _ ' " 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 ' " 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 ' Me.DataGridView1.Visible = False
' Exit Sub ' Exit Sub
'End If 'End If
If DD_DMSDataSet.VWPMO_FOLLOWING_TASKS.Rows.Count > 0 Then If DT.rows.count > 0 Then
If DD_DMSDataSet.VWPMO_FOLLOWING_TASKS.Rows.Count = 1 Then If DT.rows.count = 1 Then
Label1.Text = "1 nachfolgender Task:" Label1.Text = "1 nachfolgender Task:"
Else Else
Label1.Text = DD_DMSDataSet.VWPMO_FOLLOWING_TASKS.Rows.Count.ToString & " nachfolgende Tasks:" Label1.Text = DT.rows.count.ToString & " nachfolgende Tasks:"
End If End If
ListBoxFollowing.Visible = True ListBoxFollowing.Visible = True
btndelete_following.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 'Me.DataGridView1.DataSource = DT
Else Else
Label1.Text = "Keine nachfolgenden Tasks" Label1.Text = "Keine nachfolgenden Tasks"
@ -124,6 +133,11 @@ Public Class frmTaskEditor
End Sub End Sub
Private Sub frmWF_TaskEditor_Shown(sender As Object, e As EventArgs) Handles Me.Shown 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_Following()
Load_User() Load_User()
Load_TASK_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()> _ <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmTaskmanagement Partial Class frmTask_Management
Inherits System.Windows.Forms.Form Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
@ -23,7 +23,7 @@ Partial Class frmTaskmanagement
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() 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 CHANGED_WHENLabel1 As System.Windows.Forms.Label
Dim ADDED_WHENLabel1 As System.Windows.Forms.Label Dim ADDED_WHENLabel1 As System.Windows.Forms.Label
Dim CHANGED_WHOLabel1 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.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.ListBox1.DataSource = Me.TBPMO_WORKFLOWBindingSource Me.ListBox1.DataSource = Me.TBPMO_WORKFLOWBindingSource
Me.ListBox1.DisplayMember = "TITLE" Me.ListBox1.DisplayMember = "TITLE"
Me.ListBox1.ForeColor = System.Drawing.Color.Firebrick
Me.ListBox1.FormattingEnabled = True Me.ListBox1.FormattingEnabled = True
resources.ApplyResources(Me.ListBox1, "ListBox1") resources.ApplyResources(Me.ListBox1, "ListBox1")
Me.ListBox1.Name = "ListBox1" Me.ListBox1.Name = "ListBox1"
@ -263,6 +264,7 @@ Partial Class frmTaskmanagement
' '
resources.ApplyResources(Me.GUIDTextBox1, "GUIDTextBox1") resources.ApplyResources(Me.GUIDTextBox1, "GUIDTextBox1")
Me.GUIDTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_WORKFLOWBindingSource, "GUID", True)) 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" Me.GUIDTextBox1.Name = "GUIDTextBox1"
' '
'DESCRIPTIONLabel 'DESCRIPTIONLabel
@ -274,6 +276,7 @@ Partial Class frmTaskmanagement
' '
resources.ApplyResources(Me.DESCRIPTIONTextBox, "DESCRIPTIONTextBox") resources.ApplyResources(Me.DESCRIPTIONTextBox, "DESCRIPTIONTextBox")
Me.DESCRIPTIONTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_WORKFLOWBindingSource, "DESCRIPTION", True)) 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" Me.DESCRIPTIONTextBox.Name = "DESCRIPTIONTextBox"
' '
'TITLELabel 'TITLELabel
@ -285,6 +288,7 @@ Partial Class frmTaskmanagement
' '
resources.ApplyResources(Me.TITLETextBox, "TITLETextBox") resources.ApplyResources(Me.TITLETextBox, "TITLETextBox")
Me.TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_WORKFLOWBindingSource, "TITLE", True)) 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" Me.TITLETextBox.Name = "TITLETextBox"
' '
'TBPMO_WORKFLOWBindingNavigator 'TBPMO_WORKFLOWBindingNavigator
@ -479,6 +483,7 @@ Partial Class frmTaskmanagement
'ListBoxEntity_State 'ListBoxEntity_State
' '
resources.ApplyResources(Me.ListBoxEntity_State, "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.FormattingEnabled = True
Me.ListBoxEntity_State.Name = "ListBoxEntity_State" Me.ListBoxEntity_State.Name = "ListBoxEntity_State"
' '
@ -524,6 +529,7 @@ Partial Class frmTaskmanagement
'GUIDTextBox 'GUIDTextBox
' '
Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_WORKFLOW_TASK_STATEBindingSource, "GUID", True)) 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") resources.ApplyResources(Me.GUIDTextBox, "GUIDTextBox")
Me.GUIDTextBox.Name = "GUIDTextBox" Me.GUIDTextBox.Name = "GUIDTextBox"
' '
@ -546,6 +552,7 @@ Partial Class frmTaskmanagement
'STATE_DESCTextBox 'STATE_DESCTextBox
' '
Me.STATE_DESCTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_WORKFLOW_TASK_STATEBindingSource, "STATE_DESC", True)) 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") resources.ApplyResources(Me.STATE_DESCTextBox, "STATE_DESCTextBox")
Me.STATE_DESCTextBox.Name = "STATE_DESCTextBox" Me.STATE_DESCTextBox.Name = "STATE_DESCTextBox"
' '
@ -604,6 +611,7 @@ Partial Class frmTaskmanagement
' '
'TreeViewEntities 'TreeViewEntities
' '
Me.TreeViewEntities.ForeColor = System.Drawing.Color.OrangeRed
resources.ApplyResources(Me.TreeViewEntities, "TreeViewEntities") resources.ApplyResources(Me.TreeViewEntities, "TreeViewEntities")
Me.TreeViewEntities.Name = "TreeViewEntities" Me.TreeViewEntities.Name = "TreeViewEntities"
' '
@ -790,13 +798,13 @@ Partial Class frmTaskmanagement
Me.ColorDialog1.FullOpen = True Me.ColorDialog1.FullOpen = True
Me.ColorDialog1.SolidColorOnly = True Me.ColorDialog1.SolidColorOnly = True
' '
'frmTaskmanagement 'frmTask_Management
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.SplitContainer1) Me.Controls.Add(Me.SplitContainer1)
Me.Controls.Add(Me.StatusStrip1) Me.Controls.Add(Me.StatusStrip1)
Me.Name = "frmTaskmanagement" Me.Name = "frmTask_Management"
Me.SplitContainer1.Panel1.ResumeLayout(False) Me.SplitContainer1.Panel1.ResumeLayout(False)
Me.SplitContainer1.Panel1.PerformLayout() Me.SplitContainer1.Panel1.PerformLayout()
Me.SplitContainer1.Panel2.ResumeLayout(False) 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> <value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAAB1TeXN0 LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAAB1TeXN0
ZW0uV2luZG93cy5Gb3Jtcy5UcmVlTm9kZQoAAAAEVGV4dAtUb29sVGlwVGV4dAROYW1lCUlzQ2hlY2tl ZW0uV2luZG93cy5Gb3Jtcy5UcmVlTm9kZQsAAAAHUHJvcEJhZwRUZXh0C1Rvb2xUaXBUZXh0BE5hbWUJ
ZApJbWFnZUluZGV4CEltYWdlS2V5ElNlbGVjdGVkSW1hZ2VJbmRleBBTZWxlY3RlZEltYWdlS2V5CkNo SXNDaGVja2VkCkltYWdlSW5kZXgISW1hZ2VLZXkSU2VsZWN0ZWRJbWFnZUluZGV4EFNlbGVjdGVkSW1h
aWxkQ291bnQJY2hpbGRyZW4wAQEBAAABAAEABAEICAgdU3lzdGVtLldpbmRvd3MuRm9ybXMuVHJlZU5v Z2VLZXkKQ2hpbGRDb3VudAljaGlsZHJlbjAEAQEBAAABAAEABClTeXN0ZW0uV2luZG93cy5Gb3Jtcy5P
ZGUCAAAAAgAAAAYDAAAAEG5vIGVudGl0eSBjaG9zZW4GBAAAAAAGBQAAAAdLbm90ZW4wAP////8JBAAA d25lckRyYXdQcm9wZXJ0eUJhZwIAAAABCAgIHVN5c3RlbS5XaW5kb3dzLkZvcm1zLlRyZWVOb2RlAgAA
AP////8JBAAAAAEAAAAJBwAAAAEHAAAAAQAAAAYIAAAAEm5vIHdvcmtmbG93IGNob3NlbgkEAAAABgoA AAIAAAAJAwAAAAYEAAAAEG5vIGVudGl0eSBjaG9zZW4GBQAAAAAGBgAAAAdLbm90ZW4wAP////8JBQAA
AAAHS25vdGVuMQD/////CQQAAAD/////CQQAAAABAAAACQwAAAAFDAAAAB1TeXN0ZW0uV2luZG93cy5G AP////8JBQAAAAEAAAAJCAAAAAwJAAAAUVN5c3RlbS5EcmF3aW5nLCBWZXJzaW9uPTQuMC4wLjAsIEN1
b3Jtcy5UcmVlTm9kZQkAAAAEVGV4dAtUb29sVGlwVGV4dAROYW1lCUlzQ2hlY2tlZApJbWFnZUluZGV4 bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49YjAzZjVmN2YxMWQ1MGEzYQUDAAAAKVN5c3RlbS5X
CEltYWdlS2V5ElNlbGVjdGVkSW1hZ2VJbmRleBBTZWxlY3RlZEltYWdlS2V5CkNoaWxkQ291bnQBAQEA aW5kb3dzLkZvcm1zLk93bmVyRHJhd1Byb3BlcnR5QmFnAwAAAAlCYWNrQ29sb3IJRm9yZUNvbG9yBEZv
AAEAAQABCAgIAgAAAAYNAAAAD25vIHN0YXRlIGNob3NlbgkEAAAABg8AAAAHS25vdGVuMgD/////CQQA bnQEBAIUU3lzdGVtLkRyYXdpbmcuQ29sb3IJAAAAFFN5c3RlbS5EcmF3aW5nLkNvbG9yCQAAAAIAAAAF
AAD/////CQQAAAAAAAAACw== 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> </value>
</data> </data>
<data name="TreeView1.Size" type="System.Drawing.Size, System.Drawing"> <data name="TreeView1.Size" type="System.Drawing.Size, System.Drawing">
@ -1852,7 +1861,7 @@ Wokflow hinzu</value>
<value>21</value> <value>21</value>
</data> </data>
<data name="XtraTabPage1.Size" type="System.Drawing.Size, System.Drawing"> <data name="XtraTabPage1.Size" type="System.Drawing.Size, System.Drawing">
<value>789, 562</value> <value>793, 565</value>
</data> </data>
<data name="XtraTabPage1.Text" xml:space="preserve"> <data name="XtraTabPage1.Text" xml:space="preserve">
<value>Entitätszuordnungen und Stati-Definition</value> <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> <value>System.Windows.Forms.ColorDialog, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="&gt;&gt;$this.Name" xml:space="preserve"> <data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmTaskmanagement</value> <value>frmTask_Management</value>
</data> </data>
<data name="&gt;&gt;$this.Type" xml:space="preserve"> <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> <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 Public Class frmTask_Management
Private Shared _Instance As frmTaskmanagement = Nothing Private Shared _Instance As frmTask_Management = Nothing
Private insert As Boolean = False 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 If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
_Instance = New frmTaskmanagement _Instance = New frmTask_Management
End If End If
_Instance.BringToFront() _Instance.BringToFront()
Return _Instance Return _Instance
@ -57,7 +57,7 @@
Catch ex As Exception Catch ex As Exception
MsgBox("Error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
End Sub End Sub
Public Sub SetSelectedNodeStyle(tncoll As TreeNodeCollection) Public Sub SetSelectedNodeStyle(tncoll As TreeNodeCollection)
@ -261,7 +261,7 @@
Save_State() Save_State()
End If End If
End Sub End Sub
Private Sub ListBoxStati_DrawItem(sender As Object, e As DrawItemEventArgs) Handles ListBoxStati.DrawItem Private Sub ListBoxStati_DrawItem(sender As Object, e As DrawItemEventArgs) Handles ListBoxStati.DrawItem
Dim clrSelectedText As Color = Color.Red 'Our color for selected text 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.Nodes(0).Nodes(0).Nodes(0).Text = STATE_DESCTextBox.Text
TreeView1.ExpandAll() TreeView1.ExpandAll()
_ENTITYID = entityId _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) Refresh_Workflow_Form(_ENTITYID)
SetSelectedNodeStyle(TreeViewEntities.Nodes) SetSelectedNodeStyle(TreeViewEntities.Nodes)
TreeViewEntities.ExpandAll() TreeViewEntities.ExpandAll()
@ -339,13 +341,15 @@
Private Sub XtraTabControl1_TabIndexChanged(sender As Object, e As EventArgs) Handles XtraTabControl1.TabIndexChanged Private Sub XtraTabControl1_TabIndexChanged(sender As Object, e As EventArgs) Handles XtraTabControl1.TabIndexChanged
Select Case XtraTabControl1.TabIndex Select Case XtraTabControl1.TabIndex
Case 1 Case 1
Load_ENTITY_States If GUIDTextBox1.Text <> "" And _ENTITYID > 0 Then
Load_ENTITY_States(GUIDTextBox1.Text)
End If
End Select End Select
End Sub End Sub
Sub Load_ENTITY_States() Sub Load_ENTITY_States(Workflow_ID As Integer)
Try 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}", Workflow_ID, _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}", GUIDTextBox1.Text, _ENTITYID)
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "Get Entity-States") Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "Get Entity-States")
ListBoxEntity_State.DataSource = DT ListBoxEntity_State.DataSource = DT
ListBoxEntity_State.DisplayMember = DT.Columns(1).ColumnName 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 Private Sub TBPMO_WORKFLOWBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBPMO_WORKFLOWBindingSource.CurrentChanged
If GUIDTextBox1.Text <> "" Then If GUIDTextBox1.Text <> "" Then
If Not IsNothing(TreeViewEntities.SelectedNode) Then If Not IsNothing(TreeViewEntities.SelectedNode) Then
_ENTITYID = Integer.Parse(TreeViewEntities.SelectedNode.Tag) _ENTITYID = Integer.Parse(TreeViewEntities.SelectedNode.Tag)
TreeView1.Nodes(0).Text = TreeViewEntities.SelectedNode.Text TreeView1.Nodes(0).Text = TreeViewEntities.SelectedNode.Text
@ -373,7 +375,9 @@
TreeView1.Nodes(0).Nodes(0).Text = TITLETextBox.Text TreeView1.Nodes(0).Nodes(0).Text = TITLETextBox.Text
TreeView1.Nodes(0).Nodes(0).Nodes(0).Text = STATE_DESCTextBox.Text TreeView1.Nodes(0).Nodes(0).Nodes(0).Text = STATE_DESCTextBox.Text
TreeView1.ExpandAll() TreeView1.ExpandAll()
Load_ENTITY_States() If GUIDTextBox1.Text <> "" And _ENTITYID > 0 Then
Load_ENTITY_States(GUIDTextBox1.Text)
End If
End If End If
End Sub End Sub
@ -387,7 +391,7 @@
If USER_LANGUAGE <> "de-DE" Then If USER_LANGUAGE <> "de-DE" Then
txt = "The record was added successfully - " & Now txt = "The record was added successfully - " & Now
End If End If
Load_ENTITY_States()
toolstriplabel(True, txt) toolstriplabel(True, txt)
Else Else
Dim txt As String = "Unvorhergesehener Fehler bei Hinzufügen Datensatz - " & Now Dim txt As String = "Unvorhergesehener Fehler bei Hinzufügen Datensatz - " & Now
@ -396,6 +400,9 @@
End If End If
toolstriplabel(True, txt) toolstriplabel(True, txt)
End If End If
If GUIDTextBox1.Text <> "" And _ENTITYID > 0 Then
Load_ENTITY_States(GUIDTextBox1.Text)
End If
Else Else
Dim txt As String = "Bitte prüfen Sie ob ein Worflow, eine Entität und ein Status gewählt ist." 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 If USER_LANGUAGE <> "de-DE" Then
@ -423,16 +430,22 @@
Try Try
If ListBoxEntity_State.SelectedIndex <> -1 Then If ListBoxEntity_State.SelectedIndex <> -1 Then
Dim ID = ListBoxEntity_State.SelectedValue Dim ID = ListBoxEntity_State.SelectedValue
Dim del = "DELETE FROM TBPMO_WORKFLOW_TASK WHERE STATE_ID = " & ID
Dim del As String = "DELETE FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE GUID = " & ID
If ClassDatabase.Execute_non_Query(del) = True Then If ClassDatabase.Execute_non_Query(del) = True Then
Dim txt As String = "Der Datensatz wurde erfolgreich gelöscht - " & Now del = "DELETE FROM TBPMO_WORKFLOW_ENTITY_STATE WHERE GUID = " & ID
If USER_LANGUAGE <> "de-DE" Then If ClassDatabase.Execute_non_Query(del) = True Then
txt = "The record has been deleted - " & Now 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 End If
Load_ENTITY_States()
toolstriplabel(True, txt)
End If End If
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Error in delete entity-workflow:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) 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()> _ <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmTaskOverview Partial Class frmTask_Overview
Inherits System.Windows.Forms.Form Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
@ -23,7 +23,7 @@ Partial Class frmTaskOverview
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() 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.Panel1 = New System.Windows.Forms.Panel()
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.ListViewActive = New System.Windows.Forms.ListView() 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() Public Sub Refresh()
Try Try
@ -74,6 +74,6 @@
End Sub End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
frmTaskEditor.ShowDialog() frmTask_Editor.ShowDialog()
End Sub End Sub
End Class 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.lbGroups = New System.Windows.Forms.ListBox()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() 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.clbUsers = New System.Windows.Forms.CheckedListBox()
Me.ToolStrip2 = New System.Windows.Forms.ToolStrip() Me.ToolStrip2 = New System.Windows.Forms.ToolStrip()
Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel() Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel()
@ -36,14 +38,14 @@ Partial Class frmUserKonfig_AddUsers
Me.btnCancel = New System.Windows.Forms.Button() Me.btnCancel = New System.Windows.Forms.Button()
Me.btnAddUsers = New System.Windows.Forms.Button() Me.btnAddUsers = New System.Windows.Forms.Button()
Me.ToolTipController1 = New DevExpress.Utils.ToolTipController(Me.components) Me.ToolTipController1 = New DevExpress.Utils.ToolTipController(Me.components)
Me.RBCheck1 = New System.Windows.Forms.RadioButton() Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.RBCheck2 = New System.Windows.Forms.RadioButton()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer1.Panel1.SuspendLayout() Me.SplitContainer1.Panel1.SuspendLayout()
Me.SplitContainer1.Panel2.SuspendLayout() Me.SplitContainer1.Panel2.SuspendLayout()
Me.SplitContainer1.SuspendLayout() Me.SplitContainer1.SuspendLayout()
Me.ToolStrip1.SuspendLayout() Me.ToolStrip1.SuspendLayout()
Me.ToolStrip2.SuspendLayout() Me.ToolStrip2.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'SplitContainer1 'SplitContainer1
@ -58,8 +60,7 @@ Partial Class frmUserKonfig_AddUsers
' '
'SplitContainer1.Panel2 'SplitContainer1.Panel2
' '
Me.SplitContainer1.Panel2.Controls.Add(Me.RBCheck2) Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox1)
Me.SplitContainer1.Panel2.Controls.Add(Me.RBCheck1)
Me.SplitContainer1.Panel2.Controls.Add(Me.clbUsers) Me.SplitContainer1.Panel2.Controls.Add(Me.clbUsers)
Me.SplitContainer1.Panel2.Controls.Add(Me.ToolStrip2) Me.SplitContainer1.Panel2.Controls.Add(Me.ToolStrip2)
Me.SplitContainer1.Panel2.Controls.Add(Me.btnCancel) Me.SplitContainer1.Panel2.Controls.Add(Me.btnCancel)
@ -84,6 +85,20 @@ Partial Class frmUserKonfig_AddUsers
resources.ApplyResources(Me.ToolStripLabel1, "ToolStripLabel1") resources.ApplyResources(Me.ToolStripLabel1, "ToolStripLabel1")
Me.ToolStripLabel1.Name = "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 'clbUsers
' '
Me.clbUsers.BackColor = System.Drawing.SystemColors.GradientActiveCaption Me.clbUsers.BackColor = System.Drawing.SystemColors.GradientActiveCaption
@ -118,6 +133,7 @@ Partial Class frmUserKonfig_AddUsers
' '
'btnCancel 'btnCancel
' '
Me.btnCancel.Image = Global.DD_Record_Organiser.My.Resources.Resources.cancel1
resources.ApplyResources(Me.btnCancel, "btnCancel") resources.ApplyResources(Me.btnCancel, "btnCancel")
Me.btnCancel.Name = "btnCancel" Me.btnCancel.Name = "btnCancel"
Me.btnCancel.UseVisualStyleBackColor = True Me.btnCancel.UseVisualStyleBackColor = True
@ -129,19 +145,13 @@ Partial Class frmUserKonfig_AddUsers
Me.btnAddUsers.Name = "btnAddUsers" Me.btnAddUsers.Name = "btnAddUsers"
Me.btnAddUsers.UseVisualStyleBackColor = True Me.btnAddUsers.UseVisualStyleBackColor = True
' '
'RBCheck1 'GroupBox1
' '
resources.ApplyResources(Me.RBCheck1, "RBCheck1") Me.GroupBox1.Controls.Add(Me.RBCheck1)
Me.RBCheck1.Checked = True Me.GroupBox1.Controls.Add(Me.RBCheck2)
Me.RBCheck1.Name = "RBCheck1" resources.ApplyResources(Me.GroupBox1, "GroupBox1")
Me.RBCheck1.TabStop = True Me.GroupBox1.Name = "GroupBox1"
Me.RBCheck1.UseVisualStyleBackColor = True Me.GroupBox1.TabStop = False
'
'RBCheck2
'
resources.ApplyResources(Me.RBCheck2, "RBCheck2")
Me.RBCheck2.Name = "RBCheck2"
Me.RBCheck2.UseVisualStyleBackColor = True
' '
'frmUserKonfig_AddUsers 'frmUserKonfig_AddUsers
' '
@ -161,6 +171,8 @@ Partial Class frmUserKonfig_AddUsers
Me.ToolStrip1.PerformLayout() Me.ToolStrip1.PerformLayout()
Me.ToolStrip2.ResumeLayout(False) Me.ToolStrip2.ResumeLayout(False)
Me.ToolStrip2.PerformLayout() Me.ToolStrip2.PerformLayout()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.ResumeLayout(False) Me.ResumeLayout(False)
End Sub End Sub
@ -178,4 +190,5 @@ Partial Class frmUserKonfig_AddUsers
Friend WithEvents ToolTipController1 As DevExpress.Utils.ToolTipController Friend WithEvents ToolTipController1 As DevExpress.Utils.ToolTipController
Friend WithEvents RBCheck2 As System.Windows.Forms.RadioButton Friend WithEvents RBCheck2 As System.Windows.Forms.RadioButton
Friend WithEvents RBCheck1 As System.Windows.Forms.RadioButton Friend WithEvents RBCheck1 As System.Windows.Forms.RadioButton
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
End Class End Class

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

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