project QadFinancials > class BFRWColumnGroup > method ValidateComponentPostDelete

validation procedure

Description

Checks if the column group belongs to other parts of the FRW before deleting.


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BFRWColumnGroup.ValidateComponentPost


program code (program1/bfrwcolumngroup.p)

assign oiReturnStatus = -98.

for each t_sFRWCol where
         t_sFRWCol.tc_Status = 'D':U:
         
    /* ================================================================= */
    /* Check if the column group belongs to a report master record       */
    /* ================================================================= */
    <Q-22 run FRWReportMasterByColID (all) (Read) (NoCache)
       (input t_sFRWCol.FRWCol_ID, (ColumnGroupID)
        output dataset tqFRWReportMasterByColID) in BFRWReportMaster>
        
    for first tqFRWReportMasterByColID where
              tqFRWReportMasterByColID.tiFRWCol_ID = t_sFRWCol.FRWCol_ID no-lock:
    
        assign oiReturnStatus = -1
               vcMessage = trim(#T-2'The column group cannot be deleted: It is being used by report master &1':100(144857439)T-2#)
               vcMessage = substitute(vcMessage, tqFRWReportMasterByColID.tcFRWRepMstrCode).
        <M-16 run SetMessage
           (input  vcMessage (icMessage), 
            input  '':U (icArguments), 
            input  '':U (icFieldName), 
            input  '':U (icFieldValue), 
            input  'E':U (icType), 
            input  3 (iiSeverity), 
            input  '':U (icRowid), 
            input  'qadfin-922773':U (icFcMsgNumber), 
            input  '':U (icFcExplanation), 
            input  '':U (icFcIdentification), 
            input  '':U (icFcContext), 
            output viFcReturnSuper (oiReturnStatus)) in BFRWColumnGroup>
            
        return.
    
    end.    /* for first tqFRWReportMasterByColID where... */
         
end.    /* for each t_sFRWCol where t_sFRWCol.tc_Status = 'D':U: */

if oiReturnStatus = -98
then assign oiReturnStatus = 0.