FoxPro/Visual FoxPro - Urgente: Error: 1426

 
Vista:

Urgente: Error: 1426

Publicado por Flashnet (4 intervenciones) el 26/09/2008 10:34:43
Buenas, tengo un problema y no consigo solucionarlo al ejecutar el siguiente codigo que pongo mas abajo me da este error: Error: 1426 - OLE error code 0x80020006: Nombre desconocido. Es muy urgente y no logro saber que es lo que pasa.
Gracias

CODIGO

****VAR WS*****

LOCAL Identificar AS String
LOCAL Usuario AS String
LOCAL Clave AS String
LOCAL Descripcion AS String
LOCAL Mensaje AS String
LOCAL Telefono AS String
LOCAL Remitente As String
DIMENSION LTELEFONOS(1)
****VAR WS*****

Identificar ="Carlos"
Usuario="Carlos_SOAP"
Clave="123456"
Descripcion="SMS1"
STORE '715769511'to LTELEFONOS(1)
Mensaje = "Weeeee funciona"
Remitente = "Paco porras"

LOCAL loMWeb AS "XML Web Service"

LOCAL loException, lcErrorMsg, loWSHandler
TRY
loWSHandler = NEWOBJECT("WSHandler",IIF(VERSION(2)=0,"",HOME()+"FFC")+"_ws3client.vcx")

loMWeb = loWSHandler.SetupClient("https://sistem.dominio.com/wsMweb-trust/services/MWeb?wsdl", "IWsMWebService", "MWeb")

leResultado = loMWeb.dispatchWithSender(Identificar,Usuario,Clave,Descripcion,LTELEFONOS,Mensaje,Remitente)


CATCH TO loException
lcErrorMsg="Error: "+TRANSFORM(loException.Errorno)+" - "+loException.Message
DO CASE
CASE VARTYPE(loMWeb)#"O"

CASE !EMPTY(loMWeb.FaultCode)

lcErrorMsg=lcErrorMsg+CHR(13)+loMWeb.Detail
OTHERWISE

ENDCASE

MESSAGEBOX(lcErrorMsg)
FINALLY
ENDTRY
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Urgente: Error: 1426

Publicado por OrlandoRios (6 intervenciones) el 29/09/2008 17:31:27
Hola, prueba con poner en el método 'Refresh' del objeto creado 'NODEFAULT'
Espero te ayude.

OrlandoRios.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar