project QadFinancials > class BERSProcessor > method GetERSPendingVouchersNormalize
Description
Normalize input parameters
Parameters
bcSupplierFrom | input-output | character | |
bcSupplierTo | input-output | character | |
ocSupplier | output | character | |
bcSiteFrom | input-output | character | |
bcSiteTo | input-output | character | |
ocSite | output | character | |
bcReceiverFrom | input-output | character | |
bcReceiverTo | input-output | character | |
ocReceiver | output | character | |
btReceiptDateFrom | input-output | date | |
btReceiptDateTo | input-output | date | |
otReceiptDate | output | date | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program5/bersprocessor.p)
/* =================================================================================================== */
/* Method : GetERSPendingVouchers */
/* Desc : This method quieries database for pending vouchers which are ERS enabled. These */
/* pending vouchers are used for ERS processing. */
/* Supported types: Normal purchase order receipt */
/* Purchase ledger invoice */
/* --------------------------------------------------------------------------------------------------- */
/* Params: (B) SupplierFrom Suppleir code from (filtering parameter) */
/* (B) SupplierTo Supplier code to (filtering parameter) */
/* (O) Supplier Supplier code */
/* (B) SiteFrom Site from (filtering parameter) */
/* (B) SiteTo Site to (filtering parameter) */
/* (O) Site Site */
/* (B) ReceiverFrom Receiver number from (filtering parameter) */
/* (B) ReceiverTo Receiver number to (filtering parameter) */
/* (O) Receiver receiver number */
/* (B) ReceiptDateFrom Receipt date from (filtering parameter) */
/* (B) ReceiptDateTo Receipt date to (filtering parameter) */
/* (O) ReceiptDate Receipt date */
/* =================================================================================================== */
assign oiReturnStatus = -98.
/* =================================================================================================== */
/* Supplier */
/* =================================================================================================== */
if bcSupplierFrom = "":U then assign bcSupplierFrom = ?.
if bcSupplierTo = "":U then assign bcSupplierTo = ?.
if bcSupplierFrom = bcSupplierTo
then assign ocSupplier = bcSupplierFrom
bcSupplierFrom = ?
bcSupplierTo = ?.
else assign ocSupplier = ?.
/* =================================================================================================== */
/* Site */
/* =================================================================================================== */
if bcSiteFrom = "":U then assign bcSiteFrom = ?.
if bcSiteTo = "":U then assign bcSiteTo = ?.
if bcSiteFrom = bcSiteTo
then assign ocSite = bcSiteFrom
bcSiteFrom = ?
bcSiteTo = ?.
else assign ocSite = ?.
/* =================================================================================================== */
/* Receiver */
/* =================================================================================================== */
if bcReceiverFrom = "":U then assign bcReceiverFrom = ?.
if bcReceiverTo = "":U then assign bcReceiverTo = ?.
if bcReceiverFrom = bcReceiverTo
then assign ocReceiver = bcReceiverFrom
bcReceiverFrom = ?
bcReceiverTo = ?.
else assign ocReceiver = ?.
/* =================================================================================================== */
/* ReceiptDate */
/* =================================================================================================== */
if btReceiptDateFrom = btReceiptDateTo
then assign otReceiptDate = btReceiptDateFrom
btReceiptDateFrom = ?
btReceiptDateTo = ?.
else assign otReceiptDate = ?.
/* =================================================================================================== */
/* Return */
/* =================================================================================================== */
if oiReturnStatus = -98 then assign oiReturnStatus = 0.