method InitializeFRWXref

Description

Initialize temp-table tFRWXref
Parameters

oiReturnStatus
output
integer
Return status of the method.
Internal usage

QadFinancials
method BFRWChart.GetAllChartCOACrossRef
method BFRWChart.ValidateComponentAll
program code (program1/bfrwchart.p)

/* ====================================================================================== *
 * Method       : InitializeFRWXref                                                       *
 * Description  : Initialize tFRWXref temp-table                                          *
 * ====================================================================================== */
 
MAIN_BLOCK:
do on error undo, throw:
    empty temp-table tFRWXref.
    <Q-66 run FRWShSetCombByChart (all) (Read) (Cache)
       (input ?, (ChartId)
        input ?, (ChartCode)
        output dataset tqFRWShSetCombByChart) in BFRWChart>
    for each tqFRWShSetCombByChart:
        if tqFRWShSetCombByChart.tiGLCOACrossRef_ID <> 0
        then do:
            find tFRWXref where tFRWXref.tcFRWCrossRefCode = {&COACROSSREFTYPE-SEPERATE} and
                                tFRWXref.tcFRWCrossRefCOAType = {&SHAREDSETTYPE-GL} and 
                                tFRWXref.tcFRWCrossRefCOACode = tqFRWShSetCombByChart.tcFRWShSetCombGLCOACRCode and
                                tFRWXref.tiSourceGLSharedSet_ID = tqFRWShSetCombByChart.tiGLSharedSet_ID and
                                tFRWXref.tiTargetGLSharedSet_ID = tqFRWShSetCombByChart.tiGLSharedSet_ID1 no-error.
            if not available tFRWXref
            then do:
                create tFRWXref.
                assign tFRWXref.tiFRWCrossRef_ID = next-value(ObjectNumber)
                       tFRWXref.tcFRWCrossRefCOACode = tqFRWShSetCombByChart.tcFRWShSetCombGLCOACRCode
                       tFRWXref.tcFRWCrossRefCode = {&COACROSSREFTYPE-SEPERATE}
                       tFRWXref.tcFRWCrossRefCOAType = {&SHAREDSETTYPE-GL}
                       tFRWXref.tiSourceGLSharedSet_ID = tqFRWShSetCombByChart.tiGLSharedSet_ID
                       tFRWXref.tiTargetGLSharedSet_ID = tqFRWShSetCombByChart.tiGLSharedSet_ID1
                       tFRWXref.tiCOACrossRef_ID = tqFRWShSetCombByChart.tiGLCOACrossRef_ID.
            end.
        end.

        if tqFRWShSetCombByChart.tiDivCOACOACrossRef_ID <> 0
        then do:
            find tFRWXref where tFRWXref.tcFRWCrossRefCode = {&COACROSSREFTYPE-SEPERATE} and
                                tFRWXref.tcFRWCrossRefCOAType = {&SHAREDSETTYPE-DIVISION} and 
                                tFRWXref.tcFRWCrossRefCOACode = tqFRWShSetCombByChart.tcFRWShSetCombDivCOACRCode and
                                tFRWXref.tiSourceDivSharedSet_ID = tqFRWShSetCombByChart.tiDivisionSharedSet_ID and
                                tFRWXref.tiTargetDivSharedSet_ID = tqFRWShSetCombByChart.tiDivisionSharedSet_ID1 no-error.
            if not available tFRWXref
            then do:
                create tFRWXref.
                assign tFRWXref.tiFRWCrossRef_ID = next-value(ObjectNumber)
                       tFRWXref.tcFRWCrossRefCOACode = tqFRWShSetCombByChart.tcFRWShSetCombDivCOACRCode
                       tFRWXref.tcFRWCrossRefCode = {&COACROSSREFTYPE-SEPERATE}
                       tFRWXref.tcFRWCrossRefCOAType = {&SHAREDSETTYPE-DIVISION}
                       tFRWXRef.tiSourceDivSharedSet_ID = tqFRWShSetCombByChart.tiDivisionSharedSet_ID
                       tFRWXref.tiTargetDivSharedSet_ID = tqFRWShSetCombByChart.tiDivisionSharedSet_ID1
                       tFRWXref.tiCOACrossRef_ID = tqFRWShSetCombByChart.tiDivCOACOACrossRef_ID.
            end.
        end.

        if tqFRWShSetCombByChart.tiCCCOACOACrossRef_ID <> 0
        then do:
            find tFRWXref where tFRWXref.tcFRWCrossRefCode = {&COACROSSREFTYPE-SEPERATE} and
                                tFRWXref.tcFRWCrossRefCOAType = {&SHAREDSETTYPE-COSTCENTRE} and 
                                tFRWXref.tcFRWCrossRefCOACode = tqFRWShSetCombByChart.tcFRWShSetCombCCCOACRCode and
                                tFRWXref.tiSourceCCSharedSet_ID = tqFRWShSetCombByChart.tiCostCentreSharedSet_ID and
                                tFRWXref.tiTargetCCSharedSet_ID = tqFRWShSetCombByChart.tiCostCentreSharedSet_ID1 no-error.
            if not available tFRWXref
            then do:
                create tFRWXref.
                assign tFRWXref.tiFRWCrossRef_ID = next-value(ObjectNumber)
                       tFRWXref.tcFRWCrossRefCOACode = tqFRWShSetCombByChart.tcFRWShSetCombCCCOACRCode
                       tFRWXref.tcFRWCrossRefCode = {&COACROSSREFTYPE-SEPERATE}
                       tFRWXref.tcFRWCrossRefCOAType = {&SHAREDSETTYPE-COSTCENTRE}
                       tFRWXRef.tiSourceCCSharedSet_ID = tqFRWShSetCombByChart.tiCostCentreSharedSet_ID
                       tFRWXref.tiTargetCCSharedSet_ID = tqFRWShSetCombByChart.tiCostCentreSharedSet_ID1
                       tFRWXref.tiCOACrossRef_ID = tqFRWShSetCombByChart.tiCCCOACOACrossRef_ID.
            end.
        end.

        if tqFRWShSetCombByChart.tiPrjCOACOACrossRef_ID <> 0
        then do:
            find tFRWXref where tFRWXref.tcFRWCrossRefCode = {&COACROSSREFTYPE-SEPERATE} and
                                tFRWXref.tcFRWCrossRefCOAType = {&SHAREDSETTYPE-PROJECT} and 
                                tFRWXref.tcFRWCrossRefCOACode = tqFRWShSetCombByChart.tcFRWShSetCombprjCOACRCode and
                                tFRWXref.tiSourcePrjSharedSet_ID = tqFRWShSetCombByChart.tiProjectSharedSet_ID and
                                tFRWXref.tiTargetPrjSharedSet_ID = tqFRWShSetCombByChart.tiProjectSharedSet_ID1 no-error.
            if not available tFRWXref
            then do:
                create tFRWXref.
                assign tFRWXref.tiFRWCrossRef_ID = next-value(ObjectNumber)
                       tFRWXref.tcFRWCrossRefCOACode = tqFRWShSetCombByChart.tcFRWShSetCombprjCOACRCode
                       tFRWXref.tcFRWCrossRefCode = {&COACROSSREFTYPE-SEPERATE}
                       tFRWXref.tcFRWCrossRefCOAType = {&SHAREDSETTYPE-PROJECT}
                       tFRWXref.tiSourcePrjSharedSet_ID = tqFRWShSetCombByChart.tiProjectSharedSet_ID
                       tFRWXref.tiTargetPrjSharedSet_ID = tqFRWShSetCombByChart.tiProjectSharedSet_ID1
                       tFRWXref.tiCOACrossRef_ID = tqFRWShSetCombByChart.tiPrjCOACOACrossRef_ID.
            end.
        end.

        if tqFRWShSetCombByChart.tiCombCOACOACrossRef_ID <> 0
        then do:
            find tFRWXref where tFRWXref.tcFRWCrossRefCode = {&COACROSSREFTYPE-COMBINED} and
                                tFRWXref.tcFRWCrossRefCOAType = {&TRANSDIRECTION-ALL} and 
                                 tFRWXref.tcFRWCrossRefCOACode = tqFRWShSetCombByChart.tcFRWShSetCombCombCOACRCode and
                                tFRWXref.tiSourceGLSharedSet_ID = tqFRWShSetCombByChart.tiGLSharedSet_ID and
                                tFRWXref.tiTargetGLSharedSet_ID = tqFRWShSetCombByChart.tiGLSharedSet_ID1 and
                                tFRWXRef.tiSourceDivSharedSet_ID = tqFRWShSetCombByChart.tiDivisionSharedSet_ID and
                                tFRWXref.tiTargetDivSharedSet_ID = tqFRWShSetCombByChart.tiDivisionSharedSet_ID1 and
                                tFRWXRef.tiSourceCCSharedSet_ID = tqFRWShSetCombByChart.tiCostCentreSharedSet_ID and
                                tFRWXref.tiTargetCCSharedSet_ID = tqFRWShSetCombByChart.tiCostCentreSharedSet_ID1 and
                                tFRWXref.tiSourcePrjSharedSet_ID = tqFRWShSetCombByChart.tiProjectSharedSet_ID and
                                tFRWXref.tiTargetPrjSharedSet_ID = tqFRWShSetCombByChart.tiProjectSharedSet_ID1 no-error.
            if not available tFRWXref
            then do:
                create tFRWXref.
                assign tFRWXref.tiFRWCrossRef_ID = next-value(ObjectNumber)
                       tFRWXref.tcFRWCrossRefCOACode = tqFRWShSetCombByChart.tcFRWShSetCombCombCOACRCode
                       tFRWXref.tcFRWCrossRefCode = {&COACROSSREFTYPE-COMBINED}
                       tFRWXref.tcFRWCrossRefCOAType = {&TRANSDIRECTION-ALL}
                       tFRWXref.tiSourceGLSharedSet_ID = tqFRWShSetCombByChart.tiGLSharedSet_ID
                       tFRWXref.tiTargetGLSharedSet_ID = tqFRWShSetCombByChart.tiGLSharedSet_ID1
                       tFRWXRef.tiSourceDivSharedSet_ID = tqFRWShSetCombByChart.tiDivisionSharedSet_ID
                       tFRWXref.tiTargetDivSharedSet_ID = tqFRWShSetCombByChart.tiDivisionSharedSet_ID1
                       tFRWXRef.tiSourceCCSharedSet_ID = tqFRWShSetCombByChart.tiCostCentreSharedSet_ID
                       tFRWXref.tiTargetCCSharedSet_ID = tqFRWShSetCombByChart.tiCostCentreSharedSet_ID1
                       tFRWXref.tiSourcePrjSharedSet_ID = tqFRWShSetCombByChart.tiProjectSharedSet_ID
                       tFRWXref.tiTargetPrjSharedSet_ID = tqFRWShSetCombByChart.tiProjectSharedSet_ID1
                       tFRWXref.tiCOACrossRef_ID = tqFRWShSetCombByChart.tiCombCOACOACrossRef_ID.
            end.
        end.
    end.
end.