Dynamics Community Forum Thread Details

Hello Community,

I have created a custom screen with three grid controls(each on a separate tab control) . The Main record is that of employee. The three related tables are for Employee Salary,Employee Deductions and Employee Allowances. The Link to parent record is the EmpID field which is the foreign key in the three child tables.

I set up the levels N for Employee, D for the three grids ;Employee;N,Salary;D,Deductions;D,Allowances;D(tried using DA ,it dint work)

I properly set up the DBNav property of the three grid controls(stored procedure and the parameters).

I am able to add data for the three tables using the screen.

My only problem is that, it is the only the grid i gave level 1 displaying data, the other two dont(yet i can view the data added in sql server mgt studio).

Here is some code

 Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load

        ' Load all the forms needed for this application
        'Call LoadForm(fSL01001)

        ' Initialize the application as a Microsoft Dynamics SL Application
        Call ApplInit()


        ' Call Set Address for the tables that will have fields displayed on the scree,
        ' or that you would like customization manager to be able to use
        'Call SetAddr(LEVEL0, "bxSLSample", bxSLSample, nxSLSample)
        Call SetAddr(LEVEL0, "bXPEmployees", bXPEmployees, nXPEmployees)
        Call SetAddr(LEVEL1, "bXEmpScales", bXEmpScales, nXEmpScales)
        Call SetAddr(LEVEL2, "bXEmpDeductions", bXEmpDeductions, nXEmpDeductions)
        Call SetAddr(LEVEL3, "bXEmpAllowances", bXEmpAllowances, nXEmpAllowances)
        ' Define the cursors that are used by the application

        ' This is an example for a table in the System Database
        'Call SqlCursor(c1, LEVEL0 + SqlSystemDb)
        Call SqlCursorEx(CSR_XPEmployees, LEVEL0, "CSR_XPEmployees", "XPEmployees", "XPEmployees")
        Call SqlCursorEx(CSR_XEmpScales, LEVEL1, "CSR_XEmpScales", "XEmpScales", "XEmpScales")
        Call SqlCursorEx(CSR_XEmpDeductions, LEVEL2, "CSR_XEmpDeductions", "XEmpDeductions", "XEmpDeductions")
        Call SqlCursorEx(CSR_XEmpAllowances, LEVEL3, "CSR_XEmpAllowances", "XEmpAllowances", "XEmpAllowances")       '
        '
        ' This is an example for a table in an Application Database
        'Call SqlCursor(c1, LEVEL0 )


        ' Call the screen init function
        Call ScreenInit()
        mHandle_salary = DetailSetup(CSR_XEmpScales, DslGrid3, bXEmpScales.AddressOf("LineNBR"), bXEmpScales, PNULL, PNULL, PNULL)
        mhandle_deduction = DetailSetup(CSR_XEmpDeductions, DslGrid1, bXEmpDeductions.AddressOf("LineNBR"), bXEmpDeductions, PNULL, PNULL, PNULL)
        mhandle_allowances = DetailSetup(CSR_XEmpAllowances, DslGrid2, bXEmpAllowances.AddressOf("LineNBR"), bXEmpAllowances, PNULL, PNULL, PNULL)

    End Sub

    Private Sub Form1_FormClosed(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed

        'Standard Screen Exit Call
        Call ScreenExit("", "")

    End Sub

    

    Private Sub DslGrid3_LineGotFocusEvent(ByRef maintflg As Short, ByRef retval As Short) Handles DslGrid3.LineGotFocusEvent
        If maintflg = NEWROW Then
            bXEmpScales.EmpID = bXPEmployees.EmpID
            bXEmpScales.Createby = bpes.UserId
            bXEmpScales.prog_id = bpes.ComputerName
            bXEmpScales.DateCreated = bpes.Today
        End If
    End Sub

    Private Sub DslGrid1_LineGotFocusEvent(ByRef maintflg As Short, ByRef retval As Short) Handles DslGrid1.LineGotFocusEvent
        If maintflg = NEWROW Then
            bXEmpDeductions.EmpID = bXPEmployees.EmpID
            bXEmpDeductions.Createby = bpes.UserId
            bXEmpDeductions.prog_id = bpes.ComputerName
            bXEmpDeductions.DateCreated = bpes.Today
        End If
    End Sub

    Private Sub DslGrid2_LineGotFocusEvent(ByRef maintflg As Short, ByRef retval As Short) Handles DslGrid2.LineGotFocusEvent
        If maintflg = NEWROW Then
            bXEmpAllowances.EmpID = bXPEmployees.EmpID
            bXEmpAllowances.Createby = bpes.UserId
            bXEmpAllowances.DateCreated = bpes.Today
            bXEmpAllowances.prog_id = bpes.ComputerName
        End If
    End Sub

    
    

    

    Private Sub cEmpID_ChkEvent(ByRef ChkStrg As String, ByRef RetVal As Short) Handles cEmpID.ChkEvent
        RetVal = PVChkFetch1(cEmpID, CSR_XPEmployees, ChkStrg, bXPEmployees)
        'Call DetailLoad(DslGrid1) this failed to work
        '' Call DetailLoad(DslGrid3)
        
    End Sub
End Class

What happens is that if i hit F3 button and i select an EmpID, the salary grid data is displayed..the other two dont. The salary grid is the one with Level 1.

Any hints on why the other two grids not displaying data?

Ronald

Spread sheet controls not displaying data.

Helpful resources

News and Announcements

Quick Links

December Spotlight Star - Muhammad Affan

Top 10 leaders for November!

Community AMA December 12th

Leaderboard

Featured topics

Product updates