project QadFinancials > class BCOACrossRef > method UpdateCOACrossRef

Description

Parameters

Internal usage

program code (program9/bcoacrossref.p)

/* ====================================================================================== *
 * Method       :  UpdateCOACrossRef                                                      *
 * ====================================================================================== */

MAIN_BLOCK:
do on error undo, throw:
    <M-75 run ClearData  (output viFcReturnSuper (oiReturnStatus)) in BCOACrossRef>
    if viFcReturnSuper <> 0
    then do:
        assign oiReturnStatus = viFcReturnSuper.
        if oiReturnStatus < 0 then leave MAIN_BLOCK.
    end.

    for each tCOACrossRefForSaveFromChart where tCOACrossRefForSaveFromChart.tcStatus = 'N':U:
        <M-67 run AddDetailLine
           (input  'COACrossRef':U (icTable), 
            input  '' (icParentRowid), 
            output viFcReturnSuper (oiReturnStatus)) in BCOACrossRef>
        if viFcReturnSuper <> 0 then assign oiReturnStatus = viFcReturnSuper.
        if viFcReturnSuper <  0 then leave MAIN_BLOCK.
        assign tCOACrossRef.COACrossRefCode = tCOACrossRefForSaveFromChart.tcCOACrossRefCode 
               tCOACrossRef.COACrossRefDescription = tCOACrossRefForSaveFromChart.tcCOACrossRefDesc
               tCOACrossRef.COACrossRefIsActive = yes
               tCOACrossRef.COACrossRefType = tCOACrossRefForSaveFromChart.tcCOACrossRefType
               tCOACrossRef.SourceDomain_ID = tCOACrossRefForSaveFromChart.tiSourceDomainID
               tCOACrossRef.TargetDomain_ID = tCOACrossRefForSaveFromChart.tiTargetDomainID
               tCOACrossRef.tcSourceDomainCode = tCOACrossRefForSaveFromChart.tcSourceDomainCode
               tCOACrossRef.tcTargetDomainCode = tCOACrossRefForSaveFromChart.tcTargetDomainCode
               tCOACrossRefForSaveFromChart.tiCOACrossRefID = tCOACrossRef.COACrossRef_ID.  
    end. /* for each tCOACrossRefForSaveFromChart */ 
  

    <M-35 run ValidateBC  (output viFcReturnSuper (oiReturnStatus)) in BCOACrossRef>
    if viFcReturnSuper <> 0 
    then do :
        assign oiReturnStatus = viFcReturnSuper.
        if oiReturnStatus < 0 then leave MAIN_BLOCK.
    end. /* if viFcReturnSuper <> 0  */

    <M-48 run AdditionalUpdates  (output viFcReturnSuper (oiReturnStatus)) in BCOACrossRef>
    if viFcReturnSuper <> 0 
    then do :
        assign oiReturnStatus = viFcReturnSuper.
        if oiReturnStatus < 0 then leave MAIN_BLOCK.
    end.

    <M-81 run DataSave  (output viFcReturnSuper (oiReturnStatus)) in BCOACrossRef>
    if viFcReturnSuper <> 0 
    then do :
        assign oiReturnStatus = viFcReturnSuper.
        if oiReturnStatus < 0 then leave MAIN_BLOCK.
    end.

end. /* MAIN_BLOCK */