project BLF > class BNumber > method GetFirstNumber


Parameters


iiCompanyIdinputinteger
iiNumbrYearinputinteger
icNumbrTypeinputcharacter
icNumbrStatusinputcharacter
oiNumbroutputinteger
olNumbrIsActiveoutputlogical
oiReturnStatusoutputintegerReturn 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 = ?.