>>> ******************************************************************************* >>> PROCEDURE InitializeObject(ObjectName) >>> >>> IF PEMSTATUS(THIS,ObjectName,5) >>> THIS.ObjectName = NULL >>> ELSE >>> ADDPROPERTY(THIS,ObjectName) >>> ENDIF >>> >>> ENDPROC >>>>>
>>*** Lets say that class instance is named MyClass1 in the form: >> >>thisform.MyClass1.ObjectName.DoSomething && If ObjectName is object >>>
> THIS.InitializeObject("oEncodingCharacters") > THIS.InitializeObject("oComponentSeparator") > THIS.InitializeObject("oRepetitionSeparator") > THIS.InitializeObject("oEscapeCharacter") > THIS.InitializeObject("oSubcomponentSeparator") > > ADDPROPERTY(THIS.oSendData, 'Company', Company) > ADDPROPERTY(THIS.oSendData, 'DataExchangeType', DataExchangeType) > ADDPROPERTY(THIS.oSendData, 'DataArea', DataArea) > ADDPROPERTY(THIS.oSendData, 'strProcessData', strProcessData) >
ADDPROPERTY(THIS.oSendData, 'Company', Company) ADDPROPERTY(THIS.oSendData, 'DataExchangeType', DataExchangeType) ADDPROPERTY(THIS.oSendData, 'DataArea', DataArea) ADDPROPERTY(THIS.oSendData, 'strProcessData', strProcessData)What is oSendData?