Parameters
otAgingDate | output | date | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program1/bdebtorreport.p)
/* There cannot be year 0, this is converted to -999 so it won't be translated in querry as 0 -> true !!! */
if viToAccYearFilter = 0
then assign viToAccYearFilter = -999.
assign viToAccPeriodFilter = viToAccYearFilter * 100 + viToAccPeriodFilter.
if viToAccPeriodFilter <> ? and viToAccYearFilter <> ?
then do:
<Q-86 run PeriodFromTo (all) (Read) (NoCache)
(input viCompanyId, (CompanyId)
input viToAccPeriodFilter, (FromPeriodYear)
input viToAccPeriodFilter, (ToPeriodYear)
output dataset tqPeriodFromTo) in BDebtorReport >
find first tqPeriodFromTo where
tqPeriodFromTo.tiPeriodYearPeriod >= viToAccPeriodFilter and
tqPeriodFromTo.tiPeriodYearPeriod <= viToAccPeriodFilter no-error.
if not available tqPeriodFromTo
then do:
<M-79 run SetMessage
(input trim(#T-47'The GL period you entered is not defined in the system.':100(28024623)T-47#) (icMessage),
input '':U (icArguments),
input '':U (icFieldName),
input '':U (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input '':U (icRowid),
input 'QadFin-392986':U (icFcMsgNumber),
input '':U (icFcExplanation),
input '':U (icFcIdentification),
input '':U (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BDebtorReport>
assign oiReturnStatus = -1.
return.
end.
end.
else do:
<M-54 run SetMessage
(input trim(#T-90'You must enter the GL calendar year/GL period.':50(685273593)T-90#) (icMessage),
input '':U (icArguments),
input '':U (icFieldName),
input '':U (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input '':U (icRowid),
input 'QadFin-625185':U (icFcMsgNumber),
input '':U (icFcExplanation),
input '':U (icFcIdentification),
input '':U (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BDebtorReport>
assign oiReturnStatus = -1.
return.
end.
assign otAgingDate = tqPeriodFromTo.ttPeriodEndDate.