method GetCirecCode

Parameters

ocCIRECCode	output	character
oiReturnStatus	output	integer	Return status of the method.

Internal usage

QadFinancials

method BExpenseNote.APIExpNoteRegister

program code (program6/bexpensenote.p)

<Q-1 run GLByGLSystemType (all) (Read) (NoCache)
          (input viCompanyId, (CompanyId)
           input {&GLSYSTEMTYPE-CIREC}, (GLSystemTypeCode)
           input {&GLTYPECODE-SYST}, (GlTypeCode)
           input ?, (GlIsDivisionAccount)
           output dataset tqGLByGLSystemType) in BGL >
find first tqGLByGLSystemType no-error.
if available tqGLByGLSystemType
then assign ocCIRECCode = tqGLByGLSystemType.tcGLCode.