diff --git a/Source/Base/Base.dpk b/Source/Base/Base.dpk
index 7ce1bd92..ceccdc30 100644
--- a/Source/Base/Base.dpk
+++ b/Source/Base/Base.dpk
@@ -94,6 +94,7 @@ contains
   uControllerBase in 'Controladores\uControllerBase.pas',
   uControllerDetallesBase in 'Controladores\uControllerDetallesBase.pas',
   schBase_Intf in 'schBase_Intf.pas',
-  uDataModuleBase in 'uDataModuleBase.pas' {DataModuleBase: TDataModule};
+  uDataModuleBase in 'uDataModuleBase.pas' {DataModuleBase: TDataModule},
+  uStringsUtils in 'Utiles\uStringsUtils.pas';
 
 end.
diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index 50af688a..cd75ef1b 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -44,6 +44,13 @@
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
+      
+      
+      
+      
+      
+      
       <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@@ -58,47 +65,6 @@
     <DelphiCompile Include="Base.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Contabilidad\adortl.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\cxIntl6D11.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\cxIntlPrintSys3D11.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\dclIndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\designide.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\dsnap.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\GUISDK_D11.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\IndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\IndyProtocols.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\IndySystem.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\Jcl.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\JclVcl.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\JSDialog100.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\JvCmpD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\JvCoreD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\JvDlgsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\JvMMD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\JvNetD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\JvSystemD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\pckMD5.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\pckUCDataConnector.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\pckUserControl_RT.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\PluginSDK_D10R.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\PngComponentsD10.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\PNG_D10.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\TB2k_D10.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\tbx_d10.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\vclactnband.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\VclSmp.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\vclx.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\xmlrtl.dcp" />
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
     <DCCReference Include="Conexion\uConfigurarConexion.pas">
       <Form>fConfigurarConexion</Form>
@@ -123,10 +89,44 @@
       <Form>dmBase</Form>
       <DesignClass>TDataModule</DesignClass>
     </DCCReference>
+    <DCCReference Include="Utiles\adortl.dcp" />
     <DCCReference Include="Utiles\ClassRegistry\uClassRegistryUtils.pas" />
     <DCCReference Include="Utiles\ClassRegistry\uEditorRegistryUtils.pas" />
     <DCCReference Include="Utiles\ClassRegistry\uInformeRegistryUtils.pas" />
     <DCCReference Include="Utiles\ClassRegistry\uViewRegistryUtils.pas" />
+    <DCCReference Include="Utiles\cxIntl6D11.dcp" />
+    <DCCReference Include="Utiles\cxIntlPrintSys3D11.dcp" />
+    <DCCReference Include="Utiles\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="Utiles\dbrtl.dcp" />
+    <DCCReference Include="Utiles\dclIndyCore.dcp" />
+    <DCCReference Include="Utiles\designide.dcp" />
+    <DCCReference Include="Utiles\dsnap.dcp" />
+    <DCCReference Include="Utiles\GUISDK_D11.dcp" />
+    <DCCReference Include="Utiles\IndyCore.dcp" />
+    <DCCReference Include="Utiles\IndyProtocols.dcp" />
+    <DCCReference Include="Utiles\IndySystem.dcp" />
+    <DCCReference Include="Utiles\Jcl.dcp" />
+    <DCCReference Include="Utiles\JclVcl.dcp" />
+    <DCCReference Include="Utiles\JSDialog100.dcp" />
+    <DCCReference Include="Utiles\JvCmpD11R.dcp" />
+    <DCCReference Include="Utiles\JvCoreD11R.dcp" />
+    <DCCReference Include="Utiles\JvCtrlsD11R.dcp" />
+    <DCCReference Include="Utiles\JvDlgsD11R.dcp" />
+    <DCCReference Include="Utiles\JvMMD11R.dcp" />
+    <DCCReference Include="Utiles\JvNetD11R.dcp" />
+    <DCCReference Include="Utiles\JvPageCompsD11R.dcp" />
+    <DCCReference Include="Utiles\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="Utiles\JvSystemD11R.dcp" />
+    <DCCReference Include="Utiles\pckMD5.dcp" />
+    <DCCReference Include="Utiles\pckUCDataConnector.dcp" />
+    <DCCReference Include="Utiles\pckUserControl_RT.dcp" />
+    <DCCReference Include="Utiles\PluginSDK_D10R.dcp" />
+    <DCCReference Include="Utiles\PngComponentsD10.dcp" />
+    <DCCReference Include="Utiles\PNG_D10.dcp" />
+    <DCCReference Include="Utiles\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="Utiles\rtl.dcp" />
+    <DCCReference Include="Utiles\TB2k_D10.dcp" />
+    <DCCReference Include="Utiles\tbx_d10.dcp" />
     <DCCReference Include="Utiles\uCalculosUtils.pas" />
     <DCCReference Include="Utiles\uDataTableUtils.pas" />
     <DCCReference Include="Utiles\uDateUtils.pas" />
@@ -139,6 +139,14 @@
     <DCCReference Include="Utiles\uNumUtils.pas" />
     <DCCReference Include="Utiles\uPasswordUtils.pas" />
     <DCCReference Include="Utiles\uSistemaFunc.pas" />
+    <DCCReference Include="Utiles\uStringsUtils.pas" />
+    <DCCReference Include="Utiles\vcl.dcp" />
+    <DCCReference Include="Utiles\vclactnband.dcp" />
+    <DCCReference Include="Utiles\vcldb.dcp" />
+    <DCCReference Include="Utiles\vcljpg.dcp" />
+    <DCCReference Include="Utiles\VclSmp.dcp" />
+    <DCCReference Include="Utiles\vclx.dcp" />
+    <DCCReference Include="Utiles\xmlrtl.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
diff --git a/Source/Base/Base.res b/Source/Base/Base.res
index 8b251f31..1641339f 100644
Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ
diff --git a/Source/Base/Utiles/uStringsUtils.pas b/Source/Base/Utiles/uStringsUtils.pas
new file mode 100644
index 00000000..5ef88025
--- /dev/null
+++ b/Source/Base/Utiles/uStringsUtils.pas
@@ -0,0 +1,65 @@
+unit uStringsUtils;
+
+interface
+
+uses
+  Classes;
+
+const
+  DISPLAY_EUROS2 = '#,0.00 €';
+
+procedure StringToStrings(Source:string; Delimiter:char; Target:TStrings);
+function StringsToString(Source:TStrings; Delimiter:char):string;
+function EsCadenaVacia(const S: AnsiString): Boolean; overload;
+function EsCadenaVacia(const S: Variant): Boolean; overload;
+function EsNumerico(Cadena: String) : Boolean;
+
+
+implementation
+
+uses
+  Variants, SysUtils;
+
+{ Convierte una cadena con items separados con un delimitador en un TString }
+procedure StringToStrings(Source:string; Delimiter:char; Target:TStrings);
+var i: integer;
+begin
+  for i:=1 to length(Source) do
+    if Source[ i ] = Delimiter then Source[ i ]:=#10;
+  Target.Text:=Source;
+end;
+
+{ Convierte un TString en una cadena de items separados con un delimitador }
+function StringsToString(Source:TStrings; Delimiter:char):string;
+var i: integer;
+begin
+  Result:='';
+  for i:=0 to Source.Count-1 do
+    Result:=Result + Delimiter + Source[ i ];
+  if Result<>'' then Delete(Result, 1, 1)
+end;
+
+function EsCadenaVacia(const S: AnsiString): Boolean;
+begin
+  Result := (Length(Trim(S)) = 0)
+end;
+
+function EsCadenaVacia(const S: Variant): Boolean; overload;
+begin
+  Result := True;
+  if VarIsNull(S) then
+    Exit;
+  Result := EsCadenaVacia(VarToStr(S));
+end;
+
+function EsNumerico(Cadena: String) : Boolean;
+var
+  Codigo: Integer;
+  Valor: Double;
+begin
+  Val(Cadena, Valor, Codigo);
+  Result := (Codigo = 0)
+end;
+
+
+end.