Criei um objecto COM para ser exposto em WebService com o seguinte programa


DEFINE CLASS WSBCSelect AS SESSION OLEPUBLIC


cMsgErr = ''
cCodXlm = ''
nDeuPau = 0

PROCEDURE GetCursor( cInstrSQL as String ) AS Integer

LOCAL cXML AS STRING

SET TALK OFF
SET SAFETY OFF
SET EXCLUSIVE OFF
SET DEFAULT TO "D:\desenv\dados"

cXML = ''
This.cMsgErr = ''
THIS.cCodXlm = ''
This.nDeuPau = 0

&cInstrSQL

IF This.nDeuPau = 0
=CURSORTOXML( ALIAS(), cXML )
This.cCodXml = cXML
ENDIF

CLOSE DATABASES ALL

RETURN This.nDeuPau

ENDPROC


PROCEDURE ERROR(nError, cMethod, nLine)
THIS.nDeuPau = -1
THIS.cMsgErr = 'Erro nro '+ TRANSFORM( nError )+ ' Metodo '+ ;
cMethod + 'Linha: '+ TRANSFORM( nLine )
ENDPROC


ENDDEFINE



1. O programa esta correto ?
2. Quando faço o teste:

loWS = CREATEOBJECT("MSSOAP.SoapClient30")
loWS.MSSOAPInit("http://DATAFOX/mydll/WSBCSelect.WSDL" )
? loWS.GetCursor( 'SELECT * FROM MINHATABELA' )


Esta acontecendo o seguite erro executo o teste

OLE IDispatch exception code 0 from Client: Client:An unanticipated error occurred during the processing of this request. HRESULT=0x800A13BE - Client:Sending the Soap message failed or no recognizable response was received HRESULT=0x800A13BE - Client:Unsp


Algem pode me ajudar ?

[]s Sergio