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)

/****************************************************************************************/
/* 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.