Consulta de RUT/NIT en VFP

[jose carlos aguilar]

Adaptando un ejemplo que encontre en la Red, les comparto las instrucciones para consultar el nit y cedula directamente de la DIAN.

DO Cons_Nit_Col WITH '70118597'&&'900411455'

FUNCTION Cons_Nit_Col

PARAMETERS cNit

LOCAL ioIE as InternetExplorer.Application, llSuccess as Logical, lFind as Boolean

lFind=.f.

ioIE = CreateObject("InternetExplorer.Application")

*ioIE.Visible = .T.

llSuccess =ioIE.Navigate("https://muisca.dian.gov.co/WebRutMuisca/DefConsultaEstadoRUT.faces")

Esperar(ioIE)

Wait Window "Espere un momento..." Timeout 2 &&umentar dependiendo dependiendo de la velocidad de internet

if vartype(ioIE.Document.getElementById("vistaConsultaEstadoRUT:formConsultaEstadoRUT:numNit"))="O"

ioIE.Document.all.Item("vistaConsultaEstadoRUT:formConsultaEstadoRUT:numNit").Value = cNit

cc=ioIE.Document.getElementbyId("vistaConsultaEstadoRUT:formConsultaEstadoRUT:btnBuscar").click("return validarNit();")

Esperar(ioIE)

if vartype(ioIE.Document.getElementById("vistaConsultaEstadoRUT:formConsultaEstadoRUT:dv"))="O"

cDv = ioIE.Document.getElementbyId("vistaConsultaEstadoRUT:formConsultaEstadoRUT:dv").innertext

cEstado = ioIE.Document.getElementbyId("vistaConsultaEstadoRUT:formConsultaEstadoRUT:estado").innertext

if vartype(ioIE.Document.getElementbyId("vistaConsultaEstadoRUT:formConsultaEstadoRUT:razonSocial"))="O"

cRazonSocial = ioIE.Document.getElementbyId("vistaConsultaEstadoRUT:formConsultaEstadoRUT:razonSocial").innertext

ELSE

cprimerApellido =ioIE.Document.getElementbyId("vistaConsultaEstadoRUT:formConsultaEstadoRUT:primerApellido").innertext

csegundoApellido=ioIE.Document.getElementbyId("vistaConsultaEstadoRUT:formConsultaEstadoRUT:segundoApellido").innertext

cprimerNombre =ioIE.Document.getElementbyId("vistaConsultaEstadoRUT:formConsultaEstadoRUT:primerNombre").innertext

cotrosNombres =ioIE.Document.getElementbyId("vistaConsultaEstadoRUT:formConsultaEstadoRUT:otrosNombres").innertext

cRazonSocial = cprimerApellido + " " + csegundoApellido + " " + cprimerNombre + " " + cotrosNombres

endif

MESSAGEBOX(cDv + "|"+cEstado + "|" + cRazonSocial)

ioIE.Quit 

ELSE

ioIE.Quit

MESSAGEBOX("NIT no encontrado")

    

ENDIF

ELSE

MESSAGEBOX("Tiempo excedido al cargar, intente otra vez")

ioIE.Quit

ENDIF

ENDFUNC

FUNCTION Esperar(oIE)

ObjTexto ='Cargando pagina .'

Do While oIE.busy Or oIE.readystate!=4

Wait Window ObjTexto Time(0.3)

ObjTexto= ObjTexto+' .'

ENDDO

ENDFUNC

Se que a varios foxeros colombianos les servirá.

Saludos.Ing, José Aguilar

+51948063119

www.Aguilarsoft.com

[Gustavo Torres]

Alguien tiene algo parecido pero para Argentina 

--
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/9810404f-d9a4-425e-880a-6d8ecaed2b79%40googlegroups.com.

[Alejandro Garcia Garay]

Grande José, excelente rutina. Funciona correctamente y me sirve mucho para ciertas validaciones que no sabia como hacer.

Saludos.

[Oscar Bonet]

funciona excelente.  Gracias por tu aporte.

Saber omo se cosnultaria una factura electronica emitida a la Dian?

Oscar G. Bonet O.

--

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/9810404f-d9a4-425e-880a-6d8ecaed2b79%40googlegroups.com.

De conformidad con el decreto 2242 de Noviembre de 2015, nuestra Compañía está implementando la Facturación Electrónica y según comunicado  100202211-410 del 29 de Junio de 2018 emitido por la DIAN, se nos fijó el 1 de diciembre de 2018 para la emisión de la factura electrónica.

En consecuencia, hemos destinado la cuenta de correo electrónico: 

e-fac...@cialta.com      para recepción y emisión de facturas electrónicas.

Habeas Data: La Compañía Internacional de Alimentos Agropecuarios CIALTA S.A.S. cumple con los requerimientos de la Superintendencia de Industria y Comercio de Colombia sobre el manejo de información de datos personales, lo cual implica tener políticas claras de tratamiento de Base de Datos que usted puede consultar: Politicas Habeas Data 

Si desea tener más información sobre el particular, puede escribirnos al correo habea...@cialta.com 

[jose carlos aguilar]

La DIAN tiene un metodo  GetXmlByDocumentKey , pero la forma de consumir, es a través de una petición a los ws  de DIAN con autenticación por certificado.

Todo eso ya corresponde a la Implementacion de Facturación electrónica.

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

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/9810404f-d9a4-425e-880a-6d8ecaed2b79%40googlegroups.com.

[jose carlos aguilar]

Alli explico un poco el proceso de FE DIAN https://www.youtube.com/watch?v=b7ARtnFE1YE

[Oscar Bonet]

Hola jose Carlos.

Como me puedo comunicar contigo para asesorías al respecto de este tema?

es que te pagna web no tiene informacion de contacto, ty el telefono inidcado tampoco me ofrece forma de contacto en Colombia.

Gracias y en espera de sus comentarios al respecto.

Atentamente:

Oscar 

Tel:3156496750

Bogotá - Colombia

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/a405ecf0-774b-4934-9c25-d69b5797783e%40googlegroups.com.

[HernanCano]

Muy bien, José Carlos.

Es excelente y funciona muy bien.

Muchísimas gracias.

[Carlillus]

Por favor, estoy interesado y necesito ayuda para generar factura electrónica en la DIAN 

CUALQUIER AYUDA SABRE AGRADECER