project QadFinancials > class BCreditorReport > method CheckForUnpostedTransByPerYr

Parameters

Internal usage

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.