Parameters
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program1/bcashboxreport.p)
assign vcCandoBankStateLineIDFilter = ?
vcCashGLCodeFilter = ?
vtCashPostingDateFromFilter = ?
vtCashPostingDateToFilter = ?
vcCBJournalCodeFilter = ?
vcCBPostingLayerFilter = ?
viCBAccPeriodFilter = ?
viCBAccYearFilter = ?
viCBPostingVoucherFilter = ?
vlCBBreakByDateFilter = ?.
for each tFilter:
case tFilter.tcBusinessFieldName:
when "BankStateLineID_CANDO":U
then assign vcCandoBankStateLineIDFilter = tFilter.tcParameterValue no-error.
when "GLCode":U
then assign vcCashGLCodeFilter = tFilter.tcParameterValue no-error.
when "PostingDate_RANGE":U
then do:
if tFilter.tcOperator = ">=":U
then assign vtCashPostingDateFromFilter = 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 vtCashPostingDateToFilter = 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 "AccPeriod":U
then assign viCBAccPeriodFilter = int(tFilter.tcParameterValue) no-error.
when "AccYear":U
then assign viCBAccYearFilter = int(tFilter.tcParameterValue) no-error.
when "Voucher":U
then assign viCBPostingVoucherFilter = int(tFilter.tcParameterValue) no-error.
when "Journal":U
then assign vcCBJournalCodeFilter = tFilter.tcParameterValue no-error.
when "Layer_CANDO":U
then assign vcCBPostingLayerFilter = tFilter.tcParameterValue no-error.
when "PageBreak":U
then assign vlCBBreakByDateFilter = if tFilter.tcParameterValue = "true":U
then true
else if tFilter.tcParameterValue = "false":U
then false
else vlCBBreakByDateFilter no-error.
end.
end.