method DefaultValuesFRWChart

Parameters

icFRWChartCode	input	character
oiFRWChart_ID	output	integer
oiGLSharedSet_ID	output	integer
oiDivisionSharedSet_ID	output	integer
oiCostCentreSharedSet_ID	output	integer
oiProjectSharedSet_ID	output	integer
oiReturnStatus	output	integer	Return 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.