Description
Implement extra validations for the Closing mask
Parameters
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program1/bcompanygroup.p)
/* ============================================================================================ *
* Got through all closing masks and perform extra validations *
* ============================================================================================ */
for each t_sCyGroup:
/* Skip execution when not needed */
if t_sCyGroup.tc_Status = "":U and
not can-find(first t_sCyGroupCompany where
t_sCyGroupCompany.tc_ParentRowid = t_sCyGroup.tc_Rowid and
t_sCyGroupCompany.tc_Status <> "":U)
then next.
/* CyGroup validation */
<M-51 run ValidateComponentPreCyGroup (output viFcReturnSuper (oiReturnStatus)) in BCompanyGroup>
if viFcReturnSuper < 0 or viFcReturnSuper > 0 and oiReturnStatus = 0 then assign oiReturnStatus = viFcReturnSuper.
end. /* for each t_sCyGroup: */