Buenas a tod@s...
relacionado con el TicketBai, y para evitar errores, he visto que la AEAT tiene una servicio web de validación de NIF.
https://www2.agenciatributaria.gob.e...ws/VNifV2.wsdl
He importado el wsdl perfectamente y lo uso así:
Código Delphi
[-]
procedure TForm.Button1Click(Sender: TObject);
var
nifValidatorWS: VNifV2;
VNifV2Entrada: VNifV2Ent;
VNifV2Salida: VNifV2Sal;
contri: Contribuyente;
begin
nifValidatorWS := GetVNifV2(false, '', nil);
if nifValidatorWS <> nil then
begin
contri := Contribuyente.Create;
contri.Nif := 'NIFDEPRUEBA';
setLength(VNifV2Entrada, 1);
VNifV2Entrada[0] := contri;
VNifV2Salida := nifValidatorWS.VNifV2(VNifV2Entrada);
end;
end;
Funciona sin problema (o casi), hasta que al hacer la llamada y esperar la respuesta del servicio :
VNifV2Salida := nifValidatorWS.VNifV2(VNifV2Entrada); me pide el certificado de cliente para la autentificación (Vamos se abre el selector de certificados del explorador)
Sé que puedo acceder poner un certificado de cliente con la propiedad
ClientCertificate en el
THTTPReqResp del
HTTPRIO del servicio, pero el Tipo
TClientCert solo tiene las propiedades
certName y
serialNumber...
Además no quiero que se seleccione del almacén del S.O., ya que me obliga a instalarlo y yo quiero seleccionarlo de un fichero.
¿Alguien ha lidiado ya con esto?
Gracias.