Para Obtener Datos de Clientes desde el ARCA

[Edgardo Montenegro]

Estimados, si alguien tiene un ejemplo en VFP de cómo consultar datos de un CUIT obtenidos desde el ARCA

[Husky Software - Marcelo Siles]

Espero sirva:

 

MCUIT=EL cuit del contribuyente sin guiones

 

Thisform.Fe.p1Version=5

 

lResultado=Thisform.fe.P1ObtenerTicketAcceso()

 

IF lResultado=.F.

   Q=MessageBox("Fallo al intentar obtener el Ticket de Acceso al Servidor de la AFIP."+CHR(13)+;

   'Error recibido:'+CHR(13)+ thisform.fe.UltimoMensajeError,48,'Error en servidor AFIP')

   Thisform.Destroy()

ENDIF

 

 

If Thisform.Fe.f1Dummy=.F.

   OK=2

   Q=MessageBox('El webservices de AFIP no está disponible en este momento, intente nuevamente más tarde.'+CHR(13)+;

   Thisform.fe.ultimoMensajeError,48,'Error del servidor de AFIP')

   Thisform.Destroy()

   Thisform.Destroy()

ENDIF

 

bresultado = Thisform.fe.p1GetPersona(MCUIT)

 

If Thisform.fe.UltimoMensajeError = ""

   KNOMCLI=Thisform.fe.p1LeerPropiedad("p1getPersona", "datosgenerales.razonsocial", "", 0, 0)

   KAPELLIDO=Thisform.fe.p1LeerPropiedad("p1getPersona", "datosgenerales.apellido", "", 0, 0)

   KNOMBRE=Thisform.fe.p1LeerPropiedad("p1getPersona", "datosgenerales.nombre", "", 0, 0)

   KLOCCLI=Thisform.fe.p1LeerPropiedad("p1getPersona", "datosGenerales.domicilioFiscal.localidad", "", 0, 0)

   KDOMCLI=Thisform.fe.p1LeerPropiedad("p1getPersona", "datosGenerales.domicilioFiscal.direccion", "", 0, 0)

   KPROVCLI=Thisform.fe.p1LeerPropiedad("p1getPersona", "datosGenerales.domicilioFiscal.descripcionprovincia", "", 0, 0)

   KCODPOS=Thisform.fe.p1LeerPropiedad("p1getPersona", "datosGenerales.domicilioFiscal.codPostal", "", 0, 0)

   DO CASE

   CASE Thisform.fe.p1VerificarImpuesto(20, "activo")='Verdadero' && MONOTRIBUTISTA

      KREGCLI=6

   CASE Thisform.fe.p1VerificarImpuesto(30, "activo")='Verdadero' && RESPONSABLE INSCRIPTO

      KREGCLI=1

   CASE Thisform.fe.p1VerificarImpuesto(32, "activo")='Verdadero' && EXENTO

      KREGCLI=4

   OTHERWISE

      =MESSAGEBOX('No fue posible determinar el tipo de inscripcion del contribuyente',0,'Aviso')

      KREGCLI=3

   ENDCASE

Else

   =MESSAGEBOX("Error General: " + Thisform.fe.UltimoMensajeError)

   OK_CUIT=2

   Thisform.Destroy()

ENDIF  

--
Has recibido este mensaje porque estás suscrito al grupo "Factura electronica y otros servicios Argentina WSAFIPFE" 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 factura-electronica-y-otros-servic...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/factura-electronica-y-otros-servicios-argentina-wsafipfe/deff6610-810c-4d36-9afd-17f2deed4cc1n%40googlegroups.com.