From 5c861bb24ffb3ea259a7ae9de9dcf2bb336ca6a2 Mon Sep 17 00:00:00 2001 From: david Date: Mon, 1 Feb 2016 14:53:15 +0000 Subject: [PATCH] =?UTF-8?q?Adaptaci=C3=B3n=20a=20normativa=20SEPA=20XML=20?= =?UTF-8?q?-=20Arreglado=20un=20problema=20de=20formato=20en=20el=20identi?= =?UTF-8?q?ficador=20del=20presentador=20y=20acreedor.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@248 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2 --- Source/Modulos/Banca electronica/Utiles/CVBNorma19SEPAXML.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Source/Modulos/Banca electronica/Utiles/CVBNorma19SEPAXML.pas b/Source/Modulos/Banca electronica/Utiles/CVBNorma19SEPAXML.pas index cfe69e1..c038ccf 100644 --- a/Source/Modulos/Banca electronica/Utiles/CVBNorma19SEPAXML.pas +++ b/Source/Modulos/Banca electronica/Utiles/CVBNorma19SEPAXML.pas @@ -226,7 +226,7 @@ begin dcstr := Trim(StringReplace(AnsiUpperCase(dcstr), ' ', '', [rfReplaceAll])); dcstr := dcstr + Acreedor.Pais + '00'; dc := 98 - SEPAModulo97(dcstr); - result := Acreedor.Pais + IntToStr(dc) + Acreedor.Sufijo + Acreedor.NIFCIF; + result := Acreedor.Pais + Format('%.2d', [dc]) + Acreedor.Sufijo + Acreedor.NIFCIF; end; function TCVBNorma19SEPAXML.IdentificadorPresentadorSEPA: String; @@ -238,7 +238,7 @@ begin dcstr := Trim(StringReplace(AnsiUpperCase(dcstr), ' ', '', [rfReplaceAll])); dcstr := dcstr + Presentador.Pais + '00'; dc := 98 - SEPAModulo97(dcstr); - result := Presentador.Pais + IntToStr(dc) + Presentador.Sufijo + Presentador.NIFCIF; + result := Presentador.Pais + Format('%.2d', [dc]) + Presentador.Sufijo + Presentador.NIFCIF; end; procedure TCVBNorma19SEPAXML.GenerarCabeceraAcreedor;