validation procedure
Description
Checks if the column group belongs to other parts of the FRW before deleting.
Parameters
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
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.