Description
This method will transfer the filter parameters values to the variables defined in BL code.
Parameters
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program1/bdcollectionreport.p)
assign vcFilterDCollectionNumber = ?
vtFilterDColFromCreationDate = ?
vtFilterDColTillCreationDate = ?
viFilterDColFromCreationTime = ?
viFilterDColTillCreationTime = ?
vcFilterDColUser = ?
vdFilterDColFromAmount = ?
vdFilterDColTillAmount = ?
vcFilterDColIncSelCode = ?
vlFilterDColIsExecuted = ?
vlFilterDColIsAutomatic = ?
vcFilterDColReference = ?
vcFilterDColGLCode = ?.
for each tFilter:
case tFilter.tcBusinessFieldName:
when "Collection":U
then assign vcFilterDCollectionNumber = tFilter.tcParameterValue no-error.
when "CreDate_RANGE":U
then do:
if tFilter.tcOperator = ">=":U
then assign vtFilterDColFromCreationDate = date(int(substring(tFilter.tcParameterValue, 5, 2, "character":U)), int(substring(tFilter.tcParameterValue, 7, 2, "character":U)), int(substring(tFilter.tcParameterValue, 1, 4, "character":U))) no-error.
if tFilter.tcOperator = "<=":U
then assign vtFilterDColTillCreationDate = date(int(substring(tFilter.tcParameterValue, 5, 2, "character":U)), int(substring(tFilter.tcParameterValue, 7, 2, "character":U)), int(substring(tFilter.tcParameterValue, 1, 4, "character":U))) no-error.
end.
when "CreTime_RANGE":U
then do:
if tFilter.tcOperator = ">=":U
then assign viFilterDColFromCreationTime = int(tFilter.tcParameterValue) no-error.
if tFilter.tcOperator = "<=":U
then assign viFilterDColTillCreationTime = int(tFilter.tcParameterValue) no-error.
end.
when "User":U
then assign vcFilterDColUser = tFilter.tcParameterValue no-error.
when "Amount_RANGE":U
then do:
if tFilter.tcOperator = ">=":U
then assign vdFilterDColFromAmount = dec(tFilter.tcParameterValue) no-error.
if tFilter.tcOperator = "<=":U
then assign vdFilterDColTillAmount = dec(tFilter.tcParameterValue) no-error.
end.
when "IncSelCodeList":U
then assign vcFilterDColIncSelCode = tFilter.tcParameterValue no-error.
when "IsExecuted":U
then assign vlFilterDColIsExecuted = if tFilter.tcParameterValue = "true":U
then true
else if tFilter.tcParameterValue = "false":U
then false
else vlFilterDColIsExecuted no-error.
when "IsAutomatic":U
then assign vlFilterDColIsAutomatic = if tFilter.tcParameterValue = "true":U
then true
else if tFilter.tcParameterValue = "false":U
then false
else vlFilterDColIsAutomatic no-error.
when "Reference":U
then assign vcFilterDColReference = tFilter.tcParameterValue no-error.
when "BankGLID":U
then assign vcFilterDColGLCode = tFilter.tcParameterValue no-error.
end.
end.