method CheckAdditionalGLNumbering

Description

Check Additional GL Numbering toggle of the company

Parameters

icCompanyCode	input	character
olIsAddGLNbr	output	logical
iiCompanyID	input	integer
oiReturnStatus	output	integer	Return 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.