METHOD INIT( uoOwner, undDate, uloSelfDestruct ) CLASS TS_DateTimeFromVariant
LOCAL cAccessTypeList AS STRING
TSTrace Enter CREATE
IF LOGIC( _CAST, _AND( SELF:_ObjectStat1, TS_OBJSTAT1_ININIT ; ...
... ) )
SELF:_ObjectStat1+=TS_OBJSTAT1_COUNTVALUE
IF SELF:_SystemTime==NULL_PTR
SELF:_SystemTime:=MemAlloc( _SIZEOF( _WinSYSTEMTIME ; ...
... ) )
IF SELF:_SystemTime==NULL_PTR
TSTrace Fatal "SELF:_SystemTime:=MemAlloc(_SizeOf(_WinSYSTEMTIME))==NULL_PTR"
SELF:InvalidateObject( )
END
END
IF SELF:_SystemTime<>NULL_PTR
cAccessTypeList:=TS_AccessTypeList( uoOwner, undDate )
DO CASE
CASE cAccessTypeList=="UU" .OR. cAccessTypeList=="OU"
SUPER