6 66 1 VB Example

LANSA Open Guide

6.66.1 VB Example

Private Sub cmdPrintAll_Click()

    ' set department to blank to print all departments

    iRet = LceSetFieldValue(iSession, "DEPTMENT", Chr(0)) 

    If iRet = LceTrue Then

       iRet = LceSubmit(iSession, "PSLSYS", "EMPLIST", "", _

        "DEPTMENT", "", "", "", "")

    End If

End Sub