project QadFinancials > class BEmployee > method ApiLoadEmployeeCalcDivisionCode
function returns character
Description
This method is used to load division code by division_id.
Parameters
iiDivisionId | input | integer | Division ID. |
Internal usage
QadFinancials
program code (program9/bemployee.p)
define variable oiReturnStatus as integer no-undo.
if iiDivisionId = ? or
iiDivisionId = 0
then return "":U.
<Q-1 run DivisionPrim (all) (Read) (NoCache)
(input viCompanyId, (CompanyId)
input iiDivisionId, (DivisionID)
input ?, (DivisionCode)
output dataset tqDivisionPrim) in BDivision >
find first tqDivisionPrim where
tqDivisionPrim.tiDivision_ID = iiDivisionId
no-error.
return if available tqDivisionPrim
then tqDivisionPrim.tcDivisionCode
else "":U.