ms

app/DD-Record-Organizer/frmConstructor_Main.vb

@@ -4282,7 +4282,7 @@ Public Class frmConstructor_Main
                     Dim SQL = String.Format("SELECT GUID FROM TBPMO_CONTROL_SCREEN WHERE CONTROL_ID = {0} AND SCREEN_ID = {1}", DR.Item("DEPENDENT_DONE_CTRL_ID"), CURRENT_SCREEN_ID)
                     Dim ctrl_screen_id = ClassDatabase.Execute_Scalar(SQL, True)
                     If ctrl_screen_id > 0 Then
-                        SQL = String.Format("SELECT CAPTION FROM TBPMO_CONTROL_LANGUAGE WHERE CONTROL_SCREEN_ID = {0} AND LANGUAGE_TYPE = '{2}'", ctrl_screen_id, USER_LANGUAGE)
+                        SQL = String.Format("SELECT CAPTION FROM TBPMO_CONTROL_LANGUAGE WHERE CONTROL_SCREEN_ID = {0} AND LANGUAGE_TYPE = '{1}'", ctrl_screen_id, USER_LANGUAGE)
                         Dim captionCheck = ClassDatabase.Execute_Scalar(SQL, True)
                         If Not IsNothing(captionCheck) Then
                             chkFollowUp.Text = CStr(captionCheck)
@@ -4715,6 +4715,7 @@ Public Class frmConstructor_Main
                             If ClassRecordCommands.ConnectRecord(PARENT_RECORDID, POS_RECORD_ID, "POS_LINK for Entity " & POS_ENTITY.ToString) = True Then
                                 ClassProxy.PRPROXY_RECORD_CONNECT(PARENT_RECORDID, POS_RECORD_ID)
                             End If
+                            Load_Pos_Data()
                         Else
                             MsgBox("Unexpected Error in Creating POS", MsgBoxStyle.Exclamation)
                         End If
@@ -6571,4 +6572,8 @@ Public Class frmConstructor_Main
             TimerClearResultfiles.Stop()
         End Try
     End Sub
+
+    Private Sub tsbtnPos_Refresh_Click(sender As Object, e As EventArgs) Handles tsbtnPos_Refresh.Click
+        Load_Pos_Data()
+    End Sub
 End Class