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.