Parameters
iiYear | input | integer | |
iiPeriod | input | integer | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program7/bcreditorreport.p)
<Q-1 run TransactionByDateType (all) (Read) (NoCache)
(input ?, (Domain)
input viCompanyId, (Entity)
input ?, (Type)
input ?, (StartDate)
input ?, (EndDate)
output dataset tqTransactionByDateType) in BMfgUnpostedTransDetail >
find tqTransactionByDateType no-error.
if available tqTransactionByDateType then
do:
if (YEAR(tqTransactionByDateType.ttglt_effdate) = iiYear and
MONTH(tqTransactionByDateType.ttglt_effdate) <= iiPeriod) OR
YEAR(tqTransactionByDateType.ttglt_effdate) < iiYear then
do:
assign vcErrorMessage = #T-2'Unposted transactions were found.':100(61567)t-2#.
<M-3 run SetMessage
(input vcErrorMessage (icMessage),
input '':U (icArguments),
input '':U (icFieldName),
input '':U (icFieldValue),
input 'E':U (icType),
input 3 (iiSeverity),
input '':U (icRowid),
input 'QadFin-7028':U (icFcMsgNumber),
input '':U (icFcExplanation),
input '':U (icFcIdentification),
input '':U (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BCreditorReport>
assign oiReturnStatus = -1.
return.
end.
end.