MS IDBData
This commit is contained in:
parent
9ae107d369
commit
6e09662fc3
@ -9,10 +9,10 @@
|
||||
'''
|
||||
Public Function Init()
|
||||
Dim oSQL = $"SELECT DISTINCT ATTR_TITLE, TYP_ID, TYP_ID as [TYPE_ID] FROM VWIDB_BE_ATTRIBUTE WHERE SYS_ATTRIBUTE = 0 ORDER BY ATTR_TITLE"
|
||||
DTVWIDB_BE_ATTRIBUTE = Database_IDB.GetDatatable(oSQL)
|
||||
DTVWIDB_BE_ATTRIBUTE = Database.GetDatatableIDB(oSQL)
|
||||
If IsNothing(DTVWIDB_BE_ATTRIBUTE) Then
|
||||
oSQL = $"SELECT DISTINCT ATTR_TITLE, TYP_ID, TYP_ID as [TYPE_ID] FROM VWIDB_BE_ATTRIBUTE ORDER BY ATTR_TITLE "
|
||||
DTVWIDB_BE_ATTRIBUTE = Database_IDB.GetDatatable(oSQL)
|
||||
DTVWIDB_BE_ATTRIBUTE = Database.GetDatatableIDB(oSQL)
|
||||
End If
|
||||
End Function
|
||||
Public IDBSystemIndices As List(Of String)
|
||||
@ -117,7 +117,7 @@
|
||||
LOGGER.Debug($"oAttributeValue for Attribute [{oAttributeName}] is so far nothing..Now trying FNIDB_PM_GET_VARIABLE_VALUE ")
|
||||
End If
|
||||
Dim oFNSQL = $"SELECT * FROM [dbo].[FNIDB_PM_GET_VARIABLE_VALUE] ({CURRENT_DOC_ID},'{oAttributeName}','{USER_LANGUAGE}',CONVERT(BIT,'{IDB_USES_WMFILESTORE}'))"
|
||||
oAttributeValue = Database_IDB.GetDatatable(oFNSQL)
|
||||
oAttributeValue = Database.GetDatatableIDB(oFNSQL)
|
||||
Dim odt As DataTable = oAttributeValue
|
||||
If odt.Rows.Count = 1 Then
|
||||
oAttributeValue = odt.Rows(0).Item(0)
|
||||
@ -138,7 +138,7 @@
|
||||
oID_IS_FOREIGN = 1
|
||||
End If
|
||||
Dim oDELSQL = $"EXEC PRIDB_DELETE_TERM_OBJECT_METADATA {CURRENT_DOC_ID},'{oAttributeName}','{oTerm2Delete}','{USER_USERNAME}','{USER_LANGUAGE}',{oID_IS_FOREIGN}"
|
||||
Database_IDB.ExecuteNonQuery(oDELSQL)
|
||||
Database.ExecuteNonQueryIDB(oDELSQL)
|
||||
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
@ -149,7 +149,7 @@
|
||||
Public Function Delete_AttributeData(pIDB_OBJID As Int64, pAttributeName As String) As Object
|
||||
Try
|
||||
Dim oDELSQL = $"EXEC PRIDB_DELETE_ATTRIBUTE_DATA {pIDB_OBJID},'{pAttributeName}','{USER_USERNAME}'"
|
||||
Database_IDB.ExecuteNonQuery(oDELSQL)
|
||||
Database.ExecuteNonQueryIDB(oDELSQL)
|
||||
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
@ -231,7 +231,7 @@
|
||||
For Each oNewValueRow As DataRow In oDTMyNewValues.Rows
|
||||
Dim oSuccess As Boolean = False
|
||||
Dim oFNSQL = $"DECLARE @NEW_OBJ_MD_ID BIGINT " & vbNewLine & $"EXEC PRIDB_NEW_OBJ_DATA {CURRENT_DOC_ID},'{oAttributeName}','{USER_USERNAME}','{oNewValueRow.Item(1).ToString}','{USER_LANGUAGE}',0,@OMD_ID = @NEW_OBJ_MD_ID OUTPUT"
|
||||
oSuccess = Database_IDB.ExecuteNonQuery(oFNSQL)
|
||||
oSuccess = Database.ExecuteNonQueryIDB(oFNSQL)
|
||||
If oSuccess = False Then
|
||||
Return False
|
||||
End If
|
||||
@ -239,7 +239,7 @@
|
||||
Return True
|
||||
Else
|
||||
Dim oFNSQL = $"DECLARE @NEW_OBJ_MD_ID BIGINT " & vbNewLine & $"EXEC PRIDB_NEW_OBJ_DATA {CURRENT_DOC_ID},'{oAttributeName}','{USER_USERNAME}','{oNewValue}','{USER_LANGUAGE}',0,@OMD_ID = @NEW_OBJ_MD_ID OUTPUT"
|
||||
Return Database_IDB.ExecuteNonQuery(oFNSQL)
|
||||
Return Database.ExecuteNonQueryIDB(oFNSQL)
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
@ -286,11 +286,11 @@ Public Class ClassInit
|
||||
oSQL = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','PM',{1})", USER_USERNAME, CLIENT_SELECTED)
|
||||
Dim DT_CHECKUSER_MODULE As DataTable
|
||||
|
||||
DT_CHECKUSER_MODULE = Database.GetDatatableECM(oSQL)
|
||||
'DT_CHECKUSER_MODULE = Database.GetDatatableECM(oSQL)
|
||||
'DT_CHECKUSER_MODULE = DataASorDB.GetDatatable("DD_ECM", oSQL, "TBDD_USER_MODULE", $"USERNAME = '{USER_USERNAME.ToLower}' AND MODULE_SHORT = 'PM'")
|
||||
'DT_CHECKUSER_MODULE = Database.GetDatatable("TBDD_USER_MODULE", New GetDatatableOptions(oSQL, DatabaseType.ECM) With {
|
||||
' .FilterExpression = $"USERNAME = '{USER_USERNAME.ToLower}' AND MODULE_SHORT = 'PM'"
|
||||
'})
|
||||
DT_CHECKUSER_MODULE = Database.GetDatatable("TBDD_USER_MODULE", New GetDatatableOptions(oSQL, DatabaseType.ECM) With {
|
||||
.FilterExpression = $"USERNAME = '{USER_USERNAME.ToLower}' AND MODULE_SHORT = 'PM'"
|
||||
})
|
||||
|
||||
|
||||
oFnct.Done()
|
||||
|
||||
@ -1186,7 +1186,7 @@ Public Class frmMassValidator
|
||||
If CreateWMObject() = True Then
|
||||
If ClassFinalizeDoc.Write_Final_Metadata(CURRENT_WMFILE) = True Then
|
||||
Dim sql = String.Format("UPDATE TBPM_PROFILE_FILES SET IN_WORK = 0, WORK_USER = '{0}', EDIT = 1 WHERE GUID = {1}", USER_USERNAME, CURRENT_DOC_GUID)
|
||||
If Database_ECM.ExecuteNonQuery(sql) = True Then
|
||||
If Database.ExecuteNonQueryECM(sql) = True Then
|
||||
workedFiles += 1
|
||||
End If
|
||||
End If
|
||||
@ -1279,7 +1279,7 @@ Public Class frmMassValidator
|
||||
WORK_HISTORY_ENTRY = ""
|
||||
End If
|
||||
Dim ins = String.Format("INSERT INTO TBPM_FILES_WORK_HISTORY (PROFIL_ID, DOC_ID,WORKED_BY,WORKED_WHERE,STATUS_COMMENT) VALUES ({0},{1},'{2}','{3}','{4}')", CURRENT_ProfilGUID, CURRENT_DOC_ID, USER_USERNAME, Environment.MachineName, WORK_HISTORY_ENTRY)
|
||||
Database_ECM.ExecuteNonQuery(ins)
|
||||
Database.ExecuteNonQueryECM(ins)
|
||||
|
||||
'####### ANNOTIEREN WENN KONFIGURIERT #######
|
||||
If docrow.Item("FULL_PATH").ToString.ToLower.EndsWith(".pdf") Then
|
||||
|
||||
@ -286,7 +286,7 @@ Public Class frmValidator
|
||||
RibbonPageConversations.Visible = False
|
||||
If IDB_ACTIVE Then
|
||||
Dim oSQL = $"SELECT * FROM [dbo].[FNIDB_OBJECT_DYNAMIC_CONFIG] ({CURRENT_DOC_ID},{USER_ID})"
|
||||
DTDYNAMIC_RIGHTS = Database_IDB.GetDatatable(oSQL) ', CONNECTION_STRING_IDB, "FNIDB_OBJECT_DYNAMIC_CONFIG")
|
||||
DTDYNAMIC_RIGHTS = Database.GetDatatableIDB(oSQL) ', CONNECTION_STRING_IDB, "FNIDB_OBJECT_DYNAMIC_CONFIG")
|
||||
RibbonPageGroupConv1.Enabled = False
|
||||
Dim oView As DataView = New DataView(DTDYNAMIC_RIGHTS)
|
||||
oView.RowFilter = "CONF_TITLE like '%CONVERSATION_RIGHT%'"
|
||||
@ -3520,7 +3520,7 @@ Public Class frmValidator
|
||||
If IDB_ACTIVE = True Then
|
||||
Try
|
||||
Dim oSQL = $"select Attribut, TERM_VALUE from VWIDB_VALUE_TEXT WHERE LANG_CODE = '{USER_LANGUAGE}' AND IDB_OBJ_ID = {CURRENT_DOC_ID} AND Attribut in ('PM_Info1','PM_Info2') ORDER BY Attribut"
|
||||
Dim oDTINFO As DataTable = Database_IDB.GetDatatable(oSQL)
|
||||
Dim oDTINFO As DataTable = Database.GetDatatableIDB(oSQL)
|
||||
If Not IsNothing(oDTINFO) Then
|
||||
Dim oColor As System.Drawing.Color
|
||||
If oDTINFO.Rows.Count > 0 Then
|
||||
@ -5567,7 +5567,7 @@ Public Class frmValidator
|
||||
For Each oRow As DataRow In DTDYNAMIC_RIGHTS.Rows
|
||||
If oRow.Item("CONF_TITLE") = "NEW_CONVERSATION_USER_SELECT" Then
|
||||
Dim oSQL = oRow.Item("CONF_VALUE")
|
||||
oDTUSER = Database_IDB.GetDatatable(oSQL)
|
||||
oDTUSER = Database.GetDatatableIDB(oSQL)
|
||||
End If
|
||||
Next
|
||||
If Not IsNothing(oDTUSER) Then
|
||||
@ -5597,7 +5597,7 @@ Public Class frmValidator
|
||||
result = MessageBox.Show(oQuestion.Rows(0).Item("STRING1").ToString, oQuestion.Rows(0).Item("STRING2").ToString, MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)
|
||||
If result = MsgBoxResult.Yes Then
|
||||
Dim oSQL = $"EXEC PRIDB_END_CONVERSATION {ChatControl1.CurrentConversationID}, '{USER_USERNAME}', '{USER_LANGUAGE}'"
|
||||
If Database_IDB.ExecuteNonQuery(oSQL) = True Then
|
||||
If Database.ExecuteNonQueryIDB(oSQL) = True Then
|
||||
btnitemConversationEnd.Enabled = False
|
||||
SplitContainer2_DV_Chat.Collapsed = True
|
||||
btnitemConversationEnd.Enabled = True
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user