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
tApiAddress | input-output | temp-table | |
tApiContact | input-output | temp-table | |
icBusinessRelationCode | input | character | |
iiBusinessRelationID | input | integer | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
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.