project QadFinancials > class BJournalEntry > method GetDateRangeParameters

Description

If the values of a date range are the same or if only one date is defined in the range, then set the range to empty and use only one date. In that case the index will be used in the query.


Parameters


btFromDateinput-outputdateFrom Date
btToDateinput-outputdateTo Date
otOneDateoutputdate
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BJournalEntry.GetPostingStatusChange


program code (program1/bjournalentry.p)

assign otOneDate = ?.
if btFromDate <> ? and btToDate <> ? and btFromDate = btToDate
then do:
    assign
        otOneDate   = btFromDate
        btFromDate  = ?
        btToDate    = ?.
end. /* if the dates are the same */

message "dates " otOneDate btFromDate btToDate.