MS

app/DD-Record-Organizer/frmConstructorDesigner.vb

@@ -31,8 +31,8 @@ Public Class frmConstructorDesigner
         Try
             XtraTabControl2.SelectedTabPageIndex = 0
             formloaded = False
-            Me.TBPMO_FORM_CONSTRUCTORTableAdapter.Connection.ConnectionString = MyConnectionString
-            Me.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection.ConnectionString = MyConnectionString
+            Me.TBPMO_FORM_CONSTRUCTORTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
+            Me.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
             Load_Head()
             Dim sql1 As String = "SELECT T.GUID, [dbo].[FNPMO_GETOBJECTCAPTION]('" & USER_LANGUAGE & "','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), 1) AS FORM_TITLE FROM TBPMO_FORM T, TBPMO_FORM_VIEW T1 WHERE T.GUID = T1.FORM_ID AND T.SHOW_FORM_CONSTRUCT = 1 AND T1.SCREEN_ID = 1 ORDER BY T1.FORM_TITLE"
             Dim DTFORMS As DataTable = MYDB_ECM.GetDatatable(sql1)
@@ -99,7 +99,7 @@ Public Class frmConstructorDesigner
                 Me.txtQuickViewPicture.Tag = Nothing
             End If
             Try
-                Me.TBTEMP_QUICKDISPLAYTableAdapter.Connection.ConnectionString = MyConnectionString
+                Me.TBTEMP_QUICKDISPLAYTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
                 Me.TBTEMP_QUICKDISPLAYTableAdapter.Fill(Me.DD_DMSDataSet.TBTEMP_QUICKDISPLAY, SELECTED_CONSTRUCTOR_DETAIL_ID)
             Catch ex As System.Exception
                 MsgBox("Error in Load_Preview_QuickDisplay:" & vbNewLine & ex.Message)
@@ -122,8 +122,17 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_CONSTR
                     Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow
                     newUserRow = DD_ECMAdmin.TBAD_Users.NewTBAD_UsersRow
                     newUserRow.Username = row.Item("USERNAME")
-                    newUserRow.Surname = row.Item("NAME")
-                    newUserRow.Prename = row.Item("PRENAME")
+                    Try
+                        newUserRow.Surname = row.Item("NAME")
+                    Catch ex As Exception
+                        newUserRow.Surname = ""
+                    End Try
+                    Try
+                        newUserRow.Prename = row.Item("PRENAME")
+                    Catch ex As Exception
+                        newUserRow.Prename = ""
+                    End Try
+
                     Try
                         newUserRow.Email = row.Item("EMAIL")
                     Catch ex As Exception
@@ -891,7 +900,7 @@ WHERE T2.SHORT_NAME = 'ADDI'  AND T.GUID IN (SELECT USER_ID FROM TBPMO_ENTITY_SU
             Try
                 Dim USERID = GridViewUserSQL.GetFocusedRowCellValue(GridViewUserSQL.Columns("ID"))
                 If Not USERID Is Nothing Then
-                    Me.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter.Connection.ConnectionString = MyConnectionString
+                    Me.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
                     Me.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_CONSTRUCTOR_USER_SQL, SELECTED_CONSTRUCTOR_DETAIL_ID, USERID)
                     If SQL_COMMANDTextBox.Text <> "" Or ADDED_WHOTextBox2.Text <> "" Then
                         SQL_COMMANDTextBox.Enabled = True