project QadFinancials > class BBusinessRelation > method ApiLoadBusinessRelationCalcLngCode
function returns character
Description
This method is used for ApiLoadBusinessRelation to get LongCode by LongId.
Parameters
Internal usage
QadFinancials
program code (program9/bbusinessrelation.p)
define variable oiReturnStatus as integer no-undo.
if iiLngId = ? or
iiLngId = 0
then return "":U.
<Q-1 run LanguagePrim (all) (Read) (Cache)
(input ?, (LngCode)
input iiLngId, (LngID)
output dataset tqLanguagePrim) in BLanguage >
find first tqLanguagePrim where
tqLanguagePrim.tiLng_ID = iiLngId
no-error.
return if available tqLanguagePrim
then tqLanguagePrim.tcLngCode
else "":U.