VfpRifVe 1.0 Consulta de RIF Venezuela

[Irwin Rodriguez]

Un cordial saludo a toda la comunidad,

Esta vez me dirijo a los foxeros o no foxeros que laboran en venezuela, les ofrezco una librería (dll) que les permitirá consultar el RIF de una persona natural o jurídica de forma sencilla y sin tipear ningun captcha.

En el adjunto se encuentra tanto la librería como el archivo readme.txt el cual deberán leer antes para poder conocer como se trabaja con la DLL. Esta utilidad es parte de los desarrollos que hago con mi compañia asi que los interesados pueden enviarme un privado para discutir la negociación.

Saludos y que tengan todos un excelente dia!

[Jose Mario]

ES VENTA LA QUE ESTAS HACIENDO

[Irwin Rodriguez]

Hola Mario, sí, de eso vivo :-)

Saludos!

--

DISTRIBUIDORA IRSESU, C.A

J-29947174-7
Irwin Rodríguez - Director

Analista Programador - Freelance
+584125210679

Barquisimeto - Venezuela
Desarrollos online dentro y fuera del país

[Mario Oviedo]

es que no fuistes especifico, por ejemplo

a los interesados vendo, asi de un solo,

pero entras muy disimulado

[Irwin Rodriguez]

Pues si, la verdad es que no me gusta abusar de este sitio ya que el objetivo es plantear problemas y soluciones concernientes a la programación en VFP y como cada cabeza es un mundo, puede que algunos se molesten por eso. Pero para la próxima colocaré el prefijo OT en el asunto para prevenir cualquier desavenencia.

Saludos!

[Mario Oviedo]

es mejor tu idea off

[softp...@gmail.com]

Hacer consultas de RIF, gratuitamente sin pago alguno.

user="v167953715"

http://contribuyente.seniat.gob.ve/getContribuyente/getrif?rif=" + user

[Irwin Rodriguez]

Excelente softperuano, tal cual sirve para un proceso de verificación manual pero ¿Cómo haría un programador para automatizar ese proceso y anexarlo como un plus a su ficha de clientes?

Saludos!!!

[softp...@gmail.com]

Algo asi seria.

Jejeje , pero eso es parte de un código no bien protegido, que con solo el Bloc de nota se puede leer.

Es un gran error de muchos programadores..

LPARAMETERS tcrif AS STRING, tclicencia AS STRING
LOCAL retorno AS STRING
LOCAL acceso AS STRING
acceso = THIS.veracceso(tclicencia)
IF acceso = "0" &&Licencia Válida o Modo DEMO Activo todavia.
 IF !EMPTY(tcrif)
  tcrif = ALLTRIM(STRTRAN(tcrif, "-"))
  IF LEN(tcrif) = 10
   tcrif = UPPER(tcrif)
   LOCAL loxmlhttp AS "MSXML2.XMLHTTP"
   LOCAL _posini AS INTEGER, _posfin AS INTEGER
   retorno = ""
   loxmlhttp = CREATEOBJECT("MSXML2.XMLHTTP")
   loxmlhttp.OPEN("GET", "http://contribuyente.seniat.gob.ve/getContribuyente/getrif?rif=" + tcrif)
   loxmlhttp.SEND()
   IF loxmlhttp.readystate==4 AND loxmlhttp.STATUS==200
    jsonstring= loxmlhttp.responsetext
    _posini = AT("<rif:Nombre>",jsonstring)
    _posfin = AT("</rif:Nombre>",jsonstring)
    _posini = _posini + 12
    retorno =  SUBSTR(jsonstring,_posini,_posfin - _posini)
   ELSE &&loXmlHttp.readyState==4 AND loXmlHttp.STATUS==200
    retorno =  "-101" && Error de comunicación.
   ENDIF &&loXmlHttp.readyState==4 AND loXmlHttp.STATUS==200
   RELEASE loxmlhttp
  ELSE &&LEN(tcrif) = 10
   retorno = "-103" &&Longitud de Rif Inválida.
  ENDIF &&LEN(tcrif) = 10
 ELSE &&!EMPTY(tcrif)
  retorno = "-102" &&Rif Vacío.
 ENDIF &&!EMPTY(tcrif)

Ya sabes que en tu versión 2.0 tendras que mejorar la protección.

No es VIERNES pero te dejo este chiste de Programadores.

Cuando creas un Sistema y no te sirva para nada, ponle versión 1.0

[Irwin Rodriguez]

Buenisimo!!! Gracias por el dato, tengo varios programas pendientes para ponerles version 1.0 entonces :-)

Slds!

[Normandia]

simplemente GRACIAS ! que sencillo
Saludos ... Venezuela