Archivado/LuisLeon_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Adaptación a normativa SEPA XML - Arreglado un problema de formato en el identificador del presentador y acreedor.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@248 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
David Arranz 2016-02-01 14:53:15 +00:00
parent 4e561cc16e
commit 5c861bb24f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Source/Modulos/Banca electronica/Utiles/CVBNorma19SEPAXML.pas
View File

@ -226,7 +226,7 @@ begin
dcstr := Trim(StringReplace(AnsiUpperCase(dcstr), ' ', '', [rfReplaceAll])); dcstr := Trim(StringReplace(AnsiUpperCase(dcstr), ' ', '', [rfReplaceAll]));
dcstr := dcstr + Acreedor.Pais + '00'; dcstr := dcstr + Acreedor.Pais + '00';
dc := 98 - SEPAModulo97(dcstr); dc := 98 - SEPAModulo97(dcstr);
result := Acreedor.Pais + IntToStr(dc) + Acreedor.Sufijo + Acreedor.NIFCIF; result := Acreedor.Pais + Format('%.2d', [dc]) + Acreedor.Sufijo + Acreedor.NIFCIF;
end; end;
function TCVBNorma19SEPAXML.IdentificadorPresentadorSEPA: String; function TCVBNorma19SEPAXML.IdentificadorPresentadorSEPA: String;
@ -238,7 +238,7 @@ begin
dcstr := Trim(StringReplace(AnsiUpperCase(dcstr), ' ', '', [rfReplaceAll])); dcstr := Trim(StringReplace(AnsiUpperCase(dcstr), ' ', '', [rfReplaceAll]));
dcstr := dcstr + Presentador.Pais + '00'; dcstr := dcstr + Presentador.Pais + '00';
dc := 98 - SEPAModulo97(dcstr); dc := 98 - SEPAModulo97(dcstr);
result := Presentador.Pais + IntToStr(dc) + Presentador.Sufijo + Presentador.NIFCIF; result := Presentador.Pais + Format('%.2d', [dc]) + Presentador.Sufijo + Presentador.NIFCIF;
end; end;
procedure TCVBNorma19SEPAXML.GenerarCabeceraAcreedor; procedure TCVBNorma19SEPAXML.GenerarCabeceraAcreedor;