project BLF > class BNumber > 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
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 = ?.