rename ECM references to IDB
This commit is contained in:
@@ -8,7 +8,7 @@ Public Class frmDocTest
|
||||
ProcessContainer(AddressOf GridControlDefaults.DefaultGridSettings).
|
||||
ProcessContainer(AddressOf GridControlDefaults.ReadOnlyGridSettings)
|
||||
|
||||
Dim oSQL = "SELECT * FROM VWICM_DOC_METADATA_DE"
|
||||
Dim oSQL = "SELECT * FROM VWIDB_DOC_METADATA_DE"
|
||||
My.Channel.CreateDatabaseRequest("Load Doc Values", True)
|
||||
|
||||
Dim oResult = My.Channel.ReturnDatatable(oSQL)
|
||||
@@ -35,7 +35,7 @@ Public Class frmDocTest
|
||||
Dim oDocId As Int64 = Int64.Parse(txtDocId.Text)
|
||||
Dim oValue As String = txtDoctype.Text
|
||||
Dim oSyskey As String = "001-DOCTYPE"
|
||||
Dim oResult = Await My.Common.Commands.FNICM_NEW_DOC_VALUE(oDocId, oSyskey, My.Application.User.Language, oValue)
|
||||
Dim oResult = Await My.Common.Commands.FNIDB_NEW_DOC_VALUE(oDocId, oSyskey, My.Application.User.Language, oValue)
|
||||
|
||||
If Not oResult.OK Then
|
||||
MsgBox(oResult.ErrorMessage)
|
||||
|
||||
@@ -8,7 +8,7 @@ Public Class frmFileTest
|
||||
|
||||
Private Sub frmFileTest_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
Try
|
||||
_fileOp = New Document(My.LogConfig, My.Settings.EDM_NetworkService_Adress)
|
||||
_fileOp = New Document(My.LogConfig, My.Settings.IDBNetworkServiceAddress)
|
||||
_fileOp.Connect()
|
||||
Catch ex As Exception
|
||||
Logger.Warn($"Unexpected error in frmFileTest_Load: {ex.Message}")
|
||||
|
||||
Reference in New Issue
Block a user