Quiero usar WinHttp.WinHttpRequest.5.1

825 views
Skip to first unread message

vcarl...@gmail.com

unread,
Jun 7, 2021, 9:45:08 AM6/7/21
to Comunidad de Visual Foxpro en Español
Buenos dias, si no me mintieron con esto podria saber si la web service de afip funciona para emitir facturas electronicas. Hace un rato el servicio estaba caido y este prg que arme siempre me devulve ok que estoy haciendo mal.

FUNCTION ctrl_wsfe

loHTTP = CREATEOBJECT('WinHttp.WinHttpRequest.5.1')
loHTTP.option (9) = 2720
loHTTP.open("GET","https://servicios1.afip.gov.ar/wsfev1/service.asmx?wsdl")
loHTTP.Send()

IF ALLTRIM(loHTTP.StatusText) = 'OK'
   RETURN .t.
ELSE
*   ? loHTTP.Status  && codigo error
*   ? loHTTP.StatusText  && texto codigo error
*   ? loHTTP.GetAllResponseHeaders()
   RETURN .f.
ENDIF

ENDFUNC

Yo esta funcion la llamo antes de pedir el cae.

Desde ya muchas gracias.

Carlos Veron

Afpsistemas - Fernando Maggi

unread,
Jun 7, 2021, 1:05:39 PM6/7/21
to publice...@googlegroups.com

Hola Carlos,

El problema en estos momentos es que el servidor no está caído, pero no se puede realizar facturas electrónicas  … en conclusión tu código solo serviría si la página es inaccesible.

 

Saludos,

Fernando.

--
Visita el 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/d0210094-3be1-4bad-a77f-d1f7bed5f24an%40googlegroups.com.

mapner

unread,
Jun 7, 2021, 1:09:29 PM6/7/21
to Comunidad de Visual Foxpro en Español
Hola, alguien sabe algo de este cuelgue de AFIP...? parece que desde temprano que está colgado...

HernanCano

unread,
Jun 7, 2021, 2:48:05 PM6/7/21
to Comunidad de Visual Foxpro en Español
Mientras esperas, quizá puedas intentar con el sgte cambio:

IF upper(ALLTRIM(loHTTP.StatusText)) == 'OK'
     RETURN .t.
ELSE
*   ? loHTTP.Status  && codigo error
*   ? loHTTP.StatusText  && texto codigo error
*   ? loHTTP.GetAllResponseHeaders()
    RETURN .f.
ENDIF

Y nos vas contando.

vcarl...@gmail.com

unread,
Jun 7, 2021, 3:00:18 PM6/7/21
to Comunidad de Visual Foxpro en Español
Muchas gracias a todos, por responder.
Ok Fernando pense que la pagina estaba caida y mi codigo no servia.

Saludos

Carlos Veron

Damian Lana

unread,
Jun 7, 2021, 3:38:46 PM6/7/21
to publice...@googlegroups.com
La AFIP esta caida no se pueden hacer fc webservice o on line desde las 7.30 hs..  

Sldos 

--
Visita el 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.

Marcos Godoy

unread,
Jun 8, 2021, 11:15:13 AM6/8/21
to publice...@googlegroups.com
Ayer a la tarde se rompió una  de datos en afip, ya la restauraron hoy temprano




--
Marcos E. D. Godoy
Cel  11 2659 4715

Marcos Godoy

unread,
Jun 8, 2021, 11:15:40 AM6/8/21
to publice...@googlegroups.com
perdón una base de datos

Reply all
Reply to author
Forward
0 new messages