project QadFinancials > class BCOAMaskCC > method InitUI


Parameters


oiGLSharedSetIdoutputinteger
oiDivSharedSetIdoutputinteger
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program9/bcoamaskcc.p)

/* Retrieve the GL and Division Shared Set */
<I-1 {bFcOpenInstance
     &CLASS           = "Session"}>
<M-2 run GetIntegerValue
   (input  'SharedSetForGL':U (icName), 
    output oiGLSharedSetId (oiValue), 
    output viFcReturnSuper (oiReturnStatus)) in Session>
if viFcReturnSuper <> 0
then oiReturnStatus = viFcReturnSuper.
if oiReturnStatus < 0
then do:
    <I-7 {bFcCloseInstance
         &CLASS           = "Session"}>
    return.
end.

<M-5 run GetIntegerValue
   (input  'SharedSetForDIVISION':U (icName), 
    output oiDivSharedSetId (oiValue), 
    output viFcReturnSuper (oiReturnStatus)) in Session>
if viFcReturnSuper <> 0
then oiReturnStatus = viFcReturnSuper.
if oiReturnStatus < 0
then do:
    <I-9 {bFcCloseInstance
         &CLASS           = "Session"}>
    return.
end.

<I-10 {bFcCloseInstance
     &CLASS           = "Session"}>