cambio en archivo soap, consultar rnc

[rjdc...@gmail.com]

antes con este codigo funcionaba a la perfeccion

Wrnc = '130349721'
TEXT TO sXMLRequest  NOSHOW TEXT PRETEXT 7
     <soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope" xmlns:dgii="http://dgii.gov.do/">
          <soap:Header/>
          <soap:Body>
               <dgii:GetContribuyentes>
                    <dgii:value><<Wrnc>></dgii:value>
                    <dgii:patronBusqueda>0</dgii:patronBusqueda>
                    <dgii:inicioFilas>0</dgii:inicioFilas>
                    <dgii:filaFilas>0</dgii:filaFilas>
                    <dgii:IMEI>?</dgii:IMEI>
               </dgii:GetContribuyentes>
          </soap:Body>
     </soap:Envelope>
ENDTEXT
             
TRY    
   oHTTP = CREATEOBJECT('Msxml2.ServerXMLHTTP.6.0')
   oHTTP.OPEN("POST","http://dgii.gov.do/wsMovilDGII/WSMovilDGII.asmx", .F.)
   oHTTP.setRequestHeader("Content-Type", "text/xml; charset=utf-8")
   oHTTP.setRequestHeader("Content-Length",STR(LEN(sXMLRequest)))
   oHTTP.setRequestHeader("SOAPAction","http://dgii.gov.do/GetContribuyentes")
   oHTTP.SEND(sXMLRequest)
CATCH TO loErr
   WAIT Windows "Error: " + TRANSFORM(loErr.ErrorNo) +  " Mensaje: " + loErr.Message
ENDTRY
sRespuestaWS =  SUBSTR(oHTTP.responseText,AT(Wrnc,oHTTP.responseText),250)
sRespuestaWS = SUBSTR(sRespuestaWS,AT('RGE_NOMBRE',sRespuestaWS)+13,100)
Wnombre = SUBSTR(sRespuestaWS,1,AT('NOMBRE_COMERCIAL',sRespuestaWS)-4)
aa = STRTOFILE(oHTTP.responseText,"d:\uno.txt",1)

WAIT windows "Repuesta "+SUBSTR(ALLTRIM(oHTTP.responseText),1,100)

recientemente dejo de funcionar. 

WSMovilDGII Web Service

aqui veo unos cambios en el formato, alguien me podia ilustar un poco.

[Marcelo Barberis]

puedes probas de esta manera

*-- Creamos la instancia del objeto XMLHTTP
TRY
oHTTP = CREATEOBJECT('Microsoft.XMLHTTP')
oHTTP.OPEN("POST", lcURL, .F.)

oHTTP.setRequestHeader("Content-Type", "text/xml;charset=utf-8")

oHTTP.setRequestHeader("Apikey ","TokenApi " + lcToken)    
oHTTP.SEND(lcXMLRequest)

CATCH TO loErr
llOk = .F.
lcError = "Error: " + TRANSFORM(loErr.ErrorNo) +  " Mensaje: " + loErr.Message
MESSAGEBOX(lcError +CHR(13)+ lcConexSIN +CHR(13)+ lcConexInt +CHR(13)+CHR(13)+ lcErrorSolicitud,64,"Error")
ENDTRY

--
Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/32b79969-9a90-4b9d-babe-a707c9cfb971n%40googlegroups.com.

--

Marcelo Barberis Gutierrez
Sistemas Informaticos
Villa Montes - Bolivia
Telef.: +591-76830544

[António Tavares Lopes]

En el método Open, utilice https en lugar de http.

oHTTP.OPEN("POST","https://dgii.gov.do/wsMovilDGII/WSMovilDGII.asmx", .F.)

[rjdc...@gmail.com]

gracias antonio y alex. con el cambio de antonio funciono.

una consulta de novato. como te diste cuenta del cambio. porque el cambio. asi lo tomo en cuenta en otras consultas