project QadFinancials > 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)

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