project QadFinancials > class BBusinessRelation > method ValidateComponentExternalAddress

Parameters

Internal usage

program code (program1/bbusinessrelation.p)

assign oiReturnStatus = 0.

if viPGTM9ID = 0 or
       viPGTM9ID = ?
    then do:   
        <I-36 {bFcStartAndOpenInstance
             &CLASS                = "PGTM"}> 
    end.
    else do:
        <I-95 {bFcOpenInstance
             &CLASS           = "PGTM"}> 
    end.

<M-62 run ValidateAddress
   (input-output tBusRelAvaReturnAddress (tAvaReturnAddress), 
    output tBusRelAvaReturnMessage (tAvaReturnMessage), 
    output viFcReturnSuper (oiReturnStatus)) in PGTM>  
    
<I-61 {bFcCloseInstance
     &CLASS           = "PGTM"}>  
     
     
<M-92 run ValidateAvaAddress  (output viFcReturnSuper (oiReturnStatus)) in BBusinessRelation> 

  if viFcReturnSuper <> 0
        then assign oiReturnStatus = viFcReturnSuper.
        if viFcReturnSuper <  0 
        then return.