Description
This method is used to get all input parameters into component data items.
Parameters
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program1/bbox1099report.p)
/* Find all filter-parameters and assign them to the correct data-item */
assign viPaymentYearFilter = ?
vcToSupplierFilter = ?
vcFromSupplierFilter = ?
vcSupplierTypeFilter = ?
vcBoxFederalTaxIDFilter = ?
vcBoxEntityFilter = ?
vlShowEntityDetails = ?
vlShowTransactionDetails = ?
/*vcBoxReportCurrencyFilter = ?*/
vcBoxReportDescription = ?
vlMaskSSN = ?.
for each tFilter:
case tFilter.tcBusinessFieldName:
when "PaymentYear":U
then assign viPaymentYearFilter = int(tFilter.tcParameterValue) no-error.
when "SupplierCode_RANGE":U
then if tFilter.tcOperator = ">=":U
then assign vcFromSupplierFilter = tFilter.tcParameterValue no-error.
else if tFilter.tcOperator = "<=":U
then assign vcToSupplierFilter = tFilter.tcParameterValue NO-ERROR.
when "SupplierType_CANDO":U
then assign vcSupplierTypeFilter = tFilter.tcParameterValue.
when "Company_CANDO":U
then assign vcBoxEntityFilter = tFilter.tcParameterValue.
when "FederalTaxID_CANDO":U
then assign vcBoxFederalTaxIDFilter = tFilter.tcParameterValue.
when "ShowEntityDetails":U
then assign vlShowEntityDetails = if tFilter.tcParameterValue = "True":U
then true
else if tFilter.tcParameterValue = "False":U
then false
else false no-error.
when "ShowTransactionDetails":U
then assign vlShowTransactionDetails = if tFilter.tcParameterValue = "True":U
then true
else if tFilter.tcParameterValue = "False":U
then false
else false no-error.
when "CheckForUnlinkedInvoices":U
then assign vlCheckUnlinkedInvoices = if tFilter.tcParameterValue = "True":U
then true
else if tFilter.tcParameterValue = "False":U
then false
else false no-error.
/*when "ReportingCurrency":U
then assign vcBoxReportCurrencyFilter = tFilter.tcParameterValue.*/
when "ReportDescription":U
then assign vcBoxReportDescription = tFilter.tcParameterValue.
when "MaskSSN":U
then assign vlMaskSSN = if tFilter.tcParameterValue = "True":U
then true
else false no-error.
end case.
end.
<M-1 run CrossCompanyEntries (output oiReturnStatus (oiReturnStatus)) in BBox1099Report>