method ApiLoadBusinessRelationCalcAddressTypeCode

function returns character

Description

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

Parameters

iiAddressTypeId

input

integer

Address 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.