project QadFinancials > class BBusinessRelation > method ApiMaintainAddress

Description

This method used to maintain the address table by apiAddress and apiContact temp-table. The 2 tables are also input-output parameter so that they can include the addressId when create.Only can address with one businessrelationId or businessrelationCode.


Parameters


tApiAddressinput-outputtemp-table
tApiContactinput-outputtemp-table
icBusinessRelationCodeinputcharacter
iiBusinessRelationIDinputinteger
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BDebtorEndUser.ApiCreateDebtorEndUser
method BDebtorShipTo.ApiCreateDebtorShipto
method BDebtorShipTo.ApiMaintainDebtorShipto


program code (program3/bbusinessrelation.p)

/* Clear the instance data */

<M-1 run ClearData (output viFcreturnSuper (oiReturnStatus)) in BBusinessRelation>
if viFcReturnSuper <> 0
then do: 
       assign oiReturnStatus = viFcReturnSuper.
       if oiReturnStatus < 0
       then 
          return.
end.

empty temp-table tApiBusinessRelation.
create tApiBusinessRelation.
assign
    tApiBusinessRelation.BusinessRelationCode = icBusinessRelationCode
    tApiBusinessRelation.BusinessRelation_id = iiBusinessRelationID
    tApiBusinessRelation.tc_rowid = "1".

for each tApiAddress:
    assign tApiAddress.tc_ParentRowid = tApiBusinessRelation.tc_Rowid.
end.

<M-24 run MaintainAddressMulti
   (input-output tApiBusinessRelation (tApiBusinessRelation), 
    input-output tApiAddress (tApiAddress), 
    input-output tApiContact (tApiContact), 
    output viFcReturnSuper (oiReturnStatus)) in BBusinessRelation>
if viFcReturnSuper <> 0 and oiReturnStatus >= 0
then assign oiReturnStatus = viFcReturnSuper. 
if viFcReturnSuper < 0
then return.