Versions Compared

Old Version 1

changes.mady.by.user user-2c621

Saved on

compared with

New Version 2

changes.mady.by.user user-2c621

Saved on

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

[ Image Removed |../../index.htm#lansa/srvgudba_0360.htm]
You are here:

...

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