project QadFinancials > class BBusinessRelation > method ApiLoadBusinessRelationCalcAddressTypeCode

function returns character

Description

This method is used for ApiLoadBusinessRelation to get AddressTypeCode by AddressTypeID.


Parameters


iiAddressTypeIdinputintegerAddress Type Id


Internal usage


QadFinancials
method BBusinessRelation.ApiLoadBusinessRelation


program code (program9/bbusinessrelation.p)

define variable oiReturnStatus as integer no-undo.

if iiAddressTypeId = ? or
   iiAddressTypeId = 0
then return "":U.

<Q-2 run AddressTypePrim (all) (Read) (Cache)
   (input iiAddressTypeId, (AddressTypeId)
    input ?, (AddressTypeCode)
    output dataset tqAddressTypePrim) in BAddressType >

find first tqAddressTypePrim where
           tqAddressTypePrim.tiAddressType_ID = iiAddressTypeId
           no-error.

return if available tqAddressTypePrim
       then tqAddressTypePrim.tcAddressTypeCode
       else "":U.