![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Pues algo muy complicado lo que requieres.
Me encontré una página (https://expinterweb.mites.gob.es/rea/pub/consulta.htm) que válida empresas acreditadas, pero solo de España, yo vivo en México, así que la página para tal fin seria esta asi que...no lo sé, tendrías q tener un catálogo de páginas de cada país para consultar los datos...algo complicado si tus volúmenes de empresas o personas extranjeras son muchas. Talvez tendrías que ir elaborando tu propio catálogo de empresas con sus identificadores empresariales para cada cliente/pais e ir almacenando los datos, claro, con el riesgo de que tu usuario ingrese mal los datos consultados, que se reduciría el margen de error si COPIA y PEGA esos datos de las páginas. En fin, espero te sirvan mis comentarios. Saludos.
__________________
Miguel Román Afectuoso saludo desde tierras mexicanas....un aguachile?, con unas "cetaseas" bien "muertas"?, VENTE PUES !! |
#2
|
||||
|
||||
Aquí está para Europa.
https://ec.europa.eu/taxation_customs/tin/#/check-tin |
#3
|
||||
|
||||
Todos los comentarios son instructivos mRoman, gracias por el tuyo.
Gracias también a ti Casimiro, le echaré un vistazo a esa web. El problema es que "mi tema" se queda cojo porque, aunque los intracomunitarios sean muchos (quizás la mayoría), por el sur de España se mueve mucho marroquí (por ejemplo) y mucho inglés que ya no son comunitarios así que aunque le de solución parcial sigo teniendo el problema. A ver qué se me ocurre y/o si tiene solución este asunto. Gracias de nuevo y un saludo.
__________________
Be water my friend. |
#4
|
|||
|
|||
¿Realmente el SII te echa para atrás los ID de extranjeros?
Creo recordar que bastaba con identificar el país y en el ID marcarlo como "otra identificacion" Dudo que Hacienda pueda comprobar que un ID extranjero sea correcto como puede ser con los NIF que aparte del digito de control ya sabe el nombre. |
#5
|
||||
|
||||
Pues ahora que lo dices... después de poner el post me quedé dandole vueltas precisamente a ese detalle. Igual los únicos que controlan son los comunitarios y no los extranjeros. Es un tema que tengo que confirmar.
Gracias y un saludo.
__________________
Be water my friend. |
#6
|
|||
|
|||
Validador nif de la agencia tibutaria (AEAT)
Requisitos:
- Importar la wsdl: "https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/burt/jdit/ws/VNifV2.wsdl" - Tener capicom.dll registrada (regsvr32 C:\...\capicom.dll) y - Importar el componente capicom.DLL creará el fuente CAPICOM_TBL - Open ssl. (libeay.pas y openSsslUtils.pas). Un form "TMain", un TEdit "edNif", un TEdit "edNombre" un TEdit "edCertificado", un TmaskEdit "mskCertPass" un boton "btnValidarESNif" opcional: un TEdit "edResultado", un TEdit "edDNIValidado", un TEdit "edNombreValidado" uses Código:
uses // Windows API Winapi.Windows, Winapi.Messages, WinApi.WinInet, // System System.SysUtils, System.Variants, System.Classes, System.IniFiles, System.UITypes, System.Win.ComObj, System.Net.URLClient, System.Net.HttpClient, System.Net.HttpClientComponent, // Rest - JSON REST.Json, // Soap Soap.SOAPHTTPClient, Soap.SOAPHTTPTrans, Soap.InvokeRegistry, Soap.Rio, // aeat NIF VAlidador VNifV21; // Módulo creado al importar el wsdl CAPICOM_TLB, // Unidad creada al importar la dll de capicom. libeay32, OpenSSLUtils; Código:
type PCCERT_CONTEXT = type Pointer; Código:
function TMain.validarESNif(): VNifV2Sal; var nifValidatorWS: VNifV2; VNifV2Entrada: VNifV2Ent; VNifV2Salida: VNifV2Sal; contri: Contribuyente; HTTPRIO: THTTPRIO; begin HTTPRIO := THTTPRIO.create(self); HTTPRIO.HTTPWebNode.OnBeforePost := HTTPWebNode1BeforePost; nifValidatorWS := GetVNifV2(false, '', HTTPRIO); if nifValidatorWS <> nil then begin contri := Contribuyente.Create; contri.Nif := edDni.text; contri.Nombre := edNombre.text; setLength(VNifV2Entrada, 1); VNifV2Entrada[0] := contri; try VNifV2Salida := nifValidatorWS.VNifV2(VNifV2Entrada); except on E: EDOMParseError do ShowMessage('Sin respuesta: ' + #10 + #13 + E.message); end; end; result := VNifV2Salida; end; procedure TMain.HTTPWebNode1BeforePost(const HTTPReqResp: THTTPReqResp; Data: Pointer); begin SetCertificate(trim(edCertificado.text), mskCertPass.text, Data); end; procedure TMain.IdSSLIOHandlerGetPassword(var Password: string); begin Password := mskCertPass.text; end; procedure TMain.btnValidarESNifClick(Sender: TObject); var VNifV2Salida: VNifV2Sal; begin VNifV2Salida := validarESNif(); if VNifV2Salida <> nil then begin edResultado.Text := VNifV2Salida[0].Resultado; edDNIValidado.Text := VNifV2Salida[0].Nif; edNombreValidado.Text := VNifV2Salida[0].Nombre; // No importa por que por la LODP no devuelven el nombre. Dejan lo que se envía. end else ShowMessage('No se ha podido validar el NIF: ' + edDni.Text); end; Última edición por iMia fecha: 30-01-2023 a las 10:59:59. |
#7
|
||||
|
||||
Gracias iMia.
¿Podrías decirnos qué tipos de documentos valida esto? Saludos.
__________________
Be water my friend. |
![]() |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Validar un XML | r_e_g_2007 | Varios | 0 | 05-11-2011 08:00:21 |
validar RFC.. | tebre | Varios | 12 | 06-01-2009 18:48:55 |
Validar | Elite237 | OOP | 1 | 28-07-2007 23:25:30 |
Validar Nif | Colgueit | OOP | 12 | 10-05-2006 02:50:28 |
validar en qry | alcides | SQL | 2 | 06-01-2004 18:11:19 |
![]() |
|