enga va....
- importado el wsdl (ojo con los textos de más de 250 caracteres....)
- Ojoj que el pais lo he puesto con calzador... hay que parametrizarlo.
Código Delphi
[-]
procedure TMainForm.btnValidarEUCIFClick(Sender: TObject);
var
cv: checkVat;
cvResp: checkVatResponse;
cvWS: checkVatPortType;
strMessage: string;
begin
cv := checkVat.create();
cv.countryCode := 'ES';
cv.vatNumber := edDNI.Text;
try
cvWS := GetcheckVatPortType(false, '', nil);
if cvWS <> nil then
begin
cvResp := cvWS.checkVat(cv);
if cvResp.valid then
begin
strMessage := 'Valido!' + CRLF;
strMessage := strMessage + 'CIF: ' + cvResp.vatNumber + CRLF;
end
else
strMessage := 'NO ES VÁLIDO!';
ShowMessage(strMessage);
end;
except
on E: ERemotableException do
begin
ShowMessage('Sin respuesta: ' + #10 + #13 + E.message);
end;
end;
end;