Comentarios acerca de excepciones en Constancia Inscripción Alcance 5

[Ariel Stechina]

Estoy usando desde hace unos días la nueva constancia alcance 5 en producción sin problemas. 

Para mi necesidad, (en vb6) controlo que la propiedad Padron.Excepcion sea = "" para poder seguir, ya que por ahí vienen las inconsistencias que devuelve AFIP. A fin de probar los distintos mensajes de la interfaz conseguí algunos cuits "non sanctos" y en los que tienen demasiados "problemitas" el texto de la constancia en pdf es mayor que el que devuelve la excepcion, no sé si esto es un problema realmente pero sería bueno que todo el texto sea el mismo.

Cuits por si quieren probar: 30708812486 ó 30707214666 ó este otro 27225401263

[Matias Aya]

Estoy actualizado a la version 1.03b de ws_sr_padron.py y no me funciona el de Alcance 5; usted nos podra dar un ejemplo de invocacion al mismo. De hecho el de Alcance 4 me dejo de funcionar.

[Marce Romagnoli]

Se han publicado unos cuits para pruebas en http://www.afip.gob.ar/ws/ws_sr_padron_a4/datos-prueba-padron-a4.txt

CUITes, Personas Fisicas:
20002307554
20002460123
20188192514
20221062583
20200083394
20220707513
20221124643
20221064233
20201731594
20201797064

CUILes, Personas Fisicas:
20203032723
20168598204
20188153853
20002195624
20002400783
20187850143
20187908303
20187986843
20188027963
20187387443

CUITes, Personas Juridicas:
30202020204
30558515305
30558521135
30558525025
30558525645
30558529535
30558535365
30558535985
30558539565
30558564675

El miércoles, 3 de enero de 2018, 14:54:19 (UTC-3), Ariel Stechina escribió:

[Ariel Stechina]

     If xAlcancePadron = 5 Then

        Call CargarTokenSign("ws_sr_constancia_inscripcion")

    Else

        Call CargarTokenSign("ws_sr_padron_a4")

    End If

    

      If xAlcancePadron = 5 Then

            Set Padron = CreateObject("WSSrPadronA5")

        Else

            Set Padron = CreateObject("WSSrPadronA4")

        End If

        Padron.Token = Token

        Padron.Sign = Sign

        Padron.CUIT = CuitEmisor

       If xAlcancePadron = 5 Then

            urlWebService = "https://aws.afip.gov.ar/sr-padron/webservices/personaServiceA5?wsdl"

      else

            urlWebService = "https://aws.afip.gov.ar/sr-padron/webservices/personaServiceA4?wsdl"  

      End If

      ok = Padron.Conectar("", urlWebService)

      ok = Padron.Consultar(CUITParaAnalizar)

       If Padron.Excepcion <> "" Then

               Set Padron = Nothing

               MsgBox Padron.Excepcion, vbExclamation, "Atención"

              Exit Sub

       End If

Lo que cambia es: 

*token y sign que se generan para cada servicio distinto 

*La asignación del Componente

*En el alcance 5 las excepciones son los mensajes de inconsistencias del cuit analizado

*Hay que relacionar ambos webservices al certificado electrónico con la clave fiscal del que consulta (generalmente la empresa) a los siguientes:

Servicio Consulta Padron A4

ó

Consulta de constancia de inscripción

--

Proyecto PyAfipWs Factura Electrónica Libre y temas relacionados AFIP ARBA ANMAT:
http://www.pyafipws.com.ar/ - http://www.github.com/reingart/pyafipws - http://www.sistemasagiles.com.ar/
---
Has recibido este mensaje porque estás suscrito al grupo "PyAfipWs Factura Electrónica Libre y temas relacionados AFIP ARBA ANMAT" 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 pyafipws+unsubscribe@googlegroups.com.
Para publicar en este grupo, envía un correo electrónico a pyaf...@googlegroups.com.
Visita este grupo en https://groups.google.com/group/pyafipws.
Para acceder a más opciones, visita https://groups.google.com/d/optout.

[Ariel Stechina]

Probé la mayoría de CUITs del mensaje anterior y hay varios que están correctos.

Queda ver por qué la interfaz en los cuits de ejemplo que puse en el primer mail no devuelve todo el texto que si aparece en la constancia. 

[Matias Aya]

Con version "1.03b" funciona correcto WSSrPadronA5, pero no asi WSSrPadronA4
Con version "1.02b" funciona correcto WSSrPadronA4

Tal vez sea otra cosa que este faltando.

Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a pyafipws+u...@googlegroups.com.

[Ariel Stechina]

yo uso 1.03b y funciona bien alcance 4 y 5

Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a pyafipws+unsubscribe@googlegroups.com.

[Matias Aya]

No me doy cuenta que me puede estar faltando, estaba usando versión 1.02b con alcance 4 sin problemas en producción y cuando actualice a versión 1.03b me anduvo alcance 5 pero me dejó de andar alcance 4. En el retorno de error me da uso no válido de null al llamar al consultar de wspadronA4.

[Matias Aya]

El error estaba en que la declaracion de variable OK estaba como Boolean, y no como Variant; entonces daba uno no valido de null:

OK = Padron.Consultar(CUIT)

Para la version 1.02 no fallaba consulta de padron A4 pero si para padron A5 en version 1.03. Ahi quedo solucionado.