project QadFinancials > class BFRWColumnGroup > method ValidateComponentPreColumnType

Parameters

Internal usage

program code (program1/bfrwcolumngroup.p)

/* ===================================================================================== */
/* Take each of the calculated fields and determine which value to store in the database */
/* ===================================================================================== */
for each t_sFRWCol where 
         t_sFRWCol.tc_Status <> 'D':U:

    for each t_sFRWColDet where
             t_sFRWColDet.tc_ParentRowid = t_sFRWCol.tc_Rowid and
             t_sFRWColDet.tc_Status <> 'D':U:

        find first t_sFRWColDetComp where 
             t_sFRWColDetComp.tc_ParentRowid = t_sFRWColDet.tc_Rowid and
             t_sFRWColDet.tc_Status <> 'D':U no-error.
        if available t_sFRWColDetComp and
           t_sFRWColDet.FRWColDetColumnType <> {&FRWCOLDETCOLUMNTYPE-COMPOSED}
        then do:
            <M-1 run SetMessage
               (input  trim(#T-71'Composed details cannot be existing if Column Type is not 'Composed'.':255(102033423)T-71#) (icMessage), 
                input  '':U (icArguments), 
                input  'tFRWColDet.FRWColDetColumnType':U (icFieldName), 
                input  t_sFRWColDet.FRWColDetColumnType (icFieldValue), 
                input  'E':U (icType), 
                input  3 (iiSeverity), 
                input  t_sFRWColDet.tc_Rowid (icRowid), 
                input  'qadfin-993174':U (icFcMsgNumber), 
                input  ? (icFcExplanation), 
                input  ? (icFcIdentification), 
                input  ? (icFcContext), 
                output viFcReturnSuper (oiReturnStatus)) in BFRWColumnGroup>
            assign oiReturnStatus = -1.
            return.
        end.
     end. /* for each t_sFRWColDet */
end. /* for each t_sFRWCol where */