project QadFinancials > 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)
/****************************************************************************************/
/* This method overrules the ancestor as we are using direct db access to get the numbr */
/* Note ANCESTOR code is skipped */
/****************************************************************************************/
<I-87 {READDIRECTDBACCESS
&READTABLENAMES = "'Numbr':U"}>
assign oiNumbr = ?
olNumbrIsActive = ?.
for first Numbr fields (Numbr NumbrIsActive) where
Numbr.Company_ID = iiCompanyId AND
Numbr.NumbrYear = iiNumbrYear AND
Numbr.NumbrType = icNumbrType AND
Numbr.NumbrStatus = icNumbrStatus
no-lock
by Numbr.Numbr :
assign oiNumbr = Numbr.Numbr
olNumbrIsActive = Numbr.NumbrIsActive.
end.