project QadFinancials > class BERSProcessorReport > method ERSAuditReport

Parameters

Internal usage

program code (program7/bersprocessorreport.p)

empty temp-table tqERSAuditReport.

<M-5 run GetReportLabels
   (input  'ERSAuditReport':U (icReportName), 
    input  icLanguageCode (icLanguageCode), 
    input  tFilter (tFilter), 
    output tqHeader (tqHeader), 
    output tqFilter (tqFilter), 
    output tqText (tqText), 
    output oiReturnStatus (oiReturnStatus)) in BERSProcessorReport>
if oiReturnStatus <> 0
then return.

find first tqHeader no-error.
if available tqHeader
then do:
    assign tqHeader.tcReportTitle = #T-3'ERS Audit Report':255(70714)T-3#
           tqHeader.tcExtraInfo   = #T-4'ERS Report':255(70752)T-4# + " - ":U.
end.


for each tERSAuditReportRef:
    if tERSAuditReportRef.tcCInvoiceReferenceInt <> '' and tERSAuditReportRef.tcCInvoiceReferenceInt <> ?
    then do:
        create tqERSAuditReport.
        buffer-copy tERSAuditReportRef to tqERSAuditReport.
        assign tqERSAuditReport.tiInfoTypeFlag = 2.
    end.

    for each tERSAuditReportLogRef
        where tERSAuditReportLogRef.tcFcRowid = tERSAuditReportRef.tcFcRowid:
        create tqERSAuditReport.
        buffer-copy tERSAuditReportLogRef to tqERSAuditReport.
        assign tqERSAuditReport.tiInfoTypeFlag         = 1
               tqERSAuditReport.tcPurchaseOrderNbr     = tERSAuditReportRef.tcPurchaseOrderNbr
               tqERSAuditReport.tcReceiverNbr          = tERSAuditReportRef.tcReceiverNbr
               tqERSAuditReport.tiPurchaseOrderLineNbr = tERSAuditReportRef.tiPurchaseOrderLineNbr.
    end. /* for each tERSAuditReportLogRef */
end. /* for each tERSAuditReportRef */


/* Add a record to the main report */
find first tqERSAuditReport where tqERSAuditReport.tiInfoTypeFlag = 1 no-error.
if not available tqERSAuditReport
then do:
    create tqERSAuditReport.
    assign tqERSAuditReport.tiInfoTypeFlag = 3
           tqERSAuditReport.tcFcMessage = #T-6'No error exists.':255(70940)T-6#.
end. /* if not available tqERSAuditReport */

find first tqERSAuditReport where tqERSAuditReport.tiInfoTypeFlag = 2 no-error.
if not available tqERSAuditReport
then do:
    create tqERSAuditReport.
    assign tqERSAuditReport.tiInfoTypeFlag = 4
           tqERSAuditReport.tcFcMessage = #T-8'No information exists.':255(70990)T-8#.
end. /* if not available tqERSAuditReport */