diff --git a/Source/Cliente/uPantallaPrincipal.dfm b/Source/Cliente/uPantallaPrincipal.dfm
index d88d00d..73deacc 100644
--- a/Source/Cliente/uPantallaPrincipal.dfm
+++ b/Source/Cliente/uPantallaPrincipal.dfm
@@ -742,4 +742,8 @@ object fPantallaPrincipal: TfPantallaPrincipal
     Top = 213
     Bitmap = {}
   end
+  object cxLocalizer1: TcxLocalizer
+    Left = 288
+    Top = 168
+  end
 end
diff --git a/Source/Cliente/uPantallaPrincipal.pas b/Source/Cliente/uPantallaPrincipal.pas
index 0ac3020..3bdb2a7 100644
--- a/Source/Cliente/uPantallaPrincipal.pas
+++ b/Source/Cliente/uPantallaPrincipal.pas
@@ -7,7 +7,8 @@ uses
   JvAppStorage, JvAppRegistryStorage, JvFormPlacement, JvComponentBase, Dialogs,
   JvNavigationPane, ImgList, Controls, PngImageList, Classes, ActnList, XPMan,
   JvXPCore, JvXPContainer, pngimage, ExtCtrls, TB2Item, SpTBXItem, StdCtrls,
-  JvPageList, JvExControls, TB2Dock, SpTBXDkPanels, uGUIBase, uCustomEditor;
+  JvPageList, JvExControls, TB2Dock, SpTBXDkPanels, uGUIBase, uCustomEditor,
+  cxLocalization;
 
 type
   IMainForm = interface(IHostForm)
@@ -94,6 +95,7 @@ type
     actPerfilesUsuario: TAction;
     actSeleccionEmpresas: TAction;
     Splitter1: TSplitter;
+    cxLocalizer1: TcxLocalizer;
     procedure FormCreate(Sender: TObject);
     procedure actSalirExecute(Sender: TObject);
     procedure actCambiarPassExecute(Sender: TObject);
@@ -127,6 +129,7 @@ type
     procedure OnThemeChange(Sender: TObject);
     procedure ExecuteActionMenu(Sender : TObject);
     procedure InitStyleManager;
+    procedure CargarIdioma;
     //procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
   protected
     function GetWorkPanel : TWinControl;
@@ -333,8 +336,11 @@ var
   AListaEmpresas : IBizEmpresa;
   i : Integer;
 begin
+
   ShowHourglassCursor;
   try
+    CargarIdioma;
+
     for i := 0 to AppFactuGES.ModuleManager.ModulesCount - 1 do
       MainMenuController.RegisterModule(AppFactuGES.ModuleManager.Modules[i]);
 
@@ -630,4 +636,11 @@ begin
   Splitter1.Color := Self.Color;
 end;
 
+procedure TfPantallaPrincipal.CargarIdioma;
+begin
+  cxLocalizer1.LoadFromFile(ExtractFilePath(Application.ExeName) + '\languages.ini');
+  cxLocalizer1.Locale := 1034; // Código para castellano
+  cxLocalizer1.Translate;
+end;
+
 end.