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
oiReturnStatus | output | integer | Return 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.
*/