INIT
(Available in 01 TS COM - TS_COM_IClassFactory)
Source
METHOD INIT( uoIOwner, usymNameSym, usymcManufacture ) CLASS TS_IClassFactory
LOCAL cValTypeList AS STRING
LOCAL lInit AS LOGIC
TSTrace Enter CREATE
IF LOGIC( _CAST, _AND( SELF:_ObjectStat1, TS_OBJSTAT1_ININIT ; ...
... ) )
SELF:_ObjectStat1+=TS_OBJSTAT1_COUNTVALUE
cValTypeList:=TS_AccessTypeList( uoIOwner, usymNameSym, usymcManufacture )
lInit:=TRUE
DO CASE
CASE CharPos( cValTypeList, 1 )=="U"
// Do nothing
CASE CharPos( cValTypeList, 1 )=="O"
// Do nothing
OTHERWISE
lInit:=FALSE
END
DO CASE
CASE CharPos( cValTypeList, 2 )=="U"
// Do nothing
CASE CharPos( cValTypeList, 2 )