Parameters
| itActualsDate | input | date | |
| iiPeriodID | input | integer | |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program1/bcashreport.p)
assign oiReturnStatus = -98.
if (itActualsDate <> ?)
then do:
<Q-1 run PeriodByYearPeriod (first) (Read) (NoCache)
(input viCompanyId, (CompanyId)
input ?, (PeriodYear)
input ?, (PeriodPeriod)
input iiPeriodID, (PeriodId)
output dataset tqPeriodByYearPeriod) in BPeriod >
find first tqPeriodByYearPeriod where
tqPeriodByYearPeriod.tiPeriod_ID = iiPeriodID
no-lock no-error.
if available(tqPeriodByYearPeriod)
then do:
if (itActualsDate < tqPeriodByYearPeriod.ttPeriodEndDate)
then do:
assign vcCashReportMsg = subst(#T-3'The actuals date (&1) must be after the end date (&2) of the cut-off period.':200(14073)t-3#,
string(itActualsDate, "99/99/9999":U),
string(tqPeriodByYearPeriod.ttPeriodEndDate, "99/99/9999":U))
oiReturnStatus = -1.
<M-2 run SetMessage
(input trim(vcCashReportMsg) (icMessage),
input '':U (icArguments),
input '':U (icFieldName),
input '':U (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input ? (icRowid),
input 'QADFIN-3193':U (icFcMsgNumber),
input '' (icFcExplanation),
input '' (icFcIdentification),
input '' (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BCashReport>
end.
end.
end.
if oiReturnStatus = -98
then assign oiReturnStatus = 0.