project QadFinancials > class BFRWAnalysisCode > method DefaultValuesFRWChart


Parameters


icFRWChartCodeinputcharacter
oiFRWChart_IDoutputinteger
oiGLSharedSet_IDoutputinteger
oiDivisionSharedSet_IDoutputinteger
oiCostCentreSharedSet_IDoutputinteger
oiProjectSharedSet_IDoutputinteger
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program1/bfrwanalysiscode.p)

define buffer bFRWChart for FRWChart.


assign oiFRWChart_ID            = 0
       oiGLSharedSet_ID         = 0
       oiDivisionSharedSet_ID   = 0
       oiCostCentreSharedSet_ID = 0
       oiProjectSharedSet_ID    = 0.


if icFRWChartCode <> ? and
   icFRWChartCode <> "":U
then for first bFRWChart fields (FRWChart_ID FRWChartCode GLSharedSet_ID DivisionSharedSet_ID CostCentreSharedSet_ID ProjectSharedSet_ID) no-lock where
               bFRWChart.FRWChartCode = icFRWChartCode on error undo, throw:
    assign oiFRWChart_ID            = bFRWChart.FRWChart_ID
           oiGLSharedSet_ID         = bFRWChart.GLSharedSet_ID
           oiDivisionSharedSet_ID   = bFRWChart.DivisionSharedSet_ID
           oiCostCentreSharedSet_ID = bFRWChart.CostCentreSharedSet_ID
           oiProjectSharedSet_ID    = bFRWChart.ProjectSharedSet_ID.
end.