This commit is contained in:
2023-07-20 14:12:24 +02:00
parent c2deb54f11
commit ea5ea5f205
64 changed files with 8139 additions and 7996 deletions

View File

@@ -5,9 +5,9 @@
Dim loaded As Boolean = False
Private Sub frmTemplates_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
Me.TBPMO_TEMPLATETableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPMO_TEMPLATE_ENTITYTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPMO_TEMPLATE_PATTERNTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPMO_TEMPLATETableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Me.TBPMO_TEMPLATE_ENTITYTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Me.TBPMO_TEMPLATE_PATTERNTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Catch ex As Exception
MsgBox("Unexpected error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@@ -77,7 +77,7 @@
End Sub
Sub Load_Doctypes()
Try
VWPMO_DOKUMENTTYPESTableAdapter.Connection.ConnectionString = MyConnectionString
VWPMO_DOKUMENTTYPESTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Me.VWPMO_DOKUMENTTYPESTableAdapter.FillBy(Me.DD_DMSDataSet.VWPMO_DOKUMENTTYPES)
Catch ex As Exception
MsgBox("Unexpected error in Load Doctypes:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -85,7 +85,7 @@
End Sub
Sub Load_Entities()
Try
VWPMO_GUI_ENTITYTableAdapter.Connection.ConnectionString = MyConnectionString
VWPMO_GUI_ENTITYTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Me.VWPMO_GUI_ENTITYTableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_GUI_ENTITY)
Catch ex As Exception
MsgBox("Unexpected error in Load Entities:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)