This commit is contained in:
Digital Data - Marlon Schreiber
2018-02-09 15:27:01 +01:00
parent 3519d2be6e
commit 496340e8d8
18 changed files with 2699 additions and 2047 deletions

View File

@@ -14,9 +14,6 @@
</startup>
<userSettings>
<DD_PM_WINDREAM.My.MySettings>
<setting name="errormessage" serializeAs="String">
<value />
</setting>
<setting name="frmTableColumns_Position" serializeAs="String">
<value>0, 0</value>
</setting>

View File

@@ -133,7 +133,7 @@ Public Class ClassInit
End Try
End Sub
Public Sub InitBasics()
Public Shared Sub InitBasics()
Try
Dim sql = String.Format("select * from TBPM_KONFIGURATION WHERE GUID = 1")
CURRENT_DT_CONFIG = ClassDatabase.Return_Datatable(sql)

File diff suppressed because it is too large Load Diff

View File

@@ -1448,18 +1448,6 @@ WHERE (FINAL_PROFILE = 1) AND (UPPER(NAME) = UPPER(@name))</CommandText>
</DbCommand>
</SelectCommand>
</DbSource>
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="DD_DMSLite.dbo.TBPM_PROFILE" DbObjectType="Table" GenerateShortCommands="true" GeneratorSourceName="cmdFinalText" Modifier="Public" Name="cmdFinalText" QueryType="Scalar" ScalarCallRetval="System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy3" UserSourceName="cmdFinalText">
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT FINAL_TEXT
FROM TBPM_PROFILE
WHERE (GUID = @GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_DMSLite.dbo.TBPM_PROFILE" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</SelectCommand>
</DbSource>
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="DD_DMS.dbo.TBPM_PROFILE" DbObjectType="Table" GenerateShortCommands="true" GeneratorSourceName="cmdInsert_Copy" Modifier="Public" Name="cmdInsert_Copy" QueryType="NoData" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy4" UserSourceName="cmdInsert_Copy">
<InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
@@ -1499,18 +1487,6 @@ WHERE (GUID = @GUID)</CommandText>
</DbCommand>
</SelectCommand>
</DbSource>
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="DD_DMSLite.dbo.TBPM_PROFILE" DbObjectType="Table" GenerateShortCommands="true" GeneratorSourceName="cmdSortMode" Modifier="Public" Name="cmdSortMode" QueryType="Scalar" ScalarCallRetval="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy6" UserSourceName="cmdSortMode">
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT SORT_BY_LATEST
FROM TBPM_PROFILE
WHERE (GUID = @Profil_id)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="Profil_id" ColumnName="GUID" DataSourceName="DD_DMSLite.dbo.TBPM_PROFILE" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Profil_id" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</SelectCommand>
</DbSource>
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorSourceName="cmdUpdatelogIndex" Modifier="Public" Name="cmdUpdatelogIndex" QueryType="NoData" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy7" UserSourceName="cmdUpdatelogIndex">
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
@@ -2031,7 +2007,7 @@ WHERE (GUID = @GUID)</CommandText>
<xs:element name="DD_DMSLiteDataSet" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="True" msprop:Generator_DataSetName="DD_DMSLiteDataSet" msprop:Generator_UserDSName="DD_DMSLiteDataSet">
<xs:complexType>
<xs:choice minOccurs="0" maxOccurs="unbounded">
<xs:element name="TBPM_PROFILE_FINAL_INDEXING" msprop:Generator_TableClassName="TBPM_PROFILE_FINAL_INDEXINGDataTable" msprop:Generator_TableVarName="tableTBPM_PROFILE_FINAL_INDEXING" msprop:Generator_TablePropName="TBPM_PROFILE_FINAL_INDEXING" msprop:Generator_RowDeletingName="TBPM_PROFILE_FINAL_INDEXINGRowDeleting" msprop:Generator_RowChangingName="TBPM_PROFILE_FINAL_INDEXINGRowChanging" msprop:Generator_RowEvHandlerName="TBPM_PROFILE_FINAL_INDEXINGRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_PROFILE_FINAL_INDEXINGRowDeleted" msprop:Generator_UserTableName="TBPM_PROFILE_FINAL_INDEXING" msprop:Generator_RowChangedName="TBPM_PROFILE_FINAL_INDEXINGRowChanged" msprop:Generator_RowEvArgName="TBPM_PROFILE_FINAL_INDEXINGRowChangeEvent" msprop:Generator_RowClassName="TBPM_PROFILE_FINAL_INDEXINGRow">
<xs:element name="TBPM_PROFILE_FINAL_INDEXING" msprop:Generator_TableClassName="TBPM_PROFILE_FINAL_INDEXINGDataTable" msprop:Generator_TableVarName="tableTBPM_PROFILE_FINAL_INDEXING" msprop:Generator_RowChangedName="TBPM_PROFILE_FINAL_INDEXINGRowChanged" msprop:Generator_TablePropName="TBPM_PROFILE_FINAL_INDEXING" msprop:Generator_RowDeletingName="TBPM_PROFILE_FINAL_INDEXINGRowDeleting" msprop:Generator_RowChangingName="TBPM_PROFILE_FINAL_INDEXINGRowChanging" msprop:Generator_RowEvHandlerName="TBPM_PROFILE_FINAL_INDEXINGRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_PROFILE_FINAL_INDEXINGRowDeleted" msprop:Generator_RowClassName="TBPM_PROFILE_FINAL_INDEXINGRow" msprop:Generator_UserTableName="TBPM_PROFILE_FINAL_INDEXING" msprop:Generator_RowEvArgName="TBPM_PROFILE_FINAL_INDEXINGRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="INDEXNAME" msprop:Generator_ColumnVarNameInTable="columnINDEXNAME" msprop:Generator_ColumnPropNameInRow="INDEXNAME" msprop:Generator_ColumnPropNameInTable="INDEXNAMEColumn" msprop:Generator_UserColumnName="INDEXNAME">
@@ -2076,7 +2052,7 @@ WHERE (GUID = @GUID)</CommandText>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="VWPM_PROFILE_USER" msprop:Generator_TableClassName="VWPM_PROFILE_USERDataTable" msprop:Generator_TableVarName="tableVWPM_PROFILE_USER" msprop:Generator_TablePropName="VWPM_PROFILE_USER" msprop:Generator_RowDeletingName="VWPM_PROFILE_USERRowDeleting" msprop:Generator_RowChangingName="VWPM_PROFILE_USERRowChanging" msprop:Generator_RowEvHandlerName="VWPM_PROFILE_USERRowChangeEventHandler" msprop:Generator_RowDeletedName="VWPM_PROFILE_USERRowDeleted" msprop:Generator_UserTableName="VWPM_PROFILE_USER" msprop:Generator_RowChangedName="VWPM_PROFILE_USERRowChanged" msprop:Generator_RowEvArgName="VWPM_PROFILE_USERRowChangeEvent" msprop:Generator_RowClassName="VWPM_PROFILE_USERRow">
<xs:element name="VWPM_PROFILE_USER" msprop:Generator_TableClassName="VWPM_PROFILE_USERDataTable" msprop:Generator_TableVarName="tableVWPM_PROFILE_USER" msprop:Generator_RowChangedName="VWPM_PROFILE_USERRowChanged" msprop:Generator_TablePropName="VWPM_PROFILE_USER" msprop:Generator_RowDeletingName="VWPM_PROFILE_USERRowDeleting" msprop:Generator_RowChangingName="VWPM_PROFILE_USERRowChanging" msprop:Generator_RowEvHandlerName="VWPM_PROFILE_USERRowChangeEventHandler" msprop:Generator_RowDeletedName="VWPM_PROFILE_USERRowDeleted" msprop:Generator_RowClassName="VWPM_PROFILE_USERRow" msprop:Generator_UserTableName="VWPM_PROFILE_USER" msprop:Generator_RowEvArgName="VWPM_PROFILE_USERRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="PROFIL_ID" msprop:Generator_ColumnVarNameInTable="columnPROFIL_ID" msprop:Generator_ColumnPropNameInRow="PROFIL_ID" msprop:Generator_ColumnPropNameInTable="PROFIL_IDColumn" msprop:Generator_UserColumnName="PROFIL_ID" type="xs:int" />
@@ -2179,7 +2155,7 @@ WHERE (GUID = @GUID)</CommandText>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBPM_KONFIGURATION" msprop:Generator_TableClassName="TBPM_KONFIGURATIONDataTable" msprop:Generator_TableVarName="tableTBPM_KONFIGURATION" msprop:Generator_TablePropName="TBPM_KONFIGURATION" msprop:Generator_RowDeletingName="TBPM_KONFIGURATIONRowDeleting" msprop:Generator_RowChangingName="TBPM_KONFIGURATIONRowChanging" msprop:Generator_RowEvHandlerName="TBPM_KONFIGURATIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_KONFIGURATIONRowDeleted" msprop:Generator_UserTableName="TBPM_KONFIGURATION" msprop:Generator_RowChangedName="TBPM_KONFIGURATIONRowChanged" msprop:Generator_RowEvArgName="TBPM_KONFIGURATIONRowChangeEvent" msprop:Generator_RowClassName="TBPM_KONFIGURATIONRow">
<xs:element name="TBPM_KONFIGURATION" msprop:Generator_TableClassName="TBPM_KONFIGURATIONDataTable" msprop:Generator_TableVarName="tableTBPM_KONFIGURATION" msprop:Generator_RowChangedName="TBPM_KONFIGURATIONRowChanged" msprop:Generator_TablePropName="TBPM_KONFIGURATION" msprop:Generator_RowDeletingName="TBPM_KONFIGURATIONRowDeleting" msprop:Generator_RowChangingName="TBPM_KONFIGURATIONRowChanging" msprop:Generator_RowEvHandlerName="TBPM_KONFIGURATIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_KONFIGURATIONRowDeleted" msprop:Generator_RowClassName="TBPM_KONFIGURATIONRow" msprop:Generator_UserTableName="TBPM_KONFIGURATION" msprop:Generator_RowEvArgName="TBPM_KONFIGURATIONRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:unsignedByte" />
@@ -2275,7 +2251,7 @@ WHERE (GUID = @GUID)</CommandText>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBPM_USER" msprop:Generator_TableClassName="TBPM_USERDataTable" msprop:Generator_TableVarName="tableTBPM_USER" msprop:Generator_TablePropName="TBPM_USER" msprop:Generator_RowDeletingName="TBPM_USERRowDeleting" msprop:Generator_RowChangingName="TBPM_USERRowChanging" msprop:Generator_RowEvHandlerName="TBPM_USERRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_USERRowDeleted" msprop:Generator_UserTableName="TBPM_USER" msprop:Generator_RowChangedName="TBPM_USERRowChanged" msprop:Generator_RowEvArgName="TBPM_USERRowChangeEvent" msprop:Generator_RowClassName="TBPM_USERRow">
<xs:element name="TBPM_USER" msprop:Generator_TableClassName="TBPM_USERDataTable" msprop:Generator_TableVarName="tableTBPM_USER" msprop:Generator_RowChangedName="TBPM_USERRowChanged" msprop:Generator_TablePropName="TBPM_USER" msprop:Generator_RowDeletingName="TBPM_USERRowDeleting" msprop:Generator_RowChangingName="TBPM_USERRowChanging" msprop:Generator_RowEvHandlerName="TBPM_USERRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_USERRowDeleted" msprop:Generator_RowClassName="TBPM_USERRow" msprop:Generator_UserTableName="TBPM_USER" msprop:Generator_RowEvArgName="TBPM_USERRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -2346,7 +2322,7 @@ WHERE (GUID = @GUID)</CommandText>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBPM_TYPE" msprop:Generator_TableClassName="TBPM_TYPEDataTable" msprop:Generator_TableVarName="tableTBPM_TYPE" msprop:Generator_TablePropName="TBPM_TYPE" msprop:Generator_RowDeletingName="TBPM_TYPERowDeleting" msprop:Generator_RowChangingName="TBPM_TYPERowChanging" msprop:Generator_RowEvHandlerName="TBPM_TYPERowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_TYPERowDeleted" msprop:Generator_UserTableName="TBPM_TYPE" msprop:Generator_RowChangedName="TBPM_TYPERowChanged" msprop:Generator_RowEvArgName="TBPM_TYPERowChangeEvent" msprop:Generator_RowClassName="TBPM_TYPERow">
<xs:element name="TBPM_TYPE" msprop:Generator_TableClassName="TBPM_TYPEDataTable" msprop:Generator_TableVarName="tableTBPM_TYPE" msprop:Generator_RowChangedName="TBPM_TYPERowChanged" msprop:Generator_TablePropName="TBPM_TYPE" msprop:Generator_RowDeletingName="TBPM_TYPERowDeleting" msprop:Generator_RowChangingName="TBPM_TYPERowChanging" msprop:Generator_RowEvHandlerName="TBPM_TYPERowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_TYPERowDeleted" msprop:Generator_RowClassName="TBPM_TYPERow" msprop:Generator_UserTableName="TBPM_TYPE" msprop:Generator_RowEvArgName="TBPM_TYPERowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:short" />
@@ -2376,7 +2352,7 @@ WHERE (GUID = @GUID)</CommandText>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBPM_ERROR_LOG" msprop:Generator_TableClassName="TBPM_ERROR_LOGDataTable" msprop:Generator_TableVarName="tableTBPM_ERROR_LOG" msprop:Generator_TablePropName="TBPM_ERROR_LOG" msprop:Generator_RowDeletingName="TBPM_ERROR_LOGRowDeleting" msprop:Generator_RowChangingName="TBPM_ERROR_LOGRowChanging" msprop:Generator_RowEvHandlerName="TBPM_ERROR_LOGRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_ERROR_LOGRowDeleted" msprop:Generator_UserTableName="TBPM_ERROR_LOG" msprop:Generator_RowChangedName="TBPM_ERROR_LOGRowChanged" msprop:Generator_RowEvArgName="TBPM_ERROR_LOGRowChangeEvent" msprop:Generator_RowClassName="TBPM_ERROR_LOGRow">
<xs:element name="TBPM_ERROR_LOG" msprop:Generator_TableClassName="TBPM_ERROR_LOGDataTable" msprop:Generator_TableVarName="tableTBPM_ERROR_LOG" msprop:Generator_RowChangedName="TBPM_ERROR_LOGRowChanged" msprop:Generator_TablePropName="TBPM_ERROR_LOG" msprop:Generator_RowDeletingName="TBPM_ERROR_LOGRowDeleting" msprop:Generator_RowChangingName="TBPM_ERROR_LOGRowChanging" msprop:Generator_RowEvHandlerName="TBPM_ERROR_LOGRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_ERROR_LOGRowDeleted" msprop:Generator_RowClassName="TBPM_ERROR_LOGRow" msprop:Generator_UserTableName="TBPM_ERROR_LOG" msprop:Generator_RowEvArgName="TBPM_ERROR_LOGRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -2399,7 +2375,7 @@ WHERE (GUID = @GUID)</CommandText>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="VWPM_CONTROL_INDEX" msprop:Generator_TableClassName="VWPM_CONTROL_INDEXDataTable" msprop:Generator_TableVarName="tableVWPM_CONTROL_INDEX" msprop:Generator_TablePropName="VWPM_CONTROL_INDEX" msprop:Generator_RowDeletingName="VWPM_CONTROL_INDEXRowDeleting" msprop:Generator_RowChangingName="VWPM_CONTROL_INDEXRowChanging" msprop:Generator_RowEvHandlerName="VWPM_CONTROL_INDEXRowChangeEventHandler" msprop:Generator_RowDeletedName="VWPM_CONTROL_INDEXRowDeleted" msprop:Generator_UserTableName="VWPM_CONTROL_INDEX" msprop:Generator_RowChangedName="VWPM_CONTROL_INDEXRowChanged" msprop:Generator_RowEvArgName="VWPM_CONTROL_INDEXRowChangeEvent" msprop:Generator_RowClassName="VWPM_CONTROL_INDEXRow">
<xs:element name="VWPM_CONTROL_INDEX" msprop:Generator_TableClassName="VWPM_CONTROL_INDEXDataTable" msprop:Generator_TableVarName="tableVWPM_CONTROL_INDEX" msprop:Generator_RowChangedName="VWPM_CONTROL_INDEXRowChanged" msprop:Generator_TablePropName="VWPM_CONTROL_INDEX" msprop:Generator_RowDeletingName="VWPM_CONTROL_INDEXRowDeleting" msprop:Generator_RowChangingName="VWPM_CONTROL_INDEXRowChanging" msprop:Generator_RowEvHandlerName="VWPM_CONTROL_INDEXRowChangeEventHandler" msprop:Generator_RowDeletedName="VWPM_CONTROL_INDEXRowDeleted" msprop:Generator_RowClassName="VWPM_CONTROL_INDEXRow" msprop:Generator_UserTableName="VWPM_CONTROL_INDEX" msprop:Generator_RowEvArgName="VWPM_CONTROL_INDEXRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -2488,7 +2464,7 @@ WHERE (GUID = @GUID)</CommandText>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBPM_CONNECTION" msprop:Generator_TableClassName="TBPM_CONNECTIONDataTable" msprop:Generator_TableVarName="tableTBPM_CONNECTION" msprop:Generator_TablePropName="TBPM_CONNECTION" msprop:Generator_RowDeletingName="TBPM_CONNECTIONRowDeleting" msprop:Generator_RowChangingName="TBPM_CONNECTIONRowChanging" msprop:Generator_RowEvHandlerName="TBPM_CONNECTIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_CONNECTIONRowDeleted" msprop:Generator_UserTableName="TBPM_CONNECTION" msprop:Generator_RowChangedName="TBPM_CONNECTIONRowChanged" msprop:Generator_RowEvArgName="TBPM_CONNECTIONRowChangeEvent" msprop:Generator_RowClassName="TBPM_CONNECTIONRow">
<xs:element name="TBPM_CONNECTION" msprop:Generator_TableClassName="TBPM_CONNECTIONDataTable" msprop:Generator_TableVarName="tableTBPM_CONNECTION" msprop:Generator_RowChangedName="TBPM_CONNECTIONRowChanged" msprop:Generator_TablePropName="TBPM_CONNECTION" msprop:Generator_RowDeletingName="TBPM_CONNECTIONRowDeleting" msprop:Generator_RowChangingName="TBPM_CONNECTIONRowChanging" msprop:Generator_RowEvHandlerName="TBPM_CONNECTIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_CONNECTIONRowDeleted" msprop:Generator_RowClassName="TBPM_CONNECTIONRow" msprop:Generator_UserTableName="TBPM_CONNECTION" msprop:Generator_RowEvArgName="TBPM_CONNECTIONRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:short" />
@@ -2561,7 +2537,7 @@ WHERE (GUID = @GUID)</CommandText>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBPROFILE_USER" msprop:Generator_TableClassName="TBPROFILE_USERDataTable" msprop:Generator_TableVarName="tableTBPROFILE_USER" msprop:Generator_TablePropName="TBPROFILE_USER" msprop:Generator_RowDeletingName="TBPROFILE_USERRowDeleting" msprop:Generator_RowChangingName="TBPROFILE_USERRowChanging" msprop:Generator_RowEvHandlerName="TBPROFILE_USERRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPROFILE_USERRowDeleted" msprop:Generator_UserTableName="TBPROFILE_USER" msprop:Generator_RowChangedName="TBPROFILE_USERRowChanged" msprop:Generator_RowEvArgName="TBPROFILE_USERRowChangeEvent" msprop:Generator_RowClassName="TBPROFILE_USERRow">
<xs:element name="TBPROFILE_USER" msprop:Generator_TableClassName="TBPROFILE_USERDataTable" msprop:Generator_TableVarName="tableTBPROFILE_USER" msprop:Generator_RowChangedName="TBPROFILE_USERRowChanged" msprop:Generator_TablePropName="TBPROFILE_USER" msprop:Generator_RowDeletingName="TBPROFILE_USERRowDeleting" msprop:Generator_RowChangingName="TBPROFILE_USERRowChanging" msprop:Generator_RowEvHandlerName="TBPROFILE_USERRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPROFILE_USERRowDeleted" msprop:Generator_RowClassName="TBPROFILE_USERRow" msprop:Generator_UserTableName="TBPROFILE_USER" msprop:Generator_RowEvArgName="TBPROFILE_USERRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -2597,7 +2573,7 @@ WHERE (GUID = @GUID)</CommandText>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBPM_PROFILE_FILES" msprop:Generator_TableClassName="TBPM_PROFILE_FILESDataTable" msprop:Generator_TableVarName="tableTBPM_PROFILE_FILES" msprop:Generator_TablePropName="TBPM_PROFILE_FILES" msprop:Generator_RowDeletingName="TBPM_PROFILE_FILESRowDeleting" msprop:Generator_RowChangingName="TBPM_PROFILE_FILESRowChanging" msprop:Generator_RowEvHandlerName="TBPM_PROFILE_FILESRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_PROFILE_FILESRowDeleted" msprop:Generator_UserTableName="TBPM_PROFILE_FILES" msprop:Generator_RowChangedName="TBPM_PROFILE_FILESRowChanged" msprop:Generator_RowEvArgName="TBPM_PROFILE_FILESRowChangeEvent" msprop:Generator_RowClassName="TBPM_PROFILE_FILESRow">
<xs:element name="TBPM_PROFILE_FILES" msprop:Generator_TableClassName="TBPM_PROFILE_FILESDataTable" msprop:Generator_TableVarName="tableTBPM_PROFILE_FILES" msprop:Generator_RowChangedName="TBPM_PROFILE_FILESRowChanged" msprop:Generator_TablePropName="TBPM_PROFILE_FILES" msprop:Generator_RowDeletingName="TBPM_PROFILE_FILESRowDeleting" msprop:Generator_RowChangingName="TBPM_PROFILE_FILESRowChanging" msprop:Generator_RowEvHandlerName="TBPM_PROFILE_FILESRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_PROFILE_FILESRowDeleted" msprop:Generator_RowClassName="TBPM_PROFILE_FILESRow" msprop:Generator_UserTableName="TBPM_PROFILE_FILES" msprop:Generator_RowEvArgName="TBPM_PROFILE_FILESRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -2612,7 +2588,7 @@ WHERE (GUID = @GUID)</CommandText>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBPM_FILES_USER_NOT_INDEXED" msprop:Generator_TableClassName="TBPM_FILES_USER_NOT_INDEXEDDataTable" msprop:Generator_TableVarName="tableTBPM_FILES_USER_NOT_INDEXED" msprop:Generator_TablePropName="TBPM_FILES_USER_NOT_INDEXED" msprop:Generator_RowDeletingName="TBPM_FILES_USER_NOT_INDEXEDRowDeleting" msprop:Generator_RowChangingName="TBPM_FILES_USER_NOT_INDEXEDRowChanging" msprop:Generator_RowEvHandlerName="TBPM_FILES_USER_NOT_INDEXEDRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_FILES_USER_NOT_INDEXEDRowDeleted" msprop:Generator_UserTableName="TBPM_FILES_USER_NOT_INDEXED" msprop:Generator_RowChangedName="TBPM_FILES_USER_NOT_INDEXEDRowChanged" msprop:Generator_RowEvArgName="TBPM_FILES_USER_NOT_INDEXEDRowChangeEvent" msprop:Generator_RowClassName="TBPM_FILES_USER_NOT_INDEXEDRow">
<xs:element name="TBPM_FILES_USER_NOT_INDEXED" msprop:Generator_TableClassName="TBPM_FILES_USER_NOT_INDEXEDDataTable" msprop:Generator_TableVarName="tableTBPM_FILES_USER_NOT_INDEXED" msprop:Generator_RowChangedName="TBPM_FILES_USER_NOT_INDEXEDRowChanged" msprop:Generator_TablePropName="TBPM_FILES_USER_NOT_INDEXED" msprop:Generator_RowDeletingName="TBPM_FILES_USER_NOT_INDEXEDRowDeleting" msprop:Generator_RowChangingName="TBPM_FILES_USER_NOT_INDEXEDRowChanging" msprop:Generator_RowEvHandlerName="TBPM_FILES_USER_NOT_INDEXEDRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_FILES_USER_NOT_INDEXEDRowDeleted" msprop:Generator_RowClassName="TBPM_FILES_USER_NOT_INDEXEDRow" msprop:Generator_UserTableName="TBPM_FILES_USER_NOT_INDEXED" msprop:Generator_RowEvArgName="TBPM_FILES_USER_NOT_INDEXEDRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="USR_NAME" msprop:Generator_ColumnVarNameInTable="columnUSR_NAME" msprop:Generator_ColumnPropNameInRow="USR_NAME" msprop:Generator_ColumnPropNameInTable="USR_NAMEColumn" msprop:Generator_UserColumnName="USR_NAME" minOccurs="0">
@@ -2633,7 +2609,7 @@ WHERE (GUID = @GUID)</CommandText>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBPM_PROFILE" msprop:Generator_TableClassName="TBPM_PROFILEDataTable" msprop:Generator_TableVarName="tableTBPM_PROFILE" msprop:Generator_TablePropName="TBPM_PROFILE" msprop:Generator_RowDeletingName="TBPM_PROFILERowDeleting" msprop:Generator_RowChangingName="TBPM_PROFILERowChanging" msprop:Generator_RowEvHandlerName="TBPM_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_PROFILERowDeleted" msprop:Generator_UserTableName="TBPM_PROFILE" msprop:Generator_RowChangedName="TBPM_PROFILERowChanged" msprop:Generator_RowEvArgName="TBPM_PROFILERowChangeEvent" msprop:Generator_RowClassName="TBPM_PROFILERow">
<xs:element name="TBPM_PROFILE" msprop:Generator_TableClassName="TBPM_PROFILEDataTable" msprop:Generator_TableVarName="tableTBPM_PROFILE" msprop:Generator_RowChangedName="TBPM_PROFILERowChanged" msprop:Generator_TablePropName="TBPM_PROFILE" msprop:Generator_RowDeletingName="TBPM_PROFILERowDeleting" msprop:Generator_RowChangingName="TBPM_PROFILERowChanging" msprop:Generator_RowEvHandlerName="TBPM_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_PROFILERowDeleted" msprop:Generator_RowClassName="TBPM_PROFILERow" msprop:Generator_UserTableName="TBPM_PROFILE" msprop:Generator_RowEvArgName="TBPM_PROFILERowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -2725,7 +2701,7 @@ WHERE (GUID = @GUID)</CommandText>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBWH_CONNECTION" msprop:Generator_TableClassName="TBWH_CONNECTIONDataTable" msprop:Generator_TableVarName="tableTBWH_CONNECTION" msprop:Generator_RowChangedName="TBWH_CONNECTIONRowChanged" msprop:Generator_TablePropName="TBWH_CONNECTION" msprop:Generator_RowDeletingName="TBWH_CONNECTIONRowDeleting" msprop:Generator_RowChangingName="TBWH_CONNECTIONRowChanging" msprop:Generator_RowEvHandlerName="TBWH_CONNECTIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_CONNECTIONRowDeleted" msprop:Generator_RowClassName="TBWH_CONNECTIONRow" msprop:Generator_UserTableName="TBWH_CONNECTION" msprop:Generator_RowEvArgName="TBWH_CONNECTIONRowChangeEvent">
<xs:element name="TBWH_CONNECTION" msprop:Generator_TableClassName="TBWH_CONNECTIONDataTable" msprop:Generator_TableVarName="tableTBWH_CONNECTION" msprop:Generator_TablePropName="TBWH_CONNECTION" msprop:Generator_RowDeletingName="TBWH_CONNECTIONRowDeleting" msprop:Generator_RowChangingName="TBWH_CONNECTIONRowChanging" msprop:Generator_RowEvHandlerName="TBWH_CONNECTIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_CONNECTIONRowDeleted" msprop:Generator_UserTableName="TBWH_CONNECTION" msprop:Generator_RowChangedName="TBWH_CONNECTIONRowChanged" msprop:Generator_RowEvArgName="TBWH_CONNECTIONRowChangeEvent" msprop:Generator_RowClassName="TBWH_CONNECTIONRow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:short" />
@@ -2798,7 +2774,7 @@ WHERE (GUID = @GUID)</CommandText>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBWH_CHECK_PROFILE_CONTROLS" msprop:Generator_TableClassName="TBWH_CHECK_PROFILE_CONTROLSDataTable" msprop:Generator_TableVarName="tableTBWH_CHECK_PROFILE_CONTROLS" msprop:Generator_RowChangedName="TBWH_CHECK_PROFILE_CONTROLSRowChanged" msprop:Generator_TablePropName="TBWH_CHECK_PROFILE_CONTROLS" msprop:Generator_RowDeletingName="TBWH_CHECK_PROFILE_CONTROLSRowDeleting" msprop:Generator_RowChangingName="TBWH_CHECK_PROFILE_CONTROLSRowChanging" msprop:Generator_RowEvHandlerName="TBWH_CHECK_PROFILE_CONTROLSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_CHECK_PROFILE_CONTROLSRowDeleted" msprop:Generator_RowClassName="TBWH_CHECK_PROFILE_CONTROLSRow" msprop:Generator_UserTableName="TBWH_CHECK_PROFILE_CONTROLS" msprop:Generator_RowEvArgName="TBWH_CHECK_PROFILE_CONTROLSRowChangeEvent">
<xs:element name="TBWH_CHECK_PROFILE_CONTROLS" msprop:Generator_TableClassName="TBWH_CHECK_PROFILE_CONTROLSDataTable" msprop:Generator_TableVarName="tableTBWH_CHECK_PROFILE_CONTROLS" msprop:Generator_TablePropName="TBWH_CHECK_PROFILE_CONTROLS" msprop:Generator_RowDeletingName="TBWH_CHECK_PROFILE_CONTROLSRowDeleting" msprop:Generator_RowChangingName="TBWH_CHECK_PROFILE_CONTROLSRowChanging" msprop:Generator_RowEvHandlerName="TBWH_CHECK_PROFILE_CONTROLSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_CHECK_PROFILE_CONTROLSRowDeleted" msprop:Generator_UserTableName="TBWH_CHECK_PROFILE_CONTROLS" msprop:Generator_RowChangedName="TBWH_CHECK_PROFILE_CONTROLSRowChanged" msprop:Generator_RowEvArgName="TBWH_CHECK_PROFILE_CONTROLSRowChangeEvent" msprop:Generator_RowClassName="TBWH_CHECK_PROFILE_CONTROLSRow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -2849,7 +2825,7 @@ WHERE (GUID = @GUID)</CommandText>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBPM_PROFILE_CONTROLS" msprop:Generator_TableClassName="TBPM_PROFILE_CONTROLSDataTable" msprop:Generator_TableVarName="tableTBPM_PROFILE_CONTROLS" msprop:Generator_RowChangedName="TBPM_PROFILE_CONTROLSRowChanged" msprop:Generator_TablePropName="TBPM_PROFILE_CONTROLS" msprop:Generator_RowDeletingName="TBPM_PROFILE_CONTROLSRowDeleting" msprop:Generator_RowChangingName="TBPM_PROFILE_CONTROLSRowChanging" msprop:Generator_RowEvHandlerName="TBPM_PROFILE_CONTROLSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_PROFILE_CONTROLSRowDeleted" msprop:Generator_RowClassName="TBPM_PROFILE_CONTROLSRow" msprop:Generator_UserTableName="TBPM_PROFILE_CONTROLS" msprop:Generator_RowEvArgName="TBPM_PROFILE_CONTROLSRowChangeEvent">
<xs:element name="TBPM_PROFILE_CONTROLS" msprop:Generator_TableClassName="TBPM_PROFILE_CONTROLSDataTable" msprop:Generator_TableVarName="tableTBPM_PROFILE_CONTROLS" msprop:Generator_TablePropName="TBPM_PROFILE_CONTROLS" msprop:Generator_RowDeletingName="TBPM_PROFILE_CONTROLSRowDeleting" msprop:Generator_RowChangingName="TBPM_PROFILE_CONTROLSRowChanging" msprop:Generator_RowEvHandlerName="TBPM_PROFILE_CONTROLSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_PROFILE_CONTROLSRowDeleted" msprop:Generator_UserTableName="TBPM_PROFILE_CONTROLS" msprop:Generator_RowChangedName="TBPM_PROFILE_CONTROLSRowChanged" msprop:Generator_RowEvArgName="TBPM_PROFILE_CONTROLSRowChangeEvent" msprop:Generator_RowClassName="TBPM_PROFILE_CONTROLSRow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -2940,7 +2916,7 @@ WHERE (GUID = @GUID)</CommandText>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBPM_CONTROL_TABLE" msprop:Generator_TableClassName="TBPM_CONTROL_TABLEDataTable" msprop:Generator_TableVarName="tableTBPM_CONTROL_TABLE" msprop:Generator_RowChangedName="TBPM_CONTROL_TABLERowChanged" msprop:Generator_TablePropName="TBPM_CONTROL_TABLE" msprop:Generator_RowDeletingName="TBPM_CONTROL_TABLERowDeleting" msprop:Generator_RowChangingName="TBPM_CONTROL_TABLERowChanging" msprop:Generator_RowEvHandlerName="TBPM_CONTROL_TABLERowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_CONTROL_TABLERowDeleted" msprop:Generator_RowClassName="TBPM_CONTROL_TABLERow" msprop:Generator_UserTableName="TBPM_CONTROL_TABLE" msprop:Generator_RowEvArgName="TBPM_CONTROL_TABLERowChangeEvent">
<xs:element name="TBPM_CONTROL_TABLE" msprop:Generator_TableClassName="TBPM_CONTROL_TABLEDataTable" msprop:Generator_TableVarName="tableTBPM_CONTROL_TABLE" msprop:Generator_TablePropName="TBPM_CONTROL_TABLE" msprop:Generator_RowDeletingName="TBPM_CONTROL_TABLERowDeleting" msprop:Generator_RowChangingName="TBPM_CONTROL_TABLERowChanging" msprop:Generator_RowEvHandlerName="TBPM_CONTROL_TABLERowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_CONTROL_TABLERowDeleted" msprop:Generator_UserTableName="TBPM_CONTROL_TABLE" msprop:Generator_RowChangedName="TBPM_CONTROL_TABLERowChanged" msprop:Generator_RowEvArgName="TBPM_CONTROL_TABLERowChangeEvent" msprop:Generator_RowClassName="TBPM_CONTROL_TABLERow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -3071,11 +3047,11 @@ WHERE (GUID = @GUID)</CommandText>
</xs:element>
<xs:annotation>
<xs:appinfo>
<msdata:Relationship name="FK_TBPM_ERROR_LOG_PROFILE1" msdata:parent="TBPM_PROFILE" msdata:child="TBPM_ERROR_LOG" msdata:parentkey="GUID" msdata:childkey="PROFIL_ID" msprop:Generator_UserChildTable="TBPM_ERROR_LOG" msprop:Generator_ChildPropName="GetTBPM_ERROR_LOGRows" msprop:Generator_UserRelationName="FK_TBPM_ERROR_LOG_PROFILE1" msprop:Generator_RelationVarName="relationFK_TBPM_ERROR_LOG_PROFILE1" msprop:Generator_UserParentTable="TBPM_PROFILE" msprop:Generator_ParentPropName="TBPM_PROFILERow" />
<msdata:Relationship name="FK_TBPM_PROFILE_TYPE1" msdata:parent="TBPM_TYPE" msdata:child="TBPM_PROFILE" msdata:parentkey="GUID" msdata:childkey="TYPE" msprop:Generator_UserChildTable="TBPM_PROFILE" msprop:Generator_ChildPropName="GetTBPM_PROFILERows" msprop:Generator_UserRelationName="FK_TBPM_PROFILE_TYPE1" msprop:Generator_ParentPropName="TBPM_TYPERow" msprop:Generator_RelationVarName="relationFK_TBPM_PROFILE_TYPE1" msprop:Generator_UserParentTable="TBPM_TYPE" />
<msdata:Relationship name="FK_TBPM_PROFILE_CONTROLS_PROFILE1" msdata:parent="TBPM_PROFILE" msdata:child="TBPM_PROFILE_CONTROLS" msdata:parentkey="GUID" msdata:childkey="PROFIL_ID" msprop:Generator_UserChildTable="TBPM_PROFILE_CONTROLS" msprop:Generator_ChildPropName="GetTBPM_PROFILE_CONTROLSRows" msprop:Generator_UserRelationName="FK_TBPM_PROFILE_CONTROLS_PROFILE1" msprop:Generator_RelationVarName="relationFK_TBPM_PROFILE_CONTROLS_PROFILE1" msprop:Generator_UserParentTable="TBPM_PROFILE" msprop:Generator_ParentPropName="TBPM_PROFILERow" />
<msdata:Relationship name="FK_TBPM_CONTROL_TABLE_CONTROL1" msdata:parent="TBPM_PROFILE_CONTROLS" msdata:child="TBPM_CONTROL_TABLE" msdata:parentkey="GUID" msdata:childkey="CONTROL_ID" msprop:Generator_UserChildTable="TBPM_CONTROL_TABLE" msprop:Generator_ChildPropName="GetTBPM_CONTROL_TABLERows" msprop:Generator_UserRelationName="FK_TBPM_CONTROL_TABLE_CONTROL1" msprop:Generator_RelationVarName="relationFK_TBPM_CONTROL_TABLE_CONTROL1" msprop:Generator_UserParentTable="TBPM_PROFILE_CONTROLS" msprop:Generator_ParentPropName="TBPM_PROFILE_CONTROLSRow" />
<msdata:Relationship name="FK_TBPM_CONTROL_TABLE_CONTROL" msdata:parent="TBWH_CHECK_PROFILE_CONTROLS" msdata:child="TBPM_CONTROL_TABLE" msdata:parentkey="GUID" msdata:childkey="CONTROL_ID" msprop:Generator_UserChildTable="TBPM_CONTROL_TABLE" msprop:Generator_ChildPropName="GetTBPM_CONTROL_TABLERows" msprop:Generator_UserRelationName="FK_TBPM_CONTROL_TABLE_CONTROL" msprop:Generator_ParentPropName="TBWH_CHECK_PROFILE_CONTROLSRow" msprop:Generator_RelationVarName="relationFK_TBPM_CONTROL_TABLE_CONTROL" msprop:Generator_UserParentTable="TBWH_CHECK_PROFILE_CONTROLS" />
<msdata:Relationship name="FK_TBPM_ERROR_LOG_PROFILE1" msdata:parent="TBPM_PROFILE" msdata:child="TBPM_ERROR_LOG" msdata:parentkey="GUID" msdata:childkey="PROFIL_ID" msprop:Generator_UserChildTable="TBPM_ERROR_LOG" msprop:Generator_ChildPropName="GetTBPM_ERROR_LOGRows" msprop:Generator_UserRelationName="FK_TBPM_ERROR_LOG_PROFILE1" msprop:Generator_ParentPropName="TBPM_PROFILERow" msprop:Generator_RelationVarName="relationFK_TBPM_ERROR_LOG_PROFILE1" msprop:Generator_UserParentTable="TBPM_PROFILE" />
<msdata:Relationship name="FK_TBPM_PROFILE_TYPE1" msdata:parent="TBPM_TYPE" msdata:child="TBPM_PROFILE" msdata:parentkey="GUID" msdata:childkey="TYPE" msprop:Generator_UserChildTable="TBPM_PROFILE" msprop:Generator_ChildPropName="GetTBPM_PROFILERows" msprop:Generator_UserRelationName="FK_TBPM_PROFILE_TYPE1" msprop:Generator_RelationVarName="relationFK_TBPM_PROFILE_TYPE1" msprop:Generator_UserParentTable="TBPM_TYPE" msprop:Generator_ParentPropName="TBPM_TYPERow" />
<msdata:Relationship name="FK_TBPM_PROFILE_CONTROLS_PROFILE1" msdata:parent="TBPM_PROFILE" msdata:child="TBPM_PROFILE_CONTROLS" msdata:parentkey="GUID" msdata:childkey="PROFIL_ID" msprop:Generator_UserChildTable="TBPM_PROFILE_CONTROLS" msprop:Generator_ChildPropName="GetTBPM_PROFILE_CONTROLSRows" msprop:Generator_UserRelationName="FK_TBPM_PROFILE_CONTROLS_PROFILE1" msprop:Generator_ParentPropName="TBPM_PROFILERow" msprop:Generator_RelationVarName="relationFK_TBPM_PROFILE_CONTROLS_PROFILE1" msprop:Generator_UserParentTable="TBPM_PROFILE" />
<msdata:Relationship name="FK_TBPM_CONTROL_TABLE_CONTROL1" msdata:parent="TBPM_PROFILE_CONTROLS" msdata:child="TBPM_CONTROL_TABLE" msdata:parentkey="GUID" msdata:childkey="CONTROL_ID" msprop:Generator_UserChildTable="TBPM_CONTROL_TABLE" msprop:Generator_ChildPropName="GetTBPM_CONTROL_TABLERows" msprop:Generator_UserRelationName="FK_TBPM_CONTROL_TABLE_CONTROL1" msprop:Generator_ParentPropName="TBPM_PROFILE_CONTROLSRow" msprop:Generator_RelationVarName="relationFK_TBPM_CONTROL_TABLE_CONTROL1" msprop:Generator_UserParentTable="TBPM_PROFILE_CONTROLS" />
<msdata:Relationship name="FK_TBPM_CONTROL_TABLE_CONTROL" msdata:parent="TBWH_CHECK_PROFILE_CONTROLS" msdata:child="TBPM_CONTROL_TABLE" msdata:parentkey="GUID" msdata:childkey="CONTROL_ID" msprop:Generator_UserChildTable="TBPM_CONTROL_TABLE" msprop:Generator_ChildPropName="GetTBPM_CONTROL_TABLERows" msprop:Generator_UserRelationName="FK_TBPM_CONTROL_TABLE_CONTROL" msprop:Generator_RelationVarName="relationFK_TBPM_CONTROL_TABLE_CONTROL" msprop:Generator_UserParentTable="TBWH_CHECK_PROFILE_CONTROLS" msprop:Generator_ParentPropName="TBWH_CHECK_PROFILE_CONTROLSRow" />
</xs:appinfo>
</xs:annotation>
</xs:schema>

View File

@@ -4,7 +4,7 @@
Changes to this file may cause incorrect behavior and will be lost if
the code is regenerated.
</autogenerated>-->
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="393" ViewPortY="-104" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-27" ViewPortY="239" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<Shapes>
<Shape ID="DesignTable:TBPM_PROFILE_FINAL_INDEXING" ZOrder="1" X="1578" Y="-67" Height="383" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:VWPM_PROFILE_USER" ZOrder="17" X="1467" Y="331" Height="325" Width="254" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
@@ -17,7 +17,7 @@
<Shape ID="DesignTable:TBPROFILE_USER" ZOrder="19" X="530" Y="-3" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPM_PROFILE_FILES" ZOrder="4" X="1212" Y="-64" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="83" />
<Shape ID="DesignTable:TBPM_FILES_USER_NOT_INDEXED" ZOrder="16" X="851" Y="-3" Height="153" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" />
<Shape ID="DesignTable:TBPM_PROFILE" ZOrder="15" X="256" Y="387" Height="381" Width="283" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBPM_PROFILE" ZOrder="15" X="256" Y="387" Height="381" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBWH_CHECK_PROFILE_CONTROLS" ZOrder="10" X="0" Y="-72" Height="168" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="78" />
<Shape ID="DesignTable:TBPM_PROFILE_CONTROLS" ZOrder="8" X="595" Y="421" Height="476" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBPM_CONTROL_TABLE" ZOrder="2" X="940" Y="517" Height="324" Width="284" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
@@ -51,7 +51,7 @@
<Connector ID="DesignRelation:FK_TBPM_PROFILE_CONTROLS_PROFILE1" ZOrder="9" LineWidth="11">
<RoutePoints>
<Point>
<X>539</X>
<X>556</X>
<Y>413</Y>
</Point>
<Point>

View File

@@ -59,6 +59,10 @@
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.Data.v15.2.dll</HintPath>
</Reference>
<Reference Include="DevExpress.Images.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.Images.v15.2.dll</HintPath>
</Reference>
<Reference Include="DevExpress.Pdf.v15.2.Drawing, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.Pdf.v15.2.Drawing.dll</HintPath>
@@ -87,6 +91,7 @@
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraLayout.v15.2.dll</HintPath>
</Reference>
<Reference Include="DevExpress.XtraNavBar.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraPdfViewer.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraPdfViewer.v15.2.dll</HintPath>

View File

@@ -4,7 +4,11 @@
Public CURRENT_ProfilGUID As Integer
Public CURRENT_ProfilName As String
Public CURRENT_HTML_DOC As String
Public CURRENT_DOC_GUID As Integer
Public CURRENT_DOC_ID As Integer
Public CURRENT_JUMP_DOC_GUID As Integer
Public CURRENT_DOC_PATH As String
Public ERROR_STATE = ""
Public USER_IS_ADMIN As Boolean = False
@@ -20,7 +24,10 @@
Public CURRENT_SQL_COMAMND As String
Public CURRENT_DT_SQL_CONFIG_TABLE As DataTable
Public CURRENT_DT_CONFIG As DataTable
Public CURRENT_CLICKED_PROFILE_ID As Integer = 0
Public CURRENT_CLICKED_PROFILE_TITLE As String
Public CURRENT_CONTROL_ID As Integer
Public errormessage As String
End Module

View File

@@ -11,8 +11,8 @@ Imports System.Runtime.InteropServices
<Assembly: AssemblyTitle("Process Manager")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("Digital Data")>
<Assembly: AssemblyProduct("Process Manager")>
<Assembly: AssemblyCopyright("Copyright © Digital Data 2016")>
<Assembly: AssemblyProduct("Process Manager")>
<Assembly: AssemblyCopyright("Copyright © Digital Data")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)>
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.9.3.5")>
<Assembly: AssemblyVersion("1.9.3.9")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

View File

@@ -1,7 +1,7 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.34209
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
@@ -15,21 +15,21 @@ Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "12.0.0.0"), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.5.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "Funktion zum automatischen Speichern von My.Settings"
#Region "Automatische My.Settings-Speicherfunktion"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
@@ -54,19 +54,6 @@ Namespace My
End Get
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute(""), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property errormessage() As String
Get
Return CType(Me("errormessage"),String)
End Get
Set
Me("errormessage") = value
End Set
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
@@ -181,15 +168,15 @@ Namespace My
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("0, 0"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("0, 0"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property frmValidatorPosition() As Global.System.Drawing.Point
Get
Return CType(Me("frmValidatorPosition"), Global.System.Drawing.Point)
Return CType(Me("frmValidatorPosition"),Global.System.Drawing.Point)
End Get
Set(value As Global.System.Drawing.Point)
Set
Me("frmValidatorPosition") = value
End Set
End Property

View File

@@ -2,9 +2,6 @@
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
<Profiles />
<Settings>
<Setting Name="errormessage" Roaming="true" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="ConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;

View File

@@ -1,4 +1,6 @@
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Navigation.OfficeNavigationBar, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraPdfViewer.PdfViewer, DevExpress.XtraPdfViewer.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

View File

@@ -7,7 +7,7 @@ Public Class frmError
End Sub
Private Sub frmError_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Me.txterror.Text = My.Settings.errormessage
Me.txterror.Text =errormessage
Me.Label1.Focus()
Me.Timer1.Start()
End Sub

View File

@@ -58,6 +58,7 @@ Partial Class frmKonfig
Me.txtServer = New System.Windows.Forms.TextBox()
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.Label7 = New System.Windows.Forms.Label()
Me.txtIntervall = New System.Windows.Forms.TextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.btnopenlog = New System.Windows.Forms.Button()
Me.chkLogErrorsOnly = New System.Windows.Forms.CheckBox()
@@ -70,7 +71,6 @@ Partial Class frmKonfig
Me.TBPM_KONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBPM_KONFIGURATIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter()
Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
Me.txtIntervall = New System.Windows.Forms.TextBox()
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.GroupBox1.SuspendLayout()
@@ -449,14 +449,24 @@ Partial Class frmKonfig
Me.Label7.TabIndex = 45
Me.Label7.Text = "Minuten"
'
'txtIntervall
'
Me.txtIntervall.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.DD_PM_WINDREAM.My.MySettings.Default, "IntervallReminder", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.txtIntervall.Location = New System.Drawing.Point(8, 162)
Me.txtIntervall.Name = "txtIntervall"
Me.txtIntervall.Size = New System.Drawing.Size(38, 25)
Me.txtIntervall.TabIndex = 44
Me.txtIntervall.Text = Global.DD_PM_WINDREAM.My.MySettings.Default.IntervallReminder
Me.txtIntervall.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(5, 142)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(164, 17)
Me.Label6.Size = New System.Drawing.Size(159, 17)
Me.Label6.TabIndex = 43
Me.Label6.Text = "Hinweis Intervall Taskleiste:"
Me.Label6.Text = "Intervall Popup-Reminder:"
'
'btnopenlog
'
@@ -557,16 +567,6 @@ Partial Class frmKonfig
Me.TableAdapterManager.TBPM_USERTableAdapter = Nothing
Me.TableAdapterManager.UpdateOrder = DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
'
'txtIntervall
'
Me.txtIntervall.DataBindings.Add(New System.Windows.Forms.Binding("Text", Global.DD_PM_WINDREAM.My.MySettings.Default, "IntervallReminder", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.txtIntervall.Location = New System.Drawing.Point(8, 162)
Me.txtIntervall.Name = "txtIntervall"
Me.txtIntervall.Size = New System.Drawing.Size(38, 25)
Me.txtIntervall.TabIndex = 44
Me.txtIntervall.Text = Global.DD_PM_WINDREAM.My.MySettings.Default.IntervallReminder
Me.txtIntervall.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'frmKonfig
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!)

View File

@@ -1,9 +1,9 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmMain
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
@@ -20,7 +20,7 @@ Partial Class frmMain
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
@@ -34,23 +34,32 @@ Partial Class frmMain
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.tsbtnStartValidation = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.tstrpbtn_Config = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
Me.tsbtnrefresh = New System.Windows.Forms.ToolStripButton()
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.tsstlblUser = New System.Windows.Forms.ToolStripStatusLabel()
Me.tslblLicenses = New System.Windows.Forms.ToolStripStatusLabel()
Me.tslblUserLoggedin = New System.Windows.Forms.ToolStripStatusLabel()
Me.tslblVersion = New System.Windows.Forms.ToolStripStatusLabel()
Me.tsslblLastSysnc = New System.Windows.Forms.ToolStripStatusLabel()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.lblViewType = New System.Windows.Forms.Label()
Me.NavBarControl1 = New DevExpress.XtraNavBar.NavBarControl()
Me.NavBarGroupProfiles = New DevExpress.XtraNavBar.NavBarGroup()
Me.NavBarGroupMore = New DevExpress.XtraNavBar.NavBarGroup()
Me.NavBarItemOverview = New DevExpress.XtraNavBar.NavBarItem()
Me.NavBarItemDashboard = New DevExpress.XtraNavBar.NavBarItem()
Me.Label1 = New System.Windows.Forms.Label()
Me.GridControlProfile = New DevExpress.XtraGrid.GridControl()
Me.ContextMenuGrid = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.CMGroupStart = New System.Windows.Forms.ToolStripMenuItem()
Me.CMFileStart = New System.Windows.Forms.ToolStripMenuItem()
Me.GridViewProfile = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
Me.Timer = New System.Windows.Forms.Timer(Me.components)
Me.TimerRefresh = New System.Windows.Forms.Timer(Me.components)
Me.VWPM_PROFILE_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.VWPM_PROFILE_USERTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.VWPM_PROFILE_USERTableAdapter()
Me.TBPM_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components)
@@ -65,7 +74,9 @@ Partial Class frmMain
Me.ToolStrip1.SuspendLayout()
Me.StatusStrip1.SuspendLayout()
Me.Panel1.SuspendLayout()
CType(Me.NavBarControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControlProfile, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuGrid.SuspendLayout()
CType(Me.GridViewProfile, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.VWPM_PROFILE_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPM_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -113,10 +124,11 @@ Partial Class frmMain
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel1, Me.ToolStripSeparator2, Me.tsbtnStartValidation, Me.ToolStripButton2, Me.ToolStripButton1, Me.ToolStripSeparator1, Me.tstrpbtn_Config, Me.ToolStripSeparator3, Me.tsbtnrefresh})
Me.ToolStrip1.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel1, Me.ToolStripSeparator2, Me.ToolStripButton2, Me.ToolStripButton1, Me.ToolStripSeparator1, Me.tstrpbtn_Config, Me.tsbtnrefresh})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(889, 25)
Me.ToolStrip1.Size = New System.Drawing.Size(915, 25)
Me.ToolStrip1.TabIndex = 2
Me.ToolStrip1.Text = "ToolStrip1"
'
@@ -132,15 +144,6 @@ Partial Class frmMain
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 25)
'
'tsbtnStartValidation
'
Me.tsbtnStartValidation.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.GoToDeclaration_5576
Me.tsbtnStartValidation.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.tsbtnStartValidation.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnStartValidation.Name = "tsbtnStartValidation"
Me.tsbtnStartValidation.Size = New System.Drawing.Size(179, 22)
Me.tsbtnStartValidation.Text = "Bearbeitungsvorgang starten"
'
'ToolStripButton2
'
Me.ToolStripButton2.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
@@ -158,7 +161,7 @@ Partial Class frmMain
Me.ToolStripButton1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(131, 22)
Me.ToolStripButton1.Size = New System.Drawing.Size(132, 22)
Me.ToolStripButton1.Text = "Grundeinstellungen"
'
'ToolStripSeparator1
@@ -173,15 +176,10 @@ Partial Class frmMain
Me.tstrpbtn_Config.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.puzzle2
Me.tstrpbtn_Config.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tstrpbtn_Config.Name = "tstrpbtn_Config"
Me.tstrpbtn_Config.Size = New System.Drawing.Size(138, 22)
Me.tstrpbtn_Config.Size = New System.Drawing.Size(141, 22)
Me.tstrpbtn_Config.Text = "Verwaltungs-Konsole"
Me.tstrpbtn_Config.Visible = False
'
'ToolStripSeparator3
'
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 25)
'
'tsbtnrefresh
'
Me.tsbtnrefresh.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.refresh_16xLG
@@ -192,10 +190,11 @@ Partial Class frmMain
'
'StatusStrip1
'
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsstlblUser, Me.tslblLicenses, Me.tslblUserLoggedin, Me.tslblVersion})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 351)
Me.StatusStrip1.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsstlblUser, Me.tslblLicenses, Me.tslblUserLoggedin, Me.tslblVersion, Me.tsslblLastSysnc})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 323)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(889, 25)
Me.StatusStrip1.Size = New System.Drawing.Size(915, 25)
Me.StatusStrip1.TabIndex = 3
Me.StatusStrip1.Text = "StatusStrip1"
'
@@ -206,7 +205,7 @@ Partial Class frmMain
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
Me.tsstlblUser.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.user
Me.tsstlblUser.Name = "tsstlblUser"
Me.tsstlblUser.Size = New System.Drawing.Size(140, 20)
Me.tsstlblUser.Size = New System.Drawing.Size(146, 20)
Me.tsstlblUser.Text = "ToolStripStatusLabel1"
'
'tslblLicenses
@@ -216,7 +215,7 @@ Partial Class frmMain
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
Me.tslblLicenses.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.key
Me.tslblLicenses.Name = "tslblLicenses"
Me.tslblLicenses.Size = New System.Drawing.Size(114, 20)
Me.tslblLicenses.Size = New System.Drawing.Size(116, 20)
Me.tslblLicenses.Text = "Anzahl Lizenzen:"
'
'tslblUserLoggedin
@@ -226,7 +225,7 @@ Partial Class frmMain
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
Me.tslblUserLoggedin.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.group_key
Me.tslblUserLoggedin.Name = "tslblUserLoggedin"
Me.tslblUserLoggedin.Size = New System.Drawing.Size(127, 20)
Me.tslblUserLoggedin.Size = New System.Drawing.Size(133, 20)
Me.tslblUserLoggedin.Text = "Angemeldete User:"
'
'tslblVersion
@@ -235,36 +234,142 @@ Partial Class frmMain
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
Me.tslblVersion.Name = "tslblVersion"
Me.tslblVersion.Size = New System.Drawing.Size(124, 20)
Me.tslblVersion.Size = New System.Drawing.Size(130, 20)
Me.tslblVersion.Text = "ToolStripStatusLabel1"
'
'tsslblLastSysnc
'
Me.tsslblLastSysnc.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
Me.tsslblLastSysnc.Image = CType(resources.GetObject("tsslblLastSysnc.Image"), System.Drawing.Image)
Me.tsslblLastSysnc.Name = "tsslblLastSysnc"
Me.tsslblLastSysnc.Size = New System.Drawing.Size(159, 20)
Me.tsslblLastSysnc.Text = "Letzte Synchronisation: "
'
'Panel1
'
Me.Panel1.Controls.Add(Me.lblViewType)
Me.Panel1.Controls.Add(Me.NavBarControl1)
Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Controls.Add(Me.GridControlProfile)
Me.Panel1.Controls.Add(Me.ToolStrip1)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(889, 351)
Me.Panel1.Size = New System.Drawing.Size(915, 323)
Me.Panel1.TabIndex = 4
'
'lblViewType
'
Me.lblViewType.AutoSize = True
Me.lblViewType.BackColor = System.Drawing.SystemColors.GradientActiveCaption
Me.lblViewType.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblViewType.Location = New System.Drawing.Point(242, 37)
Me.lblViewType.Name = "lblViewType"
Me.lblViewType.Size = New System.Drawing.Size(75, 16)
Me.lblViewType.TabIndex = 6
Me.lblViewType.Text = "Ansicht-Typ"
'
'NavBarControl1
'
Me.NavBarControl1.ActiveGroup = Me.NavBarGroupProfiles
Me.NavBarControl1.Dock = System.Windows.Forms.DockStyle.Left
Me.NavBarControl1.Groups.AddRange(New DevExpress.XtraNavBar.NavBarGroup() {Me.NavBarGroupProfiles, Me.NavBarGroupMore})
Me.NavBarControl1.Items.AddRange(New DevExpress.XtraNavBar.NavBarItem() {Me.NavBarItemOverview, Me.NavBarItemDashboard})
Me.NavBarControl1.Location = New System.Drawing.Point(0, 25)
Me.NavBarControl1.Name = "NavBarControl1"
Me.NavBarControl1.OptionsNavPane.ExpandedWidth = 236
Me.NavBarControl1.Size = New System.Drawing.Size(236, 298)
Me.NavBarControl1.TabIndex = 5
Me.NavBarControl1.Text = "NavBarControl1"
'
'NavBarGroupProfiles
'
Me.NavBarGroupProfiles.Caption = "Profilübersicht"
Me.NavBarGroupProfiles.Expanded = True
Me.NavBarGroupProfiles.GroupStyle = DevExpress.XtraNavBar.NavBarGroupStyle.LargeIconsText
Me.NavBarGroupProfiles.LargeImage = CType(resources.GetObject("NavBarGroupProfiles.LargeImage"), System.Drawing.Image)
Me.NavBarGroupProfiles.Name = "NavBarGroupProfiles"
'
'NavBarGroupMore
'
Me.NavBarGroupMore.Caption = "Weitere Ansichten"
Me.NavBarGroupMore.Expanded = True
Me.NavBarGroupMore.GroupStyle = DevExpress.XtraNavBar.NavBarGroupStyle.LargeIconsText
Me.NavBarGroupMore.ItemLinks.AddRange(New DevExpress.XtraNavBar.NavBarItemLink() {New DevExpress.XtraNavBar.NavBarItemLink(Me.NavBarItemOverview), New DevExpress.XtraNavBar.NavBarItemLink(Me.NavBarItemDashboard)})
Me.NavBarGroupMore.LargeImage = CType(resources.GetObject("NavBarGroupMore.LargeImage"), System.Drawing.Image)
Me.NavBarGroupMore.Name = "NavBarGroupMore"
'
'NavBarItemOverview
'
Me.NavBarItemOverview.Caption = "Gesamtübersicht"
Me.NavBarItemOverview.LargeImage = CType(resources.GetObject("NavBarItemOverview.LargeImage"), System.Drawing.Image)
Me.NavBarItemOverview.Name = "NavBarItemOverview"
'
'NavBarItemDashboard
'
Me.NavBarItemDashboard.Caption = "Dashboard"
Me.NavBarItemDashboard.LargeImage = CType(resources.GetObject("NavBarItemDashboard.LargeImage"), System.Drawing.Image)
Me.NavBarItemDashboard.Name = "NavBarItemDashboard"
'
'Label1
'
Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.ImageAlign = System.Drawing.ContentAlignment.TopLeft
Me.Label1.Location = New System.Drawing.Point(507, 25)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(405, 28)
Me.Label1.TabIndex = 4
Me.Label1.Text = "Doppelklicken Sie auf eine Datei um nur diese zu validieren." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Doppelklicken Sie a" &
"uf ein Profil um alle enthaltenen Dateien zu validieren." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'GridControlProfile
'
Me.GridControlProfile.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.GridControlProfile.ContextMenuStrip = Me.ContextMenuGrid
Me.GridControlProfile.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GridControlProfile.Location = New System.Drawing.Point(12, 28)
Me.GridControlProfile.Location = New System.Drawing.Point(242, 56)
Me.GridControlProfile.MainView = Me.GridViewProfile
Me.GridControlProfile.Name = "GridControlProfile"
Me.GridControlProfile.Size = New System.Drawing.Size(865, 311)
Me.GridControlProfile.Size = New System.Drawing.Size(670, 264)
Me.GridControlProfile.TabIndex = 3
Me.GridControlProfile.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewProfile})
'
'ContextMenuGrid
'
Me.ContextMenuGrid.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.CMGroupStart, Me.CMFileStart})
Me.ContextMenuGrid.Name = "ContextMenuStrip1"
Me.ContextMenuGrid.Size = New System.Drawing.Size(254, 48)
'
'CMGroupStart
'
Me.CMGroupStart.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.database_go
Me.CMGroupStart.Name = "CMGroupStart"
Me.CMGroupStart.Size = New System.Drawing.Size(253, 22)
Me.CMGroupStart.Text = "Validierungung für Gruppe starten"
'
'CMFileStart
'
Me.CMFileStart.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.email_go
Me.CMFileStart.Name = "CMFileStart"
Me.CMFileStart.Size = New System.Drawing.Size(253, 22)
Me.CMFileStart.Text = "Validierung für Datei starten"
'
'GridViewProfile
'
Me.GridViewProfile.Appearance.GroupPanel.BackColor = System.Drawing.SystemColors.Control
Me.GridViewProfile.Appearance.GroupPanel.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GridViewProfile.Appearance.GroupPanel.Options.UseBackColor = True
Me.GridViewProfile.Appearance.GroupPanel.Options.UseFont = True
Me.GridViewProfile.Appearance.GroupRow.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GridViewProfile.Appearance.GroupRow.Options.UseFont = True
Me.GridViewProfile.Appearance.Row.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GridViewProfile.Appearance.Row.Options.UseFont = True
GridFormatRule1.Name = "Format0"
@@ -283,10 +388,10 @@ Partial Class frmMain
Me.GridViewProfile.OptionsSelection.EnableAppearanceFocusedRow = False
Me.GridViewProfile.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewProfile.OptionsSelection.MultiSelect = True
Me.GridViewProfile.OptionsSelection.MultiSelectMode = DevExpress.XtraGrid.Views.Grid.GridMultiSelectMode.CellSelect
Me.GridViewProfile.OptionsView.ColumnAutoWidth = False
Me.GridViewProfile.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewProfile.OptionsView.ShowAutoFilterRow = True
Me.GridViewProfile.OptionsView.ShowGroupPanel = False
Me.GridViewProfile.OptionsView.ShowHorizontalLines = DevExpress.Utils.DefaultBoolean.[True]
'
'NotifyIcon1
@@ -296,9 +401,9 @@ Partial Class frmMain
Me.NotifyIcon1.Text = "Process Manager"
Me.NotifyIcon1.Visible = True
'
'Timer
'TimerRefresh
'
Me.Timer.Interval = 60000
Me.TimerRefresh.Interval = 60000
'
'VWPM_PROFILE_USERBindingSource
'
@@ -341,12 +446,12 @@ Partial Class frmMain
'
'frmMain
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 21.0!)
Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 19.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(889, 376)
Me.ClientSize = New System.Drawing.Size(915, 348)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.StatusStrip1)
Me.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.KeyPreview = True
Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
@@ -360,7 +465,9 @@ Partial Class frmMain
Me.StatusStrip1.PerformLayout()
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
CType(Me.NavBarControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridControlProfile, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuGrid.ResumeLayout(False)
CType(Me.GridViewProfile, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.VWPM_PROFILE_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPM_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
@@ -377,13 +484,12 @@ Partial Class frmMain
Friend WithEvents ImageListProfile As System.Windows.Forms.ImageList
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel
Friend WithEvents tsbtnStartValidation As System.Windows.Forms.ToolStripButton
Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
Friend WithEvents tsstlblUser As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
Friend WithEvents NotifyIcon1 As System.Windows.Forms.NotifyIcon
Friend WithEvents Timer As System.Windows.Forms.Timer
Friend WithEvents TimerRefresh As System.Windows.Forms.Timer
Friend WithEvents VWPM_PROFILE_USERBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents VWPM_PROFILE_USERTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.VWPM_PROFILE_USERTableAdapter
Friend WithEvents tstrpbtn_Config As System.Windows.Forms.ToolStripButton
@@ -398,10 +504,20 @@ Partial Class frmMain
Friend WithEvents tslblLicenses As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents tslblUserLoggedin As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents tsbtnrefresh As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton
Friend WithEvents tslblVersion As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents TimerReminder As System.Windows.Forms.Timer
Friend WithEvents GridControlProfile As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewProfile As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents Label1 As Label
Friend WithEvents ContextMenuGrid As ContextMenuStrip
Friend WithEvents CMGroupStart As ToolStripMenuItem
Friend WithEvents CMFileStart As ToolStripMenuItem
Friend WithEvents NavBarControl1 As DevExpress.XtraNavBar.NavBarControl
Friend WithEvents NavBarGroupProfiles As DevExpress.XtraNavBar.NavBarGroup
Friend WithEvents NavBarGroupMore As DevExpress.XtraNavBar.NavBarGroup
Friend WithEvents NavBarItemOverview As DevExpress.XtraNavBar.NavBarItem
Friend WithEvents NavBarItemDashboard As DevExpress.XtraNavBar.NavBarItem
Friend WithEvents lblViewType As Label
Friend WithEvents tsslblLastSysnc As ToolStripStatusLabel
End Class

View File

@@ -125,7 +125,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw
CAAAAk1TRnQBSQFMAgEBAgEAAVABAgFQAQIBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
CAAAAk1TRnQBSQFMAgEBAgEAAZABAgGQAQIBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@@ -184,10 +184,192 @@
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1015, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="tsslblLastSysnc.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
xAAADsQBlSsOGwAAAMhJREFUOE+lksENwyAMRTMKI2SG3LkzQMZCyjLNMnCgvXB1/ZHd0sZpmybSk4xj
P0PCQESnMJNHeAby1FodszCFIQExck7KbAEXjCmlEmMk7z1N09RAjJyIRlMAOwrmeX5pDCE81ngnEmcJ
FkzRxvWy0rXcGoh1R7KTxRIULdJmxL1E5ajdCHLOrQBb1qZeAHQAC7hlR4CiXqBgrd/DFFhH6Pl6BE6e
/oib3/jOx9+oFwkFmKITAWKZvH+R9IGdOX6V/8VM/g4Nd1V+xlTSTXpaAAAAAElFTkSuQmCC
</value>
</data>
<data name="NavBarGroupProfiles.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAFNhbGU76FnfrwAACeVJREFUWEfF
lwdUlFcWx8e2bmJBKQISFVEEEhVRseCCJipSRDEYCyJqbPQZLBBHBAUETMQ2CLFgS+EIIlgCioigwFBk
AJUuRZEuShMbOf+975uRDB6yuzm75+w75zIz3zfzfv//vfe998ED8H+N/9Xo00v829FDgORHM15OmCnv
/vEFvOyQr3hZx+bxMo/M5YmD/8FL+8GIdy9oFi9l/0xekq8hz3GiQh/RKi2lCCc9fpSLXk602+eVkc56
IT9v0bY+YDNGkabrR9FXFt2i/E3V6OWP0UNATtgiXvuzhH8ZBO57edukmdGCiecTAue+eRDjjMfJh1ER
8zWa79nj8WVrXBca4LTd2Lsh32j6Bi757EuaeoAsPojqzk4PAfdDTXuFtj2N4131mKIQv3uq01VP/dzc
X9egMmknarL8UZHiC0lsIMRHTVAeZYFnv1mj4dZyNCSuQEXsMtw7ZALRqrEd+75STdxlrLLH2VBRh1BM
CCeipwBKvTyYpfn23pnTE/ZOP303eMGrsnhn1Gb4oDE3EJUpe5DxiwOST21FQqgbrvrMQ+aZlcg++w3y
I1ahMMoWhZEr8Dh2NSqurELVtbWo+c0GPvPUGHEgBctETwHZIfM5cLz3DIXkgNkOib4zJPkRdqi8sx2N
OX5oygtAgyQA1eJAgrujs/43dFRHob38NFqKDuJF7l40ifloSNmCukR71N5YiZp4G9Rcs0L1tZUQ79GC
cI4KI35KwbLQQ0Cf1ENzp6YFm5zIOm7e/iTFCw15oWitikUbRXt1HFqq4tFYFIOy1HAkntpG8Et4+cgP
zTk70Ji+BfXJBL21gqDLUHPdCs+uWaI23hYFwbqQCEcgyUUFnrOUGHEwRQ8BrB59qePRUHAez8viUJNx
CE9ue6DiBh9lV9ejJGYdHlywQuYxY9zcY4D475ejrfIsmiUeaMp0JPg6gjPHUnhd4gaUhBkgb58acner
ImenCm47kIAZiow4hKI/A8sL6J9BAl7VBqH1aTg6mvLR0ViIjuJQdGSuQ1v6KjQn2qA62gLZx4wgPrMJ
LcVHCO5EKV/fDW9IdkD5BSM8OvAZ8v3UkbtXDTm7RiBrhzISScD26cOw20L3vpeF7kX3BeNZKbhmZH8G
ZBw2wbvGA3hXv5/Cn96H4vfOh8D7FnTVRqM9YzPq45YgN8wYBVe240XePoJvQB3BG1P5eBpjiYIjo/Eo
aBQeBozk3EuEqsgm95nuJGCrEgRTh2GnqXaw56IJjkILnXOMywSwjhxIGw7eNQRx8Le1+/CmZi9eP92N
19X78b7tHtDVhrc1t1AatRZVd32p4QRoSN2Bmlu2KD45DkWiMSg4NIoEyNx7k3uhCuc+Q6CEW5uV4Gag
gLWzRn9pPlFtzB5L3ZfEZf3ACfgk/aAR3tX5402tXze8s2oXXpXvoFK4o71kB940xOJlfQka804QnPrj
vA5KT41HUZgmwaXu8wM05NwrI0tAAlwVcXODIlz0FTDk7/015oxX0vSy0Gsj7nAmgHXkoLTvjcg5wWsZ
3FsG34mOEoIX89Fa6IzW/K1425yO8ktf4PGvuig9NwHFP45DYQhzTwICNXq4zyb3mW5KEDtJBThNVmBd
p0FZWOZhpiORFzAkNWg2CSB4NYMLpfAyATnno00Gb8n+Fm8bkwj+Oee+5CP3D0kA5373CM49qz1zn7Z1
OOLXKcJhEidAWzB//KVNxpo+9H4QE8CWhMK9wJlS+BMhOis8CL4N7UUCKfwhwe9T52etx+vaeDy+QO7D
taXuj/ZSe0/qfEr9MSdTzN4QAkN7EabaHoK+TSAMjBaLhBa6DcqDB2oTl9sPmIDhKfsN8ZrgryplcHLe
+shF6lxC8Pvr0JxuRwKjUSrvXtb5+YHU+T4Ep3XP3IucTWH1XSzczpSDf7YCruEl2HhYjC3Ll2LpXKN4
YiozOBtsKSjd8Z2OzkpPdJSypmPOCf7AQQrPXo8XGWvw/N5qdDz+CaVn5Gp/8A/3Em/adMi9PPzbsDLM
c7+Cacv9YLV6G/h2K6A11wVD1CeNIi63D/yNQjVp7zSanLbYUgE1nKs07bkyuNgOz1NXo/HOChJ2Quo+
dKy09mzT8Ze6Z51/zNUUiz1j4XKqBPZHH8HS7z4MVh6E+yJ9eK61hoVrOLTmuWOw+sTx8gLUE70NqONl
zhlcspnSvoGc23POmwjekGBDJTkicz9a6j7gQ+1VIeIv4uAOYQVwFGXA+0wW3ENSscwjCvpLvWG5ORhr
/OKhacLHIBVddjRzAtjxqJHgNQVtBcy5E1pzt3Dwl2KCp9riefJKgi9H3Q1rvMgOQNFxuc4n9xJyLxIs
4tLufLIEDkczkF9Wjyd1L9HV9TuEoXexxCsB9oFJsNp1HaONnPGp8oRuAVwGbu7WRzXt6y255DxHCm9O
s0VTCm21t2xQH2+NWjpam9P2oJA1XrBs2fmoQ7TNjJzHYGvYI6wIFOPALzl4WteCaWtPorXjNc5dz4Ox
WyzFZehZ+UFJ1+owMYd+EMCtgsBVY11jPSY/zwk3RVOaHT1irZY6p0OIweuuWKE2xhxNyTu63T/wGwnR
djPOueOPhQiKyENRVTMWCi7j7bsuOH4fh8t3imDkEAFjl0scXFnX8hjxVCj6yZ+GrAzKUzUHG4bYa8XG
CaegNNISjYnLUX/za9ReWUJwS9RELqLPzty6Z+4ldNpZbtqPraEPYXc4Dz/dKOCcG64/i9ziGogiM2Hk
dBHGrgRfTHAdCxFxRlD0U/5idY8HEnYesFIMo9DcaDJi85l1WjW3/WfgySV6sIhejGcXzVAdsZDEbOqu
fZaXGn510sHCTYdg4ZMOr1NivHvfxdW+/Fkz7H2vYY5LlDTtOuYhNLcqRb+1+67yPhbABssEKwc7p1WV
B/c38DJX//n8Ru2u7CNz8PQnU1Sdn49n0fZ03GogQ6iGu9tUEbFGGRtnju2cvvJAp63/bfCPJGFXaDIW
8iMxx/GiFD7B4jibk4KD9yrgspsue2Ei5LOhZao71NbffGRJpLMuCo8b0wPHN0gXjkSiuxqOLib4ZIWs
MUMHWCqONbLRX+b3cp7gCkz41HAu0QT3Zc5DaR72D0E3vFcBUc46vJLIxbziCAv2UT4b7MeTvzUcHvaD
1ci3cd/NRvRmVXgZK3ZYjhsURPcmUTB3w5TGmyzQM9vVYkx117Pyh5K2eRhdV6foAe9VQKTjBN4vm8bx
zq/X4oXbabJLH2dj3CTVgdaCmcPFztOGibWGDTCna1qye2w7Z98dpDB6hpmG4cZmpQnmLO0cnMF6i497
4M8GE8JOLZYNtnzGyIIdJuwayxT7Dhvs9RMK1ulMGLv3p+M/FcAGm5gFm5AtWRYfwB/gf3n8FQHy47+C
yg8AvH8CqUB0J/cNlPoAAAAASUVORK5CYII=
</value>
</data>
<data name="NavBarItemOverview.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAWdEVYdFRpdGxlAE1lcmdlQ2VsbHM7R3JpZDtXCQuc
AAAGmklEQVRYR8WX91MUZxjHL4kxxhJr6v9gd8SGJUZE0Rgz+SlOflNRFFsYVCQIDor0chztODh6UQF7
lyq9qBlnMiYmGaMRURQF6TNPnu/z7u4dJKP5IWNu5uPz7i7u5/u8797unomI/ldMyVe/MfHnLY233xC6
Tz4YvMOMZN5jRr2C91/D6H8BzvMuowcxjQgt9HCzXFjfmHDpa7JcXE88pvjzX5H53DqKY2LPfEkxp9dS
9Kk1FFniQRHFqym8aDWFHXenpJxaSsyupQQNS1Y1WTIZrcZnVJM547oQZ6+i6NSypsDwY+5aCAkw8lDm
stbS26H0458Zwi0Du3ATPEgXbjxIoxv306jlvo3SLmyk/v5Bgz6nWlpzV6ozvczde08p2lb+iL2YMcyC
adShzKUiPHFzPRW0rKX8Zo2mNUJukwflNXpQbuNqymkAq4SgzMXU+XKAOrv7ueoM0AuuhWdv0Yuufh6r
bZ2evkGKSq3gq880lsHSm0YH2REgnQo0YR5oRHWSNippVoM7ZdUrAu2u1NmlBJCLUKT9VHD6pmNb4zmD
AJEp5QgwzghwMH2xTK102bRaSTWy61dpsLRuJWXWuTMrKaPOjQLSFg3pDgK95p26IVXRp9FP3X0DFJZc
igAf6AHGBNhceV1TlZS7zTY65aoJdWlGrRvZa9wonfFPXSAnle46dZkS5pxs4X191MGgYh/G3b2DFJp4
TQ8wQgL4W12p+b5VOlXTqwuZ2pVkZ6mIhRUsX0Fp1cvJzzqfO22hXJaBnJPNlFPCtaSZsosdZBU1UWZR
I2WeaKTzZT9RiOUqAozXA4z1S15ETfeSZXp1qS6ETPEFSxU2lqdeX077kudRT++AgM5UVWQXN9FLjHsG
6GXPIKONed9h8+WhAfYlLKTGe0lklynWhbp0uSG1VX/OYqYKLCPfRBeZVvAMvOhn1DiDu5XxMLo4RHDc
JQSYoAcY52uZT/X3Eh3SGkhZyF2KUFhGVpZaq5ZSioaPZa4SGwEUT3lsP9bA41569py3AfZz7erpp0Mx
FxFgohHAxzyf6n63OKaXO7VpnVpZnMLilEqWMsmgYgmzmPaY5xhSETuRVlhvSNul9hoBAqPODwnwwfcx
86juN7N0ahVUtymVgGWaNKlyMSWWL2G4VrjS7tjZSixdsoA7boeQSc2vU3LeD3AcFUsQEHkOASYxuB2b
xu+KdqGaX+OUlKc2WaTokqXcKUhkEspdWe5KCWWuZGF2Rs+STm0ssxXUi9SaX6vIU6Tk1VBKLpNTQ8kM
xv7hZ4cG2BExl6rvxqqpFbGzlGFZQtkikVpKF1F86ULBO3KW0SF44jSGqL2D9znxmHnBt22/0DMIMFkP
MME7bA5V/RIlwiRMr9apRaQKCM061xZQHLMtfMbfJDpJ2dUs7BEpth8/U+BOuf/oaQSYYgTwOjqHKn6O
MKZWpOi0jDu9prrVpcLV+RR7dR5tDZ0+RAqZLk3gx7GMRdxDbai8jQB7Q04NCTBxy5HZVH4ngkWO6YXQ
IYVQSVFjuEZfcSHPo9Pl5CJG1WQQWTKrRNomchxT4Lbte7gEAT7UA0zaHDyLyu6EsxBTrHe5gGJFPI+F
LL3ClaUg+rILRTGbQ6YaJ2+TbrUxY7FXGnLwSGq3zIBPcPHQABuDZtCBBDe5qr2Z7ZEzaXvETF7jmeTF
67w1bDptCZ1GniHTWDqNNh2ZKmwMniqdWjIqhXiWmtMryMw1Lh1UOEgrp1hbuRzfE1SEAB8xeA00Tcb3
Ei8V+oUC9OSJWdeNroCMn3bLGMK2p9wd4G3nGptWobbbFa0y7qYOXoLdgScQ4GMjAL6XKsAwESNrif/M
DK/oTCQG3UrINdZWxlLeZqRKEBVg18GhAab4hZ2RACLXTob1QqfoUk48TISTGl3qx1nQyqDyy6eM8Xeo
D7VjCLAj4BgCfGIEwPcSFwfkEDtO2i1rqYQ8jXwCHNNrTGq5EuBvIcBYE0VZS40xePhE0dHZS94/SABj
Bib4Bhe3ttx+IG8t+hsNkqLiolH7sc+xHxUXldrnTK/UaA4gj2p+VujgudFw6w/y8svHW7FxJxy9wTPs
250BhY938cWB9dkJAo7zVB2XtN7+oJC2M9sOFDjwK8DJyGt/Pm0V8oQt+0AueXL13MsV+ObSZmaTT9bj
dRsCv2Ov8VaMR+IYBg8HfDUwNcPBer2KT1/DZxoY4w4IObqXHyb4Bz8QsANgXf5L8HNPB9twoHN4JQA+
+sabRH3+6Sfzm4NMfwGEtsDMLfHtDQAAAABJRU5ErkJggg==
</value>
</data>
<data name="NavBarItemDashboard.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAPdEVYdFRpdGxlAEJhck9mUGllO7hVPVUAAAf4SURB
VFhHvZdZUFTZGcfJOJuzZalJHvOQhzwklap5sSqjJpWlMknGiZPggqIzUUZFZBPBEQFZZbMBAUFFEGVr
oIVmaWj2RRRkRxih2USWQaCh6WZv1n/Od+69dI/LVMxDqPrV953z3f7+/3PvuQsW4t9rjC2vwOv/I2+I
UE59fsCweC1Z2VKVmtuG7yOFyHkBSoqtSCaULycpW6KFk6horBZNWGxJvNOM//dfnLweTJvOhsXrNxWC
gZWVdSyvrIlIOUVzhLrR7BjKjSw3Los1Fr+PjY0NXEt9QAbe5AbiM5uwwQyYC7wILsKjAJ9/pvnSC+LS
8qo4priKdWbgqrmBG+mNzBXEprQSYTUcEjOPrIFUE5qLGAURLmYUx3xOjDQn1shAbHIdGXiLDLwRJ28Q
DDzT3JQL85vNxfqiGElgkc3TeFEUXJTmNnOBBTKwvoErSbUmA9fT6rkB+qGRIQkIKxFy+rGwEtGE1JzX
nheSWCCWhLhIkUEGom7fMxmg60EGyL3QUBDSj46jW3EH9f7+qLC1RcXxY6j380Nnmhy6oRGTACGKUFRU
+SJCsQ/hmXsRlmEJWbol0sq8WG0F84srWGMGIhNryMDbZODN2JQ6vjPNXT8uKUWjjze646/jaZEKhqY6
DuWauGt44OGB7uwczLGGXJyaiyv0TfgrhqdLMKQrxqCuiKGGa+ROVl/hx3MDN++aDMQk1/KNwRvNLaFZ
Fob2cBkmilXQV5VgqigX2jwFR8dyfXUxxovy0RIaAu8btdDPLbOVrfLVER7X/oyO0QSUadwYrnj4bRwc
Ln3Ma2RgdW0DEfHVZGArGXgrml0Pui60ikcpqWiXhWKqVAVtbgbGM5MxoUjCuCKZ51J8cicdTZ0jCM9o
Q1RmK28s4Rb1ezQNRaPwG3sUdJxC4+Bl2AZuw9zCCma5gXWE3TAzEJUoGNA+HsR9V1d8q0jDuDwRT1Pj
McZ4mpqAsRQhJ3oTb0DdNISafgNym5/CIbwS7b1aLj7LRJxk21HbHwJlqw2yW47iXl8gbHw/4jWCDMiu
V5oMRN6s4delIykFHWEhGEtLwOitWIwmMm5dFaKIJi4GeQ8GUN6jh6JlAjntWsgy2xApb+bNZxgng7ah
UuON9AZryBsOolzjiS+8fsNrxMrqOkKvVZCBd8jA2xEJd7mBShdX9EZdwkjcZYxcf57OKxHIuteHoi4d
UhrHNrla0gdrj3zMzAsCVRc+g3FYjYXu2xzjUCFKv/4EBlYnlpmBkNhyk4Fwdj3W2MYoOGCNPt+zGAhw
x1BUMIajQzbpC/ZCas1jqB5NIrFulHOTEVU1jPDSAXxiJ4dWvwTD3AoT+wsWOhMw2xCA2Xp/LDyKh9rl
D7zGDbCnbXBMGRl4lwxsDYur4jszf58VNG4n0eN6Aj0s9l9wwUDgeTy55INen7PIfqjF1bvDiK4cwqWy
QQSoB+Cn7odvXi/+dDwFkzNL0M8vc7H5jljM1F7gzD+MQb79dna3rHDIQGB0qclAcGwZvy5Fx0+i1f4o
epy/Qjdx2oZBuQ0eHt3Lxb3z++CtMoONXW63YLdzBqZnlzE9s8zEdmCuOQKG6nOcuaYwKI9v47XpWSN/
svpeLiYD73EDgVdKuav6yBjc/+pLaByPPEfbl5aIqRqCZ27vcxyVVeJ8VMWmgPLENszUBUFf6oLp0tOY
uR+AzCMfQTdjZMcY2cNuDT7h6k0D71xkp4MMDHd0Q221H23HrKE59QU09gJdjLbDnyOqchDuOd1wV/aw
yGDRMakNf3fMRDW7LXXMAImQmKHaC7pCO+hUdjBUekB+6Ne8RtAD70IYN/A+N+AfWcxet+v8FNYEy1B+
YC++sbVGl90hdJ0krNF68DNcLn+Cs1ndcMvSMLrhkv4I//RQwTFIvdlcZzAijYnpS9wwlWODSaUNpovO
IGX/LzFlWGIIBrzCCjcNvOtHBtg3AJ0e7eQs1PbOKLH8HC1H9qHT9iA6TxxAi9UuvtvPKLo4tvFN2PV1
DvY4ZWB4bJY3lgRITKdywKTiMLSZhzGVZ4dblr/AJLtLJtkx9Nj2DFWZDPhEFPGNQe5pFRPMRJVfEJSf
foqKPbvRcMgSjXv/hou53fh3dC12exZgp00STvmpMDI+hylqrBcMTLIet0lMeQxauRUm0vZjMtsGCbt/
zm9TOm6ODIRwAx+Qgfe82YagjWG+Cor9je2o9AtG5j/+heTf/RG/2hWF31rFwSlQjYr6J0zYyAX5yjYx
ItV5P4J3/gwhO36K4B0fImj7h0h22MMNEPTIPh+cbzLgJSvkr2ESlk6TsCqhoXlzQvudOaHpy1nkcUIc
U6RHtnsQN/BDMvC+p6yAbwyp2X/fXGJRFJCiKZ/gUcqFMT2uzwXmmhkILeAfE1JDqYn0o2fnTWPz5t/N
x4npJSGyOYoTNJ4WDJy9yA38iBvwCMnnXysvEjM1fVlOkcTMEMeSoPkcoWfvA7eAnE0DH9D1oJ1pai42
FpvwKDWlKNaEhmYiZnNjYj6mY5jVKKf3hZu/0nQGzgXl8S8V6YOBw8bS+1vCwOMyi8vs1StgEKGm9GnG
ozk0xzFyplk+zeIZP5OBrU5e8ruu/jlwZa4EstkB2XBhB7n4ZcHFl+GThdM+d+BMeDMuKODkrYAji4SD
V6aAZwbsPYh02LP8FIuc8+mwI9zlHJvTCfeYNn8b0r/m9GlE9yTtSoKcvQo/fgV+wqDfMHGLLf8BKVH4
p8+ug0MAAAAASUVORK5CYII=
</value>
</data>
<data name="NavBarGroupMore.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAXdEVYdFRpdGxlAFByb2R1Y3Q7UHJvZHVjdHM7c0vM
pAAACNJJREFUWEfFV3lcT+kePsLYyoSmaeEqtO9psRUjkmUywhQyolSKaRCNFkmWiKGUTK4xKbkVVwta
SXW1WiptSpvSooWiLHe6z3zfU5mRX/+Mz2fu9/N5Tuf3vud9n+/2PufEAfi/QuDgYCAbQhBifwXN/xXw
l1z/eVzOSUMu6ycDLvPobC7jyAwu7ZA+l7pfl0vxnN5PPJwg7LtmymJV6dESdD+mb2xIsKUsF2Q+mfNf
OYk7YSrNHV0i+RHRYOAvOX5zufZHIR+BjEX72WSxkeMDN8ltSzlmUled7oPQzfLdp9bKxjkbS1nTvDhB
hD1HGNL1+DjnYyLxEdFg4C/ZJwz/TMqiHUoYaWc8UT7sB03/jMAV3VW39qD5/iHQM8gJt0NFvB0yTi7E
aQuZ9r2LpaIsp49fS2ukCGMJvDMDyQSBv2T/NIee54mHEcb42SguinbVS8wLseypy/REfeY+lEY7ofBf
W1ASvRfRHibIPmuF/Ev2KL1ij+wAU0Q4qMN7vni7o974SybThL+mfUYPJBMEZnx95aTGiIZu13BK9Dao
LKBNG3K9+YgZGHnn4yh0lJ7H84eBaLt/FK25nmjJ3I3mjO/RdNsWjTet0Ji8DnXxFjhno8R2niiIcCCY
fRbjruOTFWjaWZ3hw6d4IFjUHWUX8DR+xaBoSFyFtpztqI22gIfBF2znaYIIB4KZcPrhGXjVdA2tldGo
e/AzavL8UZ5+FPmxrrgT4oAol0V4URQkkJihJXMbGpJsUBSgjQJfFbjOFmM7ywkiHAhmoumH9fGmwRvv
2sLQ87oAPa/u4PWzy2h7FIzqTB+kBWxAe/6xj4gbU23QlL4DZb/MQpG/OgqPqyLfRwkuMyewnRUEEQ4E
s/G3D+ridb0nup+4o6t2H962RZMjpehujkdzgR/yLzuhNc/rD+KUDWjOdMPjcCOU/qyN4kANPDyhhoKj
yrh3UAG79MeznVUITCfYiRr0RDATS92vg64aN3RV78HLyt3orHDGy8d7yZEkvHv5CC3FIWjJ+hENyZZo
yduPmmgzVJzXQ9nZ6Sg5rYkiPyI/poK7BxVxx10OBxdJIMRW9kGo7ZQsT1NJU+J4rxMBq6Q5v+VS3LGl
vVrBTPzmPm0i3sUTdz7ajs4yJ3QUb6WOd6Tf3uh58wyt9w6hIcUaVRdnoCJEH4/+qYPSM1pEroF8qnu2
lxKSXeQRu0OejqcDuhrTUB1vjQy/JQiwmHTf3kBsDXGJEUYShHyX/OGARIqnFk/cUfo9XjDiQgc8L7BH
+/3NaL1rjTetWaiOmo3KS7PwOFQf5ed1UEKpL/TXQJ6PCm65KSLeRRGFkY5EnE6On8azO84oj5yPtw0X
0F5wAClHjHFomUSRhaYoU08mWKMJTGk5qSQPTTwvciTiLdRstmi7R8R5m9Cas4FSvx7djcmojpiFyrAZ
KP9Vj6KfTuSaSPNWQZK7MkqubP2AmOHpTSfk+umgKtkDVYnuqEpwRVG4DSIcdeA6U7TWVFHEnriZanIT
49000P6AiCna1txNaMnegGeZ60lk1lCXm+NV7VVUhs9ExQVK/bne1Of5quGmlyraS3zxpu0u6m87oSrm
G1ReXYqKy8ZErjuoeJVHrUeA2WQojOI0mAP/uOGiRpNWFO135L1lL3GaORpvraKON0Nn+YW+1OuiLJga
L1AT2YdVkOKpiu7avdS81LCt1/Fb10O8a72Cd00XKXLPj8SrIXE1BTKPAtDG/vm8WLGTwslc26WK5v8Q
cboFyeq3RLySOp4WJS1H/Y1lfATlIbp86kuCqPHozGcfUEaShwpeVbriZYUL9RA1cZk73rak4beObN6B
fvGqv2GGmiuL+fXs2JYEacJrHu+AGnNgcuxOFTSlUrQ3+4gTiPj6MtTFLUFdjAn1w2GU86mnMx/Qe+az
qOsT3ZTxsmwXOkp2kpNOeJ6/lfqHGvihJ57kxKHtgS+exC4n5/VRdo7Ig3vJ2R775vJqqc4cmHDSckpC
0l4tVEQtIuKlqI9dzBPX/nsBai4bUUlc35/5hyfV+TOfuU8BCa5KeNFH3H7fgcpoS2W0oTJuxKsn11AV
YURNS2Vjzp9l5JQ9JlqUQU9D3gFN5gBTK6l1M8V+CLaa2pJ+RJeOHBFHGaEm4itUU80ak7ehtC/1/XKb
6jIN1+notVPEPHG2NZVxI/XOd1TCteisjOwt2y865Lw237hMMYtOqVMQanCfw8u1Vr8YsPMoIiY8TMt5
oURMuJ1cz4MAfVSFGaAy1AD1cVaUNoq+T27jtsnCSW/c22u7FPiIe4nXE/E6PE02R338KjwvPtdLzvqG
1Z0at5+cBeE2m3dAk3cgYos8VxP5FXOEz8Y8ORFrLxPJuugdiuS9PmVjJSmeOnIPKeHMamlYqYwtkxwz
dG3MDgU8TVmLBor4abIF6hNWoe76CjyJMSXlPNmrlsFafOn43qE9Co+rINJeBnban9cQlyzvQLjtNK76
oiFH0TInWDbYB6eypZZo+PHlkv9NPzwTCbvl4DH3izcLZccE0ZwiYcKB1RN/vOqs1F0cZoK6aytQG2uK
GtKB6ssmaLrjhTL2oqKmKyJy9r5gkZ/5VhrmyiLpw4WGsK/dUbwDYZumcuc3yHJn18nQ1+0k7pSZNM3x
n2cSyuIjzB10xxXZTRctkvl8+Dc0xj5C2RxftmUaokaBlpNLbh3UQWWkCTWeMUm2EWVmO990LPIifzWS
bGUcWfzl/xbIjg6kdVMJI/jys8tgIGOfa0yzJxKYV+z+/auV3RNGEGR2LhAPCbeX68kPmoWKUEPUxm2i
ujNydSTvkYeroVi3ktiIzfTsl4Rhu/XG9e7Rv9mngIy988WNFUWsfZZLPkt0V0VV5EoUE/lFGxk46o2r
EP5MiDUZ036hD9b++cengIxlQ1hy7DC9LbMmpP66cSr8VkjCTFkkYqgQp0pzIwWuEzT4V8E+Nsj4knyt
JOI8Y9Io9r8CGxzuNmeCwDUCBz8VZKwkowjMmQ9SPhACB/9OCBz8+wDud0IUucB3M2m1AAAAAElFTkSu
QmCC
</value>
</data>
<metadata name="ContextMenuGrid.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>392, 95</value>
</metadata>
<metadata name="NotifyIcon1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1132, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="NotifyIcon1.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAwAMDAQAAEABABoBgAAxgAAACAgEAABAAQA6AIAAC4HAAAYGBAAAQAEAOgBAAAWCgAAEBAQAAEA
@@ -691,8 +873,8 @@
AAAAAAAAAAAAAAADAAAAAQAAwAEAAMADAADAAwAAwAMAAMADAADgAwAA/gMAAA==
</value>
</data>
<metadata name="Timer.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1247, 17</value>
<metadata name="TimerRefresh.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1219, 17</value>
</metadata>
<metadata name="VWPM_PROFILE_USERBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1329, 17</value>

View File

@@ -5,17 +5,26 @@ Imports System.Globalization
Imports DevExpress.Utils
Imports DevExpress.XtraGrid.Views.Grid.ViewInfo
Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraGrid
Imports System.Collections.ObjectModel
Imports DevExpress.XtraNavBar
Imports DevExpress.XtraGrid.Columns
Imports DevExpress.Images
Public Class frmMain
Private _windreamPM As ClassPMWindream
Private UserLoggedin As Integer = 0
Private PROFILE_COUNT As Integer = 0
Private DTPROFIL As DataTable
Private DT_VWPM_PROFILE_ACTIVE As DataTable
Private CURR_DT_VWPM_PROFILE_ACTIVE As DataTable
Private CURR_DT_PROFILEGRID As DataTable
Private RedDocuments As Integer = 0
Private YellowDocuments As Integer = 0
Private GreenDocuments As Integer = 0
Private GridViewItem_Clicked = Nothing
Private GridCursorLocation As Point
Private GRID_LOAD_TYPE As String = "OVERVIEW"
Private Sub frmProfiles_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Try
@@ -97,7 +106,7 @@ Public Class frmMain
Try
tsstlblUser.Text = Environment.UserName
LoadProfile_PM()
Decide_Load()
Catch ex As System.Exception
MsgBox("Fehler bei Laden des Formulars: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
End Try
@@ -105,7 +114,10 @@ Public Class frmMain
MsgBox("Definieren Sie wo UniversalViewer abgelegt wurde!", MsgBoxStyle.Critical, "Fehlende Konfiguration")
frmKonfig.ShowDialog()
End If
Timer.Start()
If TimerRefresh.Enabled = False Then
TimerRefresh.Start()
End If
Load_Profile_items()
Check_Timer_Notification()
Restore_Form_Position()
@@ -155,79 +167,249 @@ Public Class frmMain
End Try
End Function
Private Function GetXML_LayoutName()
Dim Filename As String = String.Format("GridViewProfiles_UserLayout.xml")
Dim Filename As String = String.Format("GridViewProfiles_UserLayout_{0}.xml", GRID_LOAD_TYPE)
Return System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
End Function
Sub Load_Profile_items()
Cursor = Cursors.WaitCursor
Try
Dim CurrGroup As NavBarGroup = NavBarControl1.Groups(0)
Try
CurrGroup.ItemLinks.Clear()
Catch ex As Exception
ClassLogger.Add("CurrGroupClear - Error: " & ex.Message)
End Try
Load_Profiles_for_User()
For Each profile As DataRow In CURR_DT_VWPM_PROFILE_ACTIVE.Rows
Dim item1 As NavBarItem = NavBarControl1.Items.Add()
item1.Caption = profile.Item("TITLE")
item1.Tag = "itmProfile#" & profile.Item("GUID").ToString
Dim _image As Image = Nothing
_image = DevExpress.Images.ImageResourceCache.Default.GetImage("images/actions/add_16x16.png")
item1.LargeImage = _image
NavBarControl1.Groups(0).ItemLinks.Add(item1)
AddHandler NavBarControl1.LinkClicked, AddressOf navBar_LinkClicked
Next
If GRID_LOAD_TYPE = "OVERVIEW" Then
CurrGroup.Expanded = False
End If
Catch ex As Exception
ClassLogger.Add("Load_Profile_items - Error: " & ex.Message)
MsgBox("Unexpected Error in Load_Profile_items - Error: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
Cursor = Cursors.Default
End Sub
Private Sub navBar_LinkClicked(ByVal sender As Object, ByVal e As NavBarLinkEventArgs)
Dim _tag = e.Link.Item.Tag
If Not IsNothing(_tag) Then
If _tag.ToString.Contains("itmProfile#") Then
_tag = _tag.ToString.Replace("itmProfile#", "")
If IsNumeric(_tag) Then
If CURRENT_CLICKED_PROFILE_ID <> _tag Then
CURRENT_CLICKED_PROFILE_ID = _tag
CURRENT_CLICKED_PROFILE_TITLE = e.Link.Item.Caption
GRID_LOAD_TYPE = "PROFILE#" & CURRENT_CLICKED_PROFILE_ID.ToString
Load_single_Profile()
End If
End If
End If
End If
End Sub
Sub Item_LinkClicked(sender As Object, e As NavBarLinkEventArgs)
Try
Catch ex As Exception
ClassLogger.Add("Item_LinkClicked - Error: " & ex.Message)
MsgBox("Unexpected Error in Item_LinkClicked - Error: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Sub Load_Profiles_for_User()
Try
Dim sql = String.Format("SELECT T.* FROM VWPM_PROFILE_ACTIVE T, TBPM_PROFILE_USER T1, TBPM_USER T2 WHERE T.GUID = T1.PROFIL_ID AND T1.USER_ID = T2.GUID AND UPPER(T2.USERNAME) = UPPER('{0}')", Environment.UserName)
CURR_DT_VWPM_PROFILE_ACTIVE = ClassDatabase.Return_Datatable(sql)
Catch ex As Exception
ClassLogger.Add("Load_Profiles_for_User - Error: " & ex.Message)
End Try
End Sub
Sub Load_single_Profile()
Try
Load_Profiles_for_User()
Dim expression As String
expression = "GUID = " & CURRENT_CLICKED_PROFILE_ID
Dim TEMP_TABLE = CURR_DT_VWPM_PROFILE_ACTIVE
Dim foundRows() As DataRow
foundRows = TEMP_TABLE.Select(expression)
Dim result = 0
For i = 0 To foundRows.GetUpperBound(0)
result += 1
Next
If result = 1 Then
lblViewType.Text = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE
Dim sql = foundRows(0)("SQL_VIEW")
sql = sql.Replace("@USER", Environment.UserName)
sql = sql.Replace("@MACHINE_NAME", Environment.MachineName)
sql = sql.Replace("@DATE", Now.ToShortDateString)
CURR_DT_PROFILEGRID = ClassDatabase.Return_Datatable(sql, True)
Create_Basic_View()
GridViewProfile.RestoreLayoutFromXml(GetXML_LayoutName())
GridView_CheckInvalidColumns()
GridViewProfile.SaveLayoutToXml(GetXML_LayoutName())
End If
Catch ex As Exception
ClassLogger.Add("Load_single_Profile - Error: " & ex.Message)
End Try
End Sub
Sub Create_Basic_View()
GridControlProfile.DataSource = Nothing
Try
GridViewProfile.Columns.Clear()
Catch ex As Exception
End Try
' Spalte für Status Icon erstellen
Dim columnStateIcon As New DataColumn()
columnStateIcon.DataType = GetType(Image)
columnStateIcon.ColumnName = "ICON"
columnStateIcon.Caption = ""
CURR_DT_PROFILEGRID.Columns.Add(columnStateIcon)
RedDocuments = 0
YellowDocuments = 0
GreenDocuments = 0
For Each row As DataRow In CURR_DT_PROFILEGRID.Rows
Dim State As Integer = row.Item("TL_STATE")
Select Case State
Case 1
RedDocuments += 1
row.Item("ICON") = My.Resources.ampel_rot
Case 2
YellowDocuments += 1
row.Item("ICON") = My.Resources.ampel_gelb
Case 3
GreenDocuments += 1
row.Item("ICON") = My.Resources.ampel_gruen
End Select
Next
GridControlProfile.DataSource = CURR_DT_PROFILEGRID
'GridControlProfile.ForceInitialize()
Try
Dim XMLPath = GetXML_LayoutName()
GridViewProfile.RestoreLayoutFromXml(XMLPath)
Catch ex As Exception
End Try
GridViewProfile.Columns.Item("PROFILE_ID").Visible = False
GridViewProfile.Columns.Item("GUID").Visible = False
GridViewProfile.Columns.Item("FULL_FILE_PATH").Visible = False
GridViewProfile.Columns.Item("DOC_ID").Visible = False
GridViewProfile.Columns.Item("TL_STATE").Visible = False
GridViewProfile.Columns.Item("ICON").MaxWidth = 24
GridViewProfile.Columns.Item("ICON").MinWidth = 24
GridViewProfile.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
GridViewProfile.Columns.Item("ICON").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left
GridViewProfile.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime
GridViewProfile.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
End Sub
Private Sub GridView_CheckInvalidColumns()
Try
For Each grid_column As GridColumn In GridViewProfile.Columns
Dim GridDXCaption = grid_column.Caption
Dim GridDXTextCaption = grid_column.GetTextCaption
Dim GridDXColumnEditName = grid_column.ColumnEditName
Dim GridDXFieldName = grid_column.FieldName
Dim exists As Boolean = False
For Each col As DataColumn In CURR_DT_PROFILEGRID.Columns
If col.Caption = GridDXTextCaption Then
exists = True
Exit For
End If
Next
If exists = False Then
If grid_column.Visible = True Then
Try
grid_column.Dispose()
Catch ex As Exception
End Try
End If
End If
Next
Catch ex As Exception
ClassLogger.Add("Unexpected Error in GridView_CheckInvalidColumns: " & ex.Message)
End Try
End Sub
Sub LoadProfile_PM()
If TimerRefresh.Enabled = True Then
TimerRefresh.Stop()
End If
Try
If Me.Visible = True And frmProfileDesigner.Visible = False Then
DTPROFIL = ClassDatabase.Return_Datatable("SELECT * FROM TBPM_PROFILE WHERE GUID = " & CURRENT_ProfilGUID)
DT_VWPM_PROFILE_ACTIVE = ClassDatabase.Return_Datatable("SELECT * FROM VWPM_PROFILE_ACTIVE")
Load_Profiles_for_User()
PROFILE_COUNT = 0
ClassInit.InitBasics()
Dim sql = CURRENT_DT_CONFIG.Rows(0).Item("SQL_PROFILE_MAIN_VIEW")
sql = sql.replace("@USER", Environment.UserName)
sql = sql.replace("@MACHINE_NAME", Environment.MachineName)
sql = sql.replace("@DATE", Now.ToShortDateString)
sql = sql.Replace("@USER", Environment.UserName)
sql = sql.Replace("@MACHINE_NAME", Environment.MachineName)
sql = sql.Replace("@DATE", Now.ToShortDateString)
'String.Format("SELECT '1' TL_STATE,T.PROFIL_ID,T1.TITLE, T.DOC_ID, T.FILE_PATH, T.DMS_ERSTELLT_DATE,[dbo].[FNPM_LAST_WORKUSER_DOC] (T.PROFIL_ID,T.DOC_ID) AS 'Last User',[dbo].[FNPM_LAST_EDITED_DOC] (T.PROFIL_ID,T.DOC_ID) as 'Last edited' FROM TBPM_PROFILE_FILES T, VWPM_PROFILE_USER T1 " &
' "WHERE T.PROFIL_ID = T1.PROFIL_ID " &
' "AND T1.ACTIVE = 1 And (UPPER(T1.USERNAME) = UPPER('{0}')) Order By T1.PRIORITY", Environment.UserName)
Dim DTGRID As DataTable = ClassDatabase.Return_Datatable(sql, True)
CURR_DT_PROFILEGRID = ClassDatabase.Return_Datatable(sql, True)
If Not IsNothing(DTGRID) Then
' Spalte für Status Icon erstellen
Dim columnStateIcon As New DataColumn()
columnStateIcon.DataType = GetType(Image)
columnStateIcon.ColumnName = "ICON"
columnStateIcon.Caption = ""
DTGRID.Columns.Add(columnStateIcon)
If Not IsNothing(CURR_DT_PROFILEGRID) Then
RedDocuments = 0
YellowDocuments = 0
GreenDocuments = 0
For Each row As DataRow In DTGRID.Rows
Dim State As Integer = row.Item("TL_STATE")
Select Case State
Case 1
RedDocuments += 1
row.Item("ICON") = My.Resources.ampel_rot
Case 2
YellowDocuments += 1
row.Item("ICON") = My.Resources.ampel_gelb
Case 3
GreenDocuments += 1
row.Item("ICON") = My.Resources.ampel_gruen
End Select
Next
GridControlProfile.DataSource = DTGRID
'GridControlProfile.ForceInitialize()
Try
Dim XMLPath = GetXML_LayoutName()
GridViewProfile.RestoreLayoutFromXml(XMLPath)
Catch ex As Exception
End Try
Create_Basic_View()
Try
GridViewProfile.Columns.Item("PROFILE_GROUP_TEXT").GroupIndex = 0
GridViewProfile.Columns.Item("PROFILE_GROUP_TEXT").Visible = False
GridViewProfile.Columns.Item("PROFILE_ID").Visible = False
GridViewProfile.Columns.Item("FULL_FILE_PATH").Visible = False
GridViewProfile.Columns.Item("DOC_ID").Visible = False
GridViewProfile.Columns.Item("ICON").MaxWidth = 24
GridViewProfile.Columns.Item("ICON").MinWidth = 24
GridViewProfile.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
GridViewProfile.Columns.Item("PROFILE_GROUP_COLOR").Visible = False
For I = 0 To GridViewProfile.GroupCount - 1
Dim v = GridViewProfile.GroupedColumns(I).ToString
Dim ii = Nothing
GridViewProfile.GroupedColumns(I).Tag = GridViewProfile.Columns.Item("PROFILE_ID")
Next
GridViewProfile.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime
GridViewProfile.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
GridViewProfile.OptionsBehavior.AutoExpandAllGroups = True
GridViewProfile.OptionsView.ShowGroupedColumns = False
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Formatting Grid: " & ex.Message)
End Try
GridView_CheckInvalidColumns()
GridViewProfile.SaveLayoutToXml(GetXML_LayoutName())
@@ -242,38 +424,18 @@ Public Class frmMain
Me.VWPM_PROFILE_USERTableAdapter.FillByActive(Me.DD_DMSLiteDataSet.VWPM_PROFILE_USER, Environment.UserName)
Dim DT As DataTable = DD_DMSLiteDataSet.Tables("VWPM_PROFILE_USER")
If LogErrorsOnly = False Then ClassLogger.Add("", False)
If DT.Rows.Count > 0 Then
For Each row As DataRow In DT.Rows
' If LogErrorsOnly = False Then ClassLogger.Add("## Profil zugeordnet: " & row.Item("PROFIL_NAME"), False)
Dim anz As Integer = TBPM_PROFILE_FILESTableAdapter.cmdGet_Anzahl(row.Item("PROFIL_ID"))
If anz > 0 Then
Dim img As Integer
If CBool(row.Item("Active")) = True Then
img = 0
Else
img = 1
End If
PROFILE_COUNT += 1
Else
ClassLogger.Add(">> Keine Dateien für Profil '" & row.Item("TITLE").ToString & "' vorhanden!!", False)
End If
Next
Else
ClassLogger.Add(" >> KEINE PROFILE FÜR USER: '" & Environment.UserName & "' hinterlegt?!", False)
MsgBox("KEINE PROFILE FÜR USER: '" & Environment.UserName & "' hinterlegt", MsgBoxStyle.Exclamation, "Achtung:")
End If
End If
Catch ex As Exception
ClassLogger.Add("LoadProfile_PM - Fehler: " & ex.Message)
MsgBox("Fehler LoadProfile_PM - Fehler: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
End Try
If TimerRefresh.Enabled = False Then
TimerRefresh.Start()
End If
End Sub
Private Function file_exists(ByVal _file As String)
Try
@@ -291,9 +453,6 @@ Public Class frmMain
End Sub
Private Sub tsbtnStartValidation_Click(sender As System.Object, e As System.EventArgs) Handles tsbtnStartValidation.Click
End Sub
Private Sub ToolStripButton1_Click(sender As System.Object, e As System.EventArgs) Handles ToolStripButton1.Click
Try
@@ -312,15 +471,28 @@ Public Class frmMain
Me.Visible = True
End Sub
Private Sub Timer_Tick(sender As System.Object, e As System.EventArgs) Handles Timer.Tick
LoadProfile_PM()
Private Sub Timer_Tick(sender As System.Object, e As System.EventArgs) Handles TimerRefresh.Tick
Load_Profile_items()
Decide_Load()
tsslblLastSysnc.Text = "Letzte Synchronisation: " & Now.ToLongTimeString
End Sub
Private Sub NotifyIcon1_Click(sender As System.Object, e As System.EventArgs) Handles NotifyIcon1.Click
Me.BringToFront()
Me.Visible = True
End Sub
Private Sub Decide_Load()
Try
If GRID_LOAD_TYPE = "OVERVIEW" Then
Load_Grid_Overview()
ElseIf GRID_LOAD_TYPE.StartsWith("PROFILE#") Then
Load_single_Profile()
End If
Catch ex As Exception
End Try
End Sub
Private Sub ToolStripButton2_Click(sender As System.Object, e As System.EventArgs) Handles tstrpbtn_Config.Click
Dim AdminSecurity As Boolean = False
AdminSecurity = TBPM_KONFIGURATIONTableAdapter.cmdGetAdminSecurity()
@@ -329,11 +501,14 @@ Public Class frmMain
Else
frmProfileDesigner.ShowDialog()
End If
LoadProfile_PM()
Decide_Load()
End Sub
Private Sub ToolStripButton2_Click_1(sender As Object, e As EventArgs) Handles tsbtnrefresh.Click
LoadProfile_PM()
Load_Profile_items()
Decide_Load()
End Sub
Private Sub ToolStripButton2_Click_2(sender As Object, e As EventArgs)
@@ -353,24 +528,14 @@ Public Class frmMain
End Sub
Private Sub TimerReminder_Tick(sender As Object, e As EventArgs) Handles TimerReminder.Tick
If PROFILE_COUNT > 0 Then NotifyIcon1.ShowBalloonTip(30000, "Validation-Reminder", "Sie haben unerledigte Dokumente in Ihrem Verantwortungsbereich.", ToolTipIcon.Info)
If PROFILE_COUNT > 0 Then NotifyIcon1.ShowBalloonTip(30000, "ProcessManager-Reminder", "Sie haben unerledigte Dokumente in Ihrem Verantwortungsbereich.", ToolTipIcon.Info)
End Sub
Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown
End Sub
Private Sub GridViewProfile_DoubleClick(sender As Object, e As EventArgs) Handles GridViewProfile.DoubleClick
Try
Dim PROFIL_ID = GridViewProfile.GetFocusedRowCellValue(GridViewProfile.Columns("PROFIL_ID"))
If IsNumeric(PROFIL_ID) Then
Load_Profil_from_Grid(PROFIL_ID)
End If
Catch ex As Exception
End Try
Item_Scope()
End Sub
Sub Load_Profil_from_Grid(ID As Integer)
Try
@@ -378,26 +543,31 @@ Public Class frmMain
CURRENT_ProfilGUID = ID
CURRENT_ProfilName = ClassDatabase.Execute_Scalar("SELECT NAME FROM TBPM_PROFILE WHERE GUID = " & CURRENT_ProfilGUID, MyConnectionString)
My.Settings.Save()
If TimerRefresh.Enabled Then
TimerRefresh.Stop()
End If
frmValidator.ShowDialog()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
Me.Visible = True
LoadProfile_PM()
Decide_Load()
End Sub
Private Sub GridViewProfile_CustomDrawGroupRow(sender As Object, e As DevExpress.XtraGrid.Views.Base.RowObjectCustomDrawEventArgs) Handles GridViewProfile.CustomDrawGroupRow
Dim info As GridGroupRowInfo = TryCast(e.Info, GridGroupRowInfo)
Dim view As GridView = sender
Dim item As GridGroupSummaryItem = CType(view.GroupSummary(Tag), GridGroupSummaryItem)
' Dim value As Object = view.GetGroupSummaryValue(e.RowHandle, item)
If info.Column.FieldName = "PROFILE_GROUP_TEXT" Then
info.GroupText = info.GroupValueText
Dim _color As String
For Each row As DataRow In DT_VWPM_PROFILE_ACTIVE.Rows
For Each row As DataRow In CURR_DT_VWPM_PROFILE_ACTIVE.Rows
If row.Item("PROFILE_GROUP_TEXT") = info.GroupValueText Then
_color = row.Item("PROFILE_GROUP_COLOR")
End If
@@ -409,7 +579,7 @@ Public Class frmMain
Case "Green"
info.Appearance.BackColor = Color.LightGreen
Case "Yellow"
info.Appearance.BackColor = Color.LightGoldenrodYellow
info.Appearance.BackColor = Color.LightYellow
Case Else
info.Appearance.BackColor = Color.LightGray
End Select
@@ -450,19 +620,278 @@ Public Class frmMain
End Sub
Private Sub GridViewProfile_MouseDown(sender As Object, e As MouseEventArgs) Handles GridViewProfile.MouseDown
' Wir brauchen nur einen Doppelklick
If e.Button <> MouseButtons.Left Or e.Clicks < 2 Then
Exit Sub
End If
Dim view As GridView = sender
Dim hi As GridHitInfo = view.CalcHitInfo(e.Location)
GridCursorLocation = e.Location
' wenn in eine Group Row Doppelt geklickt wurde..
If hi.InGroupRow Then
' Ein/Ausklappen verhindern
DXMouseEventArgs.GetMouseArgs(e).Handled = True
GridViewItem_Clicked = "GROUP"
'Dim info = hi.Column.FieldName
'Dim info1 = hi.ToString
Dim msg = ""
ElseIf hi.InDataRow Then
GridViewItem_Clicked = "ROW"
Else
GridViewItem_Clicked = Nothing
End If
End Sub
Private Sub ContextMenuGrid_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuGrid.Opening
CMFileStart.Enabled = False
CMGroupStart.Enabled = False
Select Case GridViewItem_Clicked
Case "GROUP"
CMGroupStart.Enabled = True
Case "ROW"
CMFileStart.Enabled = True
End Select
End Sub
Private Sub CMFileStart_Click(sender As Object, e As EventArgs) Handles CMFileStart.Click
Item_Scope()
End Sub
Private Sub Item_Scope()
Try
CURRENT_JUMP_DOC_GUID = 0
Dim hitInfo As GridHitInfo = GridViewProfile.CalcHitInfo(GridCursorLocation)
Dim groupRowText
Dim PROFIL_ID
If hitInfo.InGroupRow Then
GridViewItem_Clicked = "GROUP"
groupRowText = GridViewProfile.GetGroupRowDisplayText(hitInfo.RowHandle)
PROFIL_ID = GridViewProfile.GetRowCellValue(GridViewProfile.GetDataRowHandleByGroupRowHandle(hitInfo.RowHandle), GridViewProfile.Columns("PROFILE_ID"))
ElseIf hitInfo.InDataRow Then
GridViewItem_Clicked = "ROW"
If GRID_LOAD_TYPE = "OVERVIEW" Then
groupRowText = GridViewProfile.GetGroupRowDisplayText(GridViewProfile.GetParentRowHandle(hitInfo.RowHandle))
PROFIL_ID = GridViewProfile.GetRowCellValue(GridViewProfile.GetDataRowHandleByGroupRowHandle(GridViewProfile.GetParentRowHandle(hitInfo.RowHandle)), GridViewProfile.Columns("PROFILE_ID"))
Else
PROFIL_ID = CURRENT_CLICKED_PROFILE_ID
End If
Else
Exit Sub
End If
Dim PROFIL_TITLE
If GRID_LOAD_TYPE = "OVERVIEW" Then
groupRowText = LTrim(RTrim(groupRowText.ToString.Replace("PROFILE_GROUP_TEXT: ", "")))
Dim _SPLIT As String()
_SPLIT = groupRowText.Split("|")
PROFIL_TITLE = LTrim(RTrim(_SPLIT(0).ToString))
Else
End If
If Not IsNothing(PROFIL_ID) And IsNumeric(PROFIL_ID) Then
Dim expression As String
expression = "PROFILE_ID = " & PROFIL_ID
If hitInfo.InGroupRow Then
CURRENT_JUMP_DOC_GUID = 0
CURRENT_DOC_GUID = 0
CURRENT_ProfilGUID = PROFIL_ID
Load_Profil_from_Grid(PROFIL_ID)
ElseIf hitInfo.InDataRow Then
Dim DOC_GUID = GridViewProfile.GetFocusedRowCellValue(GridViewProfile.Columns("GUID"))
Dim DOC_ID = GridViewProfile.GetFocusedRowCellValue(GridViewProfile.Columns("DOC_ID"))
If IsNothing(DOC_ID) Then Exit Sub
Dim DOC_PATH = GridViewProfile.GetFocusedRowCellValue(GridViewProfile.Columns("FULL_FILE_PATH"))
'Checking if table really contains one record with profile-id and docid
expression = expression & " AND DOC_ID = " & DOC_ID
Dim TEMP_TABLE = CURR_DT_PROFILEGRID
Dim foundRows() As DataRow
foundRows = TEMP_TABLE.Select(expression)
Dim result = 0
For i = 0 To foundRows.GetUpperBound(0)
result += 1
Next
If result = 1 Then
CURRENT_DOC_ID = DOC_ID
CURRENT_JUMP_DOC_GUID = DOC_GUID
CURRENT_DOC_GUID = CURRENT_JUMP_DOC_GUID
CURRENT_DOC_PATH = DOC_PATH
Load_Profil_from_Grid(PROFIL_ID)
Else
Exit Sub
End If
End If
End If
Catch ex As Exception
MsgBox("Unexpected error in Item_Scope: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub CMGroupStart_Click(sender As Object, e As EventArgs) Handles CMGroupStart.Click
Item_Scope()
End Sub
Private Sub NavBarItemOverview_LinkClicked(sender As Object, e As NavBarLinkEventArgs) Handles NavBarItemOverview.LinkClicked
Load_Grid_Overview()
End Sub
Sub Load_Grid_Overview()
GRID_LOAD_TYPE = "OVERVIEW"
CURRENT_CLICKED_PROFILE_ID = 0
lblViewType.Text = "Gesamtübersicht"
Cursor = Cursors.WaitCursor
Try
Me.VWPM_PROFILE_USERTableAdapter.FillByActive(Me.DD_DMSLiteDataSet.VWPM_PROFILE_USER, Environment.UserName)
Dim DT As DataTable = DD_DMSLiteDataSet.Tables("VWPM_PROFILE_USER")
If DT.Rows.Count = 0 Then
ClassLogger.Add(" >> KEINE PROFILE FÜR USER: '" & Environment.UserName & "' hinterlegt?!", False)
MsgBox("Keine Profile für Ihren User: '" & Environment.UserName & "' hinterlegt", MsgBoxStyle.Exclamation, "Achtung:")
Cursor = Cursors.Default
Exit Sub
End If
Load_Profiles_for_User()
PROFILE_COUNT = 0
ClassInit.InitBasics()
Dim sql = CURRENT_DT_CONFIG.Rows(0).Item("SQL_PROFILE_MAIN_VIEW")
sql = sql.Replace("@USER", Environment.UserName)
sql = sql.Replace("@MACHINE_NAME", Environment.MachineName)
sql = sql.Replace("@DATE", Now.ToShortDateString)
'String.Format("SELECT '1' TL_STATE,T.PROFIL_ID,T1.TITLE, T.DOC_ID, T.FILE_PATH, T.DMS_ERSTELLT_DATE,[dbo].[FNPM_LAST_WORKUSER_DOC] (T.PROFIL_ID,T.DOC_ID) AS 'Last User',[dbo].[FNPM_LAST_EDITED_DOC] (T.PROFIL_ID,T.DOC_ID) as 'Last edited' FROM TBPM_PROFILE_FILES T, VWPM_PROFILE_USER T1 " &
' "WHERE T.PROFIL_ID = T1.PROFIL_ID " &
' "AND T1.ACTIVE = 1 And (UPPER(T1.USERNAME) = UPPER('{0}')) Order By T1.PRIORITY", Environment.UserName)
CURR_DT_PROFILEGRID = ClassDatabase.Return_Datatable(sql, True)
If Not IsNothing(CURR_DT_PROFILEGRID) Then
If CURR_DT_PROFILEGRID.Rows.Count = 0 Then
MsgBox("Aktuell keine Workflowdaten vorhanden!", MsgBoxStyle.Information)
GridControlProfile.DataSource = Nothing
Try
GridViewProfile.Columns.Clear()
Catch ex As Exception
End Try
Exit Sub
End If
' Spalte für Status Icon erstellen
Dim columnStateIcon As New DataColumn()
columnStateIcon.DataType = GetType(Image)
columnStateIcon.ColumnName = "ICON"
columnStateIcon.Caption = ""
CURR_DT_PROFILEGRID.Columns.Add(columnStateIcon)
RedDocuments = 0
YellowDocuments = 0
GreenDocuments = 0
For Each row As DataRow In CURR_DT_PROFILEGRID.Rows
Dim State As Integer = row.Item("TL_STATE")
Select Case State
Case 1
RedDocuments += 1
row.Item("ICON") = My.Resources.ampel_rot
Case 2
YellowDocuments += 1
row.Item("ICON") = My.Resources.ampel_gelb
Case 3
GreenDocuments += 1
row.Item("ICON") = My.Resources.ampel_gruen
End Select
Next
GridControlProfile.DataSource = CURR_DT_PROFILEGRID
'GridControlProfile.ForceInitialize()
Try
Dim XMLPath = GetXML_LayoutName()
GridViewProfile.RestoreLayoutFromXml(XMLPath)
Catch ex As Exception
End Try
Try
GridViewProfile.Columns.Item("PROFILE_GROUP_TEXT").GroupIndex = 0
GridViewProfile.Columns.Item("PROFILE_GROUP_TEXT").Visible = False
GridViewProfile.Columns.Item("PROFILE_GROUP_COLOR").Visible = False
For I = 0 To GridViewProfile.GroupCount - 1
Dim v = GridViewProfile.GroupedColumns(I).ToString
Dim ii = Nothing
GridViewProfile.GroupedColumns(I).Tag = GridViewProfile.Columns.Item("PROFILE_ID")
Next
GridViewProfile.Columns.Item("PROFILE_ID").Visible = False
GridViewProfile.Columns.Item("GUID").Visible = False
GridViewProfile.Columns.Item("FULL_FILE_PATH").Visible = False
GridViewProfile.Columns.Item("DOC_ID").Visible = False
GridViewProfile.Columns.Item("TL_STATE").Visible = False
GridViewProfile.Columns.Item("ICON").MaxWidth = 24
GridViewProfile.Columns.Item("ICON").MinWidth = 24
GridViewProfile.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
GridViewProfile.Columns.Item("ICON").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left
GridViewProfile.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime
GridViewProfile.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
GridViewProfile.OptionsBehavior.AutoExpandAllGroups = True
GridViewProfile.OptionsView.ShowGroupedColumns = False
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Formatting Grid: " & ex.Message)
End Try
Try
For Each grid_column As GridColumn In GridViewProfile.Columns
Dim GridDXCaption = grid_column.Caption
Dim GridDXTextCaption = grid_column.GetTextCaption
Dim GridDXColumnEditName = grid_column.ColumnEditName
Dim GridDXFieldName = grid_column.FieldName
Dim exists As Boolean = False
For Each col As DataColumn In CURR_DT_PROFILEGRID.Columns
If col.Caption = GridDXTextCaption Then
exists = True
Exit For
End If
Next
If exists = False Then
If grid_column.Visible = True Then
Try
grid_column.Dispose()
Catch ex As Exception
End Try
End If
End If
Next
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Checking ColumnsGrid: " & ex.Message)
End Try
GridViewProfile.SaveLayoutToXml(GetXML_LayoutName())
Else
GridControlProfile.DataSource = Nothing
Try
GridViewProfile.Columns.Clear()
Catch ex As Exception
End Try
End If
Catch ex As Exception
ClassLogger.Add("Load_Grid_Overview - Fehler: " & ex.Message)
MsgBox("Fehler Load_Grid_Overview - Fehler: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
End Try
Cursor = Cursors.Default
End Sub
End Class

View File

@@ -50,7 +50,6 @@ Public Class frmValidator
Dim viewer_string As String
Dim pdfxchange As Boolean = False
Dim sumatra As Boolean = False
<DllImport("user32.dll", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)>
Public Shared Function SetForegroundWindow(ByVal hwnd As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function
@@ -113,11 +112,11 @@ Public Class frmValidator
MsgBox("Fehler bei Übersprungene Files löschen:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
If CURRENT_DOC_ID <> 0 Then
If CURRENT_DOC_GUID <> 0 Then
Try
TBPM_PROFILE_FILESTableAdapter.CmdSETWORK(False, "", CURRENT_DOC_ID)
TBPM_PROFILE_FILESTableAdapter.CmdSETWORK(False, "", CURRENT_DOC_GUID)
Catch ex As Exception
allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Fehler bei Freigabe der Dok-ID: " & CURRENT_DOC_ID & " - ERROR: " & ex.Message, Environment.UserName)
allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Fehler bei Freigabe der Dok-ID: " & CURRENT_DOC_GUID & " - ERROR: " & ex.Message, Environment.UserName)
End Try
End If
@@ -309,8 +308,8 @@ Public Class frmValidator
VWPM_CONTROL_INDEXTableAdapter.Connection.ConnectionString = MyConnectionString
VWPM_PROFILE_USERTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPM_CONTROL_TABLETableAdapter.Connection.ConnectionString = MyConnectionString
Me.VWPM_PROFILE_USERTableAdapter.FillByName(Me.DD_DMSLiteDataSet.VWPM_PROFILE_USER, CURRENT_ProfilName, Environment.UserName)
Me.VWPM_CONTROL_INDEXTableAdapter.Fill(Me.DD_DMSLiteDataSet.VWPM_CONTROL_INDEX, CURRENT_ProfilName)
Me.TBPM_CONNECTIONTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_CONNECTION)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Profile Data geladen", False)
@@ -350,7 +349,12 @@ Public Class frmValidator
finalProfile = dr.Item("FINAL_PROFILE")
Move2Folder = dr.Item("MOVE2Folder")
Right_Delete = dr.Item("RIGHT_FILE_DELETE")
Anzahl_ValDoks = TBPM_PROFILE_FILESTableAdapter.cmdGet_Anzahl(CURRENT_ProfilGUID)
If CURRENT_JUMP_DOC_GUID <> 0 Then
Anzahl_ValDoks = 1
Else
Anzahl_ValDoks = TBPM_PROFILE_FILESTableAdapter.cmdGet_Anzahl(CURRENT_ProfilGUID)
End If
Next
If LogErrorsOnly = False Then
ClassLogger.Add(" >> Profildaten gespeichert", False)
@@ -360,7 +364,7 @@ Public Class frmValidator
ClassLogger.Add(" >> Right_Delete: " & Right_Delete, False)
End If
PROFIL_sortbynewest = TBPM_PROFILETableAdapter.cmdSortMode(CURRENT_ProfilGUID)
PROFIL_sortbynewest = DTPROFIL.Rows(0).Item("SORT_BY_LATEST")
If LogErrorsOnly = False Then ClassLogger.Add(" >> PROFIL_sortbynewest: " & PROFIL_sortbynewest.ToString, False)
'Delete Button anzeigen ja/nein
If Right_Delete = True Then
@@ -382,7 +386,8 @@ Public Class frmValidator
'Me.lblerror.Visible = False
Try
If finalProfile = True Then
Dim text As String = TBPM_PROFILETableAdapter.cmdFinalText(CURRENT_ProfilGUID)
Dim text As String = DTPROFIL.Rows(0).Item("FINAL_TEXT")
If text <> "" Then
btnSave.Text = text & " (F1)"
Else
@@ -969,7 +974,7 @@ Public Class frmValidator
If allgFunk.checkValue_Exists(dr.Item("SQL_UEBERPRUEFUNG"), "@Eingabe", control.Text, dr.Item("TYP"), cs, CURRENT_ProfilGUID) = True Then
Return True
Else
My.Settings.errormessage = "Der eingegebene Wert '" & control.Text & "' existiert nicht in der Datenbank!"
errormessage = "Der eingegebene Wert '" & control.Text & "' existiert nicht in der Datenbank!"
My.Settings.Save()
Return False
End If
@@ -1119,13 +1124,18 @@ Public Class frmValidator
Else
TBPM_PROFILE_FILESTableAdapter.Fill(DD_DMSLiteDataSet.TBPM_PROFILE_FILES, CURRENT_ProfilGUID)
End If
If CURRENT_DOC_GUID = 0 Then
Dim DT As DataTable = DD_DMSLiteDataSet.TBPM_PROFILE_FILES
CURRENT_DOC_GUID = DT.Rows(0).Item("GUID")
AnzDoks = DT.Rows.Count
Else
AnzDoks = 1
Document_Path = CURRENT_DOC_PATH
End If
Dim DT As DataTable = DD_DMSLiteDataSet.TBPM_PROFILE_FILES
tsslblDocID.Text = "Document-ID: " & CURRENT_DOC_ID & " - GUID: " & CURRENT_DOC_GUID
CURRENT_DOC_ID = DT.Rows(0).Item("GUID")
tsslblDocID.Text = "Document-ID: " & CURRENT_DOC_ID
AnzDoks = DT.Rows.Count
End Sub
Sub Close_document_viewer()
@@ -1183,16 +1193,21 @@ Public Class frmValidator
' Case "first"
' Case "last"
'End Select
CURRENT_DOC_ID = Get_Next_GUID()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Dokument-GUID: '" & CURRENT_DOC_ID.ToString & "'", False)
If CURRENT_DOC_ID > 0 Then
If CURRENT_JUMP_DOC_GUID = 0 Then
CURRENT_DOC_GUID = Get_Next_GUID()
Else
Document_Path = CURRENT_DOC_PATH
End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> Dokument-GUID: '" & CURRENT_DOC_GUID.ToString & "'", False)
If CURRENT_DOC_GUID > 0 Then
'Beschriftung des Navigators
'lblNavigator_anzDok.Text = position & " of " & Anzahl_ValDoks & " files"
If Document_Path <> String.Empty Then
' >> >> >> >> >> >>##### Das Dokument in Bearbeitung nehmen ###########################
TBPM_PROFILE_FILESTableAdapter.CmdSETWORK(True, Environment.UserName, CURRENT_DOC_ID)
TBPM_PROFILE_FILESTableAdapter.CmdSETWORK(True, Environment.UserName, CURRENT_DOC_GUID)
' ############ Infos eintragen #################
tsslblDocID.Text = "Document-ID: " & CURRENT_DOC_ID
tsslblDocID.Text = "Document-ID: " & CURRENT_DOC_ID & " - DocGUID: " & CURRENT_DOC_GUID
txtDateipfad.Text = Document_Path
tstrlbl_Info.Text = "Datei " & docCounter.ToString & " von " & Anzahl_ValDoks.ToString
ClassLogger.Add(">> Validierung für Dokument '" & Document_Path & "' gestartet", False)
@@ -1200,7 +1215,7 @@ Public Class frmValidator
Try
aktivesDokument = _windream.oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, Document_Path.Substring(2))
Catch ex As Exception
allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Fehler bei Erzeugen windream-Objekt - DokID: " & CURRENT_DOC_ID & " - ERROR: " & ex.Message, Environment.UserName)
allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Fehler bei Erzeugen windream-Objekt - DocGUID: " & CURRENT_DOC_GUID & " - ERROR: " & ex.Message, Environment.UserName)
ClassLogger.Add("Fehler bei Erzeugen windream-Objekt in (LoadNextDokument): " & ex.Message)
ClassLogger.Add("Error Number: " & Err.Number.ToString)
Dim _err1 As Boolean = False
@@ -1231,7 +1246,8 @@ Public Class frmValidator
Me.grpbxMailBody.Visible = False
Me.grpBetreff.Visible = False
load_Viewer
load_viewer()
If Document_Path.ToLower.EndsWith(".pdf") Then
ToolStripButtonAnnotation.Visible = True
Else
@@ -1250,7 +1266,7 @@ Public Class frmValidator
' If Indexiere_VektorfeldPM(Profilstring, PROFIL_VEKTORINDEX) = False Then
' If LogErrorsOnly = False Then ClassLogger.Add(" >> Profilname erfolgreich in Vektorfeld PM geschrieben", False)
' 'Else
' ' My.Settings.errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message
' ' errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message
' ' My.Settings.Save()
' ' frmError.ShowDialog()
' ' _error = True
@@ -1262,7 +1278,7 @@ Public Class frmValidator
If Indexiere_VektorfeldPM(Profilstring, PROFIL_LOGINDEX) = False Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Profilname erfolgreich in Vektorfeld LOG geschrieben", False)
'Else
' My.Settings.errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message
' errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message
' My.Settings.Save()
' frmError.ShowDialog()
' _error = True
@@ -1270,16 +1286,16 @@ Public Class frmValidator
End If
activate_controls(True)
Else
My.Settings.errormessage = errmessage
errormessage = errmessage
frmError.ShowDialog()
End If
Else
My.Settings.errormessage = errmessage
errormessage = errmessage
frmError.ShowDialog()
End If
Else
If errmessage <> "" Then
My.Settings.errormessage = errmessage
errormessage = errmessage
frmError.ShowDialog()
Else
ClassLogger.Add(" >> Ende des Profils - Kein weiteres Dokument!", False)
@@ -1291,8 +1307,8 @@ Public Class frmValidator
End If
Catch ex As Exception
allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Unvorhergesehener Fehler bei Load_Next_Document - DokID: " & CURRENT_DOC_ID & " - ERROR: " & ex.Message, Environment.UserName)
My.Settings.errormessage = "Unvorhergesehener Fehler bei Load_Next_Document:" & ex.Message
allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Unvorhergesehener Fehler bei Load_Next_Document - DocGUID: " & CURRENT_DOC_GUID & " - ERROR: " & ex.Message, Environment.UserName)
errormessage = "Unvorhergesehener Fehler bei Load_Next_Document:" & ex.Message
My.Settings.Save()
ClassLogger.Add("Unvorhergesehener Fehler in Load_Next_Document: " & ex.Message)
frmError.ShowDialog()
@@ -1402,7 +1418,7 @@ Public Class frmValidator
Me.grpbxMailBody.Visible = True
Me.grpBetreff.Visible = True
Catch ex As Exception
My.Settings.errormessage = "Unvorhergesehener Fehler bei Show_Email:" & ex.Message
errormessage = "Unvorhergesehener Fehler bei Show_Email:" & ex.Message
ClassLogger.Add("Unvorhergesehener Fehler in Show_Email: " & ex.Message)
My.Settings.Save()
frmError.ShowDialog()
@@ -1596,7 +1612,7 @@ Public Class frmValidator
End If
End If
Catch ex As Exception
My.Settings.errormessage = "Unvorhergesehener Fehler bei FillIndexValues TextBox:" & vbNewLine & ex.Message & vbNewLine & "Check Logfile"
errormessage = "Unvorhergesehener Fehler bei FillIndexValues TextBox:" & vbNewLine & ex.Message & vbNewLine & "Check Logfile"
My.Settings.Save()
frmError.ShowDialog()
ClassLogger.Add(">> Unvorhergesehener Fehler bei FillIndexValuesTextBox: " & ex.Message, True)
@@ -1797,7 +1813,7 @@ Public Class frmValidator
Catch ex As Exception
My.Settings.errormessage = "Unvorhergesehener Fehler bei DTP: " & vbNewLine & ex.Message
errormessage = "Unvorhergesehener Fehler bei DTP: " & vbNewLine & ex.Message
ClassLogger.Add(">> Unvorhergesehener Fehler bei FillIndex DTP: " & ex.Message & vbNewLine & "Wert WD: " & wertWD.ToString & vbNewLine & "Indexname: " & idxname, True)
frmError.ShowDialog()
@@ -1822,7 +1838,7 @@ Public Class frmValidator
End If
Catch ex As Exception
My.Settings.errormessage = "Unvorhergesehener Fehler bei FillIndexValues:" & vbNewLine & ex.Message & vbNewLine & "Check Logfile"
errormessage = "Unvorhergesehener Fehler bei FillIndexValues:" & vbNewLine & ex.Message & vbNewLine & "Check Logfile"
My.Settings.Save()
frmError.ShowDialog()
ClassLogger.Add(">> Unvorhergesehener Fehler bei FillIndexValues: " & ex.Message, True)
@@ -1929,7 +1945,7 @@ Public Class frmValidator
If Indexiere_VektorfeldPM(PM_String, PROFIL_VEKTORINDEX) = False Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> FINALER INDEX '" & dr.Item("INDEXNAME").ToString.Replace("[%VKT", "") & "' WURDE ERFOLGREICH GESETZT", False)
Else
My.Settings.errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message
errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message
My.Settings.Save()
frmError.ShowDialog()
_error = True
@@ -1946,7 +1962,7 @@ Public Class frmValidator
End If
Else
My.Settings.errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message
errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message
My.Settings.Save()
frmError.ShowDialog()
_error = True
@@ -1961,7 +1977,7 @@ Public Class frmValidator
If _error = False Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Tabelle updaten und co", False)
'Das Dokument freigeben und als editiert markieren
Dim sql = String.Format("UPDATE TBPM_PROFILE_FILES SET IN_WORK = 0, WORK_USER = '{0}', EDIT = 1 WHERE GUID = {1}", Environment.UserName, CURRENT_DOC_ID)
Dim sql = String.Format("UPDATE TBPM_PROFILE_FILES SET IN_WORK = 0, WORK_USER = '{0}', EDIT = 1 WHERE GUID = {1}", Environment.UserName, CURRENT_DOC_GUID)
ClassDatabase.Execute_non_Query(sql)
'TBPM_PROFILE_FILESTableAdapter.CmdSETWORK(False, "", Document_ID)
''Das Dokument
@@ -2051,26 +2067,28 @@ Public Class frmValidator
Close_document_viewer()
'wenn Move2Folder aktiviert wurde
If Move2Folder <> "" Then
idxerr_message = allgFunk.Move2Folder(Document_Path, Move2Folder, CURRENT_ProfilGUID)
If idxerr_message <> "" Then
My.Settings.errormessage = "Fehler bei Move2Folder:" & vbNewLine & idxerr_message
My.Settings.Save()
frmError.ShowDialog()
_error = True
End If
'wenn Move2Folder aktiviert wurde
If Move2Folder <> "" Then
idxerr_message = allgFunk.Move2Folder(Document_Path, Move2Folder, CURRENT_ProfilGUID)
If idxerr_message <> "" Then
errormessage = "Fehler bei Move2Folder:" & vbNewLine & idxerr_message
My.Settings.Save()
frmError.ShowDialog()
_error = True
End If
'Validierungsfile löschen wenn vorhanden
allgFunk.Delete_xffres(Document_Path)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Delete_xffres ausgeführt", False)
If LogErrorsOnly = False Then ClassLogger.Add(" >> All Input clear", False)
Anzahl_validierte_Dok += 1
'tstrlbl_Info.Text = "Anzahl Dateien: " & TBPM_PROFILE_FILESTableAdapter.cmdGet_Anzahl(PROFIL_ID)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Anzahl hochgesetzt", False)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Validierung erfolgreich abgeschlossen", False)
ClassLogger.Add("", False)
End If
'Validierungsfile löschen wenn vorhanden
allgFunk.Delete_xffres(Document_Path)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Delete_xffres ausgeführt", False)
If LogErrorsOnly = False Then ClassLogger.Add(" >> All Input clear", False)
Anzahl_validierte_Dok += 1
'tstrlbl_Info.Text = "Anzahl Dateien: " & TBPM_PROFILE_FILESTableAdapter.cmdGet_Anzahl(PROFIL_ID)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Anzahl hochgesetzt", False)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Validierung erfolgreich abgeschlossen", False)
ClassLogger.Add("", False)
If CURRENT_JUMP_DOC_GUID <> 0 Then
Me.Close()
Else
'Das nächste Dokument laden
Load_Next_Document(False)
@@ -2078,8 +2096,10 @@ Public Class frmValidator
If first_control Is Nothing = False Then first_control.Focus()
End If
End If
Catch ex As Exception
My.Settings.errormessage = "Unvorhergesehener Fehler bei Abschluss:" & ex.Message
errormessage = "Unvorhergesehener Fehler bei Abschluss:" & ex.Message
My.Settings.Save()
frmError.ShowDialog()
ClassLogger.Add(">> Unvorhergesehener Fehler bei Abschluss: " & ex.Message, True)
@@ -2087,7 +2107,7 @@ Public Class frmValidator
Else
'lblerror.Visible = True
'lblerror.Text = errmessage
My.Settings.errormessage = errmessage
errormessage = errmessage
frmError.ShowDialog()
End If
btnSave.Enabled = True
@@ -2648,7 +2668,7 @@ Public Class frmValidator
Close_document_viewer()
If LogErrorsOnly = False Then ClassLogger.Add(" >> Doc Viewer geschlossen", False)
'Das Dokument freigeben
TBPM_PROFILE_FILESTableAdapter.CmdSETWORK(False, "", CURRENT_DOC_ID)
TBPM_PROFILE_FILESTableAdapter.CmdSETWORK(False, "", CURRENT_DOC_GUID)
TBPM_FILES_USER_NOT_INDEXEDTableAdapter.cmdInsert(Environment.UserName, CURRENT_ProfilGUID, Document_Path)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Dokument freigegeben", False)
ClassLogger.Add("", False)
@@ -2665,7 +2685,7 @@ Public Class frmValidator
If result = MsgBoxResult.Yes Then
Close_document_viewer()
'Aus der Tabelle löschen
TBPM_PROFILE_FILESTableAdapter.CmdDelete(CURRENT_DOC_ID)
TBPM_PROFILE_FILESTableAdapter.CmdDelete(CURRENT_DOC_GUID)
Dim resul = allgFunk.Delete_xffres(Document_Path)
If resul = Nothing Or resul = True Then
If Delete_File() = True Then

View File

@@ -92,12 +92,12 @@
<File Id="DevExpress.Pdf.v15.2.Core" Name="DevExpress.Pdf.v15.2.Core.dll" Source="D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.Pdf.v15.2.Core.dll"/>
<File Id="DevExpress.Pdf.v15.2.Drawing" Name="DevExpress.Pdf.v15.2.Drawing.dll" Source="D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.Pdf.v15.2.Drawing.dll" />
<File Id="DevExpress.Printing.v15.2.Core" Name="DevExpress.Printing.v15.2.Core.dll" Source="D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.Printing.v15.2.Core.dll"/>
<File Id="DevExpress.RichEdit.v15.2.Core" Name="DevExpress.RichEdit.v15.2.Core.dll" Source="D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.RichEdit.v15.2.Core.dll"/>
<File Id="DevExpress.Utils.v15.2" Name="DevExpress.Utils.v15.2.dll" Source="D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.Utils.v15.2.dll"/>
<File Id="DevExpress.XtraBars.v15.2" Name="DevExpress.XtraBars.v15.2.dll" Source="D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraBars.v15.2.dll"/>
<File Id="DevExpress.XtraEditors.v15.2" Name="DevExpress.XtraEditors.v15.2.dll" Source="D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraEditors.v15.2.dll"/>
<File Id="DevExpress.XtraGrid.v15.2" Name="DevExpress.XtraGrid.v15.2.dll" Source="D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraGrid.v15.2.dll"/>
<File Id="DevExpress.XtraLayout.v15.2" Name="DevExpress.XtraLayout.v15.2.dll" Source="D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraLayout.v15.2.dll"/>
<File Id="DevExpress.XtraNavBar.v15.2" Name="DevExpress.XtraNavBar.v15.2.dll" Source="D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraNavBar.v15.2.dll"/>
<File Id="DevExpress.XtraPdfViewer.v15.2" Name="DevExpress.XtraPdfViewer.v15.2.dll" Source="D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraPdfViewer.v15.2.dll"/>
<File Id="DevExpress.XtraPrinting.v15.2" Name="DevExpress.XtraPrinting.v15.2.dll" Source="D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraPrinting.v15.2.dll"/>
<File Id="DevExpress.XtraTreeList.v15.2" Name="DevExpress.XtraTreeList.v15.2.dll" Source="D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraTreeList.v15.2.dll"/>