project QadFinancials > class BFRWColumnGroup > method ValidateComponentPreCalculateMeasureType
Parameters
icCalcMeasureType | input | character | |
icCalcColumnType | input | character | |
icCalcUnitType | input | character | |
icRowid | input | character | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program1/bfrwcolumngroup.p)
if icCalcColumnType <> {&FRWCOLDETCOLUMNTYPE-CALCULATED} and
icCalcColumnType <> {&FRWCOLDETCOLUMNTYPE-COMPOSED}
then do:
case icCalcMeasureType:
when {&FRWCOLDETMEASURETYPE-ACTIVITYCR}
then do:
if icCalcColumnType = {&FRWCOLDETCOLUMNTYPE-ACTUAL}
then do:
if icCalcUnitType = {&FRWCOLDETUNITTYPE-QTY}
then do:
<M-78 run SetMessage
(input #T-19'Quantities can only have an Balance Opening, Activity or Balance Closing as a measure type.':255(232811474)T-19# (icMessage),
input '':U (icArguments),
input 'tFRWColDet.FRWColDetUnitType' (icFieldName),
input icCalcUnitType (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input icRowid (icRowid),
input 'qadfin-813680':U (icFcMsgNumber),
input '':U (icFcExplanation),
input '':U (icFcIdentification),
input '':U (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BFRWColumnGroup>
assign oiReturnStatus = -1.
end.
end.
if icCalcColumnType = {&FRWCOLDETCOLUMNTYPE-BUDGET}
then do:
<M-74 run SetMessage
(input #T-75'Budgets can only have Balance Opening, Activity or Balance Closing as a measure type.':255(69269483)T-75# (icMessage),
input '':U (icArguments),
input 'tFRWColDet.FRWColDetColumnType' (icFieldName),
input icCalcColumnType (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input icRowid (icRowid),
input 'qadfin-232387':U (icFcMsgNumber),
input '':U (icFcExplanation),
input '':U (icFcIdentification),
input '':U (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BFRWColumnGroup>
assign oiReturnStatus = -1.
end.
if icCalcColumnType = {&FRWCOLDETCOLUMNTYPE-FORECAST}
then do:
<M-88 run SetMessage
(input #T-81'Forecasts can only have an Balance Opening, Activity or Balance Closing as a measure type.':255(265698260)T-81# (icMessage),
input '':U (icArguments),
input 'tFRWColDet.FRWColDeColumnType' (icFieldName),
input icCalcColumnType (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input icRowid (icRowid),
input 'qadfin-266023':U (icFcMsgNumber),
input '':U (icFcExplanation),
input '':U (icFcIdentification),
input '':U (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BFRWColumnGroup>
assign oiReturnStatus = -1.
end.
end. /* when {&FRWCOLDETMEASURETYPE-ACTIVITYCR} */
when {&FRWCOLDETMEASURETYPE-ACTIVITYDR}
then do:
if icCalcColumnType = {&FRWCOLDETCOLUMNTYPE-ACTUAL}
then do:
if icCalcUnitType = {&FRWCOLDETUNITTYPE-QTY}
then do:
<M-77 run SetMessage
(input #T-25'Quantities can only have an Balance Opening, Activity or Balance Closing as a measure type.':255(232811474)T-25# (icMessage),
input '':U (icArguments),
input 'tFRWColDet.FRWColDetUnitType' (icFieldName),
input icCalcUnitType (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input icRowid (icRowid),
input 'qadfin-290622':U (icFcMsgNumber),
input '':U (icFcExplanation),
input '':U (icFcIdentification),
input '':U (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BFRWColumnGroup>
assign oiReturnStatus = -1.
end.
end.
if icCalcColumnType = {&FRWCOLDETCOLUMNTYPE-BUDGET}
then do:
<M-62 run SetMessage
(input #T-20'Budgets can only have Balance Opening, Activity or Balance Closing as a measure type.':255(69269483)T-20# (icMessage),
input '':U (icArguments),
input 'tFRWColDet.FRWColDetColumnType' (icFieldName),
input icCalcColumnType (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input icRowid (icRowid),
input 'qadfin-736072':U (icFcMsgNumber),
input '':U (icFcExplanation),
input '':U (icFcIdentification),
input '':U (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BFRWColumnGroup>
assign oiReturnStatus = -1.
end.
if icCalcColumnType = {&FRWCOLDETCOLUMNTYPE-FORECAST}
then do:
<M-72 run SetMessage
(input #T-5'Forecasts can only have an Balance Opening, Activity or Balance Closing as a measure type.':255(265698260)T-5# (icMessage),
input '':U (icArguments),
input 'tFRWColDet.FRWColDetColumnType' (icFieldName),
input icCalcColumnType (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input icRowid (icRowid),
input 'qadfin-907799':U (icFcMsgNumber),
input '':U (icFcExplanation),
input '':U (icFcIdentification),
input '':U (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BFRWColumnGroup>
assign oiReturnStatus = -1.
end.
end. /* when {&FRWCOLDETMEASURETYPE-ACTIVITYDR} */
when {&FRWCOLDETMEASURETYPE-CLOSEBALCR}
then do:
if icCalcColumnType = {&FRWCOLDETCOLUMNTYPE-ACTUAL}
then do:
if icCalcUnitType = {&FRWCOLDETUNITTYPE-QTY}
then do:
<M-49 run SetMessage
(input #T-23'Quantities can only have an Balance Opening, Activity or Balance Closing as a measure type.':255(232811474)T-23# (icMessage),
input '':U (icArguments),
input 'tFRWColDet.FRWColDetUnitType' (icFieldName),
input icCalcUnitType (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input icRowid (icRowid),
input 'qadfin-474734':U (icFcMsgNumber),
input '':U (icFcExplanation),
input '':U (icFcIdentification),
input '':U (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BFRWColumnGroup>
assign oiReturnStatus = -1.
end.
end.
if icCalcColumnType = {&FRWCOLDETCOLUMNTYPE-BUDGET}
then do:
<M-93 run SetMessage
(input #T-92'Budgets can only have Balance Opening, Activity or Balance Closing as a measure type.':255(69269483)T-92# (icMessage),
input '':U (icArguments),
input 'tFRWColDet.FRWColDetColumnType' (icFieldName),
input icCalcColumnType (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input icRowid (icRowid),
input 'qadfin-526740':U (icFcMsgNumber),
input '':U (icFcExplanation),
input '':U (icFcIdentification),
input '':U (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BFRWColumnGroup>
assign oiReturnStatus = -1.
end.
if icCalcColumnType = {&FRWCOLDETCOLUMNTYPE-FORECAST}
then do:
<M-61 run SetMessage
(input #T-47'Forecasts can only have an Balance Opening, Activity or Balance Closing as a measure type.':255(265698260)T-47# (icMessage),
input '':U (icArguments),
input 'tFRWColDet.FRWColDetColumnType' (icFieldName),
input icCalcColumnType (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input icRowid (icRowid),
input 'qadfin-242159':U (icFcMsgNumber),
input '':U (icFcExplanation),
input '':U (icFcIdentification),
input '':U (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BFRWColumnGroup>
assign oiReturnStatus = -1.
end.
end. /* when {&FRWCOLDETMEASURETYPE-CLOSEBALCR} */
when {&FRWCOLDETMEASURETYPE-CLOSEBALDR}
then do:
if icCalcColumnType = {&FRWCOLDETCOLUMNTYPE-ACTUAL}
then do:
if icCalcUnitType = {&FRWCOLDETUNITTYPE-QTY}
then do:
<M-70 run SetMessage
(input #T-91'Quantities can only have an Balance Opening, Activity or Balance Closing as a measure type.':255(232811474)T-91# (icMessage),
input '':U (icArguments),
input 'tFRWColDet.FRWColDetUnitType' (icFieldName),
input icCalcUnitType (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input icRowid (icRowid),
input 'qadfin-438014':U (icFcMsgNumber),
input '':U (icFcExplanation),
input '':U (icFcIdentification),
input '':U (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BFRWColumnGroup>
assign oiReturnStatus = -1.
end.
end.
if icCalcColumnType = {&FRWCOLDETCOLUMNTYPE-BUDGET}
then do:
<M-18 run SetMessage
(input #T-30'Budgets can only have Balance Opening, Activity or Balance Closing as a measure type.':255(69269483)T-30# (icMessage),
input '':U (icArguments),
input 'tFRWColDet.FRWColDetColumnType' (icFieldName),
input icCalcColumnType (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input icRowid (icRowid),
input 'qadfin-352191':U (icFcMsgNumber),
input '':U (icFcExplanation),
input '':U (icFcIdentification),
input '':U (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BFRWColumnGroup>
assign oiReturnStatus = -1.
end.
if icCalcColumnType = {&FRWCOLDETCOLUMNTYPE-FORECAST}
then do:
<M-16 run SetMessage
(input #T-24'Forecasts can only have an Balance Opening, Activity or Balance Closing as a measure type.':255(265698260)T-24# (icMessage),
input '':U (icArguments),
input 'tFRWColDet.FRWColDetColumnType' (icFieldName),
input icCalcColumnType (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input icRowid (icRowid),
input 'qadfin-62679':U (icFcMsgNumber),
input '':U (icFcExplanation),
input '':U (icFcIdentification),
input '':U (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BFRWColumnGroup>
assign oiReturnStatus = -1.
end.
end. /* when {&FRWCOLDETMEASURETYPE-CLOSEBALDR} */
when {&FRWCOLDETMEASURETYPE-OPENBALCR}
then do:
if icCalcColumnType = {&FRWCOLDETCOLUMNTYPE-ACTUAL}
then do:
if icCalcUnitType = {&FRWCOLDETUNITTYPE-QTY}
then do:
<M-69 run SetMessage
(input #T-27'Quantities can only have an Balance Opening, Activity or Balance Closing as a measure type.':255(232811474)T-27# (icMessage),
input '':U (icArguments),
input 'tFRWColDet.FRWColDetUnitType' (icFieldName),
input icCalcUnitType (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input icRowid (icRowid),
input 'qadfin-41772':U (icFcMsgNumber),
input '':U (icFcExplanation),
input '':U (icFcIdentification),
input '':U (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BFRWColumnGroup>
assign oiReturnStatus = -1.
end.
end.
if icCalcColumnType = {&FRWCOLDETCOLUMNTYPE-BUDGET}
then do:
<M-98 run SetMessage
(input #T-90'Budgets can only have Balance Opening, Activity or Balance Closing as a measure type.':255(69269483)T-90# (icMessage),
input '':U (icArguments),
input 'tFRWColDet.FRWColDetColumnType' (icFieldName),
input icCalcColumnType (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input icRowid (icRowid),
input 'qadfin-108577':U (icFcMsgNumber),
input '':U (icFcExplanation),
input '':U (icFcIdentification),
input '':U (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BFRWColumnGroup>
assign oiReturnStatus = -1.
end.
if icCalcColumnType = {&FRWCOLDETCOLUMNTYPE-FORECAST}
then do:
<M-95 run SetMessage
(input #T-64'Forecasts can only have an Balance Opening, Activity or Balance Closing as a measure type.':255(265698260)T-64# (icMessage),
input '':U (icArguments),
input 'tFRWColDet.FRWColDetColumnType' (icFieldName),
input icCalcColumnType (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input icRowid (icRowid),
input 'qadfin-514825':U (icFcMsgNumber),
input '':U (icFcExplanation),
input '':U (icFcIdentification),
input '':U (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BFRWColumnGroup>
assign oiReturnStatus = -1.
end.
end. /* when {&FRWCOLDETMEASURETYPE-OPENBALCR} */
when {&FRWCOLDETMEASURETYPE-OPENBALDR}
then do:
if icCalcColumnType = {&FRWCOLDETCOLUMNTYPE-ACTUAL}
then do:
if icCalcUnitType = {&FRWCOLDETUNITTYPE-QTY}
then do:
<M-39 run SetMessage
(input #T-44'Quantities can only have an Balance Opening, Activity or Balance Closing as a measure type.':255(232811474)T-44# (icMessage),
input '':U (icArguments),
input 'tFRWColDet.FRWColDetUnitType' (icFieldName),
input icCalcUnitType (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input icRowid (icRowid),
input 'qadfin-833264':U (icFcMsgNumber),
input '':U (icFcExplanation),
input '':U (icFcIdentification),
input '':U (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BFRWColumnGroup>
assign oiReturnStatus = -1.
end.
end.
if icCalcColumnType = {&FRWCOLDETCOLUMNTYPE-BUDGET}
then do:
<M-8 run SetMessage
(input #T-58'Budgets can only have Balance Opening, Activity or Balance Closing as a measure type.':255(69269483)T-58# (icMessage),
input '':U (icArguments),
input 'tFRWColDet.FRWColDetColumnType' (icFieldName),
input icCalcColumnType (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input icRowid (icRowid),
input 'qadfin-220774':U (icFcMsgNumber),
input '':U (icFcExplanation),
input '':U (icFcIdentification),
input '':U (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BFRWColumnGroup>
assign oiReturnStatus = -1.
end.
if icCalcColumnType = {&FRWCOLDETCOLUMNTYPE-FORECAST}
then do:
<M-55 run SetMessage
(input #T-60'Forecasts can only have an Balance Opening, Activity or Balance Closing as a measure type.':255(265698260)T-60# (icMessage),
input '':U (icArguments),
input 'tFRWColDet.FRWColDetColumnType' (icFieldName),
input icCalcColumnType (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input icRowid (icRowid),
input 'qadfin-563652':U (icFcMsgNumber),
input '':U (icFcExplanation),
input '':U (icFcIdentification),
input '':U (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BFRWColumnGroup>
assign oiReturnStatus = -1.
end.
end. /* when {&FRWCOLDETMEASURETYPE-OPENBALDR} */
end case.
end. /* else do: */