method GetERSLegalDocuments

Description

Sub-method that finds the pending vouchers attached to a legal document.

Parameters

icSupplierFrom	input	character	Filtering parameter: start value for the supplier codes.
icSupplierTo	input	character	Filtering parameter: end value for the supplier codes.
icLegalDocumentFrom	input	character	Filtering parameter: start value for the legal document number.
icLegalDocumentTo	input	character	Filtering parameter: end value for the legal document number.
icSiteFrom	input	character	Filtering parameter: start value for the site codes.
icSiteTo	input	character	Filtering parameter: end value for the site codes.
icReceiverFrom	input	character	Filtering parameter: start value for the receiver number.
icReceiverTo	input	character	Filtering parameter: end value for the receiver number.
itReceiptDateFrom	input	date	Filtering parameter: beginng date of the receipt dates.
itReceiptDateTo	input	date	Filtering parameter: endign date of the receipt dates.
itEffIssueDateFrom	input	date	Filtering parameter: beginng date of the effective issue dates.
itEffIssueDateTo	input	date	Filtering parameter: ending date of the effective issue dates.
tERSProcessorRef	output	temp-table	Output temp-table: used to store the pending vouchers being considered for ERS Processing.
tERSProcessorLogRef	output	temp-table	Output temp-table: used to log status information for the pending vouchers being considered by the ERS Processor.
oiReturnStatus	output	integer	Return status of the method.

Internal usage

QadFinancials

method BERSProcessor.GetERSPendingVouchers

program code (program5/bersprocessor.p)

/* =================================================================================================== */
/* Default output values                                                                               */
/* =================================================================================================== */
empty temp-table tERSProcessorRef.

/* =================================================================================================== */
/* Normalize input parameters                                                                          */
/* =================================================================================================== */
<M-63 run GetERSPendingVouchersNormalize
   (input-output icSupplierFrom (bcSupplierFrom), 
    input-output icSupplierTo (bcSupplierTo), 
    output vcSupplier (ocSupplier), 
    input-output icSiteFrom (bcSiteFrom), 
    input-output icSiteTo (bcSiteTo), 
    output vcSite (ocSite), 
    input-output icReceiverFrom (bcReceiverFrom), 
    input-output icReceiverTo (bcReceiverTo), 
    output vcReceiver (ocReceiver), 
    input-output itReceiptDateFrom (btReceiptDateFrom), 
    input-output itReceiptDateTo (btReceiptDateTo), 
    output vtReceiptDate (otReceiptDate), 
    output viFcReturnSuper (oiReturnStatus)) in BERSProcessor>
if viFcReturnSuper <> 0 then assign oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper <  0 then return.

<M-69 run GetERSLegalDocumentsNormalize
   (input-output icLegalDocumentFrom (bcLegalDocumentFrom), 
    input-output icLegalDocumentTo (bcLegalDocumentTo), 
    output vcLegalDocument (ocLegalDocument), 
    input-output itEffIssueDateFrom (btEffIssueDateFrom), 
    input-output itEffIssueDateTo (btEffIssueDateTo), 
    output vtEffIsueDate (otEffIssueDate), 
    output viFcReturnSuper (oiReturnStatus)) in BERSProcessor>
if viFcReturnSuper <> 0 then assign oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper <  0 then return.

/* =================================================================================================== */
/* Copy all errors to system cache                                                                     */
/* =================================================================================================== */
<M-95 run CopyToSystemErrors  (output viFcReturnSuper (oiReturnStatus)) in BERSProcessor>
if viFcReturnSuper <> 0 then assign oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper <  0 then return.

/* =================================================================================================== */
/* Get pending voucher for Non-logistic charges linked to Legal document                               */
/* =================================================================================================== */
<M-62 run GetERSLegalDocumentsNoLC
   (input  vcDomainCode (icDomainCode), 
    input  vcSupplier (icSupplier), 
    input  icSupplierFrom (icSupplierFrom), 
    input  icSupplierTo (icSupplierTo), 
    input  vcSite (icSite), 
    input  icSiteFrom (icSiteFrom), 
    input  icSiteTo (icSiteTo), 
    input  vcReceiver (icReceiver), 
    input  icReceiverFrom (icReceiverFrom), 
    input  icReceiverTo (icReceiverTo), 
    input  vtReceiptDate (itReceiptDate), 
    input  itReceiptDateFrom (itReceiptDateFrom), 
    input  itReceiptDateTo (itReceiptDateTo), 
    input  vcLegalDocument (icLegalDocument), 
    input  icLegalDocumentFrom (icLegalDocumentFrom), 
    input  icLegalDocumentTo (icLegalDocumentTo), 
    input  vtEffIsueDate (itEffIssueDate), 
    input  itEffIssueDateFrom (itEffIssueDateFrom), 
    input  itEffIssueDateTo (itEffIssueDateTo), 
    output tERSProcessorRef (tERSProcessorRef), 
    output tERSProcessorLogRef (tERSProcessorLogRef), 
    output viFcReturnSuper (oiReturnStatus)) in BERSProcessor>
if viFcReturnSuper <> 0 then assign oiReturnStatus = viFcReturnSuper.

/* =================================================================================================== */
/* Get pending voucher for Logistic charges linked to Legal document                                   */
/* =================================================================================================== */
<M-86 run GetERSLegalDocumentsLC
   (input  vcDomainCode (icDomainCode), 
    input  vcSupplier (icSupplier), 
    input  icSupplierFrom (icSupplierFrom), 
    input  icSupplierTo (icSupplierTo), 
    input  vcSite (icSite), 
    input  icSiteFrom (icSiteFrom), 
    input  icSiteTo (icSiteTo), 
    input  vcReceiver (icReceiver), 
    input  icReceiverFrom (icReceiverFrom), 
    input  icReceiverTo (icReceiverTo), 
    input  vtReceiptDate (itReceiptDate), 
    input  itReceiptDateFrom (itReceiptDateFrom), 
    input  itReceiptDateTo (itReceiptDateTo), 
    input  vcLegalDocument (icLegalDocument), 
    input  icLegalDocumentFrom (icLegalDocumentFrom), 
    input  icLegalDocumentTo (icLegalDocumentTo), 
    input  vtEffIsueDate (itEffIssueDate), 
    input  itEffIssueDateFrom (itEffIssueDateFrom), 
    input  itEffIssueDateTo (itEffIssueDateTo), 
    output tERSProcessorRef (tERSProcessorRef), 
    output tERSProcessorLogRef (tERSProcessorLogRef), 
    output viFcReturnSuper (oiReturnStatus)) in BERSProcessor>
if viFcReturnSuper <> 0 then assign oiReturnStatus = viFcReturnSuper.

/* =================================================================================================== */
/* Restore system errors                                                                               */
/* =================================================================================================== */
<M-49 run RestoreFromSystemErrors  (output viFcReturnSuper (oiReturnStatus)) in BERSProcessor>
if viFcReturnSuper <> 0 then assign oiReturnStatus = viFcReturnSuper.
if viFcReturnSuper <  0 then return.