project QadFinancials > class BCompanyProperty > method CheckAdditionalGLNumbering

Description

Check Additional GL Numbering toggle of the company


Parameters


icCompanyCodeinputcharacter
olIsAddGLNbroutputlogical
iiCompanyIDinputinteger
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BJournalEntry.CheckAdditionalGLNumbering
method BYearClosing.InitialValues
method BYearClosing.ValidateComponentAll


program code (program1/bcompanyproperty.p)

if iiCompanyID = ? or iiCompanyID <= 0
then do:
    <Q-14 run CompanyPropertyByCompanyCode (all) (Read) (NoCache)
       (input ?, (CompanyId)
        input icCompanyCode, (CompanyCode)
        input ?, (DomainCode)
        output dataset tqCompanyPropertyByCompanyCode) in BCompanyProperty >
end.
else
do:
    <Q-74 run CompanyPropertyByCompanyCode (all) (Read) (NoCache)
       (input iiCompanyID, (CompanyId)
        input ?, (CompanyCode)
        input ?, (DomainCode)
        output dataset tqCompanyPropertyByCompanyCode) in BCompanyProperty >
end.
    
for first tqCompanyPropertyByCompanyCode:
   assign olIsAddGLNbr = tqCompanyPropertyByCompanyCode.tlCompanyPropertyIsAddGLNbr.
end.