Que estoy haciendo mal que cuando instancio la clase no me crea el objeto OLE

[Carlos Ortiz]

#include "Xailer.ch"
CLASS Wsfe FROM TComponent
DATA oWsfe INIT NIL
METHOD New( oParent ) CONSTRUCTOR

PUBLIC:
DATA lInstalled INIT .F. READONLY
ENDCLASS

//------------------------------------------------------------------------------
METHOD New( oParent ) CLASS Wsfe
::Super:Create( oParent )
TRY
::oWsfe := Win_OleCreateObject( Self,'MSXML2.XMLHTTP' )
IF ValType( ::oObj ) == "O"
::lInstalled := .T. // NUNCA ENTRA POR ACA
ENDIF
CATCH
::lInstalled := .F.
END
LogDebug(::lInstalled)
RETURN Self

No logro hacer cargar ese win_olecreateobject, si lo hago directamente usando una variable local anda joya, gracias.

[jfgimenez]

Carlos,

parece que estás usando dos DATAs distintas. En ::oWsfe cargas el objeto, pero después compruebas ::oObj.

En cualquier caso, te aconsejo que utilices directamente la clase TOleAuto, en vez de llamar a Win_OleCreateObject().

[Carlos Ortiz]

Tenes razón y ese Self tampoco va, disculpa mi molestia es que estoy con lo de Factura electrónica acá en Argentina y tengo el cerebro quemado!

Van cervezas José!