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

MS

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2017-04-12 13:48:22 +02:00
parent 8c901be00c
commit 292b241fd1
38 changed files with 1445 additions and 1114 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
app/DD-Record-Organizer/ClassControlBuilder.vb
View File

@ -356,20 +356,20 @@ Public Class ClassControlBuilder
If match.Success Then If match.Success Then
Dim sqlguid = String.Format("SELECT GUID FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", CONTROL_ID, CURRENT_RECORD_ID) Dim sqlguid = String.Format("SELECT GUID FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", CONTROL_ID, CURRENT_RECORD_ID)
Dim ctrlvalID = ClassDatabase.Execute_Scalar(sqlguid, True) Dim ctrlvalID = ClassDatabase.Execute_Scalar(sqlguid, True)
Select Case row.Item("FORMAT_TYPE") 'Select Case row.Item("FORMAT_TYPE")
Case "Currency" ' Case "Currency"
value = Decimal.Parse(value, Globalization.NumberStyles.Currency).ToString ' value = Decimal.Parse(value, Globalization.NumberStyles.Currency).ToString
Case "Decimal" ' Case "Decimal"
value = Decimal.Parse(value, Globalization.NumberStyles.Integer) ' value = Decimal.Parse(value, Globalization.NumberStyles.Integer)
End Select 'End Select
Select Case row.Item("CONTROL_TYPE_ID") 'Select Case row.Item("CONTROL_TYPE_ID")
Case 4 'DatePicker ' Case 4 'DatePicker
Try ' Try
value = CStr(CDate(value)) 'Format(value, "dd-MM-yyyy")) ' value = CStr(CDate(value)) 'Format(value, "dd-MM-yyyy"))
Catch ex As Exception ' Catch ex As Exception
ClassLogger.Add("Unexpected Error in converting Value '" & value & "' to date - Control-ID: " & CONTROL_ID.ToString & "- Error: " & ex.Message) ' ClassLogger.Add("Unexpected Error in converting Value '" & value & "' to date - Control-ID: " & CONTROL_ID.ToString & "- Error: " & ex.Message)
End Try ' End Try
End Select 'End Select
' Diese Abfrage verhindert, dass Werte, die aus z.B. CheckedListBoxen kommen, ' Diese Abfrage verhindert, dass Werte, die aus z.B. CheckedListBoxen kommen,
' nicht überschrieben werden. Diese Werte werden bereits mit UpdateMultipleValues gespeichert ' nicht überschrieben werden. Diese Werte werden bereits mit UpdateMultipleValues gespeichert
If (Not value.Contains(";")) Then If (Not value.Contains(";")) Then

229
app/DD-Record-Organizer/ClassDOC_SEARCH.vb
View File

@ -59,24 +59,23 @@ Public Class ClassDOC_SEARCH
Dim SQL_DOC_SEARCH Dim SQL_DOC_SEARCH
If CURRENT_SEARCH_TYPE = "ENTITY" Then If CURRENT_SEARCH_TYPE = "ENTITY" Then
SQL_DOC_SEARCH = String.Format("SELECT DISTINCT T.*," & vbNewLine & _ SQL_DOC_SEARCH = String.Format("SELECT DISTINCT T.*," & vbNewLine &
"[dbo].[FNPMO_GET_CONTROL_VALUES_DOC_ENTITY] ({3},T.DocID,{0}) AS OPTION1," & vbNewLine & _ "[dbo].[FNPMO_GET_CONTROL_VALUES_DOC_ENTITY] ({3},T.DocID,{0}) AS OPTION1," & vbNewLine &
"[dbo].[FNPMO_GET_CONTROL_VALUES_DOC_ENTITY] ({4},T.DocID,{0}) AS OPTION2," & vbNewLine & _ "[dbo].[FNPMO_GET_CONTROL_VALUES_DOC_ENTITY] ({4},T.DocID,{0}) AS OPTION2," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{0},'DOCIDX1') AS DOCIDX1," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{0},'DOCIDX1') AS DOCIDX1," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{0},'DOCIDX2') AS DOCIDX2," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{0},'DOCIDX2') AS DOCIDX2," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{0},'DOCIDX3') AS DOCIDX3," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{0},'DOCIDX3') AS DOCIDX3," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{0},'DOCIDX4') AS DOCIDX4," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{0},'DOCIDX4') AS DOCIDX4," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{0},'DROPDOWN1','{1}') AS DROPDOWN1," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_DROPDOWN_VALUE] (T.DocID,{0},'DROPDOWN1','{1}',0) AS DROPDOWN1," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{0},'DROPDOWN2','{1}') AS DROPDOWN2," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_DROPDOWN_VALUE] (T.DocID,{0},'DROPDOWN2','{1}',0) AS DROPDOWN2," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{0},'DROPDOWN3','{1}') AS DROPDOWN3," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_DROPDOWN_VALUE] (T.DocID,{0},'DROPDOWN3','{1}',0) AS DROPDOWN3," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{0},'DROPDOWN4','{1}') AS DROPDOWN4" & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_DROPDOWN_VALUE] (T.DocID,{0},'DROPDOWN4','{1}',0) AS DROPDOWN4" & vbNewLine &
"FROM " & vbNewLine & _ "FROM " & vbNewLine &
"VWPMO_DOC_SEARCH T" & vbNewLine & _ "VWPMO_DOC_SEARCH T" & vbNewLine &
"WHERE T.DocID IN (select DISTINCT T.DOC_ID from TBPMO_DOC_RECORD_LINK T, TBPMO_RECORD T1 WHERE T.RECORD_ID = T1.GUID AND T1.FORM_ID = {0}) " & vbNewLine & _ "WHERE T.DocID IN (select DISTINCT T.DOC_ID from TBPMO_DOC_RECORD_LINK T, TBPMO_RECORD T1 WHERE T.RECORD_ID = T1.GUID AND T1.FORM_ID = {0}) " & vbNewLine &
"AND T.DocID IN (SELECT dwObjectID FROM VWPMO_WD_OBJECT_RIGHTS WHERE dwUserOrGroupID = {2} AND dwObjectID = T.DocID)", ENTITY_ID, USER_LANGUAGE, USERID_FK_INT_ECM, OPTION1, OPTION2) "AND T.DocID IN (SELECT dwObjectID FROM VWPMO_WD_OBJECT_RIGHTS WHERE dwUserOrGroupID = {2} AND dwObjectID = T.DocID)", ENTITY_ID, USER_LANGUAGE, USERID_FK_INT_ECM, OPTION1, OPTION2)
If CURRENT_ENTITYSQL_WHERE <> "" Then If CURRENT_ENTITYSQL_WHERE <> "" Then
Dim where = CURRENT_ENTITYSQL_WHERE.Replace("WHERE [RECORD-ID] IN ", "") Dim where = CURRENT_ENTITYSQL_WHERE.Replace("WHERE [RECORD-ID] IN ", "")
SQL_DOC_SEARCH = SQL_DOC_SEARCH & " " & vbNewLine & String.Format("AND T.DocID IN (SELECT DISTINCT DOC_ID from TBPMO_DOC_RECORD_LINK WHERE RECORD_ID IN ({0}))", where) SQL_DOC_SEARCH = SQL_DOC_SEARCH & " " & vbNewLine & String.Format("AND T.DocID IN (SELECT DISTINCT DOC_ID from TBPMO_DOC_RECORD_LINK WHERE RECORD_ID IN ({0}))", where)
End If End If
If BG = True Then If BG = True Then
@ -97,115 +96,115 @@ Public Class ClassDOC_SEARCH
End If End If
ElseIf CURRENT_SEARCH_TYPE = "RECORD" Then ElseIf CURRENT_SEARCH_TYPE = "RECORD" Then
SQL_DOC_SEARCH = String.Format("SELECT DISTINCT T.* ," & vbNewLine & _ SQL_DOC_SEARCH = String.Format("SELECT DISTINCT T.* ," & vbNewLine &
"ISNULL(T1.VALUE,'') AS OPTION1," & vbNewLine & _ "ISNULL(T1.VALUE,'') AS OPTION1," & vbNewLine &
"ISNULL(T2.VALUE,'') AS OPTION2," & vbNewLine & _ "ISNULL(T2.VALUE,'') AS OPTION2," & vbNewLine &
"ISNULL(T3.VALUE,'') AS OPTION3," & vbNewLine & _ "ISNULL(T3.VALUE,'') AS OPTION3," & vbNewLine &
"ISNULL(T4.VALUE,'') AS OPTION4," & vbNewLine & _ "ISNULL(T4.VALUE,'') AS OPTION4," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX1') AS DOCIDX1," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX1') AS DOCIDX1," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX2') AS DOCIDX2," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX2') AS DOCIDX2," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX3') AS DOCIDX3," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX3') AS DOCIDX3," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX4') AS DOCIDX4," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX4') AS DOCIDX4," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{1},'DROPDOWN1','{7}') AS DROPDOWN1," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_DROPDOWN_VALUE] (T.DocID,{1},'DROPDOWN1','{7}',TRL.RECORD_ID) AS DROPDOWN1," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{1},'DROPDOWN2','{7}') AS DROPDOWN2," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_DROPDOWN_VALUE] (T.DocID,{1},'DROPDOWN2','{7}',TRL.RECORD_ID) AS DROPDOWN2," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{1},'DROPDOWN3','{7}') AS DROPDOWN3," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_DROPDOWN_VALUE] (T.DocID,{1},'DROPDOWN3','{7}',TRL.RECORD_ID) AS DROPDOWN3," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{1},'DROPDOWN4','{7}') AS DROPDOWN4," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_DROPDOWN_VALUE] (T.DocID,{1},'DROPDOWN4','{7}',TRL.RECORD_ID) AS DROPDOWN4," & vbNewLine &
"(SELECT VALUE FROM TBPMO_DOC_VALUES WHERE DocID = T.DocID AND CONFIG_ID = TRC.GUID) AS VALUE1," & vbNewLine & _ "(SELECT VALUE FROM TBPMO_DOC_VALUES WHERE DocID = T.DocID AND RECORD_ID = TRL.RECORD_ID AND CONFIG_ID = TRC.GUID) AS VALUE1," & vbNewLine &
"(SELECT VALUE FROM TBPMO_DOC_VALUES WHERE DocID = T.DocID AND CONFIG_ID = TRC1.GUID) AS VALUE2," & vbNewLine & _ "(SELECT VALUE FROM TBPMO_DOC_VALUES WHERE DocID = T.DocID AND RECORD_ID = TRL.RECORD_ID AND CONFIG_ID = TRC1.GUID) AS VALUE2," & vbNewLine &
"(SELECT VALUE FROM TBPMO_DOC_VALUES WHERE DocID = T.DocID AND CONFIG_ID = TRC2.GUID) AS VALUE3," & vbNewLine & _ "(SELECT VALUE FROM TBPMO_DOC_VALUES WHERE DocID = T.DocID AND RECORD_ID = TRL.RECORD_ID AND CONFIG_ID = TRC2.GUID) AS VALUE3," & vbNewLine &
"(SELECT VALUE FROM TBPMO_DOC_VALUES WHERE DocID = T.DocID AND CONFIG_ID = TRC3.GUID) AS VALUE4" & vbNewLine & _ "(SELECT VALUE FROM TBPMO_DOC_VALUES WHERE DocID = T.DocID AND RECORD_ID = TRL.RECORD_ID AND CONFIG_ID = TRC3.GUID) AS VALUE4" & vbNewLine &
"FROM " & vbNewLine & _ "FROM " & vbNewLine &
"VWPMO_DOC_SEARCH T " & vbNewLine & _ "VWPMO_DOC_SEARCH T " & vbNewLine &
"INNER JOIN TBPMO_DOC_RECORD_LINK TRL ON T.DocID = TRL.DOC_ID" & vbNewLine & _ "INNER JOIN TBPMO_DOC_RECORD_LINK TRL ON T.DocID = TRL.DOC_ID" & vbNewLine &
"INNER JOIN TBPMO_RECORD TR ON TRL.RECORD_ID = TR.GUID" & vbNewLine & _ "INNER JOIN TBPMO_RECORD TR ON TRL.RECORD_ID = TR.GUID" & vbNewLine &
"INNER JOIN VWPMO_WD_OBJECT_RIGHTS TRIGHTS ON T.DocID = TRIGHTS.dwObjectID" & vbNewLine & _ "INNER JOIN VWPMO_WD_OBJECT_RIGHTS TRIGHTS ON T.DocID = TRIGHTS.dwObjectID" & vbNewLine &
"LEFT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG TRC ON TR.FORM_ID = TRC.ENTITY_ID AND TRC.LANGUAGE = '{7}' AND TRC.GUID = {8}" & vbNewLine & _ "LEFT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG TRC ON TR.FORM_ID = TRC.ENTITY_ID AND TRC.LANGUAGE = '{7}' AND TRC.GUID = {8}" & vbNewLine &
"LEFT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG TRC1 ON TR.FORM_ID = TRC1.ENTITY_ID AND TRC1.LANGUAGE = '{7}' AND TRC1.GUID = {9}" & vbNewLine & _ "LEFT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG TRC1 ON TR.FORM_ID = TRC1.ENTITY_ID AND TRC1.LANGUAGE = '{7}' AND TRC1.GUID = {9}" & vbNewLine &
"LEFT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG TRC2 ON TR.FORM_ID = TRC2.ENTITY_ID AND TRC2.LANGUAGE = '{7}' AND TRC2.GUID = {10}" & vbNewLine & _ "LEFT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG TRC2 ON TR.FORM_ID = TRC2.ENTITY_ID AND TRC2.LANGUAGE = '{7}' AND TRC2.GUID = {10}" & vbNewLine &
"LEFT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG TRC3 ON TR.FORM_ID = TRC3.ENTITY_ID AND TRC3.LANGUAGE = '{7}' AND TRC3.GUID = {11}" & vbNewLine & _ "LEFT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG TRC3 ON TR.FORM_ID = TRC3.ENTITY_ID AND TRC3.LANGUAGE = '{7}' AND TRC3.GUID = {11}" & vbNewLine &
"LEFT JOIN TBPMO_CONTROL_VALUE T1 ON TRL.RECORD_ID = T1.RECORD_ID AND T1.CONTROL_ID = {2} " & vbNewLine & _ "LEFT JOIN TBPMO_CONTROL_VALUE T1 ON TRL.RECORD_ID = T1.RECORD_ID AND T1.CONTROL_ID = {2} " & vbNewLine &
"LEFT JOIN TBPMO_CONTROL_VALUE T2 ON TRL.RECORD_ID = T2.RECORD_ID AND T2.CONTROL_ID = {3} " & vbNewLine & _ "LEFT JOIN TBPMO_CONTROL_VALUE T2 ON TRL.RECORD_ID = T2.RECORD_ID AND T2.CONTROL_ID = {3} " & vbNewLine &
"LEFT JOIN TBPMO_CONTROL_VALUE T3 ON TRL.RECORD_ID = T3.RECORD_ID AND T3.CONTROL_ID = {4} " & vbNewLine & _ "LEFT JOIN TBPMO_CONTROL_VALUE T3 ON TRL.RECORD_ID = T3.RECORD_ID AND T3.CONTROL_ID = {4} " & vbNewLine &
"LEFT JOIN TBPMO_CONTROL_VALUE T4 ON TRL.RECORD_ID = T4.RECORD_ID AND T4.CONTROL_ID = {5} " & vbNewLine & _ "LEFT JOIN TBPMO_CONTROL_VALUE T4 ON TRL.RECORD_ID = T4.RECORD_ID AND T4.CONTROL_ID = {5} " & vbNewLine &
"WHERE TRL.RECORD_ID = {0} AND TR.FORM_ID = {1} AND TRIGHTS.dwUserOrGroupID = {6}", RECORD_ID, ENTITY_ID, OPTION1, OPTION2, OPTION3, OPTION4, USERID_FK_INT_ECM, USER_LANGUAGE, VALUE_CONF1, VALUE_CONF2, VALUE_CONF3, VALUE_CONF4) "WHERE TRL.RECORD_ID = {0} AND TR.FORM_ID = {1} AND TRIGHTS.dwUserOrGroupID = {6}", RECORD_ID, ENTITY_ID, OPTION1, OPTION2, OPTION3, OPTION4, USERID_FK_INT_ECM, USER_LANGUAGE, VALUE_CONF1, VALUE_CONF2, VALUE_CONF3, VALUE_CONF4)
ElseIf CURRENT_SEARCH_TYPE = "FULLTEXT" Then ElseIf CURRENT_SEARCH_TYPE = "FULLTEXT" Then
Dim sqlft = SQL_FULLTEXT Dim sqlft = SQL_FULLTEXT
sqlft = sqlft.Replace("@FULLTEXT", CURRENT_FULLTEXT_PATTERN) sqlft = sqlft.Replace("@FULLTEXT", CURRENT_FULLTEXT_PATTERN)
SQL_DOC_SEARCH = String.Format("SELECT DISTINCT T.*," & vbNewLine & _ SQL_DOC_SEARCH = String.Format("SELECT DISTINCT T.*," & vbNewLine &
"[dbo].[FNPMO_GET_CONTROL_VALUES_DOC_ENTITY] ({3},T.DocID,{0}) AS OPTION1," & vbNewLine & _ "[dbo].[FNPMO_GET_CONTROL_VALUES_DOC_ENTITY] ({3},T.DocID,{0}) AS OPTION1," & vbNewLine &
"[dbo].[FNPMO_GET_CONTROL_VALUES_DOC_ENTITY] ({4},T.DocID,{0}) AS OPTION2," & vbNewLine & _ "[dbo].[FNPMO_GET_CONTROL_VALUES_DOC_ENTITY] ({4},T.DocID,{0}) AS OPTION2," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{0},'DOCIDX1') AS DOCIDX1," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{0},'DOCIDX1') AS DOCIDX1," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{0},'DOCIDX2') AS DOCIDX2," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{0},'DOCIDX2') AS DOCIDX2," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{0},'DOCIDX3') AS DOCIDX3," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{0},'DOCIDX3') AS DOCIDX3," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{0},'DOCIDX4') AS DOCIDX4," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{0},'DOCIDX4') AS DOCIDX4," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{0},'DROPDOWN1','{1}') AS DROPDOWN1," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_DROPDOWN_VALUE] (T.DocID,{0},'DROPDOWN1','{1}',TRL.RECORD_ID) AS DROPDOWN1," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{0},'DROPDOWN2','{1}') AS DROPDOWN2," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_DROPDOWN_VALUE] (T.DocID,{0},'DROPDOWN2','{1}',TRL.RECORD_ID) AS DROPDOWN2," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{0},'DROPDOWN3','{1}') AS DROPDOWN3," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_DROPDOWN_VALUE] (T.DocID,{0},'DROPDOWN3','{1}',TRL.RECORD_ID) AS DROPDOWN3," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{0},'DROPDOWN4','{1}') AS DROPDOWN4" & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_DROPDOWN_VALUE] (T.DocID,{0},'DROPDOWN4','{1}',TRL.RECORD_ID) AS DROPDOWN4" & vbNewLine &
"FROM " & vbNewLine & _ "FROM " & vbNewLine &
"VWPMO_DOC_SEARCH T" & vbNewLine & _ "VWPMO_DOC_SEARCH T" & vbNewLine &
"INNER JOIN TBPMO_DOC_RECORD_LINK TRL ON T.DocID = TRL.DOC_ID" & vbNewLine & _ "INNER JOIN TBPMO_DOC_RECORD_LINK TRL ON T.DocID = TRL.DOC_ID" & vbNewLine &
"INNER JOIN TBPMO_RECORD TR ON TRL.RECORD_ID = TR.GUID" & vbNewLine & _ "INNER JOIN TBPMO_RECORD TR ON TRL.RECORD_ID = TR.GUID" & vbNewLine &
"INNER JOIN VWPMO_WD_OBJECT_RIGHTS TRIGHTS ON T.DocID = TRIGHTS.dwObjectID" & vbNewLine & _ "INNER JOIN VWPMO_WD_OBJECT_RIGHTS TRIGHTS ON T.DocID = TRIGHTS.dwObjectID" & vbNewLine &
"LEFT OUTER JOIN TBPMO_CONTROL_VALUE TCTRL ON TR.GUID = TCTRL.RECORD_ID" & vbNewLine & _ "LEFT OUTER JOIN TBPMO_CONTROL_VALUE TCTRL ON TR.GUID = TCTRL.RECORD_ID" & vbNewLine &
"WHERE TR.FORM_ID = {0} AND TRIGHTS.dwUserOrGroupID = {2} AND (" & vbNewLine & _ "WHERE TR.FORM_ID = {0} AND TRIGHTS.dwUserOrGroupID = {2} AND (" & vbNewLine &
"TCTRL.VALUE LIKE '%{6}%' OR" & vbNewLine & _ "TCTRL.VALUE LIKE '%{6}%' OR" & vbNewLine &
"T.DocID IN ({5}" & vbNewLine & _ "T.DocID IN ({5}" & vbNewLine &
"))", ENTITY_ID, USER_LANGUAGE, USERID_FK_INT_ECM, OPTION1, OPTION2, sqlft, CURRENT_FULLTEXT_PATTERN) "))", ENTITY_ID, USER_LANGUAGE, USERID_FK_INT_ECM, OPTION1, OPTION2, sqlft, CURRENT_FULLTEXT_PATTERN)
ElseIf CURRENT_SEARCH_TYPE = "NODE_DOWN" Then ElseIf CURRENT_SEARCH_TYPE = "NODE_DOWN" Then
SQL_DOC_SEARCH = String.Format("SELECT DISTINCT T.* ," & vbNewLine & _ SQL_DOC_SEARCH = String.Format("SELECT DISTINCT T.* ," & vbNewLine &
"ISNULL(T1.VALUE,'') AS OPTION1," & vbNewLine & _ "ISNULL(T1.VALUE,'') AS OPTION1," & vbNewLine &
"ISNULL(T2.VALUE,'') AS OPTION2," & vbNewLine & _ "ISNULL(T2.VALUE,'') AS OPTION2," & vbNewLine &
"ISNULL(T3.VALUE,'') AS OPTION3," & vbNewLine & _ "ISNULL(T3.VALUE,'') AS OPTION3," & vbNewLine &
"ISNULL(T4.VALUE,'') AS OPTION4," & vbNewLine & _ "ISNULL(T4.VALUE,'') AS OPTION4," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX1') AS DOCIDX1," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX1') AS DOCIDX1," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX2') AS DOCIDX2," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX2') AS DOCIDX2," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX3') AS DOCIDX3," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX3') AS DOCIDX3," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX4') AS DOCIDX4," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX4') AS DOCIDX4," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{1},'DROPDOWN1','{7}') AS DROPDOWN1," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_DROPDOWN_VALUE] (T.DocID,{1},'DROPDOWN1','{7}',TRL.RECORD_ID) AS DROPDOWN1," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{1},'DROPDOWN2','{7}') AS DROPDOWN2," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_DROPDOWN_VALUE] (T.DocID,{1},'DROPDOWN2','{7}',TRL.RECORD_ID) AS DROPDOWN2," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{1},'DROPDOWN3','{7}') AS DROPDOWN3," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_DROPDOWN_VALUE] (T.DocID,{1},'DROPDOWN3','{7}',TRL.RECORD_ID) AS DROPDOWN3," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{1},'DROPDOWN4','{7}') AS DROPDOWN4," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_DROPDOWN_VALUE] (T.DocID,{1},'DROPDOWN4','{7}',TRL.RECORD_ID) AS DROPDOWN4," & vbNewLine &
"(SELECT VALUE FROM TBPMO_DOC_VALUES WHERE DocID = T.DocID AND CONFIG_ID = TRC.GUID) AS VALUE1," & vbNewLine & _ "(SELECT VALUE FROM TBPMO_DOC_VALUES WHERE DocID = T.DocID AND CONFIG_ID = TRC.GUID) AS VALUE1," & vbNewLine &
"(SELECT VALUE FROM TBPMO_DOC_VALUES WHERE DocID = T.DocID AND CONFIG_ID = TRC1.GUID) AS VALUE2," & vbNewLine & _ "(SELECT VALUE FROM TBPMO_DOC_VALUES WHERE DocID = T.DocID AND CONFIG_ID = TRC1.GUID) AS VALUE2," & vbNewLine &
"(SELECT VALUE FROM TBPMO_DOC_VALUES WHERE DocID = T.DocID AND CONFIG_ID = TRC2.GUID) AS VALUE3," & vbNewLine & _ "(SELECT VALUE FROM TBPMO_DOC_VALUES WHERE DocID = T.DocID AND CONFIG_ID = TRC2.GUID) AS VALUE3," & vbNewLine &
"(SELECT VALUE FROM TBPMO_DOC_VALUES WHERE DocID = T.DocID AND CONFIG_ID = TRC3.GUID) AS VALUE4" & vbNewLine & _ "(SELECT VALUE FROM TBPMO_DOC_VALUES WHERE DocID = T.DocID AND CONFIG_ID = TRC3.GUID) AS VALUE4" & vbNewLine &
"FROM " & vbNewLine & _ "FROM " & vbNewLine &
"VWPMO_DOC_SEARCH T " & vbNewLine & _ "VWPMO_DOC_SEARCH T " & vbNewLine &
"INNER JOIN TBPMO_DOC_RECORD_LINK TRL ON T.DocID = TRL.DOC_ID" & vbNewLine & _ "INNER JOIN TBPMO_DOC_RECORD_LINK TRL ON T.DocID = TRL.DOC_ID" & vbNewLine &
"INNER JOIN TBPMO_RECORD TR ON TRL.RECORD_ID = TR.GUID" & vbNewLine & _ "INNER JOIN TBPMO_RECORD TR ON TRL.RECORD_ID = TR.GUID" & vbNewLine &
"INNER JOIN TBPMO_STRUCTURE_NODES_USER_TEMP TTEMP ON TR.GUID = TTEMP.RECORD_ID" & vbNewLine & _ "INNER JOIN TBPMO_STRUCTURE_NODES_USER_TEMP TTEMP ON TR.GUID = TTEMP.RECORD_ID" & vbNewLine &
"INNER JOIN VWPMO_WD_OBJECT_RIGHTS TRIGHTS ON T.DocID = TRIGHTS.dwObjectID" & vbNewLine & _ "INNER JOIN VWPMO_WD_OBJECT_RIGHTS TRIGHTS ON T.DocID = TRIGHTS.dwObjectID" & vbNewLine &
"LEFT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG TRC ON TR.FORM_ID = TRC.ENTITY_ID AND TRC.LANGUAGE = '{7}' AND TRC.GUID = {8}" & vbNewLine & _ "LEFT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG TRC ON TR.FORM_ID = TRC.ENTITY_ID AND TRC.LANGUAGE = '{7}' AND TRC.GUID = {8}" & vbNewLine &
"LEFT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG TRC1 ON TR.FORM_ID = TRC1.ENTITY_ID AND TRC1.LANGUAGE = '{7}' AND TRC1.GUID = {9}" & vbNewLine & _ "LEFT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG TRC1 ON TR.FORM_ID = TRC1.ENTITY_ID AND TRC1.LANGUAGE = '{7}' AND TRC1.GUID = {9}" & vbNewLine &
"LEFT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG TRC2 ON TR.FORM_ID = TRC2.ENTITY_ID AND TRC2.LANGUAGE = '{7}' AND TRC2.GUID = {10}" & vbNewLine & _ "LEFT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG TRC2 ON TR.FORM_ID = TRC2.ENTITY_ID AND TRC2.LANGUAGE = '{7}' AND TRC2.GUID = {10}" & vbNewLine &
"LEFT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG TRC3 ON TR.FORM_ID = TRC3.ENTITY_ID AND TRC3.LANGUAGE = '{7}' AND TRC3.GUID = {11}" & vbNewLine & _ "LEFT JOIN TBPMO_DOCSEARCH_RESULTLIST_CONFIG TRC3 ON TR.FORM_ID = TRC3.ENTITY_ID AND TRC3.LANGUAGE = '{7}' AND TRC3.GUID = {11}" & vbNewLine &
"LEFT JOIN TBPMO_CONTROL_VALUE T1 ON TRL.RECORD_ID = T1.RECORD_ID AND T1.CONTROL_ID = {2} " & vbNewLine & _ "LEFT JOIN TBPMO_CONTROL_VALUE T1 ON TRL.RECORD_ID = T1.RECORD_ID AND T1.CONTROL_ID = {2} " & vbNewLine &
"LEFT JOIN TBPMO_CONTROL_VALUE T2 ON TRL.RECORD_ID = T2.RECORD_ID AND T2.CONTROL_ID = {3} " & vbNewLine & _ "LEFT JOIN TBPMO_CONTROL_VALUE T2 ON TRL.RECORD_ID = T2.RECORD_ID AND T2.CONTROL_ID = {3} " & vbNewLine &
"LEFT JOIN TBPMO_CONTROL_VALUE T3 ON TRL.RECORD_ID = T3.RECORD_ID AND T3.CONTROL_ID = {4} " & vbNewLine & _ "LEFT JOIN TBPMO_CONTROL_VALUE T3 ON TRL.RECORD_ID = T3.RECORD_ID AND T3.CONTROL_ID = {4} " & vbNewLine &
"LEFT JOIN TBPMO_CONTROL_VALUE T4 ON TRL.RECORD_ID = T4.RECORD_ID AND T4.CONTROL_ID = {5} " & vbNewLine & _ "LEFT JOIN TBPMO_CONTROL_VALUE T4 ON TRL.RECORD_ID = T4.RECORD_ID AND T4.CONTROL_ID = {5} " & vbNewLine &
"WHERE TR.FORM_ID = {1} AND TTEMP.USER_ID = {0} AND TRIGHTS.dwUserOrGroupID = {6}", USER_GUID, ENTITY_ID, OPTION1, OPTION2, OPTION3, OPTION4, USERID_FK_INT_ECM, USER_LANGUAGE, VALUE_CONF1, VALUE_CONF2, VALUE_CONF3, VALUE_CONF4) "WHERE TR.FORM_ID = {1} AND TTEMP.USER_ID = {0} AND TRIGHTS.dwUserOrGroupID = {6}", USER_GUID, ENTITY_ID, OPTION1, OPTION2, OPTION3, OPTION4, USERID_FK_INT_ECM, USER_LANGUAGE, VALUE_CONF1, VALUE_CONF2, VALUE_CONF3, VALUE_CONF4)
ElseIf CURRENT_SEARCH_TYPE = "FULLTEXT_SUBNODES" Then ElseIf CURRENT_SEARCH_TYPE = "FULLTEXT_SUBNODES" Then
Dim sqlft = SQL_FULLTEXT Dim sqlft = SQL_FULLTEXT
sqlft = sqlft.Replace("@FULLTEXT", CURRENT_FULLTEXT_PATTERN) sqlft = sqlft.Replace("@FULLTEXT", CURRENT_FULLTEXT_PATTERN)
SQL_DOC_SEARCH = String.Format("SELECT DISTINCT T.*," & vbNewLine & _ SQL_DOC_SEARCH = String.Format("SELECT DISTINCT T.*," & vbNewLine &
"[dbo].[FNPMO_GET_CONTROL_VALUES_DOC_ENTITY] ({4},T.DocID,{1}) AS OPTION1," & vbNewLine & _ "[dbo].[FNPMO_GET_CONTROL_VALUES_DOC_ENTITY] ({4},T.DocID,{1}) AS OPTION1," & vbNewLine &
"[dbo].[FNPMO_GET_CONTROL_VALUES_DOC_ENTITY] ({5},T.DocID,{1}) AS OPTION2," & vbNewLine & _ "[dbo].[FNPMO_GET_CONTROL_VALUES_DOC_ENTITY] ({5},T.DocID,{1}) AS OPTION2," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX1') AS DOCIDX1," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX1') AS DOCIDX1," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX2') AS DOCIDX2," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX2') AS DOCIDX2," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX3') AS DOCIDX3," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX3') AS DOCIDX3," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX4') AS DOCIDX4," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_IDX] (T.DocID,{1},'DOCIDX4') AS DOCIDX4," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{1},'DROPDOWN1','{0}') AS DROPDOWN1," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_DROPDOWN_VALUE] (T.DocID,{1},'DROPDOWN1','{0}',TRL.RECORD_ID) AS DROPDOWN1," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{1},'DROPDOWN2','{0}') AS DROPDOWN2," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_DROPDOWN_VALUE] (T.DocID,{1},'DROPDOWN2','{0}',TRL.RECORD_ID) AS DROPDOWN2," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{1},'DROPDOWN3','{0}') AS DROPDOWN3," & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_DROPDOWN_VALUE] (T.DocID,{1},'DROPDOWN3','{0}',TRL.RECORD_ID) AS DROPDOWN3," & vbNewLine &
"[dbo].[FNPMO_DOC_GET_DROPDOWN] (T.DocID,{1},'DROPDOWN4','{0}') AS DROPDOWN4" & vbNewLine & _ "[dbo].[FNPMO_DOC_GET_DROPDOWN_VALUE] (T.DocID,{1},'DROPDOWN4','{0}',TRL.RECORD_ID) AS DROPDOWN4" & vbNewLine &
"FROM " & vbNewLine & _ "FROM " & vbNewLine &
"VWPMO_DOC_SEARCH T" & vbNewLine & _ "VWPMO_DOC_SEARCH T" & vbNewLine &
"INNER JOIN TBPMO_DOC_RECORD_LINK TRL ON T.DocID = TRL.DOC_ID" & vbNewLine & _ "INNER JOIN TBPMO_DOC_RECORD_LINK TRL ON T.DocID = TRL.DOC_ID" & vbNewLine &
"INNER JOIN TBPMO_RECORD TR ON TRL.RECORD_ID = TR.GUID" & vbNewLine & _ "INNER JOIN TBPMO_RECORD TR ON TRL.RECORD_ID = TR.GUID" & vbNewLine &
"INNER JOIN TBPMO_STRUCTURE_NODES_USER_TEMP TTEMP ON TR.GUID = TTEMP.RECORD_ID" & vbNewLine & _ "INNER JOIN TBPMO_STRUCTURE_NODES_USER_TEMP TTEMP ON TR.GUID = TTEMP.RECORD_ID" & vbNewLine &
"INNER JOIN VWPMO_WD_OBJECT_RIGHTS TRIGHTS ON T.DocID = TRIGHTS.dwObjectID" & vbNewLine & _ "INNER JOIN VWPMO_WD_OBJECT_RIGHTS TRIGHTS ON T.DocID = TRIGHTS.dwObjectID" & vbNewLine &
"WHERE TR.FORM_ID = {1} AND TTEMP.USER_ID = {2} AND TRIGHTS.dwUserOrGroupID = {3}" & vbNewLine & _ "WHERE TR.FORM_ID = {1} AND TTEMP.USER_ID = {2} AND TRIGHTS.dwUserOrGroupID = {3}" & vbNewLine &
"AND T.DocID IN ({6})", USER_LANGUAGE, ENTITY_ID, USER_GUID, USERID_FK_INT_ECM, OPTION1, OPTION2, sqlft) "AND T.DocID IN ({6})", USER_LANGUAGE, ENTITY_ID, USER_GUID, USERID_FK_INT_ECM, OPTION1, OPTION2, sqlft)
End If End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> SQL_DOC_SEARCH: " & SQL_DOC_SEARCH, False) If LogErrorsOnly = False Then ClassLogger.Add(" >> SQL_DOC_SEARCH: " & SQL_DOC_SEARCH, False)
@ -430,7 +429,7 @@ Public Class ClassDOC_SEARCH
Try Try
Dim execute = String.Format("EXEC [dbo].[PRPMO_DOC_CREATE_NEW_DOC] {0},{1},'{2}'", DOC_ID, RECORD_ID, USER_USERNAME) Dim execute = String.Format("EXEC [dbo].[PRPMO_DOC_CREATE_NEW_DOC] {0},{1},'{2}'", DOC_ID, RECORD_ID, USER_USERNAME)
If ClassDatabase.Execute_non_Query(execute) = True Then If ClassDatabase.Execute_non_Query(execute) = True Then
If LICENSE_SITE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
execute = String.Format("EXEC [dbo].[PRPROXY_DOC_CREATE_NEW_DOC] {0},{1},'{2}'", DOC_ID, RECORD_ID, USER_USERNAME) execute = String.Format("EXEC [dbo].[PRPROXY_DOC_CREATE_NEW_DOC] {0},{1},'{2}'", DOC_ID, RECORD_ID, USER_USERNAME)
ClassDatabase.Execute_non_Query(execute, True) ClassDatabase.Execute_non_Query(execute, True)
End If End If

6
app/DD-Record-Organizer/ClassDatabase.vb
View File

@ -203,7 +203,7 @@ Public Class ClassDatabase
SQLcommand = SQLconnect.CreateCommand SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo 'Update Last Created Record in Foo
SQLcommand.CommandText = ExecuteCMD SQLcommand.CommandText = ExecuteCMD
SQLcommand.CommandTimeout = 120
SQLcommand.ExecuteNonQuery() SQLcommand.ExecuteNonQuery()
SQLcommand.Dispose() SQLcommand.Dispose()
SQLconnect.Close() SQLconnect.Close()
@ -234,6 +234,7 @@ Public Class ClassDatabase
SQLcommand = SQLconnect.CreateCommand SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo 'Update Last Created Record in Foo
SQLcommand.CommandText = ExecuteCMD SQLcommand.CommandText = ExecuteCMD
SQLcommand.CommandTimeout = 120
SQLcommand.ExecuteNonQuery() SQLcommand.ExecuteNonQuery()
SQLcommand.Dispose() SQLcommand.Dispose()
SQLconnect.Close() SQLconnect.Close()
@ -265,6 +266,7 @@ Public Class ClassDatabase
SQLcommand = SQLconnect.CreateCommand() SQLcommand = SQLconnect.CreateCommand()
'Update Last Created Record in Foo 'Update Last Created Record in Foo
SQLcommand.CommandText = ExecuteCMD SQLcommand.CommandText = ExecuteCMD
SQLcommand.CommandTimeout = 120
SQLcommand.BeginExecuteNonQuery(callback, SQLcommand) SQLcommand.BeginExecuteNonQuery(callback, SQLcommand)
Catch ex As Exception Catch ex As Exception
@ -305,6 +307,7 @@ Public Class ClassDatabase
SQLcommand = SQLconnect.CreateCommand SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo 'Update Last Created Record in Foo
SQLcommand.CommandText = cmdscalar SQLcommand.CommandText = cmdscalar
SQLcommand.CommandTimeout = 120
result = SQLcommand.ExecuteScalar() result = SQLcommand.ExecuteScalar()
SQLcommand.Dispose() SQLcommand.Dispose()
SQLconnect.Close() SQLconnect.Close()
@ -335,6 +338,7 @@ Public Class ClassDatabase
SQLcommand = SQLconnect.CreateCommand SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo 'Update Last Created Record in Foo
SQLcommand.CommandText = cmdscalar SQLcommand.CommandText = cmdscalar
SQLcommand.CommandTimeout = 120
result = SQLcommand.ExecuteScalar() result = SQLcommand.ExecuteScalar()
SQLcommand.Dispose() SQLcommand.Dispose()
SQLconnect.Close() SQLconnect.Close()

6
app/DD-Record-Organizer/ClassFileResult.vb
View File

@ -11,7 +11,7 @@
upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET IN_WORK = {0}, IN_WORK_USER = '{1}', IN_WORK_COMMENT = '{2}' WHERE DocID = {3}", state, USER_USERNAME, comment, DocID) upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET IN_WORK = {0}, IN_WORK_USER = '{1}', IN_WORK_COMMENT = '{2}' WHERE DocID = {3}", state, USER_USERNAME, comment, DocID)
End If End If
If ClassDatabase.Execute_non_Query(upd) = True Then If ClassDatabase.Execute_non_Query(upd) = True Then
If LICENSE_SITE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
ClassDatabase.Execute_non_Query(upd, True) ClassDatabase.Execute_non_Query(upd, True)
End If End If
InWork = True InWork = True
@ -29,7 +29,7 @@
Dim upd As String Dim upd As String
upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET DISPLAY_NAME = '{0}' WHERE DocID = {1}", Displayname, DocID) upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET DISPLAY_NAME = '{0}' WHERE DocID = {1}", Displayname, DocID)
If ClassDatabase.Execute_non_Query(upd) = True Then If ClassDatabase.Execute_non_Query(upd) = True Then
If LICENSE_SITE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
ClassDatabase.Execute_non_Query(upd, True) ClassDatabase.Execute_non_Query(upd, True)
End If End If
Return True Return True
@ -85,7 +85,7 @@
Try Try
Dim proc = String.Format("EXEC PRPMO_DELETE_RESULTFILE {0},{1},{2}", RESULT_DOC_ID, RECORD_ID, DELETE_FILE) Dim proc = String.Format("EXEC PRPMO_DELETE_RESULTFILE {0},{1},{2}", RESULT_DOC_ID, RECORD_ID, DELETE_FILE)
If ClassDatabase.Execute_non_Query(proc) = True Then If ClassDatabase.Execute_non_Query(proc) = True Then
If LICENSE_SITE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
proc = String.Format("EXEC PRPROXY_DOC_CHECK_DELETE {0}", RESULT_DOC_ID) proc = String.Format("EXEC PRPROXY_DOC_CHECK_DELETE {0}", RESULT_DOC_ID)
ClassDatabase.Execute_non_Query(proc, True) ClassDatabase.Execute_non_Query(proc, True)
End If End If

12
app/DD-Record-Organizer/ClassHelper.vb
View File

@ -311,4 +311,16 @@ Public Class ClassHelper
Return False Return False
End Try End Try
End Function End Function
Public Shared Function DecryptString(ciphertext As String, MethodName As String)
Dim result As String
Dim wrapper As New ClassEncryption("!35452didalog=")
' DecryptData throws if the wrong password is used.
Try
result = wrapper.DecryptData(ciphertext)
Return result
Catch ex As Exception
ClassLogger.Add("The ciphertext for Method'" & MethodName & "' could not be decrypted", False)
Return ""
End Try
End Function
End Class End Class

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

@ -269,7 +269,7 @@ Public Class ClassInit
End Try End Try
End If End If
If LICENSE_SITE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED Then If LICENSE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED Then
SQL_FULLTEXT = "SELECT DISTINCT [dwDocID] FROM [dbo].FullText WHERE CONTAINS([Text], '""*@FULLTEXT*""')" SQL_FULLTEXT = "SELECT DISTINCT [dwDocID] FROM [dbo].FullText WHERE CONTAINS([Text], '""*@FULLTEXT*""')"
End If End If
Return True Return True

84
app/DD-Record-Organizer/ClassLicence.vb
View File

@ -1,9 +1,13 @@
Imports DLLLicenseManager Imports System.Globalization
Imports DLLLicenseManager
Public Class ClassLicence Public Class ClassLicence
Private Shared _lizenzManager As ClassLicenseManager Private Shared _lizenzManager As ClassLicenseManager
Public Shared Sub Refresh_Licence(CLIENT_ID As Integer) Public Shared Sub Refresh_Licence(CLIENT_ID As Integer)
Try Try
Dim todayDate As Date = New Date(Now.Year, Now.Month, Now.Day)
If LogErrorsOnly = False Then ClassLogger.Add(" >> todayDate: " & todayDate.ToString, False)
_lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "") _lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "")
Dim sql As String = String.Format("SELECT LICENSE_PMO FROM TBDD_CLIENT WHERE GUID = {0}", CLIENT_ID) Dim sql As String = String.Format("SELECT LICENSE_PMO FROM TBDD_CLIENT WHERE GUID = {0}", CLIENT_ID)
@ -22,15 +26,70 @@ Public Class ClassLicence
Else Else
LICENSE_COUNT = 0 LICENSE_COUNT = 0
End If End If
LICENSE_DATE = CDate(split(1)) Dim LicDATEsplit() = split(1).ToString.Split("-")
If CDate(split(1)) < CDate(Now.ToShortDateString) Then Dim LICENSE_FILE_DATE As Date
Try
LICENSE_FILE_DATE = New Date(LicDATEsplit(0), LicDATEsplit(1), LicDATEsplit(2))
If LogErrorsOnly = False Then ClassLogger.Add(" >> LICENSE_FILE_DATE: " & LICENSE_FILE_DATE.ToString, False)
Try
Try
LICENSE_DATE = CDate(LICENSE_FILE_DATE)
Catch ex As Exception
ClassLogger.Add(">> Could not read LICENSE_DATE2: " & ex.Message, False)
End Try
Catch ex As Exception
ClassLogger.Add(">> Could not read LICENSE_DATE1: " & ex.Message, False)
End Try
Catch ex As Exception
ClassLogger.Add(">> Could not read LICENSE_DATE3: " & ex.Message, False)
LICENSE_FILE_DATE = New Date(Now.Year, Now.Month, Now.Day)
End Try
If LICENSE_FILE_DATE < CDate(todayDate) Then
MsgBox("Your license evaluated!" & vbNewLine & "Last valid date: " & split(1) & vbNewLine & "Please contact Digital Data.", MsgBoxStyle.Exclamation) MsgBox("Your license evaluated!" & vbNewLine & "Last valid date: " & split(1) & vbNewLine & "Please contact Digital Data.", MsgBoxStyle.Exclamation)
LICENSE_EXPIRED = True LICENSE_EXPIRED = True
LICENSE_COUNT = 0 LICENSE_COUNT = 0
End If End If
''Die Anzahl der Userlizenzen sql = String.Format("SELECT NAME, VALID_DATE, '' AS State FROM TBDD_LICENSE_ADD_ON WHERE CLIENT_ID = {0} AND MODULE = 'Record-Organizer'", CLIENT_ID)
'LICENSE_COUNT = split(1) DT_LICENSE_ADDONS = ClassDatabase.Return_Datatable(sql)
For Each license_Row As DataRow In DT_LICENSE_ADDONS.Rows
Dim expired As Boolean = False
If LogErrorsOnly = False Then ClassLogger.Add(" >> AddOnName: " & license_Row.Item("NAME"), False)
Dim result = ClassHelper.DecryptString(license_Row.Item("VALID_DATE"), license_Row.Item("NAME"))
If result <> "" Then
Dim datesplit() = result.ToString.Split("-")
Dim licdate As Date = New Date(datesplit(0), datesplit(1), datesplit(2))
Dim license_date = CDate(result)
If CDate(licdate) < CDate(todayDate) Then
expired = True
license_Row.Item("State") = "Expired"
Else
expired = False
license_Row.Item("State") = "Valid"
End If
Else
expired = True
End If
If license_Row.Item("NAME") = "Proxy-Server" Then
If expired = False Then
LICENSE_PROXY = True
End If
ElseIf license_Row.Item("NAME") = "Site-AddOn" Then
If expired = False Then
LICENSE_SITE = True
End If
ElseIf license_Row.Item("NAME") = "SAP-Connect" Then
If expired = False Then
LICENSE_SAP_Connect = True
End If
End If
Next
Try Try
LICENSE_DOSSIER_COUNT = split(2) LICENSE_DOSSIER_COUNT = split(2)
@ -38,18 +97,7 @@ Public Class ClassLicence
ClassLogger.Add(">> Could not read License for LICENSE_DOSSIER_COUNT: " & ex.Message, False) ClassLogger.Add(">> Could not read License for LICENSE_DOSSIER_COUNT: " & ex.Message, False)
LICENSE_DOSSIER_COUNT = 0 LICENSE_DOSSIER_COUNT = 0
End Try End Try
Try
LICENSE_SAP_Connect = CBool(split(3))
Catch ex As Exception
ClassLogger.Add(">> Could not read License for LICENSE_SAP_Connect: " & ex.Message, False)
LICENSE_SAP_Connect = False
End Try
Try
LICENSE_SITE_PROXY = CBool(split(4))
Catch ex As Exception
ClassLogger.Add(">> Could not read License for LICENSE_SITE_Proxy: " & ex.Message, False)
LICENSE_SITE_PROXY = False
End Try
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in licensemanager:") MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in licensemanager:")
End Try End Try
@ -57,7 +105,7 @@ Public Class ClassLicence
Public Shared Function license_is_Valid() Public Shared Function license_is_Valid()
If LICENSE_EXPIRED Then If LICENSE_EXPIRED Then
MsgBox("Your license has expired!" & vbNewLine & "Last valid date: " & License_Date & vbNewLine & "Please contact Digital Data!", MsgBoxStyle.Exclamation) MsgBox("Your license has expired!" & vbNewLine & "Last valid date: " & LICENSE_DATE & vbNewLine & "Please contact Digital Data!", MsgBoxStyle.Exclamation)
Return False Return False
Else : Return True Else : Return True

58
app/DD-Record-Organizer/ClassProxy.vb
View File

@ -3,11 +3,11 @@ Public Class ClassProxy
Public Shared MyPROXYConnectionString As String = "" Public Shared MyPROXYConnectionString As String = ""
Public Shared MyLinkedServer As String Public Shared MyLinkedServer As String
Public Shared Function Refresh_Object_Data() Public Shared Function Refresh_Object_Data()
If LICENSE_SITE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then If LICENSE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
Return False Return False
End If End If
Dim sel = "DECLARE @return_value int" & vbNewLine & _ Dim sel = "DECLARE @return_value int" & vbNewLine &
"EXEC @return_value = [dbo].[PRPROXY_SYNC_OBJECTS]" & vbNewLine & _ "EXEC @return_value = [dbo].[PRPROXY_SYNC_OBJECTS]" & vbNewLine &
"SELECT 'Return Value' = @return_value" "SELECT 'Return Value' = @return_value"
Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True) Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True)
If Not IsNothing(Result) Then If Not IsNothing(Result) Then
@ -21,11 +21,11 @@ Public Class ClassProxy
End If End If
End Function End Function
Public Shared Function PRPROXY_SYNC_DOC_OBJECTS() Public Shared Function PRPROXY_SYNC_DOC_OBJECTS()
If LICENSE_SITE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then If LICENSE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
Return False Return False
End If End If
Dim sel = "DECLARE @return_value int" & vbNewLine & _ Dim sel = "DECLARE @return_value int" & vbNewLine &
"EXEC @return_value = [dbo].[PRPROXY_SYNC_DOC_OBJECTS]" & vbNewLine & _ "EXEC @return_value = [dbo].[PRPROXY_SYNC_DOC_OBJECTS]" & vbNewLine &
"SELECT 'Return Value' = @return_value" "SELECT 'Return Value' = @return_value"
Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True) Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True)
If Not IsNothing(Result) Then If Not IsNothing(Result) Then
@ -39,11 +39,11 @@ Public Class ClassProxy
End If End If
End Function End Function
Public Shared Function PRPROXY_RECORD_DEL(RECID As Integer, ENTITY_ID As Integer) Public Shared Function PRPROXY_RECORD_DEL(RECID As Integer, ENTITY_ID As Integer)
If LICENSE_SITE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then If LICENSE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
Return False Return False
End If End If
Dim sel = String.Format("DECLARE @return_value int" & vbNewLine & _ Dim sel = String.Format("DECLARE @return_value int" & vbNewLine &
"EXEC @return_value = [dbo].[PRPROXY_RECORD_DEL] {0},{1} " & vbNewLine & _ "EXEC @return_value = [dbo].[PRPROXY_RECORD_DEL] {0},{1} " & vbNewLine &
"SELECT 'Return Value' = @return_value", RECID, ENTITY_ID) "SELECT 'Return Value' = @return_value", RECID, ENTITY_ID)
Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True) Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True)
If Not IsNothing(Result) Then If Not IsNothing(Result) Then
@ -57,11 +57,11 @@ Public Class ClassProxy
End If End If
End Function End Function
Public Shared Function PRPROXY_RECORD_UPD_INS(ENT_ID As Integer, RECID As Integer) Public Shared Function PRPROXY_RECORD_UPD_INS(ENT_ID As Integer, RECID As Integer)
If LICENSE_SITE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then If LICENSE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
Return False Return False
End If End If
Dim sel = String.Format("DECLARE @return_value int" & vbNewLine & _ Dim sel = String.Format("DECLARE @return_value int" & vbNewLine &
"EXEC @return_value = [dbo].[PRPROXY_RECORD_UPD_INS] {0},{1} " & vbNewLine & _ "EXEC @return_value = [dbo].[PRPROXY_RECORD_UPD_INS] {0},{1} " & vbNewLine &
"SELECT 'Return Value' = @return_value", ENT_ID, RECID) "SELECT 'Return Value' = @return_value", ENT_ID, RECID)
Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True) Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True)
If Not IsNothing(Result) Then If Not IsNothing(Result) Then
@ -75,11 +75,11 @@ Public Class ClassProxy
End If End If
End Function End Function
Public Shared Function PRPROXY_RECORD_CONNECT(PARENT_RECID As Integer, RECID As Integer) Public Shared Function PRPROXY_RECORD_CONNECT(PARENT_RECID As Integer, RECID As Integer)
If LICENSE_SITE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then If LICENSE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
Return False Return False
End If End If
Dim sel = String.Format("DECLARE @return_value int" & vbNewLine & _ Dim sel = String.Format("DECLARE @return_value int" & vbNewLine &
"EXEC @return_value = [dbo].[PRPROXY_RECORD_CONNECT] {0},{1} " & vbNewLine & _ "EXEC @return_value = [dbo].[PRPROXY_RECORD_CONNECT] {0},{1} " & vbNewLine &
"SELECT 'Return Value' = @return_value", PARENT_RECID, RECID) "SELECT 'Return Value' = @return_value", PARENT_RECID, RECID)
Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True) Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True)
If Not IsNothing(Result) Then If Not IsNothing(Result) Then
@ -93,11 +93,11 @@ Public Class ClassProxy
End If End If
End Function End Function
Public Shared Function PRPROXY_CONTROL_DEL(REC_ID As Integer, ENT_ID As Integer, CONTROL_ID As Integer) Public Shared Function PRPROXY_CONTROL_DEL(REC_ID As Integer, ENT_ID As Integer, CONTROL_ID As Integer)
If LICENSE_SITE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then If LICENSE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
Return False Return False
End If End If
Dim sel = String.Format("DECLARE @return_value int" & vbNewLine & _ Dim sel = String.Format("DECLARE @return_value int" & vbNewLine &
"EXEC @return_value = [dbo].[PRPROXY_CONTROL_DEL] {0},{1},{2}" & vbNewLine & _ "EXEC @return_value = [dbo].[PRPROXY_CONTROL_DEL] {0},{1},{2}" & vbNewLine &
"SELECT 'Return Value' = @return_value", REC_ID, ENT_ID, CONTROL_ID) "SELECT 'Return Value' = @return_value", REC_ID, ENT_ID, CONTROL_ID)
Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True) Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True)
If Not IsNothing(Result) Then If Not IsNothing(Result) Then
@ -111,11 +111,11 @@ Public Class ClassProxy
End If End If
End Function End Function
Public Shared Function Refresh_Workflow_Data() Public Shared Function Refresh_Workflow_Data()
If LICENSE_SITE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then If LICENSE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
Return False Return False
End If End If
Dim sel = "DECLARE @return_value int" & vbNewLine & _ Dim sel = "DECLARE @return_value int" & vbNewLine &
"EXEC @return_value = [dbo].[PRPROXY_SYNC_WORKFLOWS]" & vbNewLine & _ "EXEC @return_value = [dbo].[PRPROXY_SYNC_WORKFLOWS]" & vbNewLine &
"SELECT 'Return Value' = @return_value" "SELECT 'Return Value' = @return_value"
Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True) Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True)
If Not IsNothing(Result) Then If Not IsNothing(Result) Then
@ -129,11 +129,11 @@ Public Class ClassProxy
End If End If
End Function End Function
Public Shared Function PRPROXY_SYNC_DETAIL_OBJECT(Objectname As String) Public Shared Function PRPROXY_SYNC_DETAIL_OBJECT(Objectname As String)
If LICENSE_SITE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then If LICENSE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
Return False Return False
End If End If
Dim sel = "DECLARE @return_value int" & vbNewLine & _ Dim sel = "DECLARE @return_value int" & vbNewLine &
"EXEC @return_value = [dbo].[PRPROXY_SYNC_DETAIL_OBJECT] '" & Objectname & "'" & vbNewLine & _ "EXEC @return_value = [dbo].[PRPROXY_SYNC_DETAIL_OBJECT] '" & Objectname & "'" & vbNewLine &
"SELECT 'Return Value' = @return_value" "SELECT 'Return Value' = @return_value"
Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True) Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True)
If Not IsNothing(Result) Then If Not IsNothing(Result) Then
@ -147,11 +147,11 @@ Public Class ClassProxy
End If End If
End Function End Function
Public Shared Function PRPROXY_CONTROL_VALUE_UPD_INS(EntityID As Integer, ControlID As Integer, RecordID As Integer, Value As String) Public Shared Function PRPROXY_CONTROL_VALUE_UPD_INS(EntityID As Integer, ControlID As Integer, RecordID As Integer, Value As String)
If LICENSE_SITE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then If LICENSE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
Return False Return False
End If End If
Dim sel = String.Format("DECLARE @return_value int" & vbNewLine & _ Dim sel = String.Format("DECLARE @return_value int" & vbNewLine &
"EXEC @return_value = [dbo].[PRPROXY_CONTROL_VALUE_UPD_INS] {0},{1},{2},'{3}','{4}'" & vbNewLine & _ "EXEC @return_value = [dbo].[PRPROXY_CONTROL_VALUE_UPD_INS] {0},{1},{2},'{3}','{4}'" & vbNewLine &
"SELECT 'Return Value' = @return_value", EntityID, ControlID, RecordID, Value, USER_USERNAME) "SELECT 'Return Value' = @return_value", EntityID, ControlID, RecordID, Value, USER_USERNAME)
Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True) Dim Result As DataTable = ClassDatabase.Return_Datatable(sel, True)
If Not IsNothing(Result) Then If Not IsNothing(Result) Then
@ -165,7 +165,7 @@ Public Class ClassProxy
End If End If
End Function End Function
Public Shared Function IS_PROXY_BUSY() Public Shared Function IS_PROXY_BUSY()
If LICENSE_SITE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then If LICENSE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
Return False Return False
End If End If
Dim sql = "SELECT SYNC_RUNNING FROM TBPROXY_CONFIG WHERE GUID = 1" Dim sql = "SELECT SYNC_RUNNING FROM TBPROXY_CONFIG WHERE GUID = 1"
@ -178,7 +178,7 @@ Public Class ClassProxy
End If End If
End Function End Function
Public Shared Function PRPROXY_DOC_VALUES(DocID As Integer) Public Shared Function PRPROXY_DOC_VALUES(DocID As Integer)
If LICENSE_SITE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then If LICENSE_PROXY = False Or clsDatabase.DB_PROXY_INITIALIZED = False Then
Return False Return False
End If End If
Dim sel = String.Format("DECLARE @return_value int" & vbNewLine & _ Dim sel = String.Format("DECLARE @return_value int" & vbNewLine & _

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

@ -80,8 +80,10 @@
Public LICENSE_COUNT As Integer = 0 Public LICENSE_COUNT As Integer = 0
Public LICENSE_DOSSIER_COUNT As Integer = 0 Public LICENSE_DOSSIER_COUNT As Integer = 0
Public LICENSE_SAP_Connect As Boolean = False Public LICENSE_SAP_Connect As Boolean = False
Public LICENSE_SITE_PROXY As Boolean = False Public LICENSE_PROXY As Boolean = False
Public LICENSE_SITE As Boolean = False
Public LICENSE_DATE As Date Public LICENSE_DATE As Date
Public DT_LICENSE_ADDONS As DataTable
Public CONNECTION_CHANGED As Boolean = False Public CONNECTION_CHANGED As Boolean = False

3
app/DD-Record-Organizer/My Project/licenses.licx
View File

@ -0,0 +1,3 @@
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Navigation.TileNavPane, DevExpress.XtraBars.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

16
app/DD-Record-Organizer/frmConfig_Basic.resx
View File

@ -608,7 +608,7 @@
<value>3, 3, 3, 3</value> <value>3, 3, 3, 3</value>
</data> </data>
<data name="TabPage1.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabPage1.Size" type="System.Drawing.Size, System.Drawing">
<value>687, 333</value> <value>687, 259</value>
</data> </data>
<data name="TabPage1.TabIndex" type="System.Int32, mscorlib"> <data name="TabPage1.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
@ -1059,7 +1059,7 @@
<value>138, 15</value> <value>138, 15</value>
</data> </data>
<data name="LinkLabel1.Size" type="System.Drawing.Size, System.Drawing"> <data name="LinkLabel1.Size" type="System.Drawing.Size, System.Drawing">
<value>201, 17</value> <value>200, 17</value>
</data> </data>
<data name="LinkLabel1.TabIndex" type="System.Int32, mscorlib"> <data name="LinkLabel1.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>
@ -1086,7 +1086,7 @@
<value>3, 3, 3, 3</value> <value>3, 3, 3, 3</value>
</data> </data>
<data name="TabPage2.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabPage2.Size" type="System.Drawing.Size, System.Drawing">
<value>687, 333</value> <value>687, 259</value>
</data> </data>
<data name="TabPage2.TabIndex" type="System.Int32, mscorlib"> <data name="TabPage2.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>
@ -1170,7 +1170,7 @@
<value>11, 102</value> <value>11, 102</value>
</data> </data>
<data name="DataGridView1.Size" type="System.Drawing.Size, System.Drawing"> <data name="DataGridView1.Size" type="System.Drawing.Size, System.Drawing">
<value>192, 153</value> <value>192, 79</value>
</data> </data>
<data name="DataGridView1.TabIndex" type="System.Int32, mscorlib"> <data name="DataGridView1.TabIndex" type="System.Int32, mscorlib">
<value>15</value> <value>15</value>
@ -1341,7 +1341,7 @@
<value>3, 3, 3, 3</value> <value>3, 3, 3, 3</value>
</data> </data>
<data name="TabPage3.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabPage3.Size" type="System.Drawing.Size, System.Drawing">
<value>687, 333</value> <value>687, 259</value>
</data> </data>
<data name="TabPage3.TabIndex" type="System.Int32, mscorlib"> <data name="TabPage3.TabIndex" type="System.Int32, mscorlib">
<value>2</value> <value>2</value>
@ -1440,7 +1440,7 @@
<value>3, 3, 3, 3</value> <value>3, 3, 3, 3</value>
</data> </data>
<data name="TabPage4.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabPage4.Size" type="System.Drawing.Size, System.Drawing">
<value>687, 333</value> <value>687, 259</value>
</data> </data>
<data name="TabPage4.TabIndex" type="System.Int32, mscorlib"> <data name="TabPage4.TabIndex" type="System.Int32, mscorlib">
<value>3</value> <value>3</value>
@ -1467,7 +1467,7 @@
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="TabControl1.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>695, 359</value> <value>695, 285</value>
</data> </data>
<data name="TabControl1.TabIndex" type="System.Int32, mscorlib"> <data name="TabControl1.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
@ -1491,7 +1491,7 @@
<value>6, 13</value> <value>6, 13</value>
</data> </data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing"> <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>695, 359</value> <value>695, 285</value>
</data> </data>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing"> <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt</value> <value>Segoe UI, 8.25pt</value>

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

@ -108,7 +108,7 @@ Public Class frmConfig_Basic
Cursor = Cursors.Default Cursor = Cursors.Default
End Sub End Sub
Private Sub frmConfig_Basic_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmConfig_Basic_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If LICENSE_SITE_PROXY = True Then If LICENSE_PROXY = True Then
Me.rbConn_Proxy.Visible = True Me.rbConn_Proxy.Visible = True
Else Else
Me.rbConn_Proxy.Visible = False Me.rbConn_Proxy.Visible = False

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

@ -386,8 +386,8 @@ Partial Class frmConstructor_Main
'tsmINewText 'tsmINewText
' '
Me.tsmINewText.BackColor = System.Drawing.Color.Yellow Me.tsmINewText.BackColor = System.Drawing.Color.Yellow
resources.ApplyResources(Me.tsmINewText, "tsmINewText")
Me.tsmINewText.Name = "tsmINewText" Me.tsmINewText.Name = "tsmINewText"
resources.ApplyResources(Me.tsmINewText, "tsmINewText")
' '
'ToolStripSeparator15 'ToolStripSeparator15
' '
@ -1310,8 +1310,8 @@ Partial Class frmConstructor_Main
'CMDoc_TextBoxRenameFile 'CMDoc_TextBoxRenameFile
' '
Me.CMDoc_TextBoxRenameFile.BackColor = System.Drawing.Color.Orange Me.CMDoc_TextBoxRenameFile.BackColor = System.Drawing.Color.Orange
resources.ApplyResources(Me.CMDoc_TextBoxRenameFile, "CMDoc_TextBoxRenameFile")
Me.CMDoc_TextBoxRenameFile.Name = "CMDoc_TextBoxRenameFile" Me.CMDoc_TextBoxRenameFile.Name = "CMDoc_TextBoxRenameFile"
resources.ApplyResources(Me.CMDoc_TextBoxRenameFile, "CMDoc_TextBoxRenameFile")
' '
'DisplaynameUmbenennenToolStripMenuItem 'DisplaynameUmbenennenToolStripMenuItem
' '
@ -1322,8 +1322,8 @@ Partial Class frmConstructor_Main
'CMDoc_TextBoxRenameDisplay 'CMDoc_TextBoxRenameDisplay
' '
Me.CMDoc_TextBoxRenameDisplay.BackColor = System.Drawing.Color.DarkOrange Me.CMDoc_TextBoxRenameDisplay.BackColor = System.Drawing.Color.DarkOrange
resources.ApplyResources(Me.CMDoc_TextBoxRenameDisplay, "CMDoc_TextBoxRenameDisplay")
Me.CMDoc_TextBoxRenameDisplay.Name = "CMDoc_TextBoxRenameDisplay" Me.CMDoc_TextBoxRenameDisplay.Name = "CMDoc_TextBoxRenameDisplay"
resources.ApplyResources(Me.CMDoc_TextBoxRenameDisplay, "CMDoc_TextBoxRenameDisplay")
' '
'docCM_InWork 'docCM_InWork
' '

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

@ -285,9 +285,6 @@
<data name="SdsdToolStripMenuItem.Text" xml:space="preserve"> <data name="SdsdToolStripMenuItem.Text" xml:space="preserve">
<value>Knotentext:</value> <value>Knotentext:</value>
</data> </data>
<data name="tsmINewText.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9pt</value>
</data>
<data name="tsmINewText.Size" type="System.Drawing.Size, System.Drawing"> <data name="tsmINewText.Size" type="System.Drawing.Size, System.Drawing">
<value>152, 23</value> <value>152, 23</value>
</data> </data>
@ -528,7 +525,7 @@
<value>0, 25</value> <value>0, 25</value>
</data> </data>
<data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing"> <data name="GridControlMain.Size" type="System.Drawing.Size, System.Drawing">
<value>1074, 212</value> <value>1067, 212</value>
</data> </data>
<data name="GridControlMain.TabIndex" type="System.Int32, mscorlib"> <data name="GridControlMain.TabIndex" type="System.Int32, mscorlib">
<value>2</value> <value>2</value>
@ -537,7 +534,7 @@
<value>GridControlMain</value> <value>GridControlMain</value>
</data> </data>
<data name="&gt;&gt;GridControlMain.Type" xml:space="preserve"> <data name="&gt;&gt;GridControlMain.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;GridControlMain.Parent" xml:space="preserve"> <data name="&gt;&gt;GridControlMain.Parent" xml:space="preserve">
<value>SplitContainerTop.Panel2</value> <value>SplitContainerTop.Panel2</value>
@ -656,7 +653,7 @@
<value>Neu laden</value> <value>Neu laden</value>
</data> </data>
<data name="tsbtnRefresh_Entity.ToolTipText" xml:space="preserve"> <data name="tsbtnRefresh_Entity.ToolTipText" xml:space="preserve">
<value>Neu laden (strg&amp;R)</value> <value>Daten zu Entität neu laden (strg&amp;R)</value>
</data> </data>
<data name="tsbtnGeodata.ImageTransparentColor" type="System.Drawing.Color, System.Drawing"> <data name="tsbtnGeodata.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value> <value>Magenta</value>
@ -671,7 +668,7 @@
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="ToolStripRecords.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripRecords.Size" type="System.Drawing.Size, System.Drawing">
<value>1074, 25</value> <value>1067, 25</value>
</data> </data>
<data name="ToolStripRecords.TabIndex" type="System.Int32, mscorlib"> <data name="ToolStripRecords.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>
@ -707,7 +704,7 @@
<value>SplitContainerTop</value> <value>SplitContainerTop</value>
</data> </data>
<data name="&gt;&gt;SplitContainerTop.Type" xml:space="preserve"> <data name="&gt;&gt;SplitContainerTop.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;SplitContainerTop.Parent" xml:space="preserve"> <data name="&gt;&gt;SplitContainerTop.Parent" xml:space="preserve">
<value>SplitContainerMain.Panel1</value> <value>SplitContainerMain.Panel1</value>
@ -755,7 +752,7 @@
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="pnlDetails.Size" type="System.Drawing.Size, System.Drawing"> <data name="pnlDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>699, 343</value> <value>699, 336</value>
</data> </data>
<data name="pnlDetails.TabIndex" type="System.Int32, mscorlib"> <data name="pnlDetails.TabIndex" type="System.Int32, mscorlib">
<value>4</value> <value>4</value>
@ -785,7 +782,7 @@
<value>0, 26</value> <value>0, 26</value>
</data> </data>
<data name="pnlDocFill.Size" type="System.Drawing.Size, System.Drawing"> <data name="pnlDocFill.Size" type="System.Drawing.Size, System.Drawing">
<value>648, 293</value> <value>641, 286</value>
</data> </data>
<data name="pnlDocFill.TabIndex" type="System.Int32, mscorlib"> <data name="pnlDocFill.TabIndex" type="System.Int32, mscorlib">
<value>5</value> <value>5</value>
@ -832,10 +829,10 @@
<value>Ansicht eingeschränkt - Klick Bearbeiten für Entsperren</value> <value>Ansicht eingeschränkt - Klick Bearbeiten für Entsperren</value>
</data> </data>
<data name="statStripDoc.Location" type="System.Drawing.Point, System.Drawing"> <data name="statStripDoc.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 319</value> <value>0, 312</value>
</data> </data>
<data name="statStripDoc.Size" type="System.Drawing.Size, System.Drawing"> <data name="statStripDoc.Size" type="System.Drawing.Size, System.Drawing">
<value>648, 24</value> <value>641, 24</value>
</data> </data>
<data name="statStripDoc.TabIndex" type="System.Int32, mscorlib"> <data name="statStripDoc.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
@ -862,7 +859,7 @@
<value>0, 0</value> <value>0, 0</value>
</data> </data>
<data name="pnlDocToolStrip.Size" type="System.Drawing.Size, System.Drawing"> <data name="pnlDocToolStrip.Size" type="System.Drawing.Size, System.Drawing">
<value>648, 26</value> <value>641, 26</value>
</data> </data>
<data name="pnlDocToolStrip.TabIndex" type="System.Int32, mscorlib"> <data name="pnlDocToolStrip.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
@ -883,7 +880,7 @@
<value>Panel2</value> <value>Panel2</value>
</data> </data>
<data name="SplitContainerDetails.Size" type="System.Drawing.Size, System.Drawing"> <data name="SplitContainerDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 347</value> <value>1356, 340</value>
</data> </data>
<data name="SplitContainerDetails.TabIndex" type="System.Int32, mscorlib"> <data name="SplitContainerDetails.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>
@ -895,7 +892,7 @@
<value>SplitContainerDetails</value> <value>SplitContainerDetails</value>
</data> </data>
<data name="&gt;&gt;SplitContainerDetails.Type" xml:space="preserve"> <data name="&gt;&gt;SplitContainerDetails.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;SplitContainerDetails.Parent" xml:space="preserve"> <data name="&gt;&gt;SplitContainerDetails.Parent" xml:space="preserve">
<value>TabDetails</value> <value>TabDetails</value>
@ -1059,7 +1056,7 @@
<value>1</value> <value>1</value>
</data> </data>
<data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1356, 372</value> <value>1356, 365</value>
</data> </data>
<data name="TabDetails.Text" xml:space="preserve"> <data name="TabDetails.Text" xml:space="preserve">
<value>Detailansicht</value> <value>Detailansicht</value>
@ -1068,7 +1065,7 @@
<value>TabDetails</value> <value>TabDetails</value>
</data> </data>
<data name="&gt;&gt;TabDetails.Type" xml:space="preserve"> <data name="&gt;&gt;TabDetails.Type" xml:space="preserve">
<value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;TabDetails.Parent" xml:space="preserve"> <data name="&gt;&gt;TabDetails.Parent" xml:space="preserve">
<value>TCDetails</value> <value>TCDetails</value>
@ -1077,7 +1074,7 @@
<value>0</value> <value>0</value>
</data> </data>
<data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing"> <data name="TCDetails.Size" type="System.Drawing.Size, System.Drawing">
<value>1362, 403</value> <value>1362, 396</value>
</data> </data>
<data name="TCDetails.TabIndex" type="System.Int32, mscorlib"> <data name="TCDetails.TabIndex" type="System.Int32, mscorlib">
<value>3</value> <value>3</value>
@ -1101,7 +1098,7 @@
<value>GridControlPos</value> <value>GridControlPos</value>
</data> </data>
<data name="&gt;&gt;GridControlPos.Type" xml:space="preserve"> <data name="&gt;&gt;GridControlPos.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;GridControlPos.Parent" xml:space="preserve"> <data name="&gt;&gt;GridControlPos.Parent" xml:space="preserve">
<value>Panel1</value> <value>Panel1</value>
@ -1212,9 +1209,6 @@
<data name="BindingNavigatorPositionItem.AutoSize" type="System.Boolean, mscorlib"> <data name="BindingNavigatorPositionItem.AutoSize" type="System.Boolean, mscorlib">
<value>False</value> <value>False</value>
</data> </data>
<data name="BindingNavigatorPositionItem.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9pt</value>
</data>
<data name="BindingNavigatorPositionItem.Size" type="System.Drawing.Size, System.Drawing"> <data name="BindingNavigatorPositionItem.Size" type="System.Drawing.Size, System.Drawing">
<value>50, 23</value> <value>50, 23</value>
</data> </data>
@ -1382,7 +1376,7 @@
<value>TabPos</value> <value>TabPos</value>
</data> </data>
<data name="&gt;&gt;TabPos.Type" xml:space="preserve"> <data name="&gt;&gt;TabPos.Type" xml:space="preserve">
<value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;TabPos.Parent" xml:space="preserve"> <data name="&gt;&gt;TabPos.Parent" xml:space="preserve">
<value>TCDetails</value> <value>TCDetails</value>
@ -1444,7 +1438,7 @@
<value>GridControlDocSearch</value> <value>GridControlDocSearch</value>
</data> </data>
<data name="&gt;&gt;GridControlDocSearch.Type" xml:space="preserve"> <data name="&gt;&gt;GridControlDocSearch.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;GridControlDocSearch.Parent" xml:space="preserve"> <data name="&gt;&gt;GridControlDocSearch.Parent" xml:space="preserve">
<value>TabWindream</value> <value>TabWindream</value>
@ -1546,7 +1540,7 @@
<value>TabWindream</value> <value>TabWindream</value>
</data> </data>
<data name="&gt;&gt;TabWindream.Type" xml:space="preserve"> <data name="&gt;&gt;TabWindream.Type" xml:space="preserve">
<value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;TabWindream.Parent" xml:space="preserve"> <data name="&gt;&gt;TabWindream.Parent" xml:space="preserve">
<value>TCDetails</value> <value>TCDetails</value>
@ -1977,7 +1971,7 @@
<value>TabFollowUp</value> <value>TabFollowUp</value>
</data> </data>
<data name="&gt;&gt;TabFollowUp.Type" xml:space="preserve"> <data name="&gt;&gt;TabFollowUp.Type" xml:space="preserve">
<value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;TabFollowUp.Parent" xml:space="preserve"> <data name="&gt;&gt;TabFollowUp.Parent" xml:space="preserve">
<value>TCDetails</value> <value>TCDetails</value>
@ -2088,7 +2082,7 @@
<value>GridControl1</value> <value>GridControl1</value>
</data> </data>
<data name="&gt;&gt;GridControl1.Type" xml:space="preserve"> <data name="&gt;&gt;GridControl1.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;GridControl1.Parent" xml:space="preserve"> <data name="&gt;&gt;GridControl1.Parent" xml:space="preserve">
<value>TabPageVariant</value> <value>TabPageVariant</value>
@ -2160,7 +2154,7 @@
<value>TabPageVariant</value> <value>TabPageVariant</value>
</data> </data>
<data name="&gt;&gt;TabPageVariant.Type" xml:space="preserve"> <data name="&gt;&gt;TabPageVariant.Type" xml:space="preserve">
<value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;TabPageVariant.Parent" xml:space="preserve"> <data name="&gt;&gt;TabPageVariant.Parent" xml:space="preserve">
<value>TCDetails</value> <value>TCDetails</value>
@ -2172,7 +2166,7 @@
<value>TCDetails</value> <value>TCDetails</value>
</data> </data>
<data name="&gt;&gt;TCDetails.Type" xml:space="preserve"> <data name="&gt;&gt;TCDetails.Type" xml:space="preserve">
<value>DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;TCDetails.Parent" xml:space="preserve"> <data name="&gt;&gt;TCDetails.Parent" xml:space="preserve">
<value>SplitContainerMain.Panel2</value> <value>SplitContainerMain.Panel2</value>
@ -2196,7 +2190,7 @@
<value>SplitContainerMain</value> <value>SplitContainerMain</value>
</data> </data>
<data name="&gt;&gt;SplitContainerMain.Type" xml:space="preserve"> <data name="&gt;&gt;SplitContainerMain.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;SplitContainerMain.Parent" xml:space="preserve"> <data name="&gt;&gt;SplitContainerMain.Parent" xml:space="preserve">
<value>SplitContainerFORM.Panel2</value> <value>SplitContainerFORM.Panel2</value>
@ -2229,7 +2223,7 @@
<value>SplitContainerFORM</value> <value>SplitContainerFORM</value>
</data> </data>
<data name="&gt;&gt;SplitContainerFORM.Type" xml:space="preserve"> <data name="&gt;&gt;SplitContainerFORM.Type" xml:space="preserve">
<value>DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraEditors.SplitContainerControl, DevExpress.Utils.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;SplitContainerFORM.Parent" xml:space="preserve"> <data name="&gt;&gt;SplitContainerFORM.Parent" xml:space="preserve">
<value>$this</value> <value>$this</value>
@ -2285,9 +2279,6 @@
<data name="ToolStripSeparator20.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripSeparator20.Size" type="System.Drawing.Size, System.Drawing">
<value>248, 6</value> <value>248, 6</value>
</data> </data>
<data name="CMDoc_TextBoxRenameFile.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9pt</value>
</data>
<data name="CMDoc_TextBoxRenameFile.Size" type="System.Drawing.Size, System.Drawing"> <data name="CMDoc_TextBoxRenameFile.Size" type="System.Drawing.Size, System.Drawing">
<value>152, 23</value> <value>152, 23</value>
</data> </data>
@ -2300,9 +2291,6 @@
<data name="NeuToolStripMenuItem.Text" xml:space="preserve"> <data name="NeuToolStripMenuItem.Text" xml:space="preserve">
<value>Dateinamen umbenennen</value> <value>Dateinamen umbenennen</value>
</data> </data>
<data name="CMDoc_TextBoxRenameDisplay.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9pt</value>
</data>
<data name="CMDoc_TextBoxRenameDisplay.Size" type="System.Drawing.Size, System.Drawing"> <data name="CMDoc_TextBoxRenameDisplay.Size" type="System.Drawing.Size, System.Drawing">
<value>152, 23</value> <value>152, 23</value>
</data> </data>
@ -2508,7 +2496,7 @@
<value>NavPane</value> <value>NavPane</value>
</data> </data>
<data name="&gt;&gt;NavPane.Type" xml:space="preserve"> <data name="&gt;&gt;NavPane.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Navigation.TileNavPane, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.Navigation.TileNavPane, DevExpress.XtraBars.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;NavPane.Parent" xml:space="preserve"> <data name="&gt;&gt;NavPane.Parent" xml:space="preserve">
<value>$this</value> <value>$this</value>
@ -2538,7 +2526,7 @@
<value>DocID:</value> <value>DocID:</value>
</data> </data>
<data name="tsslblWorkflowstate.Size" type="System.Drawing.Size, System.Drawing"> <data name="tsslblWorkflowstate.Size" type="System.Drawing.Size, System.Drawing">
<value>121, 19</value> <value>120, 19</value>
</data> </data>
<data name="tsslblWorkflowstate.Text" xml:space="preserve"> <data name="tsslblWorkflowstate.Text" xml:space="preserve">
<value>ToolStripStatusLabel1</value> <value>ToolStripStatusLabel1</value>
@ -2585,12 +2573,12 @@
<metadata name="ImageCollection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ImageCollection1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>444, 17</value> <value>444, 17</value>
</metadata> </metadata>
<assembly alias="DevExpress.Utils.v15.2" name="DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <assembly alias="DevExpress.Utils.v15.2" name="DevExpress.Utils.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<data name="ImageCollection1.ImageStream" type="DevExpress.Utils.ImageCollectionStreamer, DevExpress.Utils.v15.2" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="ImageCollection1.ImageStream" type="DevExpress.Utils.ImageCollectionStreamer, DevExpress.Utils.v15.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxNS4yLCBWZXJzaW9uPTE1LjIu AAEAAAD/////AQAAAAAAAAAMAgAAAFtEZXZFeHByZXNzLlV0aWxzLnYxNS4yLCBWZXJzaW9uPTE1LjIu
OS4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEFAQAAAChE MTUuMCwgQ3VsdHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iODhkMTc1NGQ3MDBlNDlhBQEAAAAo
ZXZFeHByZXNzLlV0aWxzLkltYWdlQ29sbGVjdGlvblN0cmVhbWVyAAAAAAIAAAAL RGV2RXhwcmVzcy5VdGlscy5JbWFnZUNvbGxlY3Rpb25TdHJlYW1lcgAAAAACAAAACw==
</value> </value>
</data> </data>
<metadata name="ttToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ttToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@ -3328,19 +3316,19 @@
<value>grvwGrid</value> <value>grvwGrid</value>
</data> </data>
<data name="&gt;&gt;grvwGrid.Type" xml:space="preserve"> <data name="&gt;&gt;grvwGrid.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;grvwCarousel.Name" xml:space="preserve"> <data name="&gt;&gt;grvwCarousel.Name" xml:space="preserve">
<value>grvwCarousel</value> <value>grvwCarousel</value>
</data> </data>
<data name="&gt;&gt;grvwCarousel.Type" xml:space="preserve"> <data name="&gt;&gt;grvwCarousel.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Views.Layout.LayoutView, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.Views.Layout.LayoutView, DevExpress.XtraGrid.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;grvwTiles.Name" xml:space="preserve"> <data name="&gt;&gt;grvwTiles.Name" xml:space="preserve">
<value>grvwTiles</value> <value>grvwTiles</value>
</data> </data>
<data name="&gt;&gt;grvwTiles.Type" xml:space="preserve"> <data name="&gt;&gt;grvwTiles.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Views.Tile.TileView, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.Views.Tile.TileView, DevExpress.XtraGrid.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;tslbldisplayRecords.Name" xml:space="preserve"> <data name="&gt;&gt;tslbldisplayRecords.Name" xml:space="preserve">
<value>tslbldisplayRecords</value> <value>tslbldisplayRecords</value>
@ -3508,7 +3496,7 @@
<value>grvwGridPos</value> <value>grvwGridPos</value>
</data> </data>
<data name="&gt;&gt;grvwGridPos.Type" xml:space="preserve"> <data name="&gt;&gt;grvwGridPos.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;BindingNavigatorAddNewItem.Name" xml:space="preserve"> <data name="&gt;&gt;BindingNavigatorAddNewItem.Name" xml:space="preserve">
<value>BindingNavigatorAddNewItem</value> <value>BindingNavigatorAddNewItem</value>
@ -3610,7 +3598,7 @@
<value>GridViewDoc_Search</value> <value>GridViewDoc_Search</value>
</data> </data>
<data name="&gt;&gt;GridViewDoc_Search.Type" xml:space="preserve"> <data name="&gt;&gt;GridViewDoc_Search.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;tslblWindreamView.Name" xml:space="preserve"> <data name="&gt;&gt;tslblWindreamView.Name" xml:space="preserve">
<value>tslblWindreamView</value> <value>tslblWindreamView</value>
@ -3670,49 +3658,49 @@
<value>DD_DMSDataSet</value> <value>DD_DMSDataSet</value>
</data> </data>
<data name="&gt;&gt;DD_DMSDataSet.Type" xml:space="preserve"> <data name="&gt;&gt;DD_DMSDataSet.Type" xml:space="preserve">
<value>DD_Record_Organizer.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value> <value>DD_Record_Organizer.DD_DMSDataSet, DD_DMSDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
</data> </data>
<data name="&gt;&gt;GridViewVariants.Name" xml:space="preserve"> <data name="&gt;&gt;GridViewVariants.Name" xml:space="preserve">
<value>GridViewVariants</value> <value>GridViewVariants</value>
</data> </data>
<data name="&gt;&gt;GridViewVariants.Type" xml:space="preserve"> <data name="&gt;&gt;GridViewVariants.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;GridColumn1.Name" xml:space="preserve"> <data name="&gt;&gt;GridColumn1.Name" xml:space="preserve">
<value>GridColumn1</value> <value>GridColumn1</value>
</data> </data>
<data name="&gt;&gt;GridColumn1.Type" xml:space="preserve"> <data name="&gt;&gt;GridColumn1.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;colREASON_CODE.Name" xml:space="preserve"> <data name="&gt;&gt;colREASON_CODE.Name" xml:space="preserve">
<value>colREASON_CODE</value> <value>colREASON_CODE</value>
</data> </data>
<data name="&gt;&gt;colREASON_CODE.Type" xml:space="preserve"> <data name="&gt;&gt;colREASON_CODE.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;colCOMMENT.Name" xml:space="preserve"> <data name="&gt;&gt;colCOMMENT.Name" xml:space="preserve">
<value>colCOMMENT</value> <value>colCOMMENT</value>
</data> </data>
<data name="&gt;&gt;colCOMMENT.Type" xml:space="preserve"> <data name="&gt;&gt;colCOMMENT.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;colADDED_WHO.Name" xml:space="preserve"> <data name="&gt;&gt;colADDED_WHO.Name" xml:space="preserve">
<value>colADDED_WHO</value> <value>colADDED_WHO</value>
</data> </data>
<data name="&gt;&gt;colADDED_WHO.Type" xml:space="preserve"> <data name="&gt;&gt;colADDED_WHO.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;colADDED_WHEN.Name" xml:space="preserve"> <data name="&gt;&gt;colADDED_WHEN.Name" xml:space="preserve">
<value>colADDED_WHEN</value> <value>colADDED_WHEN</value>
</data> </data>
<data name="&gt;&gt;colADDED_WHEN.Type" xml:space="preserve"> <data name="&gt;&gt;colADDED_WHEN.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;colRECORD_ID.Name" xml:space="preserve"> <data name="&gt;&gt;colRECORD_ID.Name" xml:space="preserve">
<value>colRECORD_ID</value> <value>colRECORD_ID</value>
</data> </data>
<data name="&gt;&gt;colRECORD_ID.Type" xml:space="preserve"> <data name="&gt;&gt;colRECORD_ID.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;tslblVariantsCount.Name" xml:space="preserve"> <data name="&gt;&gt;tslblVariantsCount.Name" xml:space="preserve">
<value>tslblVariantsCount</value> <value>tslblVariantsCount</value>
@ -3904,19 +3892,19 @@
<value>TileNavCategory1</value> <value>TileNavCategory1</value>
</data> </data>
<data name="&gt;&gt;TileNavCategory1.Type" xml:space="preserve"> <data name="&gt;&gt;TileNavCategory1.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Navigation.TileNavCategory, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.Navigation.TileNavCategory, DevExpress.XtraBars.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;NavButtonHome.Name" xml:space="preserve"> <data name="&gt;&gt;NavButtonHome.Name" xml:space="preserve">
<value>NavButtonHome</value> <value>NavButtonHome</value>
</data> </data>
<data name="&gt;&gt;NavButtonHome.Type" xml:space="preserve"> <data name="&gt;&gt;NavButtonHome.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Navigation.NavButton, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.Navigation.NavButton, DevExpress.XtraBars.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;NavButtonRefresh.Name" xml:space="preserve"> <data name="&gt;&gt;NavButtonRefresh.Name" xml:space="preserve">
<value>NavButtonRefresh</value> <value>NavButtonRefresh</value>
</data> </data>
<data name="&gt;&gt;NavButtonRefresh.Type" xml:space="preserve"> <data name="&gt;&gt;NavButtonRefresh.Type" xml:space="preserve">
<value>DevExpress.XtraBars.Navigation.NavButton, DevExpress.XtraBars.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.XtraBars.Navigation.NavButton, DevExpress.XtraBars.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;tsslblStatus.Name" xml:space="preserve"> <data name="&gt;&gt;tsslblStatus.Name" xml:space="preserve">
<value>tsslblStatus</value> <value>tsslblStatus</value>
@ -3958,13 +3946,13 @@
<value>DD_ECMAdmin</value> <value>DD_ECMAdmin</value>
</data> </data>
<data name="&gt;&gt;DD_ECMAdmin.Type" xml:space="preserve"> <data name="&gt;&gt;DD_ECMAdmin.Type" xml:space="preserve">
<value>DD_Record_Organizer.DD_ECMAdmin, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value> <value>DD_Record_Organizer.DD_ECMAdmin, DD_ECMAdmin.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
</data> </data>
<data name="&gt;&gt;ImageCollection1.Name" xml:space="preserve"> <data name="&gt;&gt;ImageCollection1.Name" xml:space="preserve">
<value>ImageCollection1</value> <value>ImageCollection1</value>
</data> </data>
<data name="&gt;&gt;ImageCollection1.Type" xml:space="preserve"> <data name="&gt;&gt;ImageCollection1.Type" xml:space="preserve">
<value>DevExpress.Utils.ImageCollection, DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.Utils.ImageCollection, DevExpress.Utils.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;ttToolTip.Name" xml:space="preserve"> <data name="&gt;&gt;ttToolTip.Name" xml:space="preserve">
<value>ttToolTip</value> <value>ttToolTip</value>
@ -3988,19 +3976,19 @@
<value>TableAdapterManager</value> <value>TableAdapterManager</value>
</data> </data>
<data name="&gt;&gt;TableAdapterManager.Type" xml:space="preserve"> <data name="&gt;&gt;TableAdapterManager.Type" xml:space="preserve">
<value>DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value> <value>DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
</data> </data>
<data name="&gt;&gt;ToolTipController.Name" xml:space="preserve"> <data name="&gt;&gt;ToolTipController.Name" xml:space="preserve">
<value>ToolTipController</value> <value>ToolTipController</value>
</data> </data>
<data name="&gt;&gt;ToolTipController.Type" xml:space="preserve"> <data name="&gt;&gt;ToolTipController.Type" xml:space="preserve">
<value>DevExpress.Utils.ToolTipController, DevExpress.Utils.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value> <value>DevExpress.Utils.ToolTipController, DevExpress.Utils.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data> </data>
<data name="&gt;&gt;TBPMO_RECORD_VARIANTTableAdapter.Name" xml:space="preserve"> <data name="&gt;&gt;TBPMO_RECORD_VARIANTTableAdapter.Name" xml:space="preserve">
<value>TBPMO_RECORD_VARIANTTableAdapter</value> <value>TBPMO_RECORD_VARIANTTableAdapter</value>
</data> </data>
<data name="&gt;&gt;TBPMO_RECORD_VARIANTTableAdapter.Type" xml:space="preserve"> <data name="&gt;&gt;TBPMO_RECORD_VARIANTTableAdapter.Type" xml:space="preserve">
<value>DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_RECORD_VARIANTTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value> <value>DD_Record_Organizer.DD_DMSDataSetTableAdapters.TBPMO_RECORD_VARIANTTableAdapter, DD_DMSDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
</data> </data>
<data name="&gt;&gt;TimerClearResultfiles.Name" xml:space="preserve"> <data name="&gt;&gt;TimerClearResultfiles.Name" xml:space="preserve">
<value>TimerClearResultfiles</value> <value>TimerClearResultfiles</value>

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

@ -274,7 +274,7 @@ Public Class frmConstructor_Main
'Try 'Try
Dim SQL Dim SQL
Dim DT_PROXY_ENTITY As DataTable Dim DT_PROXY_ENTITY As DataTable
If LICENSE_SITE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
SQL = "SELECT * FROM TBPROXY_SYNC_ENTITY" SQL = "SELECT * FROM TBPROXY_SYNC_ENTITY"
DT_PROXY_ENTITY = ClassDatabase.Return_Datatable(SQL, True) DT_PROXY_ENTITY = ClassDatabase.Return_Datatable(SQL, True)
End If End If
@ -282,15 +282,15 @@ Public Class frmConstructor_Main
ClassWindowLocation.LoadFormLocationSize(Me, CONSTRUCTORID, CURRENT_SCREEN_ID, "CONSTRUCTOR_MAIN") ClassWindowLocation.LoadFormLocationSize(Me, CONSTRUCTORID, CURRENT_SCREEN_ID, "CONSTRUCTOR_MAIN")
' VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString ' VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString
ClassWorkflow.Refresh_Workflows_Entity() ClassWorkflow.Refresh_Workflows_Entity()
SQL = String.Format("SELECT *, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " & _ SQL = String.Format("SELECT *, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " &
"FROM VWPMO_CONSTRUCTOR_FORMS WHERE SCREEN_ID = {2} AND CONSTRUCT_ID = {3} ORDER BY SEQUENCE", USER_LANGUAGE, CURRENT_SCREEN_ID, CURRENT_SCREEN_ID, CONSTRUCTORID) "FROM VWPMO_CONSTRUCTOR_FORMS WHERE SCREEN_ID = {2} AND CONSTRUCT_ID = {3} ORDER BY SEQUENCE", USER_LANGUAGE, CURRENT_SCREEN_ID, CURRENT_SCREEN_ID, CONSTRUCTORID)
DT_VWPMO_CONSTRUCTOR_FORMS = ClassDatabase.Return_Datatable(SQL, True) DT_VWPMO_CONSTRUCTOR_FORMS = ClassDatabase.Return_Datatable(SQL, True)
If LICENSE_SITE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
If DT_VWPMO_CONSTRUCTOR_FORMS.Rows.Count = 0 Then If DT_VWPMO_CONSTRUCTOR_FORMS.Rows.Count = 0 Then
ClassHelper.MSGBOX_Handler("ERROR", "Missing Proxy-Configuration", String.Format("Attention: You are using Proxy-Server with synchronized data:" & vbNewLine & _ ClassHelper.MSGBOX_Handler("ERROR", "Missing Proxy-Configuration", String.Format("Attention: You are using Proxy-Server with synchronized data:" & vbNewLine &
"Actually there is no data for this view synchronized or configured! Please inform Digital Data!" & vbNewLine & _ "Actually there is no data for this view synchronized or configured! Please inform Digital Data!" & vbNewLine &
"View will now be terminated!")) "View will now be terminated!"))
ERROR_FORM_LOAD = True ERROR_FORM_LOAD = True
Exit Sub Exit Sub
@ -307,8 +307,8 @@ Public Class frmConstructor_Main
Entity_Exists = True Entity_Exists = True
Next Next
If Entity_Exists = False Then If Entity_Exists = False Then
ClassHelper.MSGBOX_Handler("ERROR", "Missing Proxy-Configuration", String.Format("Attention: You are using Proxy-Server with synchronized data:" & _ ClassHelper.MSGBOX_Handler("ERROR", "Missing Proxy-Configuration", String.Format("Attention: You are using Proxy-Server with synchronized data:" &
"The entity '{0}' used in this view is not configured for Your proxy-server! Please inform Digital Data!" & _ "The entity '{0}' used in this view is not configured for Your proxy-server! Please inform Digital Data!" &
"View will now be terminated!", Entity_Name)) "View will now be terminated!", Entity_Name))
ERROR_FORM_LOAD = True ERROR_FORM_LOAD = True
Exit Sub Exit Sub
@ -381,9 +381,9 @@ Public Class frmConstructor_Main
'Die Standards ein/ausblenden 'Die Standards ein/ausblenden
End If End If
Dim sql_ResultList = "select T1.ENTITY_ID,T.GUID,T.TITLE,T.MANUALLY,T.CREATE_ON_REC_CREATE,T.CREATE_ON_FOLL_UP " & _ Dim sql_ResultList = "select T1.ENTITY_ID,T.GUID,T.TITLE,T.MANUALLY,T.CREATE_ON_REC_CREATE,T.CREATE_ON_FOLL_UP " &
"FROM TBPMO_WORKFLOW T,TBPMO_WORKFLOW_ENTITY_STATE T1 " & _ "FROM TBPMO_WORKFLOW T,TBPMO_WORKFLOW_ENTITY_STATE T1 " &
"WHERE T.GUID = T1.WF_ID " & _ "WHERE T.GUID = T1.WF_ID " &
"GROUP BY T1.ENTITY_ID,T.GUID,T.TITLE,T.MANUALLY,T.CREATE_ON_REC_CREATE,T.CREATE_ON_FOLL_UP" "GROUP BY T1.ENTITY_ID,T.GUID,T.TITLE,T.MANUALLY,T.CREATE_ON_REC_CREATE,T.CREATE_ON_FOLL_UP"
DT_WORKFLOWS_MANUAL = ClassDatabase.Return_Datatable(sql_ResultList) DT_WORKFLOWS_MANUAL = ClassDatabase.Return_Datatable(sql_ResultList)
Load_Tree_View(CONSTRUCTORID) Load_Tree_View(CONSTRUCTORID)
@ -655,6 +655,7 @@ Public Class frmConstructor_Main
End Sub End Sub
Sub Refresh_Entity_Data() Sub Refresh_Entity_Data()
If TrySave_Automatic() = True Then If TrySave_Automatic() = True Then
Save_Grid_Layout()
' Setzt die RECORD_ID auf Null ' Setzt die RECORD_ID auf Null
' damit beim Refresh keine alten Werte ' damit beim Refresh keine alten Werte
' in die Datenbank geschrieben werden ' in die Datenbank geschrieben werden
@ -1869,6 +1870,7 @@ Public Class frmConstructor_Main
' MsgBox("Proxy-Server is actually synchronizing! Please wait until synchronisation is finished!" & vbNewLine & "This might take up to 3 minutes!", MsgBoxStyle.Information) ' MsgBox("Proxy-Server is actually synchronizing! Please wait until synchronisation is finished!" & vbNewLine & "This might take up to 3 minutes!", MsgBoxStyle.Information)
' Exit Sub ' Exit Sub
'End If 'End If
Save_Grid_Layout()
Dim msg As String Dim msg As String
If RIGHT_RECORD_AND_FILE_READ_ONLY = False Then If RIGHT_RECORD_AND_FILE_READ_ONLY = False Then
msg = "Sind Sie sicher, dass Sie diesen Record/Datensatz '" & SELECTED_RECORD_ID.ToString & "' löschen wollen?" msg = "Sind Sie sicher, dass Sie diesen Record/Datensatz '" & SELECTED_RECORD_ID.ToString & "' löschen wollen?"
@ -1881,7 +1883,10 @@ Public Class frmConstructor_Main
RECORD_ID = SELECTED_RECORD_ID RECORD_ID = SELECTED_RECORD_ID
ClassRightManagement.Check_Set_Rights(RECORD_ID, ENTITY_ID) ClassRightManagement.Check_Set_Rights(RECORD_ID, ENTITY_ID)
CONTROL_HANDLING() CONTROL_HANDLING()
Dim DT_DOC_RESULT As DataTable = ClassDOC_SEARCH.Get_DOCRESULTS(DT_RESULTLIST_OPTIONS, DT_RESULTLIST_VARIABLE_VALUE, DT_WINDREAM_RESULTLIST, ENTITY_ID, "RECORD") Dim sql = String.Format("select TRL.DOC_ID, TDRL.FULL_FILENAME FROM TBPMO_DOC_RECORD_LINK TRL, TBPMO_DOCRESULT_LIST TDRL WHERE TRL.DOC_ID = TDRL.DocID AND TRL.RECORD_ID = {0}", RECORD_ID)
Dim DT_DOC_RESULT As DataTable = DD_LIB_Standards.clsDatabase.Return_Datatable(sql, False)
If IsNothing(DT_DOC_RESULT) Then If IsNothing(DT_DOC_RESULT) Then
ClassLogger.Add(">> DT_DOC_RESULT is nothing!", True) ClassLogger.Add(">> DT_DOC_RESULT is nothing!", True)
End If End If
@ -2808,7 +2813,7 @@ Public Class frmConstructor_Main
End If End If
Case 3 Case 3
Dim Parent_EntityID = ENTITY_ROW.Item("PARENT_ID") 'ClassDatabase.Execute_Scalar(sqlp, True) Dim Parent_EntityID = ENTITY_ROW.Item("PARENT_ID") 'ClassDatabase.Execute_Scalar(sqlp, True)
Dim sql As String = String.Format("SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = (SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE " & _ Dim sql As String = String.Format("SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = (SELECT T.RECORD2_ID FROM TBPMO_RECORD_CONNECT T, TBPMO_RECORD T1 WHERE " &
"T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = {0} and T1.FORM_ID = {1}) and T1.FORM_ID = {2}", RECORDID, Parent_EntityID, ENTITY_ID) "T.RECORD2_ID = T1.GUID AND T.RECORD1_ID = {0} and T1.FORM_ID = {1}) and T1.FORM_ID = {2}", RECORDID, Parent_EntityID, ENTITY_ID)
Dim PARENT_RECORD2 = ClassDatabase.Execute_Scalar(sql, True) Dim PARENT_RECORD2 = ClassDatabase.Execute_Scalar(sql, True)
If IsNothing(PARENT_RECORD2) Then If IsNothing(PARENT_RECORD2) Then
@ -3411,10 +3416,10 @@ Public Class frmConstructor_Main
result1 = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) result1 = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result1 = MsgBoxResult.Yes Then If result1 = MsgBoxResult.Yes Then
For Each row As DataRow In DT_RESULT.Rows For Each row As DataRow In DT_RESULT.Rows
Dim DOC_ID = row.Item("DocID") Dim DOC_ID = row.Item(0)
Dim path Dim path
Try Try
path = row.Item("FULL_FILENAME") path = row.Item(1)
Catch ex As Exception Catch ex As Exception
path = row.Item(1) path = row.Item(1)
End Try End Try
@ -3467,8 +3472,8 @@ Public Class frmConstructor_Main
If CURRENT_SEARCH_TYPE = "NODE_DOWN" Then If CURRENT_SEARCH_TYPE = "NODE_DOWN" Then
Dim node As TreeNode = TreeViewMain.SelectedNode Dim node As TreeNode = TreeViewMain.SelectedNode
Dim NODE_GUID = ClassNodeNavigation.Return_NODEID_forTag(node.Tag) Dim NODE_GUID = ClassNodeNavigation.Return_NODEID_forTag(node.Tag)
Dim sql = String.Format("DECLARE @return_value int " & vbNewLine & _ Dim sql = String.Format("DECLARE @return_value int " & vbNewLine &
"EXEC @return_value = [dbo].[PRPMO_NODES_GET_CHILD_RECORDS] @USER_ID = {0}, @NODE_ID = {1} " & vbNewLine & _ "EXEC @return_value = [dbo].[PRPMO_NODES_GET_CHILD_RECORDS] @USER_ID = {0}, @NODE_ID = {1} " & vbNewLine &
"SELECT 'Return Value' = @return_value", USER_GUID, NODE_GUID) "SELECT 'Return Value' = @return_value", USER_GUID, NODE_GUID)
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql) Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
@ -5309,6 +5314,7 @@ Public Class frmConstructor_Main
MASS_COLUMN_LIST = collist MASS_COLUMN_LIST = collist
MASS_RECORD_IDs2CHANGE = list MASS_RECORD_IDs2CHANGE = list
CURRENT_ENTITY_ID = ENTITY_ID CURRENT_ENTITY_ID = ENTITY_ID
Save_Grid_Layout()
frmMass_Change.ShowDialog() frmMass_Change.ShowDialog()
If SUCCESSFULL = True Then If SUCCESSFULL = True Then
Cursor = Cursors.WaitCursor Cursor = Cursors.WaitCursor
@ -5752,7 +5758,7 @@ Public Class frmConstructor_Main
End If End If
End If End If
If LICENSE_SITE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
Dim proc = String.Format("EXEC PRPROXY_DOC_CHECK_DELETE {0}", row.Item("DOC_ID")) Dim proc = String.Format("EXEC PRPROXY_DOC_CHECK_DELETE {0}", row.Item("DOC_ID"))
ClassDatabase.Execute_non_Query(proc, True) ClassDatabase.Execute_non_Query(proc, True)
End If End If
@ -5790,10 +5796,10 @@ Public Class frmConstructor_Main
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
Exit Sub Exit Sub
End If End If
sql = String.Format("SELECT [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " & _ sql = String.Format("SELECT [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), {1}) AS 'CAPTION' " &
"FROM VWPMO_CONSTRUCTOR_FORMS WHERE FORM_ID = {2}", USER_LANGUAGE, CURRENT_SCREEN_ID, node_tag.ToString) "FROM VWPMO_CONSTRUCTOR_FORMS WHERE FORM_ID = {2}", USER_LANGUAGE, CURRENT_SCREEN_ID, node_tag.ToString)
ENTITY_STRING = ClassDatabase.Execute_Scalar(sql) ENTITY_STRING = ClassDatabase.Execute_Scalar(sql)
sql = String.Format("select count(guid) from TBPMO_CONTROL_ENTITY_LINK where ORIGIN_CTRL_ID in (SELECT GUID FROM TBPMO_CONTROL where FORM_ID = {0}) " & _ sql = String.Format("select count(guid) from TBPMO_CONTROL_ENTITY_LINK where ORIGIN_CTRL_ID in (SELECT GUID FROM TBPMO_CONTROL where FORM_ID = {0}) " &
"AND LINKED_CTRL_ID IN (SELECT GUID FROM TBPMO_CONTROL where FORM_ID = {1})", ENTITY_ID, node_tag) "AND LINKED_CTRL_ID IN (SELECT GUID FROM TBPMO_CONTROL where FORM_ID = {1})", ENTITY_ID, node_tag)
Dim count = ClassDatabase.Execute_Scalar(sql) Dim count = ClassDatabase.Execute_Scalar(sql)
If Not IsNothing(count) Then If Not IsNothing(count) Then
@ -5825,7 +5831,7 @@ Public Class frmConstructor_Main
clsWD_SET.REMOVE_VEKTOR_LINK(doc.Item("FULL_FILENAME"), DT_INDICES.Rows(0).Item("IDXNAME_ENTITYID"), ENTITY_ID) clsWD_SET.REMOVE_VEKTOR_LINK(doc.Item("FULL_FILENAME"), DT_INDICES.Rows(0).Item("IDXNAME_ENTITYID"), ENTITY_ID)
Next Next
sql = String.Format("select ORIGIN_CTRL_ID,LINKED_CTRL_ID from TBPMO_CONTROL_ENTITY_LINK where ORIGIN_CTRL_ID in (SELECT GUID FROM TBPMO_CONTROL where FORM_ID = {0}) " & _ sql = String.Format("select ORIGIN_CTRL_ID,LINKED_CTRL_ID from TBPMO_CONTROL_ENTITY_LINK where ORIGIN_CTRL_ID in (SELECT GUID FROM TBPMO_CONTROL where FORM_ID = {0}) " &
"AND LINKED_CTRL_ID IN (SELECT GUID FROM TBPMO_CONTROL where FORM_ID = {1})", ENTITY_ID, node_tag) "AND LINKED_CTRL_ID IN (SELECT GUID FROM TBPMO_CONTROL where FORM_ID = {1})", ENTITY_ID, node_tag)
Dim DT_CHANGE_CTR As DataTable = ClassDatabase.Return_Datatable(sql) Dim DT_CHANGE_CTR As DataTable = ClassDatabase.Return_Datatable(sql)
For Each row As DataRow In DT_CHANGE_CTR.Rows For Each row As DataRow In DT_CHANGE_CTR.Rows
@ -6041,7 +6047,7 @@ Public Class frmConstructor_Main
Private Sub Load_Variants() Private Sub Load_Variants()
Try Try
If LICENSE_SITE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
Me.TBPMO_RECORD_VARIANTTableAdapter.Connection.ConnectionString = ClassProxy.MyPROXYConnectionString Me.TBPMO_RECORD_VARIANTTableAdapter.Connection.ConnectionString = ClassProxy.MyPROXYConnectionString
Else Else
Me.TBPMO_RECORD_VARIANTTableAdapter.Connection.ConnectionString = MyConnectionString Me.TBPMO_RECORD_VARIANTTableAdapter.Connection.ConnectionString = MyConnectionString
@ -6205,10 +6211,10 @@ Public Class frmConstructor_Main
' Rename file. ' Rename file.
My.Computer.FileSystem.RenameFile(OldName, NewName) My.Computer.FileSystem.RenameFile(OldName, NewName)
Cursor = Cursors.WaitCursor Cursor = Cursors.WaitCursor
Dim upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET Filename = '{0}', FULL_FILENAME = '{1}', CHANGED_WHO = '{2}', CHANGED_WHEN = GETDATE() WHERE DocID = {3}", _ Dim upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET Filename = '{0}', FULL_FILENAME = '{1}', CHANGED_WHO = '{2}', CHANGED_WHEN = GETDATE() WHERE DocID = {3}",
OnlyFilename, NewName, USER_USERNAME, ClassWindreamDocGrid.SELECTED_DOC_ID) OnlyFilename, NewName, USER_USERNAME, ClassWindreamDocGrid.SELECTED_DOC_ID)
If DD_LIB_Standards.clsDatabase.Execute_non_Query(upd) Then If DD_LIB_Standards.clsDatabase.Execute_non_Query(upd) Then
If LICENSE_SITE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
ClassDatabase.Execute_non_Query(upd, True) ClassDatabase.Execute_non_Query(upd, True)
End If End If
End If End If

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

@ -405,7 +405,7 @@ Public Class frmDocLink_to_Record
If ClassDatabase.Execute_non_Query(ins) = False Then If ClassDatabase.Execute_non_Query(ins) = False Then
MsgBox("Unexpected Error in Inserting Record-Doc Link. Please check logfile!", MsgBoxStyle.Critical) MsgBox("Unexpected Error in Inserting Record-Doc Link. Please check logfile!", MsgBoxStyle.Critical)
Else Else
If LICENSE_SITE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
Dim proc = String.Format("EXEC PRPROXY_DOC_CHECK_DOC_REC_LINK {0},{1}", CURRENT_DOC_ID, RecordId) Dim proc = String.Format("EXEC PRPROXY_DOC_CHECK_DOC_REC_LINK {0},{1}", CURRENT_DOC_ID, RecordId)
ClassDatabase.Execute_non_Query(proc, True) ClassDatabase.Execute_non_Query(proc, True)
End If End If

87
app/DD-Record-Organizer/frmLicense.designer.vb generated
View File

@ -27,10 +27,15 @@ Partial Class frmLicense
Me.txtPW = New System.Windows.Forms.TextBox() Me.txtPW = New System.Windows.Forms.TextBox()
Me.lblPW = New System.Windows.Forms.Label() Me.lblPW = New System.Windows.Forms.Label()
Me.grbBoxlicense = New System.Windows.Forms.GroupBox() Me.grbBoxlicense = New System.Windows.Forms.GroupBox()
Me.chkSiteProxy = New System.Windows.Forms.CheckBox() Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.DataGridViewAddOns = New System.Windows.Forms.DataGridView()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.dtpLicenseAddon = New System.Windows.Forms.DateTimePicker()
Me.cmbAddOn = New System.Windows.Forms.ComboBox()
Me.lblClient = New System.Windows.Forms.Label() Me.lblClient = New System.Windows.Forms.Label()
Me.cmbClients = New System.Windows.Forms.ComboBox() Me.cmbClients = New System.Windows.Forms.ComboBox()
Me.chkSAPConnect = New System.Windows.Forms.CheckBox()
Me.Label5 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label()
Me.dtpGueltig_GI = New System.Windows.Forms.DateTimePicker() Me.dtpGueltig_GI = New System.Windows.Forms.DateTimePicker()
Me.txtDossierCount = New System.Windows.Forms.TextBox() Me.txtDossierCount = New System.Windows.Forms.TextBox()
@ -39,6 +44,8 @@ Partial Class frmLicense
Me.txtNewlicences = New System.Windows.Forms.TextBox() Me.txtNewlicences = New System.Windows.Forms.TextBox()
Me.lblnewlicenses = New System.Windows.Forms.Label() Me.lblnewlicenses = New System.Windows.Forms.Label()
Me.grbBoxlicense.SuspendLayout() Me.grbBoxlicense.SuspendLayout()
Me.GroupBox1.SuspendLayout()
CType(Me.DataGridViewAddOns, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'btnPW_check 'btnPW_check
@ -60,10 +67,9 @@ Partial Class frmLicense
' '
'grbBoxlicense 'grbBoxlicense
' '
Me.grbBoxlicense.Controls.Add(Me.chkSiteProxy) Me.grbBoxlicense.Controls.Add(Me.GroupBox1)
Me.grbBoxlicense.Controls.Add(Me.lblClient) Me.grbBoxlicense.Controls.Add(Me.lblClient)
Me.grbBoxlicense.Controls.Add(Me.cmbClients) Me.grbBoxlicense.Controls.Add(Me.cmbClients)
Me.grbBoxlicense.Controls.Add(Me.chkSAPConnect)
Me.grbBoxlicense.Controls.Add(Me.Label5) Me.grbBoxlicense.Controls.Add(Me.Label5)
Me.grbBoxlicense.Controls.Add(Me.dtpGueltig_GI) Me.grbBoxlicense.Controls.Add(Me.dtpGueltig_GI)
Me.grbBoxlicense.Controls.Add(Me.txtDossierCount) Me.grbBoxlicense.Controls.Add(Me.txtDossierCount)
@ -75,11 +81,58 @@ Partial Class frmLicense
Me.grbBoxlicense.Name = "grbBoxlicense" Me.grbBoxlicense.Name = "grbBoxlicense"
Me.grbBoxlicense.TabStop = False Me.grbBoxlicense.TabStop = False
' '
'chkSiteProxy 'GroupBox1
' '
resources.ApplyResources(Me.chkSiteProxy, "chkSiteProxy") Me.GroupBox1.Controls.Add(Me.Button1)
Me.chkSiteProxy.Name = "chkSiteProxy" Me.GroupBox1.Controls.Add(Me.DataGridViewAddOns)
Me.chkSiteProxy.UseVisualStyleBackColor = True Me.GroupBox1.Controls.Add(Me.Label4)
Me.GroupBox1.Controls.Add(Me.Label3)
Me.GroupBox1.Controls.Add(Me.dtpLicenseAddon)
Me.GroupBox1.Controls.Add(Me.cmbAddOn)
resources.ApplyResources(Me.GroupBox1, "GroupBox1")
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.TabStop = False
'
'Button1
'
Me.Button1.Image = Global.DD_Record_Organizer.My.Resources.Resources.key_go1
resources.ApplyResources(Me.Button1, "Button1")
Me.Button1.Name = "Button1"
Me.Button1.UseVisualStyleBackColor = True
'
'DataGridViewAddOns
'
Me.DataGridViewAddOns.AllowUserToAddRows = False
Me.DataGridViewAddOns.AllowUserToDeleteRows = False
Me.DataGridViewAddOns.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
resources.ApplyResources(Me.DataGridViewAddOns, "DataGridViewAddOns")
Me.DataGridViewAddOns.MultiSelect = False
Me.DataGridViewAddOns.Name = "DataGridViewAddOns"
Me.DataGridViewAddOns.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.CellSelect
Me.DataGridViewAddOns.ShowEditingIcon = False
'
'Label4
'
resources.ApplyResources(Me.Label4, "Label4")
Me.Label4.Name = "Label4"
'
'Label3
'
resources.ApplyResources(Me.Label3, "Label3")
Me.Label3.Name = "Label3"
'
'dtpLicenseAddon
'
Me.dtpLicenseAddon.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
resources.ApplyResources(Me.dtpLicenseAddon, "dtpLicenseAddon")
Me.dtpLicenseAddon.Name = "dtpLicenseAddon"
Me.dtpLicenseAddon.Value = New Date(2099, 12, 31, 0, 0, 0, 0)
'
'cmbAddOn
'
resources.ApplyResources(Me.cmbAddOn, "cmbAddOn")
Me.cmbAddOn.FormattingEnabled = True
Me.cmbAddOn.Name = "cmbAddOn"
' '
'lblClient 'lblClient
' '
@ -92,12 +145,6 @@ Partial Class frmLicense
Me.cmbClients.FormattingEnabled = True Me.cmbClients.FormattingEnabled = True
Me.cmbClients.Name = "cmbClients" Me.cmbClients.Name = "cmbClients"
' '
'chkSAPConnect
'
resources.ApplyResources(Me.chkSAPConnect, "chkSAPConnect")
Me.chkSAPConnect.Name = "chkSAPConnect"
Me.chkSAPConnect.UseVisualStyleBackColor = True
'
'Label5 'Label5
' '
resources.ApplyResources(Me.Label5, "Label5") resources.ApplyResources(Me.Label5, "Label5")
@ -150,6 +197,9 @@ Partial Class frmLicense
Me.Name = "frmLicense" Me.Name = "frmLicense"
Me.grbBoxlicense.ResumeLayout(False) Me.grbBoxlicense.ResumeLayout(False)
Me.grbBoxlicense.PerformLayout() Me.grbBoxlicense.PerformLayout()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
CType(Me.DataGridViewAddOns, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@ -166,8 +216,13 @@ Partial Class frmLicense
Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents dtpGueltig_GI As System.Windows.Forms.DateTimePicker Friend WithEvents dtpGueltig_GI As System.Windows.Forms.DateTimePicker
Friend WithEvents chkSAPConnect As System.Windows.Forms.CheckBox
Friend WithEvents lblClient As System.Windows.Forms.Label Friend WithEvents lblClient As System.Windows.Forms.Label
Friend WithEvents cmbClients As System.Windows.Forms.ComboBox Friend WithEvents cmbClients As System.Windows.Forms.ComboBox
Friend WithEvents chkSiteProxy As System.Windows.Forms.CheckBox Friend WithEvents DataGridViewAddOns As DataGridView
Friend WithEvents GroupBox1 As GroupBox
Friend WithEvents Button1 As Button
Friend WithEvents Label4 As Label
Friend WithEvents Label3 As Label
Friend WithEvents dtpLicenseAddon As DateTimePicker
Friend WithEvents cmbAddOn As ComboBox
End Class End Class

268
app/DD-Record-Organizer/frmLicense.resx
View File

@ -118,8 +118,19 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="btnPW_check.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAAHVJREFUOE/tkTsOgCAQRDkbJ/AmHNlGbSgJtJiHbLISosTY6SQTlmVm+Jkf94gx
TiGEOaWUITW9unwNhN777JzL1tpCanqnEEnvUZt1CCep9iOgFbVcl61Q5niq/aUACdEjHLoC6AUMPyKQ
HTXpI3z8jZ+AMTvOnQxA9nO5IAAAAABJRU5ErkJggg==
</value>
</data>
<data name="btnPW_check.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
</data>
<data name="btnPW_check.Location" type="System.Drawing.Point, System.Drawing"> <data name="btnPW_check.Location" type="System.Drawing.Point, System.Drawing">
<value>318, 2</value> <value>337, 2</value>
</data> </data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="btnPW_check.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms"> <data name="btnPW_check.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
@ -135,6 +146,9 @@
<data name="btnPW_check.Text" xml:space="preserve"> <data name="btnPW_check.Text" xml:space="preserve">
<value>Open License Manager</value> <value>Open License Manager</value>
</data> </data>
<data name="btnPW_check.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleRight</value>
</data>
<data name="&gt;&gt;btnPW_check.Name" xml:space="preserve"> <data name="&gt;&gt;btnPW_check.Name" xml:space="preserve">
<value>btnPW_check</value> <value>btnPW_check</value>
</data> </data>
@ -154,7 +168,7 @@
<value>3, 4, 3, 4</value> <value>3, 4, 3, 4</value>
</data> </data>
<data name="txtPW.Size" type="System.Drawing.Size, System.Drawing"> <data name="txtPW.Size" type="System.Drawing.Size, System.Drawing">
<value>192, 23</value> <value>163, 23</value>
</data> </data>
<data name="txtPW.TabIndex" type="System.Int32, mscorlib"> <data name="txtPW.TabIndex" type="System.Int32, mscorlib">
<value>28</value> <value>28</value>
@ -198,37 +212,196 @@
<data name="&gt;&gt;lblPW.ZOrder" xml:space="preserve"> <data name="&gt;&gt;lblPW.ZOrder" xml:space="preserve">
<value>2</value> <value>2</value>
</data> </data>
<data name="chkSiteProxy.AutoSize" type="System.Boolean, mscorlib"> <data name="Button1.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>True</value> <value>MiddleLeft</value>
</data> </data>
<data name="chkSiteProxy.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms"> <data name="Button1.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value> <value>NoControl</value>
</data> </data>
<data name="chkSiteProxy.Location" type="System.Drawing.Point, System.Drawing"> <data name="Button1.Location" type="System.Drawing.Point, System.Drawing">
<value>147, 144</value> <value>331, 23</value>
</data> </data>
<data name="chkSiteProxy.RightToLeft" type="System.Windows.Forms.RightToLeft, System.Windows.Forms"> <data name="Button1.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>Yes</value> <value>3, 4, 3, 4</value>
</data> </data>
<data name="chkSiteProxy.Size" type="System.Drawing.Size, System.Drawing"> <data name="Button1.Size" type="System.Drawing.Size, System.Drawing">
<value>125, 20</value> <value>159, 39</value>
</data> </data>
<data name="chkSiteProxy.TabIndex" type="System.Int32, mscorlib"> <data name="Button1.TabIndex" type="System.Int32, mscorlib">
<value>23</value>
</data>
<data name="Button1.Text" xml:space="preserve">
<value>Refresh AddOn</value>
</data>
<data name="Button1.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleRight</value>
</data>
<data name="&gt;&gt;Button1.Name" xml:space="preserve">
<value>Button1</value>
</data>
<data name="&gt;&gt;Button1.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Button1.Parent" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;Button1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="DataGridViewAddOns.Location" type="System.Drawing.Point, System.Drawing">
<value>9, 68</value>
</data>
<data name="DataGridViewAddOns.Size" type="System.Drawing.Size, System.Drawing">
<value>481, 136</value>
</data>
<data name="DataGridViewAddOns.TabIndex" type="System.Int32, mscorlib">
<value>21</value>
</data>
<data name="&gt;&gt;DataGridViewAddOns.Name" xml:space="preserve">
<value>DataGridViewAddOns</value>
</data>
<data name="&gt;&gt;DataGridViewAddOns.Type" xml:space="preserve">
<value>System.Windows.Forms.DataGridView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;DataGridViewAddOns.Parent" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;DataGridViewAddOns.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="Label4.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="Label4.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="Label4.Location" type="System.Drawing.Point, System.Drawing">
<value>6, 20</value>
</data>
<data name="Label4.Size" type="System.Drawing.Size, System.Drawing">
<value>51, 16</value>
</data>
<data name="Label4.TabIndex" type="System.Int32, mscorlib">
<value>22</value>
</data>
<data name="Label4.Text" xml:space="preserve">
<value>AddOn:</value>
</data>
<data name="Label4.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>TopRight</value>
</data>
<data name="&gt;&gt;Label4.Name" xml:space="preserve">
<value>Label4</value>
</data>
<data name="&gt;&gt;Label4.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label4.Parent" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;Label4.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="Label3.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="Label3.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="Label3.Location" type="System.Drawing.Point, System.Drawing">
<value>218, 20</value>
</data>
<data name="Label3.Size" type="System.Drawing.Size, System.Drawing">
<value>69, 16</value>
</data>
<data name="Label3.TabIndex" type="System.Int32, mscorlib">
<value>21</value>
</data>
<data name="Label3.Text" xml:space="preserve">
<value>Valid until:</value>
</data>
<data name="Label3.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>TopRight</value>
</data>
<data name="&gt;&gt;Label3.Name" xml:space="preserve">
<value>Label3</value>
</data>
<data name="&gt;&gt;Label3.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label3.Parent" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;Label3.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="dtpLicenseAddon.Location" type="System.Drawing.Point, System.Drawing">
<value>221, 39</value>
</data>
<data name="dtpLicenseAddon.Size" type="System.Drawing.Size, System.Drawing">
<value>104, 23</value>
</data>
<data name="dtpLicenseAddon.TabIndex" type="System.Int32, mscorlib">
<value>20</value> <value>20</value>
</data> </data>
<data name="chkSiteProxy.Text" xml:space="preserve"> <data name="&gt;&gt;dtpLicenseAddon.Name" xml:space="preserve">
<value>Site/Proxy Addon</value> <value>dtpLicenseAddon</value>
</data> </data>
<data name="&gt;&gt;chkSiteProxy.Name" xml:space="preserve"> <data name="&gt;&gt;dtpLicenseAddon.Type" xml:space="preserve">
<value>chkSiteProxy</value> <value>System.Windows.Forms.DateTimePicker, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="&gt;&gt;chkSiteProxy.Type" xml:space="preserve"> <data name="&gt;&gt;dtpLicenseAddon.Parent" xml:space="preserve">
<value>System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>GroupBox1</value>
</data> </data>
<data name="&gt;&gt;chkSiteProxy.Parent" xml:space="preserve"> <data name="&gt;&gt;dtpLicenseAddon.ZOrder" xml:space="preserve">
<value>4</value>
</data>
<data name="cmbAddOn.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9.75pt</value>
</data>
<data name="cmbAddOn.Location" type="System.Drawing.Point, System.Drawing">
<value>9, 38</value>
</data>
<data name="cmbAddOn.Size" type="System.Drawing.Size, System.Drawing">
<value>206, 24</value>
</data>
<data name="cmbAddOn.TabIndex" type="System.Int32, mscorlib">
<value>19</value>
</data>
<data name="&gt;&gt;cmbAddOn.Name" xml:space="preserve">
<value>cmbAddOn</value>
</data>
<data name="&gt;&gt;cmbAddOn.Type" xml:space="preserve">
<value>System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;cmbAddOn.Parent" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;cmbAddOn.ZOrder" xml:space="preserve">
<value>5</value>
</data>
<data name="GroupBox1.Location" type="System.Drawing.Point, System.Drawing">
<value>10, 146</value>
</data>
<data name="GroupBox1.Size" type="System.Drawing.Size, System.Drawing">
<value>503, 214</value>
</data>
<data name="GroupBox1.TabIndex" type="System.Int32, mscorlib">
<value>31</value>
</data>
<data name="GroupBox1.Text" xml:space="preserve">
<value>License AddOns:</value>
</data>
<data name="&gt;&gt;GroupBox1.Name" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;GroupBox1.Type" xml:space="preserve">
<value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;GroupBox1.Parent" xml:space="preserve">
<value>grbBoxlicense</value> <value>grbBoxlicense</value>
</data> </data>
<data name="&gt;&gt;chkSiteProxy.ZOrder" xml:space="preserve"> <data name="&gt;&gt;GroupBox1.ZOrder" xml:space="preserve">
<value>0</value> <value>0</value>
</data> </data>
<data name="lblClient.AutoSize" type="System.Boolean, mscorlib"> <data name="lblClient.AutoSize" type="System.Boolean, mscorlib">
@ -288,36 +461,6 @@
<data name="&gt;&gt;cmbClients.ZOrder" xml:space="preserve"> <data name="&gt;&gt;cmbClients.ZOrder" xml:space="preserve">
<value>2</value> <value>2</value>
</data> </data>
<data name="chkSAPConnect.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="chkSAPConnect.Location" type="System.Drawing.Point, System.Drawing">
<value>10, 144</value>
</data>
<data name="chkSAPConnect.RightToLeft" type="System.Windows.Forms.RightToLeft, System.Windows.Forms">
<value>Yes</value>
</data>
<data name="chkSAPConnect.Size" type="System.Drawing.Size, System.Drawing">
<value>131, 20</value>
</data>
<data name="chkSAPConnect.TabIndex" type="System.Int32, mscorlib">
<value>17</value>
</data>
<data name="chkSAPConnect.Text" xml:space="preserve">
<value>SAP-Connect aktiv</value>
</data>
<data name="&gt;&gt;chkSAPConnect.Name" xml:space="preserve">
<value>chkSAPConnect</value>
</data>
<data name="&gt;&gt;chkSAPConnect.Type" xml:space="preserve">
<value>System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;chkSAPConnect.Parent" xml:space="preserve">
<value>grbBoxlicense</value>
</data>
<data name="&gt;&gt;chkSAPConnect.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="Label5.AutoSize" type="System.Boolean, mscorlib"> <data name="Label5.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
</data> </data>
@ -346,7 +489,7 @@
<value>grbBoxlicense</value> <value>grbBoxlicense</value>
</data> </data>
<data name="&gt;&gt;Label5.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Label5.ZOrder" xml:space="preserve">
<value>4</value> <value>3</value>
</data> </data>
<data name="dtpGueltig_GI.Location" type="System.Drawing.Point, System.Drawing"> <data name="dtpGueltig_GI.Location" type="System.Drawing.Point, System.Drawing">
<value>396, 72</value> <value>396, 72</value>
@ -367,7 +510,7 @@
<value>grbBoxlicense</value> <value>grbBoxlicense</value>
</data> </data>
<data name="&gt;&gt;dtpGueltig_GI.ZOrder" xml:space="preserve"> <data name="&gt;&gt;dtpGueltig_GI.ZOrder" xml:space="preserve">
<value>5</value> <value>4</value>
</data> </data>
<data name="txtDossierCount.Location" type="System.Drawing.Point, System.Drawing"> <data name="txtDossierCount.Location" type="System.Drawing.Point, System.Drawing">
<value>241, 109</value> <value>241, 109</value>
@ -394,7 +537,7 @@
<value>grbBoxlicense</value> <value>grbBoxlicense</value>
</data> </data>
<data name="&gt;&gt;txtDossierCount.ZOrder" xml:space="preserve"> <data name="&gt;&gt;txtDossierCount.ZOrder" xml:space="preserve">
<value>6</value> <value>5</value>
</data> </data>
<data name="Label2.AutoSize" type="System.Boolean, mscorlib"> <data name="Label2.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
@ -421,19 +564,19 @@
<value>grbBoxlicense</value> <value>grbBoxlicense</value>
</data> </data>
<data name="&gt;&gt;Label2.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Label2.ZOrder" xml:space="preserve">
<value>7</value> <value>6</value>
</data> </data>
<data name="btnnewLicenses.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing"> <data name="btnnewLicenses.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value> <value>MiddleLeft</value>
</data> </data>
<data name="btnnewLicenses.Location" type="System.Drawing.Point, System.Drawing"> <data name="btnnewLicenses.Location" type="System.Drawing.Point, System.Drawing">
<value>307, 134</value> <value>326, 101</value>
</data> </data>
<data name="btnnewLicenses.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms"> <data name="btnnewLicenses.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>3, 4, 3, 4</value> <value>3, 4, 3, 4</value>
</data> </data>
<data name="btnnewLicenses.Size" type="System.Drawing.Size, System.Drawing"> <data name="btnnewLicenses.Size" type="System.Drawing.Size, System.Drawing">
<value>193, 38</value> <value>174, 38</value>
</data> </data>
<data name="btnnewLicenses.TabIndex" type="System.Int32, mscorlib"> <data name="btnnewLicenses.TabIndex" type="System.Int32, mscorlib">
<value>5</value> <value>5</value>
@ -454,7 +597,7 @@
<value>grbBoxlicense</value> <value>grbBoxlicense</value>
</data> </data>
<data name="&gt;&gt;btnnewLicenses.ZOrder" xml:space="preserve"> <data name="&gt;&gt;btnnewLicenses.ZOrder" xml:space="preserve">
<value>8</value> <value>7</value>
</data> </data>
<data name="txtNewlicences.Location" type="System.Drawing.Point, System.Drawing"> <data name="txtNewlicences.Location" type="System.Drawing.Point, System.Drawing">
<value>241, 74</value> <value>241, 74</value>
@ -481,7 +624,7 @@
<value>grbBoxlicense</value> <value>grbBoxlicense</value>
</data> </data>
<data name="&gt;&gt;txtNewlicences.ZOrder" xml:space="preserve"> <data name="&gt;&gt;txtNewlicences.ZOrder" xml:space="preserve">
<value>9</value> <value>8</value>
</data> </data>
<data name="lblnewlicenses.AutoSize" type="System.Boolean, mscorlib"> <data name="lblnewlicenses.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
@ -508,7 +651,7 @@
<value>grbBoxlicense</value> <value>grbBoxlicense</value>
</data> </data>
<data name="&gt;&gt;lblnewlicenses.ZOrder" xml:space="preserve"> <data name="&gt;&gt;lblnewlicenses.ZOrder" xml:space="preserve">
<value>10</value> <value>9</value>
</data> </data>
<data name="grbBoxlicense.Location" type="System.Drawing.Point, System.Drawing"> <data name="grbBoxlicense.Location" type="System.Drawing.Point, System.Drawing">
<value>11, 42</value> <value>11, 42</value>
@ -520,7 +663,7 @@
<value>3, 4, 3, 4</value> <value>3, 4, 3, 4</value>
</data> </data>
<data name="grbBoxlicense.Size" type="System.Drawing.Size, System.Drawing"> <data name="grbBoxlicense.Size" type="System.Drawing.Size, System.Drawing">
<value>519, 182</value> <value>519, 369</value>
</data> </data>
<data name="grbBoxlicense.TabIndex" type="System.Int32, mscorlib"> <data name="grbBoxlicense.TabIndex" type="System.Int32, mscorlib">
<value>26</value> <value>26</value>
@ -550,7 +693,7 @@
<value>7, 16</value> <value>7, 16</value>
</data> </data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing"> <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>542, 233</value> <value>549, 419</value>
</data> </data>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing"> <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9.75pt</value> <value>Tahoma, 9.75pt</value>
@ -558,6 +701,9 @@
<data name="$this.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms"> <data name="$this.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>3, 4, 3, 4</value> <value>3, 4, 3, 4</value>
</data> </data>
<data name="$this.StartPosition" type="System.Windows.Forms.FormStartPosition, System.Windows.Forms">
<value>CenterScreen</value>
</data>
<data name="$this.Text" xml:space="preserve"> <data name="$this.Text" xml:space="preserve">
<value>Lizenzmanager</value> <value>Lizenzmanager</value>
</data> </data>

74
app/DD-Record-Organizer/frmLicense.vb
View File

@ -1,7 +1,8 @@
Imports DLLLicenseManager Imports DLLLicenseManager
Public Class frmLicense Public Class frmLicense
Dim CLIENT_ID As Integer
Public _lizenzManager As ClassLicenseManager Public _lizenzManager As ClassLicenseManager
Dim CLIENT_ID As Integer
Private Sub btnPW_check_Click(sender As System.Object, e As System.EventArgs) Handles btnPW_check.Click Private Sub btnPW_check_Click(sender As System.Object, e As System.EventArgs) Handles btnPW_check.Click
OpenLicenseManager() OpenLicenseManager()
End Sub End Sub
@ -41,10 +42,15 @@ Public Class frmLicense
Private Sub btnnewLicenses_Click(sender As System.Object, e As System.EventArgs) Handles btnnewLicenses.Click Private Sub btnnewLicenses_Click(sender As System.Object, e As System.EventArgs) Handles btnnewLicenses.Click
Try Try
If cmbClients.SelectedIndex = -1 Or CLIENT_ID = 99 Then
MsgBox("Please choose a valid client!", MsgBoxStyle.Critical)
Exit Sub
End If
_lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "") _lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "")
If Me.txtNewlicences.Text <> "" And txtDossierCount.Text <> "" Then If Me.txtNewlicences.Text <> "" And txtDossierCount.Text <> "" Then
'Encode the license 'Encode the license
Dim result As String = Me._lizenzManager.EncodeLicenseKey(txtNewlicences.Text & "#" & dtpGueltig_GI.Text & "#" & txtDossierCount.Text & "#" & chkSAPConnect.Checked & "#" & chkSiteProxy.Checked, "#DigitalData35452!#") Dim ressultstring = txtNewlicences.Text & "#" & dtpGueltig_GI.Value.ToString("yyyy-MM-dd") & "#" & txtDossierCount.Text
Dim result As String = Me._lizenzManager.EncodeLicenseKey(ressultstring, "#DigitalData35452!#")
Dim sql As String = String.Format("UPDATE TBDD_CLIENT SET LICENSE_PMO = '" & result & "' WHERE GUID = {0}", CLIENT_ID) Dim sql As String = String.Format("UPDATE TBDD_CLIENT SET LICENSE_PMO = '" & result & "' WHERE GUID = {0}", CLIENT_ID)
If ClassDatabase.Execute_non_Query(sql) = True Then If ClassDatabase.Execute_non_Query(sql) = True Then
@ -61,17 +67,27 @@ Public Class frmLicense
Try Try
ClassLicence.Refresh_Licence(CLIENT_ID) ClassLicence.Refresh_Licence(CLIENT_ID)
cmbAddOn.Items.Clear()
For Each row As DataRow In DT_LICENSE_ADDONS.Rows
cmbAddOn.Items.Add(row.Item("NAME"))
Next
DataGridViewAddOns.DataSource = DT_LICENSE_ADDONS
DataGridViewAddOns.Columns(0).Width = 200
DataGridViewAddOns.Columns(1).Visible = False
DataGridViewAddOns.Columns(2).Width = 100
GridColor()
txtNewlicences.Text = LICENSE_COUNT txtNewlicences.Text = LICENSE_COUNT
dtpGueltig_GI.Value = LICENSE_DATE
txtDossierCount.Text = LICENSE_DOSSIER_COUNT
Try Try
chkSAPConnect.Checked = LICENSE_SAP_Connect dtpGueltig_GI.Value = LICENSE_DATE
Catch ex As Exception Catch ex As Exception
ClassLogger.Add(">> Could not read License for SAP-Connect: " & ex.Message, False) Dim dateTime As String = LICENSE_DATE.ToString
LICENSE_SAP_Connect = False Dim dt As DateTime = Convert.ToDateTime(dateTime)
chkSAPConnect.Checked = False Dim format As String = "yyyy-MM-dd"
dtpGueltig_GI.Value = CDate(dt)
End Try End Try
chkSiteProxy.Checked = LICENSE_SITE_PROXY
txtDossierCount.Text = LICENSE_DOSSIER_COUNT
If Neu = True Then If Neu = True Then
If CInt(LICENSE_COUNT) > 0 Then If CInt(LICENSE_COUNT) > 0 Then
Dim msg As String = "Die Lizenz wurde aktualisiert!" & vbNewLine & Now Dim msg As String = "Die Lizenz wurde aktualisiert!" & vbNewLine & Now
@ -117,4 +133,44 @@ Public Class frmLicense
End If End If
End Sub End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If CLIENT_ID <> 99 Then
Dim wrapper As New ClassEncryption("!35452didalog=")
Dim cipherText As String = wrapper.EncryptData(dtpLicenseAddon.Value.ToString("yyyy-MM-dd"))
Dim sql = String.Format("SELECT COUNT(GUID) FROM TBDD_LICENSE_ADD_ON WHERE CLIENT_ID = {0} AND MODULE = 'Record-Organizer' AND UPPER(NAME) = UPPER('{1}')", CLIENT_ID, cmbAddOn.Text)
Dim count = ClassDatabase.Execute_Scalar(sql, False)
If count = 0 Then
sql = String.Format("INSERT INTO TBDD_LICENSE_ADD_ON (CLIENT_ID, MODULE,NAME,VALID_DATE) VALUES ({0},'Record-Organizer','{1}','{2}')", CLIENT_ID, cmbAddOn.Text, cipherText)
ClassDatabase.Execute_non_Query(sql)
Else
sql = String.Format("UPDATE TBDD_LICENSE_ADD_ON SET VALID_DATE = '{0}' WHERE CLIENT_ID = {1} AND UPPER(MODULE) = UPPER('Record-Organizer') AND UPPER(NAME) = UPPER('{2}')", cipherText, CLIENT_ID, cmbAddOn.Text)
ClassDatabase.Execute_non_Query(sql)
End If
Refresh_Licence(False)
Else
MsgBox("Please choose a Client!", MsgBoxStyle.Exclamation)
End If
End Sub
Sub GridColor()
Try
For i = 0 To DataGridViewAddOns.RowCount - 1
If DataGridViewAddOns.Rows(i).Cells(2).Value.ToString = "Valid" Then
DataGridViewAddOns.Rows(i).DefaultCellStyle.BackColor = Color.LimeGreen
Else
DataGridViewAddOns.Rows(i).DefaultCellStyle.BackColor = Color.Red
End If
Next
Catch ex As Exception
End Try
End Sub
Private Sub grbBoxlicense_Enter(sender As Object, e As EventArgs) Handles grbBoxlicense.Enter
End Sub
End Class End Class

50
app/DD-Record-Organizer/frmLicense_User.Designer.vb generated
View File

@ -27,15 +27,14 @@ Partial Class frmLicense_User
Me.cmbClients = New System.Windows.Forms.ComboBox() Me.cmbClients = New System.Windows.Forms.ComboBox()
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label()
Me.lbLicenceCount = New System.Windows.Forms.Label() Me.lbLicenceCount = New System.Windows.Forms.Label()
Me.lbDossierCount = New System.Windows.Forms.Label() Me.lbDossierCount = New System.Windows.Forms.Label()
Me.lbValidUntil = New System.Windows.Forms.Label() Me.lbValidUntil = New System.Windows.Forms.Label()
Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.Label6 = New System.Windows.Forms.Label() Me.DataGridViewAddOns = New System.Windows.Forms.DataGridView()
Me.chkSAP = New System.Windows.Forms.CheckBox() Me.Label4 = New System.Windows.Forms.Label()
Me.chkSite = New System.Windows.Forms.CheckBox() CType(Me.DataGridViewAddOns, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'Label1 'Label1
@ -59,11 +58,6 @@ Partial Class frmLicense_User
resources.ApplyResources(Me.Label3, "Label3") resources.ApplyResources(Me.Label3, "Label3")
Me.Label3.Name = "Label3" Me.Label3.Name = "Label3"
' '
'Label4
'
resources.ApplyResources(Me.Label4, "Label4")
Me.Label4.Name = "Label4"
'
'Label5 'Label5
' '
resources.ApplyResources(Me.Label5, "Label5") resources.ApplyResources(Me.Label5, "Label5")
@ -91,41 +85,39 @@ Partial Class frmLicense_User
Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.TabStop = False Me.GroupBox1.TabStop = False
' '
'Label6 'DataGridViewAddOns
' '
resources.ApplyResources(Me.Label6, "Label6") Me.DataGridViewAddOns.AllowUserToAddRows = False
Me.Label6.Name = "Label6" Me.DataGridViewAddOns.AllowUserToDeleteRows = False
Me.DataGridViewAddOns.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
resources.ApplyResources(Me.DataGridViewAddOns, "DataGridViewAddOns")
Me.DataGridViewAddOns.MultiSelect = False
Me.DataGridViewAddOns.Name = "DataGridViewAddOns"
Me.DataGridViewAddOns.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.CellSelect
Me.DataGridViewAddOns.ShowEditingIcon = False
' '
'chkSAP 'Label4
' '
resources.ApplyResources(Me.chkSAP, "chkSAP") resources.ApplyResources(Me.Label4, "Label4")
Me.chkSAP.Name = "chkSAP" Me.Label4.Name = "Label4"
Me.chkSAP.UseVisualStyleBackColor = True
'
'chkSite
'
resources.ApplyResources(Me.chkSite, "chkSite")
Me.chkSite.Name = "chkSite"
Me.chkSite.UseVisualStyleBackColor = True
' '
'frmLicense_User 'frmLicense_User
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.chkSite) Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.chkSAP) Me.Controls.Add(Me.DataGridViewAddOns)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.GroupBox1) Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.lbValidUntil) Me.Controls.Add(Me.lbValidUntil)
Me.Controls.Add(Me.lbDossierCount) Me.Controls.Add(Me.lbDossierCount)
Me.Controls.Add(Me.lbLicenceCount) Me.Controls.Add(Me.lbLicenceCount)
Me.Controls.Add(Me.Label5) Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.cmbClients) Me.Controls.Add(Me.cmbClients)
Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.Label1)
Me.Name = "frmLicense_User" Me.Name = "frmLicense_User"
CType(Me.DataGridViewAddOns, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@ -134,13 +126,11 @@ Partial Class frmLicense_User
Friend WithEvents cmbClients As System.Windows.Forms.ComboBox Friend WithEvents cmbClients As System.Windows.Forms.ComboBox
Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents lbLicenceCount As System.Windows.Forms.Label Friend WithEvents lbLicenceCount As System.Windows.Forms.Label
Friend WithEvents lbDossierCount As System.Windows.Forms.Label Friend WithEvents lbDossierCount As System.Windows.Forms.Label
Friend WithEvents lbValidUntil As System.Windows.Forms.Label Friend WithEvents lbValidUntil As System.Windows.Forms.Label
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents Label6 As System.Windows.Forms.Label Friend WithEvents DataGridViewAddOns As DataGridView
Friend WithEvents chkSAP As System.Windows.Forms.CheckBox Friend WithEvents Label4 As Label
Friend WithEvents chkSite As System.Windows.Forms.CheckBox
End Class End Class

161
app/DD-Record-Organizer/frmLicense_User.resx
View File

@ -147,7 +147,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;Label1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
<value>12</value> <value>10</value>
</data> </data>
<data name="cmbClients.Location" type="System.Drawing.Point, System.Drawing"> <data name="cmbClients.Location" type="System.Drawing.Point, System.Drawing">
<value>175, 25</value> <value>175, 25</value>
@ -168,7 +168,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;cmbClients.ZOrder" xml:space="preserve"> <data name="&gt;&gt;cmbClients.ZOrder" xml:space="preserve">
<value>11</value> <value>9</value>
</data> </data>
<data name="Label2.AutoSize" type="System.Boolean, mscorlib"> <data name="Label2.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
@ -198,7 +198,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;Label2.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Label2.ZOrder" xml:space="preserve">
<value>10</value> <value>8</value>
</data> </data>
<data name="Label3.AutoSize" type="System.Boolean, mscorlib"> <data name="Label3.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
@ -228,37 +228,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;Label3.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Label3.ZOrder" xml:space="preserve">
<value>9</value> <value>7</value>
</data>
<data name="Label4.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="Label4.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9.75pt, style=Bold</value>
</data>
<data name="Label4.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 118</value>
</data>
<data name="Label4.Size" type="System.Drawing.Size, System.Drawing">
<value>98, 16</value>
</data>
<data name="Label4.TabIndex" type="System.Int32, mscorlib">
<value>6</value>
</data>
<data name="Label4.Text" xml:space="preserve">
<value>SAP-Connect:</value>
</data>
<data name="&gt;&gt;Label4.Name" xml:space="preserve">
<value>Label4</value>
</data>
<data name="&gt;&gt;Label4.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label4.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;Label4.ZOrder" xml:space="preserve">
<value>8</value>
</data> </data>
<data name="Label5.AutoSize" type="System.Boolean, mscorlib"> <data name="Label5.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
@ -267,7 +237,7 @@
<value>Tahoma, 9.75pt, style=Bold</value> <value>Tahoma, 9.75pt, style=Bold</value>
</data> </data>
<data name="Label5.Location" type="System.Drawing.Point, System.Drawing"> <data name="Label5.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 171</value> <value>12, 122</value>
</data> </data>
<data name="Label5.Size" type="System.Drawing.Size, System.Drawing"> <data name="Label5.Size" type="System.Drawing.Size, System.Drawing">
<value>73, 16</value> <value>73, 16</value>
@ -288,7 +258,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;Label5.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Label5.ZOrder" xml:space="preserve">
<value>7</value> <value>6</value>
</data> </data>
<data name="lbLicenceCount.Font" type="System.Drawing.Font, System.Drawing"> <data name="lbLicenceCount.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9.75pt</value> <value>Tahoma, 9.75pt</value>
@ -318,7 +288,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;lbLicenceCount.ZOrder" xml:space="preserve"> <data name="&gt;&gt;lbLicenceCount.ZOrder" xml:space="preserve">
<value>6</value> <value>5</value>
</data> </data>
<data name="lbDossierCount.Font" type="System.Drawing.Font, System.Drawing"> <data name="lbDossierCount.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9.75pt</value> <value>Tahoma, 9.75pt</value>
@ -348,13 +318,13 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;lbDossierCount.ZOrder" xml:space="preserve"> <data name="&gt;&gt;lbDossierCount.ZOrder" xml:space="preserve">
<value>5</value> <value>4</value>
</data> </data>
<data name="lbValidUntil.Font" type="System.Drawing.Font, System.Drawing"> <data name="lbValidUntil.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9.75pt</value> <value>Tahoma, 9.75pt</value>
</data> </data>
<data name="lbValidUntil.Location" type="System.Drawing.Point, System.Drawing"> <data name="lbValidUntil.Location" type="System.Drawing.Point, System.Drawing">
<value>264, 168</value> <value>264, 119</value>
</data> </data>
<data name="lbValidUntil.Size" type="System.Drawing.Size, System.Drawing"> <data name="lbValidUntil.Size" type="System.Drawing.Size, System.Drawing">
<value>100, 23</value> <value>100, 23</value>
@ -378,7 +348,7 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;lbValidUntil.ZOrder" xml:space="preserve"> <data name="&gt;&gt;lbValidUntil.ZOrder" xml:space="preserve">
<value>4</value> <value>3</value>
</data> </data>
<data name="GroupBox1.Location" type="System.Drawing.Point, System.Drawing"> <data name="GroupBox1.Location" type="System.Drawing.Point, System.Drawing">
<value>15, 52</value> <value>15, 52</value>
@ -399,94 +369,61 @@
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;GroupBox1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;GroupBox1.ZOrder" xml:space="preserve">
<value>3</value> <value>2</value>
</data> </data>
<data name="Label6.AutoSize" type="System.Boolean, mscorlib"> <data name="DataGridViewAddOns.Location" type="System.Drawing.Point, System.Drawing">
<value>15, 167</value>
</data>
<data name="DataGridViewAddOns.Size" type="System.Drawing.Size, System.Drawing">
<value>349, 136</value>
</data>
<data name="DataGridViewAddOns.TabIndex" type="System.Int32, mscorlib">
<value>22</value>
</data>
<data name="&gt;&gt;DataGridViewAddOns.Name" xml:space="preserve">
<value>DataGridViewAddOns</value>
</data>
<data name="&gt;&gt;DataGridViewAddOns.Type" xml:space="preserve">
<value>System.Windows.Forms.DataGridView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;DataGridViewAddOns.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;DataGridViewAddOns.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="Label4.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
</data> </data>
<data name="Label6.Font" type="System.Drawing.Font, System.Drawing"> <data name="Label4.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9.75pt, style=Bold</value> <value>Tahoma, 9.75pt, style=Bold</value>
</data> </data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="Label6.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms"> <data name="Label4.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value> <value>NoControl</value>
</data> </data>
<data name="Label6.Location" type="System.Drawing.Point, System.Drawing"> <data name="Label4.Location" type="System.Drawing.Point, System.Drawing">
<value>13, 144</value> <value>12, 148</value>
</data> </data>
<data name="Label6.Size" type="System.Drawing.Size, System.Drawing"> <data name="Label4.Size" type="System.Drawing.Size, System.Drawing">
<value>85, 16</value> <value>63, 16</value>
</data> </data>
<data name="Label6.TabIndex" type="System.Int32, mscorlib"> <data name="Label4.TabIndex" type="System.Int32, mscorlib">
<value>15</value> <value>23</value>
</data> </data>
<data name="Label6.Text" xml:space="preserve"> <data name="Label4.Text" xml:space="preserve">
<value>Site AddOn:</value> <value>AddOns:</value>
</data> </data>
<data name="&gt;&gt;Label6.Name" xml:space="preserve"> <data name="&gt;&gt;Label4.Name" xml:space="preserve">
<value>Label6</value> <value>Label4</value>
</data> </data>
<data name="&gt;&gt;Label6.Type" xml:space="preserve"> <data name="&gt;&gt;Label4.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="&gt;&gt;Label6.Parent" xml:space="preserve"> <data name="&gt;&gt;Label4.Parent" xml:space="preserve">
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;Label6.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Label4.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="chkSAP.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="chkSAP.Enabled" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="chkSAP.Location" type="System.Drawing.Point, System.Drawing">
<value>349, 120</value>
</data>
<data name="chkSAP.Size" type="System.Drawing.Size, System.Drawing">
<value>15, 14</value>
</data>
<data name="chkSAP.TabIndex" type="System.Int32, mscorlib">
<value>16</value>
</data>
<data name="&gt;&gt;chkSAP.Name" xml:space="preserve">
<value>chkSAP</value>
</data>
<data name="&gt;&gt;chkSAP.Type" xml:space="preserve">
<value>System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;chkSAP.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;chkSAP.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="chkSite.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="chkSite.Enabled" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="chkSite.Location" type="System.Drawing.Point, System.Drawing">
<value>349, 146</value>
</data>
<data name="chkSite.Size" type="System.Drawing.Size, System.Drawing">
<value>15, 14</value>
</data>
<data name="chkSite.TabIndex" type="System.Int32, mscorlib">
<value>17</value>
</data>
<data name="&gt;&gt;chkSite.Name" xml:space="preserve">
<value>chkSite</value>
</data>
<data name="&gt;&gt;chkSite.Type" xml:space="preserve">
<value>System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;chkSite.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;chkSite.ZOrder" xml:space="preserve">
<value>0</value> <value>0</value>
</data> </data>
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
@ -496,7 +433,7 @@
<value>6, 13</value> <value>6, 13</value>
</data> </data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing"> <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>376, 209</value> <value>376, 315</value>
</data> </data>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing"> <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 8.25pt</value> <value>Tahoma, 8.25pt</value>

31
app/DD-Record-Organizer/frmLicense_User.vb
View File

@ -43,16 +43,27 @@
Else Else
lbValidUntil.Text = LICENSE_DATE.ToString("MM-dd-yyyy") lbValidUntil.Text = LICENSE_DATE.ToString("MM-dd-yyyy")
End If End If
DataGridViewAddOns.DataSource = DT_LICENSE_ADDONS
DataGridViewAddOns.Columns(0).Width = 200
DataGridViewAddOns.Columns(1).Visible = False
DataGridViewAddOns.Columns(2).Width = 100
GridColor()
If (CBool(LICENSE_SAP_Connect) = True) Then
chkSAP.Checked = True
Else
chkSAP.Checked = False
End If
If (CBool(LICENSE_SITE_PROXY) = True) Then
chkSite.Checked = True
Else
chkSite.Checked = False
End If
End Sub End Sub
Sub GridColor()
Try
For i = 0 To DataGridViewAddOns.RowCount - 1
If DataGridViewAddOns.Rows(i).Cells(2).Value.ToString = "Valid" Then
DataGridViewAddOns.Rows(i).DefaultCellStyle.BackColor = Color.LimeGreen
Else
DataGridViewAddOns.Rows(i).DefaultCellStyle.BackColor = Color.Red
End If
Next
Catch ex As Exception
End Try
End Sub
End Class End Class

5
app/DD-Record-Organizer/frmMain.vb
View File

@ -107,7 +107,7 @@ Public Class frmMain
End If End If
End Sub End Sub
Sub Proxy_Server_Controls() Sub Proxy_Server_Controls()
If LICENSE_SITE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED = True Then If LICENSE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED = True Then
itemRefreshProxy.Visibility = BarItemVisibility.Always itemRefreshProxy.Visibility = BarItemVisibility.Always
LabelProxyServer.Visibility = BarItemVisibility.Always LabelProxyServer.Visibility = BarItemVisibility.Always
ClassLogger.Add(">> PROXY-SERVER is being used", False) ClassLogger.Add(">> PROXY-SERVER is being used", False)
@ -146,6 +146,9 @@ Public Class frmMain
If ERROR_INIT = "NONE" Then If ERROR_INIT = "NONE" Then
If USER_IS_ADMIN = True Then If USER_IS_ADMIN = True Then
pageAdmin.Visible = True pageAdmin.Visible = True
itemRefreshProxy.Visibility = BarItemVisibility.Always
Else
itemRefreshProxy.Visibility = BarItemVisibility.Never
End If End If
LabelLoggedIn.Caption = "Anzahl Angemeldete User: " & USERS_LOGGED_IN.ToString() LabelLoggedIn.Caption = "Anzahl Angemeldete User: " & USERS_LOGGED_IN.ToString()

30
app/DD-Record-Organizer/frmMass_Change.Designer.vb generated
View File

@ -33,17 +33,20 @@ Partial Class frmMass_Change
Me.Label5 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label()
Me.btnRefresh = New System.Windows.Forms.Button() Me.btnRefresh = New System.Windows.Forms.Button()
Me.btncancel = New System.Windows.Forms.Button() Me.btncancel = New System.Windows.Forms.Button()
Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
Me.BackgroundWorker = New System.ComponentModel.BackgroundWorker()
Me.lblStateBW = New System.Windows.Forms.Label()
Me.GroupBox1.SuspendLayout() Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout() Me.GroupBox2.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
'GroupBox1 'GroupBox1
' '
resources.ApplyResources(Me.GroupBox1, "GroupBox1")
Me.GroupBox1.Controls.Add(Me.lblCount) Me.GroupBox1.Controls.Add(Me.lblCount)
Me.GroupBox1.Controls.Add(Me.cmbColumn) Me.GroupBox1.Controls.Add(Me.cmbColumn)
Me.GroupBox1.Controls.Add(Me.Label1) Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Controls.Add(Me.lblHinweis) Me.GroupBox1.Controls.Add(Me.lblHinweis)
resources.ApplyResources(Me.GroupBox1, "GroupBox1")
Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.TabStop = False Me.GroupBox1.TabStop = False
' '
@ -55,8 +58,8 @@ Partial Class frmMass_Change
' '
'cmbColumn 'cmbColumn
' '
resources.ApplyResources(Me.cmbColumn, "cmbColumn")
Me.cmbColumn.FormattingEnabled = True Me.cmbColumn.FormattingEnabled = True
resources.ApplyResources(Me.cmbColumn, "cmbColumn")
Me.cmbColumn.Name = "cmbColumn" Me.cmbColumn.Name = "cmbColumn"
' '
'Label1 'Label1
@ -71,9 +74,9 @@ Partial Class frmMass_Change
' '
'GroupBox2 'GroupBox2
' '
resources.ApplyResources(Me.GroupBox2, "GroupBox2")
Me.GroupBox2.Controls.Add(Me.txtNewValue) Me.GroupBox2.Controls.Add(Me.txtNewValue)
Me.GroupBox2.Controls.Add(Me.Label5) Me.GroupBox2.Controls.Add(Me.Label5)
resources.ApplyResources(Me.GroupBox2, "GroupBox2")
Me.GroupBox2.Name = "GroupBox2" Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.TabStop = False Me.GroupBox2.TabStop = False
' '
@ -101,10 +104,27 @@ Partial Class frmMass_Change
Me.btncancel.Name = "btncancel" Me.btncancel.Name = "btncancel"
Me.btncancel.UseVisualStyleBackColor = True Me.btncancel.UseVisualStyleBackColor = True
' '
'ProgressBar1
'
resources.ApplyResources(Me.ProgressBar1, "ProgressBar1")
Me.ProgressBar1.Name = "ProgressBar1"
'
'BackgroundWorker
'
Me.BackgroundWorker.WorkerReportsProgress = True
Me.BackgroundWorker.WorkerSupportsCancellation = True
'
'lblStateBW
'
resources.ApplyResources(Me.lblStateBW, "lblStateBW")
Me.lblStateBW.Name = "lblStateBW"
'
'frmMass_Change 'frmMass_Change
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.lblStateBW)
Me.Controls.Add(Me.ProgressBar1)
Me.Controls.Add(Me.btncancel) Me.Controls.Add(Me.btncancel)
Me.Controls.Add(Me.btnRefresh) Me.Controls.Add(Me.btnRefresh)
Me.Controls.Add(Me.GroupBox2) Me.Controls.Add(Me.GroupBox2)
@ -118,6 +138,7 @@ Partial Class frmMass_Change
Me.GroupBox2.ResumeLayout(False) Me.GroupBox2.ResumeLayout(False)
Me.GroupBox2.PerformLayout() Me.GroupBox2.PerformLayout()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout()
End Sub End Sub
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
@ -130,4 +151,7 @@ Partial Class frmMass_Change
Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents btnRefresh As System.Windows.Forms.Button Friend WithEvents btnRefresh As System.Windows.Forms.Button
Friend WithEvents btncancel As System.Windows.Forms.Button Friend WithEvents btncancel As System.Windows.Forms.Button
Friend WithEvents ProgressBar1 As ProgressBar
Friend WithEvents BackgroundWorker As System.ComponentModel.BackgroundWorker
Friend WithEvents lblStateBW As Label
End Class End Class

592
app/DD-Record-Organizer/frmMass_Change.resx
View File

@ -118,55 +118,208 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="Label5.AutoSize" type="System.Boolean, mscorlib"> <data name="lblCount.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
</data> </data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing"> <data name="lblCount.Font" type="System.Drawing.Font, System.Drawing">
<value>625, 176</value> <value>Segoe UI Semibold, 8.25pt, style=Bold, Italic</value>
</data>
<data name="lblCount.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data> </data>
<data name="lblCount.Location" type="System.Drawing.Point, System.Drawing"> <data name="lblCount.Location" type="System.Drawing.Point, System.Drawing">
<value>378, 49</value> <value>378, 49</value>
</data> </data>
<data name="&gt;&gt;cmbColumn.ZOrder" xml:space="preserve"> <data name="lblCount.Size" type="System.Drawing.Size, System.Drawing">
<value>1</value> <value>38, 13</value>
</data> </data>
<data name="Label5.Location" type="System.Drawing.Point, System.Drawing"> <data name="lblCount.TabIndex" type="System.Int32, mscorlib">
<value>12, 27</value> <value>4</value>
</data> </data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> <data name="lblCount.Text" xml:space="preserve">
<data name="btncancel.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <value>Label3</value>
<value>Bottom, Right</value>
</data> </data>
<data name="cmbColumn.Size" type="System.Drawing.Size, System.Drawing"> <data name="&gt;&gt;lblCount.Name" xml:space="preserve">
<value>254, 25</value> <value>lblCount</value>
</data>
<data name="btncancel.Size" type="System.Drawing.Size, System.Drawing">
<value>87, 32</value>
</data>
<data name="&gt;&gt;lblHinweis.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="btncancel.TabIndex" type="System.Int32, mscorlib">
<value>7</value>
</data>
<data name="GroupBox2.TabIndex" type="System.Int32, mscorlib">
<value>5</value>
</data>
<data name="GroupBox1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Top</value>
</data> </data>
<data name="&gt;&gt;lblCount.Type" xml:space="preserve"> <data name="&gt;&gt;lblCount.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="&gt;&gt;lblCount.Parent" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;lblCount.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="cmbColumn.Location" type="System.Drawing.Point, System.Drawing">
<value>118, 43</value>
</data>
<data name="cmbColumn.Size" type="System.Drawing.Size, System.Drawing">
<value>254, 25</value>
</data>
<data name="cmbColumn.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="&gt;&gt;cmbColumn.Name" xml:space="preserve">
<value>cmbColumn</value>
</data>
<data name="&gt;&gt;cmbColumn.Type" xml:space="preserve">
<value>System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;cmbColumn.Parent" xml:space="preserve"> <data name="&gt;&gt;cmbColumn.Parent" xml:space="preserve">
<value>GroupBox1</value> <value>GroupBox1</value>
</data> </data>
<data name="btncancel.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing"> <data name="&gt;&gt;cmbColumn.ZOrder" xml:space="preserve">
<value>MiddleLeft</value> <value>1</value>
</data>
<data name="Label1.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="Label1.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 46</value>
</data>
<data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
<value>100, 17</value>
</data>
<data name="Label1.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
</data>
<data name="Label1.Text" xml:space="preserve">
<value>Spaltenauswahl:</value>
</data>
<data name="&gt;&gt;Label1.Name" xml:space="preserve">
<value>Label1</value>
</data>
<data name="&gt;&gt;Label1.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label1.Parent" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="lblHinweis.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="lblHinweis.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 18</value>
</data>
<data name="lblHinweis.Size" type="System.Drawing.Size, System.Drawing">
<value>394, 17</value>
</data>
<data name="lblHinweis.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="lblHinweis.Text" xml:space="preserve">
<value>Bitte wählen Sie die Spalte, deren Werte Sie überschreiben wollen?</value>
</data>
<data name="&gt;&gt;lblHinweis.Name" xml:space="preserve">
<value>lblHinweis</value>
</data>
<data name="&gt;&gt;lblHinweis.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;lblHinweis.Parent" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;lblHinweis.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="GroupBox1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Top</value>
</data>
<data name="GroupBox1.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt</value>
</data>
<data name="GroupBox1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="GroupBox1.Size" type="System.Drawing.Size, System.Drawing">
<value>625, 73</value>
</data>
<data name="GroupBox1.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="GroupBox1.Text" xml:space="preserve">
<value>1. Zusammenfassung und Auswahl Spalte:</value>
</data>
<data name="&gt;&gt;GroupBox1.Name" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;GroupBox1.Type" xml:space="preserve">
<value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;GroupBox1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;GroupBox1.ZOrder" xml:space="preserve">
<value>5</value>
</data>
<data name="txtNewValue.Location" type="System.Drawing.Point, System.Drawing">
<value>118, 24</value>
</data>
<data name="txtNewValue.Size" type="System.Drawing.Size, System.Drawing">
<value>364, 25</value>
</data>
<data name="txtNewValue.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="&gt;&gt;txtNewValue.Name" xml:space="preserve">
<value>txtNewValue</value>
</data>
<data name="&gt;&gt;txtNewValue.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;txtNewValue.Parent" xml:space="preserve">
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;txtNewValue.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="Label5.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="Label5.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 27</value>
</data>
<data name="Label5.Size" type="System.Drawing.Size, System.Drawing">
<value>78, 17</value>
</data>
<data name="Label5.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
</data>
<data name="Label5.Text" xml:space="preserve">
<value>Neuer Wert:</value>
</data>
<data name="&gt;&gt;Label5.Name" xml:space="preserve">
<value>Label5</value>
</data>
<data name="&gt;&gt;Label5.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label5.Parent" xml:space="preserve">
<value>GroupBox2</value>
</data>
<data name="&gt;&gt;Label5.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="GroupBox2.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Top</value>
</data>
<data name="GroupBox2.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt</value>
</data>
<data name="GroupBox2.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 73</value>
</data>
<data name="GroupBox2.Size" type="System.Drawing.Size, System.Drawing">
<value>625, 57</value>
</data>
<data name="GroupBox2.TabIndex" type="System.Int32, mscorlib">
<value>5</value>
</data>
<data name="GroupBox2.Text" xml:space="preserve">
<value>2. Werteingabe:</value>
</data> </data>
<data name="&gt;&gt;GroupBox2.Name" xml:space="preserve"> <data name="&gt;&gt;GroupBox2.Name" xml:space="preserve">
<value>GroupBox2</value> <value>GroupBox2</value>
@ -174,59 +327,149 @@
<data name="&gt;&gt;GroupBox2.Type" xml:space="preserve"> <data name="&gt;&gt;GroupBox2.Type" xml:space="preserve">
<value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="&gt;&gt;btncancel.Type" xml:space="preserve"> <data name="&gt;&gt;GroupBox2.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;GroupBox2.ZOrder" xml:space="preserve">
<value>4</value>
</data>
<data name="btnRefresh.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt, style=Bold</value>
</data>
<data name="btnRefresh.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
</data>
<data name="btnRefresh.Location" type="System.Drawing.Point, System.Drawing">
<value>118, 180</value>
</data>
<data name="btnRefresh.Size" type="System.Drawing.Size, System.Drawing">
<value>364, 32</value>
</data>
<data name="btnRefresh.TabIndex" type="System.Int32, mscorlib">
<value>6</value>
</data>
<data name="btnRefresh.Text" xml:space="preserve">
<value>Werte ändern</value>
</data>
<data name="&gt;&gt;btnRefresh.Name" xml:space="preserve">
<value>btnRefresh</value>
</data>
<data name="&gt;&gt;btnRefresh.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="lblHinweis.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
<value>6, 13</value>
</data>
<data name="Label1.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
</data>
<data name="lblCount.Text" xml:space="preserve">
<value>Label3</value>
</data>
<data name="Label5.Text" xml:space="preserve">
<value>Neuer Wert:</value>
</data>
<data name="&gt;&gt;txtNewValue.Parent" xml:space="preserve">
<value>GroupBox2</value>
</data>
<data name="lblHinweis.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 18</value>
</data>
<data name="lblHinweis.Text" xml:space="preserve">
<value>Bitte wählen Sie die Spalte, deren Werte Sie überschreiben wollen?</value>
</data>
<data name="&gt;&gt;GroupBox1.Name" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="$this.StartPosition" type="System.Windows.Forms.FormStartPosition, System.Windows.Forms">
<value>CenterScreen</value>
</data>
<data name="&gt;&gt;Label1.Name" xml:space="preserve">
<value>Label1</value>
</data>
<data name="lblCount.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI Semibold, 8.25pt, style=Bold, Italic</value>
</data>
<data name="&gt;&gt;GroupBox1.Type" xml:space="preserve">
<value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="txtNewValue.Location" type="System.Drawing.Point, System.Drawing">
<value>118, 24</value>
</data>
<data name="&gt;&gt;btnRefresh.Parent" xml:space="preserve"> <data name="&gt;&gt;btnRefresh.Parent" xml:space="preserve">
<value>$this</value> <value>$this</value>
</data> </data>
<data name="lblHinweis.TabIndex" type="System.Int32, mscorlib"> <data name="&gt;&gt;btnRefresh.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="btncancel.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Right</value>
</data>
<data name="btncancel.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
</data>
<data name="btncancel.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="btncancel.Location" type="System.Drawing.Point, System.Drawing">
<value>15, 181</value>
</data>
<data name="btncancel.Size" type="System.Drawing.Size, System.Drawing">
<value>87, 32</value>
</data>
<data name="btncancel.TabIndex" type="System.Int32, mscorlib">
<value>7</value>
</data>
<data name="btncancel.Text" xml:space="preserve">
<value>Schliessen</value>
</data>
<data name="btncancel.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleRight</value>
</data>
<data name="&gt;&gt;btncancel.Name" xml:space="preserve">
<value>btncancel</value>
</data>
<data name="&gt;&gt;btncancel.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;btncancel.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;btncancel.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="ProgressBar1.Location" type="System.Drawing.Point, System.Drawing">
<value>118, 155</value>
</data>
<data name="ProgressBar1.Size" type="System.Drawing.Size, System.Drawing">
<value>364, 19</value>
</data>
<data name="ProgressBar1.TabIndex" type="System.Int32, mscorlib">
<value>8</value>
</data>
<data name="ProgressBar1.Visible" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="&gt;&gt;ProgressBar1.Name" xml:space="preserve">
<value>ProgressBar1</value>
</data>
<data name="&gt;&gt;ProgressBar1.Type" xml:space="preserve">
<value>System.Windows.Forms.ProgressBar, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;ProgressBar1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;ProgressBar1.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<metadata name="BackgroundWorker.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<data name="lblStateBW.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="lblStateBW.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="lblStateBW.Location" type="System.Drawing.Point, System.Drawing">
<value>115, 139</value>
</data>
<data name="lblStateBW.Size" type="System.Drawing.Size, System.Drawing">
<value>92, 13</value>
</data>
<data name="lblStateBW.TabIndex" type="System.Int32, mscorlib">
<value>5</value>
</data>
<data name="lblStateBW.Text" xml:space="preserve">
<value>Spaltenauswahl:</value>
</data>
<data name="lblStateBW.Visible" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="&gt;&gt;lblStateBW.Name" xml:space="preserve">
<value>lblStateBW</value>
</data>
<data name="&gt;&gt;lblStateBW.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;lblStateBW.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;lblStateBW.ZOrder" xml:space="preserve">
<value>0</value> <value>0</value>
</data> </data>
<data name="Label5.TabIndex" type="System.Int32, mscorlib"> <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>1</value> <value>True</value>
</metadata>
<data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
<value>6, 13</value>
</data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>625, 215</value>
</data>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt</value>
</data> </data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
@ -677,199 +920,22 @@
AAAAAQAAgAAAAAABAADAAAAAAAMAAP///////wAA////////AAD///////8AAP///////wAA AAAAAQAAgAAAAAABAADAAAAAAAMAAP///////wAA////////AAD///////8AAP///////wAA
</value> </value>
</data> </data>
<data name="&gt;&gt;txtNewValue.Type" xml:space="preserve"> <data name="$this.StartPosition" type="System.Windows.Forms.FormStartPosition, System.Windows.Forms">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>CenterScreen</value>
</data>
<data name="&gt;&gt;Label1.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="btnRefresh.Location" type="System.Drawing.Point, System.Drawing">
<value>118, 136</value>
</data>
<data name="cmbColumn.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="txtNewValue.Size" type="System.Drawing.Size, System.Drawing">
<value>364, 25</value>
</data>
<data name="btncancel.Text" xml:space="preserve">
<value>Schliessen</value>
</data>
<data name="txtNewValue.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="cmbColumn.Location" type="System.Drawing.Point, System.Drawing">
<value>118, 43</value>
</data>
<data name="GroupBox2.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Top</value>
</data>
<data name="&gt;&gt;cmbColumn.Type" xml:space="preserve">
<value>System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;lblCount.Name" xml:space="preserve">
<value>lblCount</value>
</data>
<data name="&gt;&gt;GroupBox1.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="&gt;&gt;GroupBox2.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="btnRefresh.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
</data>
<data name="&gt;&gt;lblCount.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="&gt;&gt;Label1.Parent" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;btncancel.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt</value>
</data>
<data name="lblHinweis.Size" type="System.Drawing.Size, System.Drawing">
<value>395, 17</value>
</data>
<data name="Label1.Text" xml:space="preserve">
<value>Spaltenauswahl:</value>
</data>
<data name="&gt;&gt;GroupBox1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;GroupBox2.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="GroupBox1.Text" xml:space="preserve">
<value>1. Zusammenfassung und Auswahl Spalte:</value>
</data>
<data name="Label5.Size" type="System.Drawing.Size, System.Drawing">
<value>79, 17</value>
</data>
<data name="&gt;&gt;lblHinweis.Name" xml:space="preserve">
<value>lblHinweis</value>
</data>
<data name="&gt;&gt;Label5.Name" xml:space="preserve">
<value>Label5</value>
</data>
<data name="btnRefresh.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt, style=Bold</value>
</data>
<data name="&gt;&gt;cmbColumn.Name" xml:space="preserve">
<value>cmbColumn</value>
</data>
<data name="&gt;&gt;btnRefresh.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="&gt;&gt;lblCount.Parent" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="GroupBox1.Size" type="System.Drawing.Size, System.Drawing">
<value>625, 73</value>
</data>
<data name="GroupBox1.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt</value>
</data>
<data name="&gt;&gt;btnRefresh.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="GroupBox2.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 73</value>
</data>
<data name="&gt;&gt;txtNewValue.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="&gt;&gt;Label5.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="GroupBox2.Text" xml:space="preserve">
<value>2. Werteingabe:</value>
</data>
<data name="btncancel.Location" type="System.Drawing.Point, System.Drawing">
<value>15, 136</value>
</data>
<data name="&gt;&gt;$this.Type" xml:space="preserve">
<value>System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="Label1.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="btncancel.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleRight</value>
</data>
<data name="&gt;&gt;lblHinweis.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
<value>2</value>
</data> </data>
<data name="$this.Text" xml:space="preserve"> <data name="$this.Text" xml:space="preserve">
<value>Massen Änderung</value> <value>Massen Änderung</value>
</data> </data>
<data name="&gt;&gt;txtNewValue.Name" xml:space="preserve"> <data name="&gt;&gt;BackgroundWorker.Name" xml:space="preserve">
<value>txtNewValue</value> <value>BackgroundWorker</value>
</data> </data>
<data name="GroupBox1.Location" type="System.Drawing.Point, System.Drawing"> <data name="&gt;&gt;BackgroundWorker.Type" xml:space="preserve">
<value>0, 0</value> <value>System.ComponentModel.BackgroundWorker, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="GroupBox2.Size" type="System.Drawing.Size, System.Drawing">
<value>625, 57</value>
</data>
<data name="&gt;&gt;btnRefresh.Name" xml:space="preserve">
<value>btnRefresh</value>
</data>
<data name="GroupBox2.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt</value>
</data>
<data name="btnRefresh.Size" type="System.Drawing.Size, System.Drawing">
<value>364, 32</value>
</data>
<data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
<value>100, 17</value>
</data>
<data name="btncancel.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="&gt;&gt;btncancel.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="lblCount.TabIndex" type="System.Int32, mscorlib">
<value>4</value>
</data>
<data name="&gt;&gt;Label5.Parent" xml:space="preserve">
<value>GroupBox2</value>
</data>
<data name="btnRefresh.TabIndex" type="System.Int32, mscorlib">
<value>6</value>
</data>
<data name="Label1.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 46</value>
</data>
<data name="GroupBox1.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data> </data>
<data name="&gt;&gt;$this.Name" xml:space="preserve"> <data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmMass_Change</value> <value>frmMass_Change</value>
</data> </data>
<data name="&gt;&gt;Label5.ZOrder" xml:space="preserve"> <data name="&gt;&gt;$this.Type" xml:space="preserve">
<value>1</value> <value>System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="&gt;&gt;btncancel.Name" xml:space="preserve">
<value>btncancel</value>
</data>
<data name="lblCount.Size" type="System.Drawing.Size, System.Drawing">
<value>38, 13</value>
</data>
<data name="btnRefresh.Text" xml:space="preserve">
<value>Werte ändern</value>
</data>
<data name="&gt;&gt;lblHinweis.Parent" xml:space="preserve">
<value>GroupBox1</value>
</data>
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
</root> </root>

107
app/DD-Record-Organizer/frmMass_Change.vb
View File

@ -1,5 +1,7 @@
Public Class frmMass_Change Imports System.ComponentModel
Public Class frmMass_Change
Dim SQL As String
Private Sub frmMass_Change_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmMass_Change_Load(sender As Object, e As EventArgs) Handles Me.Load
Try Try
SUCCESSFULL = False SUCCESSFULL = False
@ -36,15 +38,34 @@
Dim result As MsgBoxResult Dim result As MsgBoxResult
result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
Me.Cursor = Cursors.WaitCursor
SQL = String.Format("SELECT GUID FROM TBPMO_CONTROL WHERE COL_NAME = '{0}' AND FORM_ID = {1}", cmbColumn.Text, CURRENT_ENTITY_ID)
ProgressBar1.Visible = True
lblStateBW.Text = "Preparing BackgroundWorker..."
lblStateBW.Visible = True
ProgressBar1.Maximum = MASS_RECORD_IDs2CHANGE.Count
AddHandler BackgroundWorker.DoWork, AddressOf bwDowork
'.. und starten
BackgroundWorker.RunWorkerAsync()
End If
End If
Catch ex As Exception
MsgBox("Unexpected Error in Execute mass change:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
Cursor = Cursors.Default
End Sub
Dim _Error = False
Sub bwDowork(ByVal sender As Object, ByVal e As DoWorkEventArgs)
Dim worker As BackgroundWorker = CType(sender, BackgroundWorker)
Dim val = txtNewValue.Text Dim val = txtNewValue.Text
Dim SQL = String.Format("SELECT GUID FROM TBPMO_CONTROL WHERE COL_NAME = '{0}' AND FORM_ID = {1}", cmbColumn.Text, CURRENT_ENTITY_ID)
Dim control_Id = ClassDatabase.Execute_Scalar(SQL, True) Dim control_Id = ClassDatabase.Execute_Scalar(SQL, True)
If Not IsNothing(control_Id) Then If Not IsNothing(control_Id) Then
If control_Id > 0 Then If control_Id > 0 Then
SQL = String.Format("SELECT CONTROL_TYPE_ID FROM TBPMO_CONTROL WHERE GUID = {0}", control_Id) SQL = String.Format("SELECT CONTROL_TYPE_ID FROM TBPMO_CONTROL WHERE GUID = {0}", control_Id)
Dim control_type_ID = ClassDatabase.Execute_Scalar(SQL, True) Dim control_type_ID = ClassDatabase.Execute_Scalar(SQL, True)
If control_type_ID = 4 Then If control_type_ID = 4 Then
Try Try
val = CDate(val) val = CDate(val)
Catch ex As Exception Catch ex As Exception
@ -54,27 +75,25 @@
End Try End Try
End If End If
If control_type_ID = 7 Or control_type_ID = 12 Or control_type_ID = 14 Then If control_type_ID = 7 Or control_type_ID = 12 Or control_type_ID = 14 Then
msg = "Achtung: für diese Spalte existieren mehrere Werte. Diese Werte werden gelöscht." & vbNewLine & "Wollen Sie dennoch fortfahren?" stateBW = "Deleting the old values..."
If USER_LANGUAGE <> "de-DE" Then 'Dim msg As String
msg = "Attention: there are multiple values for this column. These values will be deleted." & vbNewLine & "Would You like to continue?" 'msg = "Achtung: für diese Spalte existieren mehrere Werte. Diese Werte werden gelöscht." & vbNewLine & "Wollen Sie dennoch fortfahren?"
End If 'If USER_LANGUAGE <> "de-DE" Then
Dim result1 As MsgBoxResult ' msg = "Attention: there are multiple values for this column. These values will be deleted." & vbNewLine & "Would You like to continue?"
result1 = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) 'End If
If result1 = MsgBoxResult.No Then 'Dim result1 As MsgBoxResult
Exit Sub 'result1 = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
Else
For Each Record As String In MASS_RECORD_IDs2CHANGE For Each Record As String In MASS_RECORD_IDs2CHANGE
Dim del = String.Format("DELETE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", control_Id, CInt(Record)) Dim del = String.Format("DELETE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", control_Id, CInt(Record))
ClassDatabase.Execute_non_Query(del, False) ClassDatabase.Execute_non_Query(del, False)
ClassProxy.PRPROXY_CONTROL_DEL(CInt(Record), CURRENT_ENTITY_ID, control_Id) ClassProxy.PRPROXY_CONTROL_DEL(CInt(Record), CURRENT_ENTITY_ID, control_Id)
Next Next
End If
End If End If
Try Try
Dim err As Boolean = False
Dim RIGHT_ONLY_READ_RECORD_FILE = False Dim RIGHT_ONLY_READ_RECORD_FILE = False
Dim i As Integer = 1
For Each Record As String In MASS_RECORD_IDs2CHANGE For Each Record As String In MASS_RECORD_IDs2CHANGE
stateBW = String.Format("Working on record {0} of {1}...", i, MASS_RECORD_IDs2CHANGE.Count.ToString)
If SQL_RECORD_AND_FILE_READ_ONLY <> "" Then If SQL_RECORD_AND_FILE_READ_ONLY <> "" Then
RIGHT_ONLY_READ_RECORD_FILE = ClassHelper.Check_Record_Read_only(CInt(Record), CURRENT_ENTITY_ID) RIGHT_ONLY_READ_RECORD_FILE = ClassHelper.Check_Record_Read_only(CInt(Record), CURRENT_ENTITY_ID)
End If End If
@ -84,43 +103,65 @@
If Not IsNothing(ex_GUID) Then If Not IsNothing(ex_GUID) Then
SQL = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}',CHANGED_WHO = '{1}' WHERE GUID = {2}", val, USER_USERNAME, ex_GUID) SQL = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}',CHANGED_WHO = '{1}' WHERE GUID = {2}", val, USER_USERNAME, ex_GUID)
If ClassDatabase.Execute_non_Query(SQL, False) = False Then If ClassDatabase.Execute_non_Query(SQL, False) = False Then
MsgBox("Error in updating the value for Record: " & Record & vbNewLine & "Please check the logfile.", MsgBoxStyle.Exclamation) _Error = True
ClassLogger.Add(">> Error in updating the value for Record: " & Record, False)
Else Else
ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(CURRENT_ENTITY_ID, control_Id, CInt(Record), val) ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(CURRENT_ENTITY_ID, control_Id, CInt(Record), val)
End If End If
Else Else
SQL = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", control_Id, CInt(Record), val, USER_USERNAME) SQL = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", control_Id, CInt(Record), val, USER_USERNAME)
If ClassDatabase.Execute_non_Query(SQL, False) = False Then If ClassDatabase.Execute_non_Query(SQL, False) = False Then
MsgBox("Error in inserting the value for Record: " & Record & vbNewLine & "Please check the logfile.", MsgBoxStyle.Exclamation) _Error = True
ClassLogger.Add(">> Error in inserting the value for Record: " & Record, False)
Else Else
ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(CURRENT_ENTITY_ID, control_Id, CInt(Record), val) ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(CURRENT_ENTITY_ID, control_Id, CInt(Record), val)
End If End If
End If End If
End If End If
BackgroundWorker.ReportProgress(i)
i += 1
Next Next
SUCCESSFULL = True SUCCESSFULL = True
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Getting record to be changed:" & ex.Message)
_Error = True
End Try
Else
ClassLogger.Add("No defined column found! (1)")
_Error = True
End If
Else
ClassLogger.Add("No defined column found! (2)")
_Error = True
End If
End Sub
Dim stateBW As String
Private Sub BackgroundWorker_ProgressChanged(sender As Object, e As ProgressChangedEventArgs) Handles BackgroundWorker.ProgressChanged
Me.ProgressBar1.Value = e.ProgressPercentage
lblStateBW.Text = stateBW
End Sub
Private Sub BackgroundWorker_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker.RunWorkerCompleted
Me.ProgressBar1.Visible = False
Me.lblStateBW.Visible = False
Dim msg As String
msg = "Alle Änderungen wurden ausgeführt!" msg = "Alle Änderungen wurden ausgeführt!"
If USER_LANGUAGE <> "de-DE" Then If USER_LANGUAGE <> "de-DE" Then
msg = "All changes were executed!" msg = "All changes were executed!"
End If End If
MsgBox(msg, MsgBoxStyle.Information) If _Error = True Then
Catch ex As Exception If USER_LANGUAGE <> "de-DE" Then
MsgBox("Unexpected Error in Getting record to be changed:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) msg = msg & vbNewLine & "But errors occured while updating values! Check the log"
End Try
Else Else
MsgBox("No defined column found! (1)", MsgBoxStyle.Information) msg = msg & vbNewLine & "Aber während des Update-Vorgangs erreigneten sich Fehler! Prüfen Sie die Logdatei!"
End If
Else
MsgBox("No defined column found! (2)", MsgBoxStyle.Information)
End If
End If
End If End If
Catch ex As Exception End If
MsgBox("Unexpected Error in Execute mass change:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox(msg, MsgBoxStyle.Information)
End Try Me.Cursor = Cursors.Default
Cursor = Cursors.Default
End Sub End Sub
End Class End Class

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

@ -80,7 +80,7 @@
Private Sub frmRight_Management_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing Private Sub frmRight_Management_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Save_Datagrid(TBPMO_RIGHT_GROUPDataGridView, "TBPMO_RIGHT_GROUPDataGridView") Save_Datagrid(TBPMO_RIGHT_GROUPDataGridView, "TBPMO_RIGHT_GROUPDataGridView")
If LICENSE_SITE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
MessageBox.Show("If You changed some data here, be aware that this data needs to be synchronized with Your proxy-data!" & vbNewLine & "The regualar processing-time are 30 minutes", "Attention", MessageBoxButtons.OK, MessageBoxIcon.Information) MessageBox.Show("If You changed some data here, be aware that this data needs to be synchronized with Your proxy-data!" & vbNewLine & "The regualar processing-time are 30 minutes", "Attention", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If End If
'Save_Datagrid(TBPMO_RIGHT_USERDataGridView, "TBPMO_RIGHT_USERDataGridView") 'Save_Datagrid(TBPMO_RIGHT_USERDataGridView, "TBPMO_RIGHT_USERDataGridView")

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

@ -34,7 +34,7 @@ Public Class frmWD_ChangeDoctype
For Each row As DataRow In CURRENT_DT_SELECTED_FILES.Rows For Each row As DataRow In CURRENT_DT_SELECTED_FILES.Rows
sql = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET Doctype = '{0}' WHERE DocID = {1}", NewDoctype, row.Item("DOC_ID")) sql = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET Doctype = '{0}' WHERE DocID = {1}", NewDoctype, row.Item("DOC_ID"))
If clsDatabase.Execute_non_Query(sql) = True Then If clsDatabase.Execute_non_Query(sql) = True Then
If LICENSE_SITE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED Then If LICENSE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED Then
clsDatabase.Execute_non_Query(sql, True) clsDatabase.Execute_non_Query(sql, True)
sql = String.Format("UPDATE VWPMO_DOC_SEARCH SET Doctype = '{0}', Change_DateTime = GETDATE() WHERE DocID = {1}", NewDoctype, row.Item("DOC_ID")) sql = String.Format("UPDATE VWPMO_DOC_SEARCH SET Doctype = '{0}', Change_DateTime = GETDATE() WHERE DocID = {1}", NewDoctype, row.Item("DOC_ID"))
clsDatabase.Execute_non_Query(sql, True) clsDatabase.Execute_non_Query(sql, True)

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

@ -16,7 +16,7 @@ Public Class frmWD_CreateVersion
VERSION = VERSION + 1 VERSION = VERSION + 1
Dim upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET Version = {0} WHERE DocID = {1}", VERSION, row.Item("DOC_ID")) Dim upd = String.Format("UPDATE TBPMO_DOCRESULT_LIST SET Version = {0} WHERE DocID = {1}", VERSION, row.Item("DOC_ID"))
clsDatabase.Execute_non_Query(upd) clsDatabase.Execute_non_Query(upd)
If LICENSE_SITE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED Then If LICENSE_PROXY = True And clsDatabase.DB_PROXY_INITIALIZED Then
clsDatabase.Execute_non_Query(upd, True) clsDatabase.Execute_non_Query(upd, True)
End If End If
End If End If

32
app/DD-Record-Organizer/frmWD_IndexFile.Designer.vb generated
View File

@ -27,7 +27,6 @@ Partial Class frmWD_IndexFile
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmWD_IndexFile)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmWD_IndexFile))
Dim FW_DOCTYPE_IDLabel As System.Windows.Forms.Label Dim FW_DOCTYPE_IDLabel As System.Windows.Forms.Label
Dim PATHLabel As System.Windows.Forms.Label Dim PATHLabel As System.Windows.Forms.Label
Dim Label3 As System.Windows.Forms.Label
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.txtFilepath = New System.Windows.Forms.TextBox() Me.txtFilepath = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
@ -38,9 +37,6 @@ Partial Class frmWD_IndexFile
Me.OBJECT_TYPETextBox = New System.Windows.Forms.TextBox() Me.OBJECT_TYPETextBox = New System.Windows.Forms.TextBox()
Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.PATHTextBox = New System.Windows.Forms.TextBox() Me.PATHTextBox = New System.Windows.Forms.TextBox()
Me.lvwIndices = New System.Windows.Forms.ListView()
Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.DOCTYPE_IDTextBox = New System.Windows.Forms.TextBox() Me.DOCTYPE_IDTextBox = New System.Windows.Forms.TextBox()
Me.chkdelete_origin = New System.Windows.Forms.CheckBox() Me.chkdelete_origin = New System.Windows.Forms.CheckBox()
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
@ -53,7 +49,6 @@ Partial Class frmWD_IndexFile
OBJECT_TYPELabel = New System.Windows.Forms.Label() OBJECT_TYPELabel = New System.Windows.Forms.Label()
FW_DOCTYPE_IDLabel = New System.Windows.Forms.Label() FW_DOCTYPE_IDLabel = New System.Windows.Forms.Label()
PATHLabel = New System.Windows.Forms.Label() PATHLabel = New System.Windows.Forms.Label()
Label3 = New System.Windows.Forms.Label()
CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout() Me.GroupBox1.SuspendLayout()
CType(Me.VWDDINDEX_AUTOMBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.VWDDINDEX_AUTOMBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@ -74,11 +69,6 @@ Partial Class frmWD_IndexFile
resources.ApplyResources(PATHLabel, "PATHLabel") resources.ApplyResources(PATHLabel, "PATHLabel")
PATHLabel.Name = "PATHLabel" PATHLabel.Name = "PATHLabel"
' '
'Label3
'
resources.ApplyResources(Label3, "Label3")
Label3.Name = "Label3"
'
'Label1 'Label1
' '
resources.ApplyResources(Me.Label1, "Label1") resources.ApplyResources(Me.Label1, "Label1")
@ -97,6 +87,7 @@ Partial Class frmWD_IndexFile
' '
'cmbDokumentart 'cmbDokumentart
' '
Me.cmbDokumentart.DisplayMember = "DOKUMENTTYPE_ID"
resources.ApplyResources(Me.cmbDokumentart, "cmbDokumentart") resources.ApplyResources(Me.cmbDokumentart, "cmbDokumentart")
Me.cmbDokumentart.FormattingEnabled = True Me.cmbDokumentart.FormattingEnabled = True
Me.cmbDokumentart.Name = "cmbDokumentart" Me.cmbDokumentart.Name = "cmbDokumentart"
@ -166,10 +157,8 @@ Partial Class frmWD_IndexFile
'GroupBox1 'GroupBox1
' '
Me.GroupBox1.BackColor = System.Drawing.SystemColors.GradientInactiveCaption Me.GroupBox1.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.GroupBox1.Controls.Add(Label3)
Me.GroupBox1.Controls.Add(PATHLabel) Me.GroupBox1.Controls.Add(PATHLabel)
Me.GroupBox1.Controls.Add(Me.PATHTextBox) Me.GroupBox1.Controls.Add(Me.PATHTextBox)
Me.GroupBox1.Controls.Add(Me.lvwIndices)
Me.GroupBox1.Controls.Add(FW_DOCTYPE_IDLabel) Me.GroupBox1.Controls.Add(FW_DOCTYPE_IDLabel)
Me.GroupBox1.Controls.Add(Me.DOCTYPE_IDTextBox) Me.GroupBox1.Controls.Add(Me.DOCTYPE_IDTextBox)
Me.GroupBox1.Controls.Add(OBJECT_TYPELabel) Me.GroupBox1.Controls.Add(OBJECT_TYPELabel)
@ -183,22 +172,6 @@ Partial Class frmWD_IndexFile
resources.ApplyResources(Me.PATHTextBox, "PATHTextBox") resources.ApplyResources(Me.PATHTextBox, "PATHTextBox")
Me.PATHTextBox.Name = "PATHTextBox" Me.PATHTextBox.Name = "PATHTextBox"
' '
'lvwIndices
'
resources.ApplyResources(Me.lvwIndices, "lvwIndices")
Me.lvwIndices.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2})
Me.lvwIndices.Name = "lvwIndices"
Me.lvwIndices.UseCompatibleStateImageBehavior = False
Me.lvwIndices.View = System.Windows.Forms.View.Details
'
'ColumnHeader1
'
resources.ApplyResources(Me.ColumnHeader1, "ColumnHeader1")
'
'ColumnHeader2
'
resources.ApplyResources(Me.ColumnHeader2, "ColumnHeader2")
'
'DOCTYPE_IDTextBox 'DOCTYPE_IDTextBox
' '
resources.ApplyResources(Me.DOCTYPE_IDTextBox, "DOCTYPE_IDTextBox") resources.ApplyResources(Me.DOCTYPE_IDTextBox, "DOCTYPE_IDTextBox")
@ -284,9 +257,6 @@ Partial Class frmWD_IndexFile
Friend WithEvents OBJECT_TYPETextBox As System.Windows.Forms.TextBox Friend WithEvents OBJECT_TYPETextBox As System.Windows.Forms.TextBox
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents DOCTYPE_IDTextBox As System.Windows.Forms.TextBox Friend WithEvents DOCTYPE_IDTextBox As System.Windows.Forms.TextBox
Friend WithEvents lvwIndices As System.Windows.Forms.ListView
Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader
Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader
Friend WithEvents PATHTextBox As System.Windows.Forms.TextBox Friend WithEvents PATHTextBox As System.Windows.Forms.TextBox
Friend WithEvents chkdelete_origin As System.Windows.Forms.CheckBox Friend WithEvents chkdelete_origin As System.Windows.Forms.CheckBox
Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip

194
app/DD-Record-Organizer/frmWD_IndexFile.resx
View File

@ -147,7 +147,7 @@
<value>GroupBox1</value> <value>GroupBox1</value>
</data> </data>
<data name="&gt;&gt;OBJECT_TYPELabel.ZOrder" xml:space="preserve"> <data name="&gt;&gt;OBJECT_TYPELabel.ZOrder" xml:space="preserve">
<value>6</value> <value>4</value>
</data> </data>
<metadata name="FW_DOCTYPE_IDLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="FW_DOCTYPE_IDLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value> <value>False</value>
@ -181,7 +181,7 @@
<value>GroupBox1</value> <value>GroupBox1</value>
</data> </data>
<data name="&gt;&gt;FW_DOCTYPE_IDLabel.ZOrder" xml:space="preserve"> <data name="&gt;&gt;FW_DOCTYPE_IDLabel.ZOrder" xml:space="preserve">
<value>4</value> <value>2</value>
</data> </data>
<metadata name="PATHLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="PATHLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value> <value>False</value>
@ -211,36 +211,6 @@
<value>GroupBox1</value> <value>GroupBox1</value>
</data> </data>
<data name="&gt;&gt;PATHLabel.ZOrder" xml:space="preserve"> <data name="&gt;&gt;PATHLabel.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<metadata name="Label3.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<data name="Label3.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="Label3.Location" type="System.Drawing.Point, System.Drawing">
<value>6, 93</value>
</data>
<data name="Label3.Size" type="System.Drawing.Size, System.Drawing">
<value>46, 15</value>
</data>
<data name="Label3.TabIndex" type="System.Int32, mscorlib">
<value>10</value>
</data>
<data name="Label3.Text" xml:space="preserve">
<value>Indizes:</value>
</data>
<data name="&gt;&gt;Label3.Name" xml:space="preserve">
<value>Label3</value>
</data>
<data name="&gt;&gt;Label3.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label3.Parent" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;Label3.ZOrder" xml:space="preserve">
<value>0</value> <value>0</value>
</data> </data>
<data name="Label1.AutoSize" type="System.Boolean, mscorlib"> <data name="Label1.AutoSize" type="System.Boolean, mscorlib">
@ -277,7 +247,7 @@
<value>15, 27</value> <value>15, 27</value>
</data> </data>
<data name="txtFilepath.Size" type="System.Drawing.Size, System.Drawing"> <data name="txtFilepath.Size" type="System.Drawing.Size, System.Drawing">
<value>562, 23</value> <value>559, 23</value>
</data> </data>
<data name="txtFilepath.TabIndex" type="System.Int32, mscorlib"> <data name="txtFilepath.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>
@ -370,7 +340,7 @@
<value>MiddleLeft</value> <value>MiddleLeft</value>
</data> </data>
<data name="btnindex.Location" type="System.Drawing.Point, System.Drawing"> <data name="btnindex.Location" type="System.Drawing.Point, System.Drawing">
<value>419, 523</value> <value>416, 592</value>
</data> </data>
<data name="btnindex.Size" type="System.Drawing.Size, System.Drawing"> <data name="btnindex.Size" type="System.Drawing.Size, System.Drawing">
<value>158, 28</value> <value>158, 28</value>
@ -418,8 +388,59 @@
<value>GroupBox1</value> <value>GroupBox1</value>
</data> </data>
<data name="&gt;&gt;OBJECT_TYPETextBox.ZOrder" xml:space="preserve"> <data name="&gt;&gt;OBJECT_TYPETextBox.ZOrder" xml:space="preserve">
<value>5</value>
</data>
<data name="&gt;&gt;PATHTextBox.Name" xml:space="preserve">
<value>PATHTextBox</value>
</data>
<data name="&gt;&gt;PATHTextBox.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;PATHTextBox.Parent" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;PATHTextBox.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="&gt;&gt;DOCTYPE_IDTextBox.Name" xml:space="preserve">
<value>DOCTYPE_IDTextBox</value>
</data>
<data name="&gt;&gt;DOCTYPE_IDTextBox.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;DOCTYPE_IDTextBox.Parent" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;DOCTYPE_IDTextBox.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="GroupBox1.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9pt, style=Italic</value>
</data>
<data name="GroupBox1.Location" type="System.Drawing.Point, System.Drawing">
<value>15, 117</value>
</data>
<data name="GroupBox1.Size" type="System.Drawing.Size, System.Drawing">
<value>560, 80</value>
</data>
<data name="GroupBox1.TabIndex" type="System.Int32, mscorlib">
<value>7</value> <value>7</value>
</data> </data>
<data name="GroupBox1.Text" xml:space="preserve">
<value>Gewählte Indexierungsdaten - Automatik:</value>
</data>
<data name="&gt;&gt;GroupBox1.Name" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;GroupBox1.Type" xml:space="preserve">
<value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;GroupBox1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;GroupBox1.ZOrder" xml:space="preserve">
<value>5</value>
</data>
<data name="PATHTextBox.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="PATHTextBox.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left, Right</value> <value>Top, Left, Right</value>
</data> </data>
@ -442,31 +463,7 @@
<value>GroupBox1</value> <value>GroupBox1</value>
</data> </data>
<data name="&gt;&gt;PATHTextBox.ZOrder" xml:space="preserve"> <data name="&gt;&gt;PATHTextBox.ZOrder" xml:space="preserve">
<value>2</value> <value>1</value>
</data>
<data name="lvwIndices.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Bottom, Left, Right</value>
</data>
<data name="lvwIndices.Location" type="System.Drawing.Point, System.Drawing">
<value>85, 93</value>
</data>
<data name="lvwIndices.Size" type="System.Drawing.Size, System.Drawing">
<value>281, 96</value>
</data>
<data name="lvwIndices.TabIndex" type="System.Int32, mscorlib">
<value>8</value>
</data>
<data name="&gt;&gt;lvwIndices.Name" xml:space="preserve">
<value>lvwIndices</value>
</data>
<data name="&gt;&gt;lvwIndices.Type" xml:space="preserve">
<value>System.Windows.Forms.ListView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;lvwIndices.Parent" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;lvwIndices.ZOrder" xml:space="preserve">
<value>3</value>
</data> </data>
<data name="DOCTYPE_IDTextBox.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="DOCTYPE_IDTextBox.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Right</value> <value>Top, Right</value>
@ -490,46 +487,7 @@
<value>GroupBox1</value> <value>GroupBox1</value>
</data> </data>
<data name="&gt;&gt;DOCTYPE_IDTextBox.ZOrder" xml:space="preserve"> <data name="&gt;&gt;DOCTYPE_IDTextBox.ZOrder" xml:space="preserve">
<value>5</value> <value>3</value>
</data>
<data name="GroupBox1.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9pt, style=Italic</value>
</data>
<data name="GroupBox1.Location" type="System.Drawing.Point, System.Drawing">
<value>15, 117</value>
</data>
<data name="GroupBox1.Size" type="System.Drawing.Size, System.Drawing">
<value>560, 195</value>
</data>
<data name="GroupBox1.TabIndex" type="System.Int32, mscorlib">
<value>7</value>
</data>
<data name="GroupBox1.Text" xml:space="preserve">
<value>Gewählte Indexierungsdaten - Automatik:</value>
</data>
<data name="&gt;&gt;GroupBox1.Name" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;GroupBox1.Type" xml:space="preserve">
<value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;GroupBox1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;GroupBox1.ZOrder" xml:space="preserve">
<value>5</value>
</data>
<data name="ColumnHeader1.Text" xml:space="preserve">
<value>Indexname</value>
</data>
<data name="ColumnHeader1.Width" type="System.Int32, mscorlib">
<value>100</value>
</data>
<data name="ColumnHeader2.Text" xml:space="preserve">
<value>Value</value>
</data>
<data name="ColumnHeader2.Width" type="System.Int32, mscorlib">
<value>120</value>
</data> </data>
<data name="chkdelete_origin.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="chkdelete_origin.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Left</value> <value>Bottom, Left</value>
@ -541,7 +499,7 @@
<value>Verdana, 9.75pt, style=Italic</value> <value>Verdana, 9.75pt, style=Italic</value>
</data> </data>
<data name="chkdelete_origin.Location" type="System.Drawing.Point, System.Drawing"> <data name="chkdelete_origin.Location" type="System.Drawing.Point, System.Drawing">
<value>24, 529</value> <value>24, 598</value>
</data> </data>
<data name="chkdelete_origin.Size" type="System.Drawing.Size, System.Drawing"> <data name="chkdelete_origin.Size" type="System.Drawing.Size, System.Drawing">
<value>178, 20</value> <value>178, 20</value>
@ -552,6 +510,9 @@
<data name="chkdelete_origin.Text" xml:space="preserve"> <data name="chkdelete_origin.Text" xml:space="preserve">
<value>Lösche Ursprungsdatei</value> <value>Lösche Ursprungsdatei</value>
</data> </data>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>891, 17</value>
</metadata>
<data name="chkdelete_origin.ToolTip" xml:space="preserve"> <data name="chkdelete_origin.ToolTip" xml:space="preserve">
<value>Die gedroppte Datei wird nach Ablage in windream gelöscht - Wird für nächste Eingabe gespeichert</value> <value>Die gedroppte Datei wird nach Ablage in windream gelöscht - Wird für nächste Eingabe gespeichert</value>
</data> </data>
@ -567,9 +528,6 @@
<data name="&gt;&gt;chkdelete_origin.ZOrder" xml:space="preserve"> <data name="&gt;&gt;chkdelete_origin.ZOrder" xml:space="preserve">
<value>4</value> <value>4</value>
</data> </data>
<metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>891, 17</value>
</metadata>
<data name="chkMultiIndexer.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="chkMultiIndexer.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Left</value> <value>Bottom, Left</value>
</data> </data>
@ -580,7 +538,7 @@
<value>Verdana, 9.75pt, style=Bold, Italic</value> <value>Verdana, 9.75pt, style=Bold, Italic</value>
</data> </data>
<data name="chkMultiIndexer.Location" type="System.Drawing.Point, System.Drawing"> <data name="chkMultiIndexer.Location" type="System.Drawing.Point, System.Drawing">
<value>24, 555</value> <value>24, 624</value>
</data> </data>
<data name="chkMultiIndexer.Size" type="System.Drawing.Size, System.Drawing"> <data name="chkMultiIndexer.Size" type="System.Drawing.Size, System.Drawing">
<value>520, 20</value> <value>520, 20</value>
@ -616,10 +574,10 @@
<value>Top, Bottom, Left, Right</value> <value>Top, Bottom, Left, Right</value>
</data> </data>
<data name="grbxControls.Location" type="System.Drawing.Point, System.Drawing"> <data name="grbxControls.Location" type="System.Drawing.Point, System.Drawing">
<value>15, 318</value> <value>15, 203</value>
</data> </data>
<data name="grbxControls.Size" type="System.Drawing.Size, System.Drawing"> <data name="grbxControls.Size" type="System.Drawing.Size, System.Drawing">
<value>562, 152</value> <value>559, 336</value>
</data> </data>
<data name="grbxControls.TabIndex" type="System.Int32, mscorlib"> <data name="grbxControls.TabIndex" type="System.Int32, mscorlib">
<value>10</value> <value>10</value>
@ -652,7 +610,7 @@
<value>Segoe UI Semibold, 9pt, style=Bold, Italic</value> <value>Segoe UI Semibold, 9pt, style=Bold, Italic</value>
</data> </data>
<data name="lblSubfolder.Location" type="System.Drawing.Point, System.Drawing"> <data name="lblSubfolder.Location" type="System.Drawing.Point, System.Drawing">
<value>21, 476</value> <value>21, 545</value>
</data> </data>
<data name="lblSubfolder.Size" type="System.Drawing.Size, System.Drawing"> <data name="lblSubfolder.Size" type="System.Drawing.Size, System.Drawing">
<value>134, 15</value> <value>134, 15</value>
@ -685,7 +643,7 @@
<value>Segoe UI Semibold, 9pt, style=Bold, Italic</value> <value>Segoe UI Semibold, 9pt, style=Bold, Italic</value>
</data> </data>
<data name="txtSubfolder.Location" type="System.Drawing.Point, System.Drawing"> <data name="txtSubfolder.Location" type="System.Drawing.Point, System.Drawing">
<value>24, 494</value> <value>24, 563</value>
</data> </data>
<data name="txtSubfolder.Size" type="System.Drawing.Size, System.Drawing"> <data name="txtSubfolder.Size" type="System.Drawing.Size, System.Drawing">
<value>551, 24</value> <value>551, 24</value>
@ -715,7 +673,7 @@
<value>7, 15</value> <value>7, 15</value>
</data> </data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing"> <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>592, 592</value> <value>589, 661</value>
</data> </data>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing"> <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9pt</value> <value>Segoe UI, 9pt</value>
@ -1176,25 +1134,13 @@
<value>DD_DMSDataSet</value> <value>DD_DMSDataSet</value>
</data> </data>
<data name="&gt;&gt;DD_DMSDataSet.Type" xml:space="preserve"> <data name="&gt;&gt;DD_DMSDataSet.Type" xml:space="preserve">
<value>DD_Record_Organizer.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value> <value>DD_Record_Organizer.DD_DMSDataSet, DD_DMSDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
</data> </data>
<data name="&gt;&gt;TableAdapterManager.Name" xml:space="preserve"> <data name="&gt;&gt;TableAdapterManager.Name" xml:space="preserve">
<value>TableAdapterManager</value> <value>TableAdapterManager</value>
</data> </data>
<data name="&gt;&gt;TableAdapterManager.Type" xml:space="preserve"> <data name="&gt;&gt;TableAdapterManager.Type" xml:space="preserve">
<value>DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value> <value>DD_Record_Organizer.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
</data>
<data name="&gt;&gt;ColumnHeader1.Name" xml:space="preserve">
<value>ColumnHeader1</value>
</data>
<data name="&gt;&gt;ColumnHeader1.Type" xml:space="preserve">
<value>System.Windows.Forms.ColumnHeader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;ColumnHeader2.Name" xml:space="preserve">
<value>ColumnHeader2</value>
</data>
<data name="&gt;&gt;ColumnHeader2.Type" xml:space="preserve">
<value>System.Windows.Forms.ColumnHeader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="&gt;&gt;ToolTip1.Name" xml:space="preserve"> <data name="&gt;&gt;ToolTip1.Name" xml:space="preserve">
<value>ToolTip1</value> <value>ToolTip1</value>
@ -1212,7 +1158,7 @@
<value>VWDDINDEX_AUTOMTableAdapter</value> <value>VWDDINDEX_AUTOMTableAdapter</value>
</data> </data>
<data name="&gt;&gt;VWDDINDEX_AUTOMTableAdapter.Type" xml:space="preserve"> <data name="&gt;&gt;VWDDINDEX_AUTOMTableAdapter.Type" xml:space="preserve">
<value>DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWDDINDEX_AUTOMTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value> <value>DD_Record_Organizer.DD_DMSDataSetTableAdapters.VWDDINDEX_AUTOMTableAdapter, DD_DMSDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
</data> </data>
<data name="&gt;&gt;$this.Name" xml:space="preserve"> <data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmWD_IndexFile</value> <value>frmWD_IndexFile</value>

79
app/DD-Record-Organizer/frmWD_IndexFile.vb
View File

@ -393,7 +393,11 @@ Public Class frmWD_IndexFile
If cmbDokumentart.SelectedIndex <> -1 Then If cmbDokumentart.SelectedIndex <> -1 Then
My.Settings.WD_INDEXDOKART_SAVE = cmbDokumentart.Text My.Settings.WD_INDEXDOKART_SAVE = cmbDokumentart.Text
My.Settings.Save() My.Settings.Save()
If clsWindream.Create_Session = True Then
Handle_File(cmbDokumentart.SelectedValue) Handle_File(cmbDokumentart.SelectedValue)
Else
MsgBox("Could not create a windream-session! Please contact Your admin!", MsgBoxStyle.Critical)
End If
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in Prepare indexing: " & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in Prepare indexing: " & ex.Message, MsgBoxStyle.Critical)
@ -927,49 +931,50 @@ Public Class frmWD_IndexFile
Dim sql = "SELECT OBJEKTTYP FROM TBDD_DOKUMENTART WHERE GUID = " & CURRENT_DOKARTID Dim sql = "SELECT OBJEKTTYP FROM TBDD_DOKUMENTART WHERE GUID = " & CURRENT_DOKARTID
OBJECT_TYPETextBox.Text = ClassDatabase.Execute_Scalar(sql, True) OBJECT_TYPETextBox.Text = ClassDatabase.Execute_Scalar(sql, True)
DOCTYPE_IDTextBox.Text = CURRENT_DOKARTID DOCTYPE_IDTextBox.Text = CURRENT_DOKARTID
sql = "SELECT * FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = " & CURRENT_DOKARTID Dim dt As DataTable
Dim dt As DataTable = ClassDatabase.Return_Datatable(sql, True) 'sql = "SELECT * FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = " & CURRENT_DOKARTID
Dim Count As Integer = 0 'Dim dt As DataTable = ClassDatabase.Return_Datatable(sql, True)
lvwIndices.Items.Clear() 'Dim Count As Integer = 0
If dt.Rows.Count > 0 Then 'lvwIndices.Items.Clear()
For Each row As DataRow In dt.Rows 'If dt.Rows.Count > 0 Then
lvwIndices.Items.Add(row.Item("INDEXNAME").ToString) ' For Each row As DataRow In dt.Rows
' lvwIndices.Items.Add(row.Item("INDEXNAME").ToString)
Dim Value As String ' Dim Value As String
Dim _case = row.Item("VALUE").ToString.ToUpper ' Dim _case = row.Item("VALUE").ToString.ToUpper
Select Case row.Item("VALUE").ToString.ToUpper ' Select Case row.Item("VALUE").ToString.ToUpper
Case "@DOKART" ' Case "@DOKART"
Value = CURRENT_DOKARTSTRING ' Value = CURRENT_DOKARTSTRING
Case "@RECORD-ID" ' Case "@RECORD-ID"
Value = CURRENT_RECORD_ID ' Value = CURRENT_RECORD_ID
End Select ' End Select
lvwIndices.Items(Count).SubItems.Add(Value) ' lvwIndices.Items(Count).SubItems.Add(Value)
Count += 1 ' Count += 1
Next ' Next
End If 'End If
'den Entity-Key auslesen 'den Entity-Key auslesen
sql = "Select Top 1 * from TBPMO_WD_OBJECTTYPE where Upper(object_type) = Upper('" & OBJECT_TYPETextBox.Text & "')" sql = "Select Top 1 * from TBPMO_WD_OBJECTTYPE where Upper(object_type) = Upper('" & OBJECT_TYPETextBox.Text & "')"
dt = ClassDatabase.Return_Datatable(sql, True) dt = ClassDatabase.Return_Datatable(sql, True)
If Not dt Is Nothing Then If Not dt Is Nothing Then
If dt.Rows.Count = 1 Then If dt.Rows.Count = 1 Then
lvwIndices.Items.Add(dt.Rows(0).Item("IDXNAME_ENTITYID").ToString) 'lvwIndices.Items.Add(dt.Rows(0).Item("IDXNAME_ENTITYID").ToString)
lvwIndices.Items(Count).SubItems.Add(CURRENT_ENTITY_ID) 'lvwIndices.Items(Count).SubItems.Add(CURRENT_ENTITY_ID)
Count = Count + 1 'Count = Count + 1
lvwIndices.Items.Add(dt.Rows(0).Item("IDXNAME_PARENTID").ToString) 'lvwIndices.Items.Add(dt.Rows(0).Item("IDXNAME_PARENTID").ToString)
If CURRENT_REDUNDANT_FORM_ID <> 0 Then 'If CURRENT_REDUNDANT_FORM_ID <> 0 Then
sql = "SELECT TOP 1 PARENT_ID FROM TBPMO_FORM WHERE GUID = " & CURRENT_REDUNDANT_FORM_ID ' sql = "SELECT TOP 1 PARENT_ID FROM TBPMO_FORM WHERE GUID = " & CURRENT_REDUNDANT_FORM_ID
Else 'Else
sql = "SELECT TOP 1 PARENT_ID FROM TBPMO_FORM WHERE GUID = " & CURRENT_ENTITY_ID ' sql = "SELECT TOP 1 PARENT_ID FROM TBPMO_FORM WHERE GUID = " & CURRENT_ENTITY_ID
End If 'End If
Dim ParentID = ClassDatabase.Execute_Scalar(sql, True) 'Dim ParentID = ClassDatabase.Execute_Scalar(sql, True)
Try 'Try
If IsNumeric(ParentID) And ParentID > 0 Then ' If IsNumeric(ParentID) And ParentID > 0 Then
lvwIndices.Items(Count).SubItems.Add(ParentID) ' lvwIndices.Items(Count).SubItems.Add(ParentID)
End If ' End If
Catch ex As Exception 'Catch ex As Exception
MsgBox("Unexpected Error in Setting Parent-ID" & vbNewLine & ex.Message, MsgBoxStyle.Critical) ' MsgBox("Unexpected Error in Setting Parent-ID" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try 'End Try
Count = Count + 1 'Count = Count + 1
''den Record-Key auslesen ''den Record-Key auslesen
'lvwIndices.Items.Add(dt.Rows(0).Item("IDXNAME_RECORDID").ToString) 'lvwIndices.Items.Add(dt.Rows(0).Item("IDXNAME_RECORDID").ToString)
'lvwIndices.Items(Count).SubItems.Add(CURRENT_RECORD_ID) 'lvwIndices.Items(Count).SubItems.Add(CURRENT_RECORD_ID)

1
app/RecordOrganizer_RightManager/My Project/licenses.licx
View File

@ -0,0 +1 @@
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.15.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

8
app/RecordOrganizer_RightManager/frmCheckRightsRecords.resx
View File

@ -123,10 +123,10 @@
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="btnSelectVisiblRows.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnSelectVisiblRows.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAIAAACQkWg2AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAIAAACQkWg2AAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
YQUAAAAJcEhZcwAADsQAAA7EAZUrDhsAAAB0SURBVDhPpY27DYAwFAOZjalCHZYEhgCa1ByyhB5RvmC5 xAAADsQBlSsOGwAAAHRJREFUOE+ljbsNgDAUA5mNqUIdlgSGAJrUHLKEHlG+YLmInu6cIXTmFsbm/BOO
iJ7unCF05hbG5vwTjv0sVExFWJeNu/czbzEVAZQ7Gm8xJcHOUzElwc5TMbHg3MQDKJrPCg8XzWcFKpTY /SxUTEVYl4279zNvMRUBlDsabzElwc5TMSXBzlMxseDcxAMoms8KDxfNZwUqlNh5qmNC0CfEzlMdE0Ku
eapjQtAnxM5THRNCrmJeQku+Ch0J4QLYS+ifBfoIBAAAAABJRU5ErkJggg== Yl5CS74KHQnhAthL6J8F+ggEAAAAAElFTkSuQmCC
</value> </value>
</data> </data>
<data name="btnUnselect.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="btnUnselect.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

6
app/VERSION_CHECKER/ClassInit.vb
View File

@ -31,7 +31,6 @@ Public Class ClassInit
End Function End Function
Public Sub InitBasics() Public Sub InitBasics()
Try Try
Dim UPDATE_ID As Integer
If InitInstallPath() = False Then If InitInstallPath() = False Then
End If End If
@ -48,6 +47,7 @@ Public Class ClassInit
VERSION_SERVER = DT_UPDATE.Rows(0).Item("VERSION_NO") VERSION_SERVER = DT_UPDATE.Rows(0).Item("VERSION_NO")
FORCE_UPDATE = DT_UPDATE.Rows(0).Item("FORCE_UPD") FORCE_UPDATE = DT_UPDATE.Rows(0).Item("FORCE_UPD")
VERSIONS_FOR_FORCE_UPDATE = DT_UPDATE.Rows(0).Item("VERSION_FORCE_UPD") VERSIONS_FOR_FORCE_UPDATE = DT_UPDATE.Rows(0).Item("VERSION_FORCE_UPD")
ALL_USERS = DT_UPDATE.Rows(0).Item("ALL_USERS")
sql = String.Format("SELECT * FROM TBDD_VERSION_ITEMS WHERE UPDATE_ID = {0} ORDER BY GUID", UPDATE_ID) sql = String.Format("SELECT * FROM TBDD_VERSION_ITEMS WHERE UPDATE_ID = {0} ORDER BY GUID", UPDATE_ID)
DT_UPDATE_ITEMS = clsDatabase.Return_Datatable(sql) DT_UPDATE_ITEMS = clsDatabase.Return_Datatable(sql)
End If End If
@ -120,7 +120,6 @@ Public Class ClassInit
Return False Return False
End If End If
End If End If
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Unexpected Error in InitInstallPath: " & ex.Message, True) ClassLogger.Add("Unexpected Error in InitInstallPath: " & ex.Message, True)
Return False Return False
@ -131,6 +130,7 @@ Public Class ClassInit
Dim f As String Dim f As String
Try Try
For Each d In Directory.GetDirectories(sDir) For Each d In Directory.GetDirectories(sDir)
If d.Contains("$Recycle") = False Or d.Contains("System Volume") = False Then
If RecExe_found = False Then If RecExe_found = False Then
For Each f In Directory.GetFiles(d, "DD-Record-Organizer.exe") For Each f In Directory.GetFiles(d, "DD-Record-Organizer.exe")
RecExe_found = True RecExe_found = True
@ -141,9 +141,11 @@ Public Class ClassInit
If RecExe_found = False Then If RecExe_found = False Then
DirSearch(d) DirSearch(d)
End If End If
End If
Next Next
Catch excpt As System.Exception Catch excpt As System.Exception
ClassLogger.Add("Unexpected Error in DirSearch: " & excpt.Message, True) ClassLogger.Add("Unexpected Error in DirSearch: " & excpt.Message, True)
MY_INSTALL_PATH = ""
End Try End Try
End Sub End Sub
Public Shared Function InsertEssential_Log(REFERENCE_KEY As Integer, REFERENCE_STRING As String, COMMENT As String) Public Shared Function InsertEssential_Log(REFERENCE_KEY As Integer, REFERENCE_STRING As String, COMMENT As String)

5
app/VERSION_CHECKER/ClassLogger.vb
View File

@ -62,7 +62,12 @@ Public Class ClassLogger
Try Try
If ACHTUNG Then If ACHTUNG Then
ClassLogger.StreamWriter.WriteLine("#ERROR# (" & System.DateTime.Now & "): " & information) ClassLogger.StreamWriter.WriteLine("#ERROR# (" & System.DateTime.Now & "): " & information)
If (information.Contains("Der Zugriff auf den Pfad")) Then
Else
ERROR_WHILE_UPDATING = True ERROR_WHILE_UPDATING = True
End If
Else Else
ClassLogger.StreamWriter.WriteLine(information) ClassLogger.StreamWriter.WriteLine(information)

2
app/VERSION_CHECKER/ModuleMySettings.vb
View File

@ -15,6 +15,8 @@ Module ModuleMySettings
Public VERSION_SERVER = "1.0.0.0" Public VERSION_SERVER = "1.0.0.0"
Public VERSION_USER = "1.0.0.0" Public VERSION_USER = "1.0.0.0"
Public FORCE_UPDATE As Boolean = False Public FORCE_UPDATE As Boolean = False
Public UPDATE_ID As Integer
Public ALL_USERS As Boolean = False
Public VERSIONS_FOR_FORCE_UPDATE As String = "" Public VERSIONS_FOR_FORCE_UPDATE As String = ""
Public FOLDER_TEMP As String Public FOLDER_TEMP As String
Public LogErrorsOnly As Boolean = True Public LogErrorsOnly As Boolean = True

9
app/VERSION_CHECKER/frmVersionCheck.vb
View File

@ -56,6 +56,13 @@ Public Class frmVersionCheck
End If End If
End If End If
If FORCE_UPDATE = False Then If FORCE_UPDATE = False Then
If ALL_USERS = False Then
Dim sql = String.Format("SELECT COUNT(GUID) FROM TBDD_VERSION_USER_UPDATE WHERE USER_ID = {0} AND UPDATE_ID = {1}", USER_GUID, UPDATE_ID)
If clsDatabase.Execute_Scalar(sql) = 0 Then
ClassInit.InsertEssential_Log(USER_GUID, "USER-ID", String.Format("VersionChecker: User is not part of update-group - UPDATE-ID: {0}", UPDATE_ID))
Exit Sub
End If
End If
Dim msg = "Auf dem Server liegt ein Update für ADDI bereit!" & vbNewLine & "Wollen Sie das Update nun durchführen? Die Dauer ist abhängig von Ihrer Netzwerkverbindung!" Dim msg = "Auf dem Server liegt ein Update für ADDI bereit!" & vbNewLine & "Wollen Sie das Update nun durchführen? Die Dauer ist abhängig von Ihrer Netzwerkverbindung!"
If USER_LANGUAGE <> "de-DE" Then If USER_LANGUAGE <> "de-DE" Then
msg = "There is a new release available for ADDI!" & vbNewLine & "Would You like to install the update now? This might take some minutes!" msg = "There is a new release available for ADDI!" & vbNewLine & "Would You like to install the update now? This might take some minutes!"
@ -258,6 +265,8 @@ Public Class frmVersionCheck
Process.Start(startInfo) Process.Start(startInfo)
Else Else
MsgBox("Can not find ADDI-Executable in regular path! Please inform your systemadmin.", MsgBoxStyle.Critical) MsgBox("Can not find ADDI-Executable in regular path! Please inform your systemadmin.", MsgBoxStyle.Critical)
startInfo.FileName = "E:\SchreiberM\Visual Studio\GIT\RecordOrganizer\app\DD-Record-Organizer\bin\Debug\DD-Record-Organizer.exe"
Process.Start(startInfo)
End If End If
Catch ex As Exception Catch ex As Exception