method GetFirstNumber

Parameters

iiCompanyId	input	integer
iiNumbrYear	input	integer
icNumbrType	input	character
icNumbrStatus	input	character
oiNumbr	output	integer
olNumbrIsActive	output	logical
oiReturnStatus	output	integer	Return status of the method.

Internal usage

BLF

method BNumber.GetNumber

program code (program1/bnumber.p)

/* Get the first RELEASED Number of this type */
<Q-95 run FirstNumber (first) (Read) (NoCache)
   (input iiCompanyId, (CompanyId)
    input iiNumbrYear, (NumbrYear)
    input icNumbrType, (NumbrType)
    input icNumbrStatus, (NumbrStatus)
    output dataset tqFirstNumber) in BNumber>

find first tqFirstNumber no-error.
if available tqFirstNumber
then do:
    assign oiNumbr         = tqFirstNumber.tiNumbr
           olNumbrIsActive = tqFirstNumber.tlNumbrIsActive.           
end.
else assign oiNumbr         = ?
            olNumbrIsActive = ?.