consulta tipo de contribuyente

[Fabian Gordillo]

Buenas tardes, consulta, ¿como hago para traer por ws desde arca, los datos del contribuyente?

Que función tengo que utilizar?

El desarrollo del sistema esta hecho en vb6.

Gracias.

Fabian Gordillo

[Jose Hochnadel GMail]

Hola

 

Yo uso el método getPersona:

 

        sUrl = "https://aws.afip.gov.ar/sr-padron/webservices/personaServiceA5"

    sEnv = "<soapenv:Envelope xmlns:soapenv=""http://schemas.xmlsoap.org/soap/envelope/"" xmlns:ns1=""http://a5.soap.ws.server.puc.sr/"">"

'    sEnv = "<soapenv:Envelope xmlns:soapenv=""http://schemas.xmlsoap.org/soap/envelope/"" xmlns:ns1=""http://a4.soap.ws.server.puc.sr/"">"

    sEnv = sEnv & "<soapenv:Header/>"

    sEnv = sEnv & "<soapenv:Body>"

    sEnv = sEnv & "<ns1:getPersona>"

    sEnv = sEnv & "<token>" & w_TokenP & "</token>"

    sEnv = sEnv & "<sign>" & w_SignP & "</sign>"

    sEnv = sEnv & "<cuitRepresentada>" & w_CUIT & "</cuitRepresentada>"

    sEnv = sEnv & "<idPersona>" & CUITConsultada & "</idPersona>"

    sEnv = sEnv & "</ns1:getPersona>"

    sEnv = sEnv & "</soapenv:Body>"

    sEnv = sEnv & "</soapenv:Envelope>"

 

Tenes que tener vinculado el servicio:  ws_sr_padron_a5

 

 

AS José A. Hochnadel

Web: www.loopconsultora.com.ar

Contacto:cont...@loopconsultora.com.ar

Soporte:sop...@loopconsultora.com.ar 

Celular: 0341-156187367

--
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+u...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/pyafipws/CAE9rw5_TxLW7iPbQLmN9AzKdhgxzgLrT6E2porfYGug%2BZOQujA%40mail.gmail.com.

Libre de virus.www.avg.com

[Fabian Gordillo]

Gracias, por responder, pero como seria vincular el servicio  ws_sr_padron_a5?

Para ver este debate, visita https://groups.google.com/d/msgid/pyafipws/007f01db87ac%24b14b7a40%2413e26ec0%24%40gmail.com.

[Fabian Gordillo]

Disculpen, habria algun ejemplo para vb6?

Gracias.

El mié, 26 feb 2025 a la(s) 11:58 a.m., Jose Hochnadel GMail (jhoch...@gmail.com) escribió:

Para ver este debate, visita https://groups.google.com/d/msgid/pyafipws/007f01db87ac%24b14b7a40%2413e26ec0%24%40gmail.com.

[estudio...@gmail.com]

Hola Fabian!

Aca esta la documentación https://www.sistemasagiles.com.ar/trac/wiki/PadronContribuyentesAFIP

[Fabian Gordillo]

muchas gracias

Para ver este debate, visita https://groups.google.com/d/msgid/pyafipws/3ff7e978-a4b5-46f5-ab5e-f115c5a8c144n%40googlegroups.com.

[Fabian Gordillo]

Consulta, perdon por mi ignorancia, pero me sale error cuando se ejecuta esta linea:

Set Padron = CreateObject("WSSrPadronA4")

Error "El componente activex no puede crear el objeto"

Alguien me podría indicar que debo hacer?

Gracias.

El mié, 26 feb 2025 a la(s) 1:51 p.m., estudio...@gmail.com (estudio...@gmail.com) escribió:

Para ver este debate, visita https://groups.google.com/d/msgid/pyafipws/3ff7e978-a4b5-46f5-ab5e-f115c5a8c144n%40googlegroups.com.

[Jose Hochnadel GMail]

Hola

 

El servicio Padrón A4 fue deshabilitado.

 

Tenes que usar el servicio:  ws_sr_padron_a5

Para ver este debate, visita https://groups.google.com/d/msgid/pyafipws/CAE9rw588X41Jx20yNVsh%2Bkex%3DE3D7Y7DKT-MTfKPo96pA1k57Q%40mail.gmail.com.

Libre de virus.www.avg.com

[estudio...@gmail.com]

Hola Fabian yo lo hago asi, de todas formas tenes que instalar el modulo ws_sr_padron

' Crear la interfaz COM
    Set Padron = CreateObject("WSSrPadronA5")
   
'    Debug.Print Padron.Version
'    Debug.Print Padron.InstallDir

    'Crear objeto interface Web Service Autenticación y Autorización
    Set WSAA = CreateObject("WSAA")
    ta_padron = WSAA.Autenticar("ws_sr_padron_a5", Path + Certificado, Path + ClavePrivada, "https://wsaa.afip.gov.ar/ws/services/LoginCms?wsdl")

    Padron.SetTicketAcceso ta_padron
    Padron.Token = WSAA.Token
    Padron.Sign = WSAA.Sign
    Padron.cuit = eCUIT 
   
    ok = Padron.Conectar("", wsdl = "https://aws.afip.gov.ar/sr-padron/webservices/personaServiceA5?wsdl")
   
    ok = Padron.Consultar(cuit)