project QadFinancials > class BPeriod > method GetClosingMaskDetail

Description

get basic details about closing mask


Parameters


biCMask_IDinput-outputinteger
bcCMaskCodeinput-outputcharacter
ocCMaskDescriptionoutputcharacter
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program6/bperiod.p)

/* normalise input parameters */
if biCMask_ID     = 0    then assign biCMask_ID     = ?.
if bcCMaskCode    = '':U then assign bcCMaskCode    = ?.

/* Precondition */
if biCMask_ID  = ? and
   bcCMaskCode = ?
then return.

/* get details of the closing mask */
<Q-52 run CMaskPrim (all) (Read) (NoCache)
   (input viCompanyId, (CompanyId)
    input biCMask_ID, (CMask_ID)
    input bcCMaskCode, (CMaskCode)
    output dataset tqCMaskPrim) in BCMask>

find first tqCMaskPrim no-error.
if available tqCMaskPrim
then assign biCMask_ID         = tqCMaskPrim.tiCMask_ID
            bcCMaskCode        = tqCMaskPrim.tcCMaskCode
            ocCMaskDescription = tqCMaskPrim.tcCMaskDescription.