6 44 1 VB Example

6.44.1 VB Example

Private Sub cmdPrintDepartment_Click()

    ' ask the host to print a list of the department's 

    ' employees 

    ' set department to print 

    iRet = LceSetFieldValue(iSession, "DEPTMENT", DeptKey(cmbDepartment.ListIndex))

    If iRet = LceTrue Then

        iRet = LceLansaCall(iSession, "PSLSYS", "EMPLIST", "", "DEPTMENT")

    End If

End Sub