method ApiLoadBusinessRelationCalcLngCode

function returns character

Description

This method is used for ApiLoadBusinessRelation to get LongCode by LongId.

Parameters

iiLngId

input

integer

Internal usage

QadFinancials

method BBusinessRelation.ApiLoadBusinessRelation

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.