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
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


0