project QadFinancials > class BLayer > method InitInstance

Description

This method can be extended with code to execute when an instance of a business class is started.

PreCondition

This method is executed when a new instance of the business class is started, or when a draft instance is opened (in that case a new instance is started which is a copy of the draft instance).


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program/blayer.p)

<ANCESTOR-CODE>
/*
/*Public Data Items of BLayerType*/
assign vcDataList = "vcOFFICIAL,vcMANAGEMENT,vcTRANSIENT,vcListLayerTypeCode,vcListLayerTypeTranslated":U.
<I-4 {bFcStartAndOpenInstance
            &CLASS              = "BLayerType"}>                              
<M-6 run GetPublicData (input  vcDataList (icDataList), 
                        output vcValues (ocValues), 
                        output viFcReturnSuper (oiReturnStatus)) in BLayerType>
<I-5 {bFcCloseAndStopInstance
            &CLASS           = "BLayerType"}>
do viIndex = 1 to num-entries(vcDataList):
    case entry(viIndex, vcDataList):
        when "vcOFFICIAL":U 
        then assign vcOFFICIAL = entry(viIndex, vcValues, chr(3)). 
        when "vcMANAGEMENT":U 
        then assign vcMANAGEMENT = entry(viIndex, vcValues, chr(3)). 
        when "vcTRANSIENT":U 
        then assign vcTRANSIENT = entry(viIndex, vcValues, chr(3)). 
        when "vcListLayerTypeCode":U
        then assign vcListLayerTypeCode = entry(viIndex, vcValues, chr(3)).
        when "vcListLayerTypeTranslated":U
        then assign vcListLayerTypeTranslated = entry(viIndex, vcValues, chr(3)).
    end case.
end.
*/