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;