method GetAdditionalGLNumbering

Description

Retrieve the Additional GL Numbering Setting of the source entity that was selected

Parameters

iiCompanyID	input	integer
icCompanyCode	input	character
olCompanyPropertyIsAddNrYrly	output	logical	Company Additional GL Numbering Is Defined Yearly
oiReturnStatus	output	integer	Return status of the method.

Internal usage

unused

program code (program6/bcompany.p)

/* =================================================================================== */
/* Retrieve the Additional GL Numbering Setting of the source entity that was selected */
/* =================================================================================== */


/* Initial value for output parameter */
assign olCompanyPropertyIsAddNrYrly = false.

/* Leave when no input parameters where passed */
if (iiCompanyID   = ? or iiCompanyID   = 0) and
   (icCompanyCode = ? or icCompanyCode = '':U)
then return.

/* Exception Handling */
assign oiReturnStatus = -98.

/* Retrieve CompanyPropertyIsAddNrYrly */
<Q-1 run CompanyPropertyByCompanyCode (all) (Read) (NoCache)
   (input iiCompanyID, (CompanyId)
    input icCompanyCode, (CompanyCode)
    input '':U, (DomainCode)
    output dataset tqCompanyPropertyByCompanyCode) in BCompanyProperty >
find first tqCompanyPropertyByCompanyCode no-error.
if available tqCompanyPropertyByCompanyCode
then assign olCompanyPropertyIsAddNrYrly = tqCompanyPropertyByCompanyCode.tlCompanyPropertyIsAddNrYrly.

/* Exception Handling */
if oiReturnStatus = -98
then assign oiReturnStatus = 0.