project QadFinancials > class BERSProcessor > method GetERSPendingVouchersNormalize

Description

Normalize input parameters


Parameters


bcSupplierFrominput-outputcharacter
bcSupplierToinput-outputcharacter
ocSupplieroutputcharacter
bcSiteFrominput-outputcharacter
bcSiteToinput-outputcharacter
ocSiteoutputcharacter
bcReceiverFrominput-outputcharacter
bcReceiverToinput-outputcharacter
ocReceiveroutputcharacter
btReceiptDateFrominput-outputdate
btReceiptDateToinput-outputdate
otReceiptDateoutputdate
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BERSProcessor.GetERSLegalDocuments
method BERSProcessor.GetERSPendingVouchersPORec


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.