project QadFinancials > class BFRWColumnGroup > method ValidateComponentPreCalculateMeasureType


Parameters


icCalcMeasureTypeinputcharacter
icCalcColumnTypeinputcharacter
icCalcUnitTypeinputcharacter
icRowidinputcharacter
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BFRWColumnGroup.ValidateComponentPreMeasureType


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: */