MS

app/DD-Record-Organizer/frmRight_Management.vb

@@ -66,7 +66,7 @@
             End If
         Catch ex As Exception
 
-        End Try    
+        End Try
     End Sub
     Sub Save_Datagrid(ByVal _Datagrid As DataGridView, ByVal _settings_String As String)
         Try
@@ -140,8 +140,8 @@
 
     Private Sub TBPMO_RIGHT_GROUPBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBPMO_RIGHT_GROUPBindingSource.AddingNew
         Me.DD_DMSDataSet.TBPMO_RIGHT_GROUP.ADDED_WHOColumn.DefaultValue = USER_USERNAME
+        Me.DD_DMSDataSet.TBPMO_RIGHT_GROUP.ENTITY_IDColumn.DefaultValue = MYDB_ECM.GetScalarValue("SELECT MIN(GUID) FROM TBPMO_FORM")
     End Sub
-
     Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
         Save_Group_Rights_Data()
     End Sub
@@ -165,7 +165,7 @@
     Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
         Select Case TabControl1.SelectedIndex
             Case 1
-                Dim sql = String.Format("select T1.FORM_ID, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), 1) AS 'FORM_TITLE' FROM TBPMO_FORM_VIEW T1 " & _
+                Dim sql = String.Format("select T1.FORM_ID, [dbo].[FNPMO_GETOBJECTCAPTION]('{0}','FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), 1) AS 'FORM_TITLE' FROM TBPMO_FORM_VIEW T1 " &
                                         "WHERE T1.SCREEN_ID = 1 ORDER BY T1.FORM_TITLE", USER_LANGUAGE)
                 Dim DT As DataTable = MYDB_ECM.GetDatatable(sql)
                 If Not IsNothing(DT) Then
@@ -300,4 +300,5 @@ WHERE T2.SHORT_NAME = 'ADDI'   AND T.GUID NOT IN (SELECT USER_ID FROM TBPMO_RIGH
             ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in grvwGridPos_CellValueChanged: ", ex.Message)
         End Try
     End Sub
+
 End Class