method GetCharacterRangeParameters

Description

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

Parameters

bcFromChar	input-output	character	From Char
bcToChar	input-output	character	To Char
ocOneChar	output	character
oiReturnStatus	output	integer	Return status of the method.

Internal usage

QadFinancials

method BJournalEntry.GetPostingStatusChange

program code (program1/bjournalentry.p)

assign ocOneChar = "":U.
if bcFromChar = ? then assign bcFromChar = "":U.
if bcToChar = ? then assign bcToChar = "":U.

if bcFromChar <> "":U and bcToChar <> "":U and bcFromChar = bcToChar
then do:
    assign
        ocOneChar   = bcFromChar
        bcFromChar  = "":U
        bcToChar    = "":U.
end. /* if the Chars are the same */