srvgudba_0490

[ |../../index.htm#lansa/srvgudba_0490.htm]
You are here:

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 
 
[ |../../index.htm#lansa/srvgudba_0490.htm]