diff --git a/Resources/logo-keiblair2.jpg b/Resources/logo-keiblair2.jpg
new file mode 100644
index 0000000..0b955b0
Binary files /dev/null and b/Resources/logo-keiblair2.jpg differ
diff --git a/Resources/logo-luisleon.jpg b/Resources/logo-luisleon.jpg
new file mode 100644
index 0000000..33d2965
Binary files /dev/null and b/Resources/logo-luisleon.jpg differ
diff --git a/Source/Base/uDMBase.pas b/Source/Base/uDMBase.pas
index 4835385..4e70022 100644
--- a/Source/Base/uDMBase.pas
+++ b/Source/Base/uDMBase.pas
@@ -63,25 +63,26 @@ end;
 
 procedure TdmBase.IniciarLog;
 var
-  AIniFile : String;
+  ALogFileName : String;
 begin
   inherited;
   FEscribirLog := TCriticalSection.Create;
 
-  AIniFile := GetSpecialFolderPath(CSIDL_LOCAL_APPDATA); //[All Users]\Application Data
-  AIniFile := AIniFile + PathDelim + GetAppName + PathDelim;
+  ALogFileName := GetSpecialFolderPath(CSIDL_APPDATA); //[Current Users]\Application Data
+  ALogFileName := ALogFileName + PathDelim + 'Rodax Software' + PathDelim + 'FactuGES' + PathDelim;
 
-  if not DirectoryExists(AIniFile) then
-    CreateDir(AIniFile);
-
-  JvLogFile.Active := False;
-  JvLogFile.FileName := AIniFile + 'ClientLog.txt';
-  JvLogFile.AutoSave := True;
-  JvLogFile.Active := True;
-  JvLogFile.Clear;
+  if SysUtils.ForceDirectories(ALogFileName) then
+  begin
+      JvLogFile.Active := False;
+      JvLogFile.FileName := ALogFileName + 'ClientLog.txt';
+      JvLogFile.AutoSave := True;
+      JvLogFile.Active := True;
+      JvLogFile.Clear;
+  end
+  else
+    raise Exception.Create('Error al crear directorio para Log: ' + IntToStr(GetLastError));
 end;
 
-
 procedure TdmBase.InitStyleManager;
 begin
   if not USE_THEMES then
@@ -138,8 +139,6 @@ end;
 
 procedure TdmBase.EscribirLog(const AMensaje: String);
 begin
-//  dxPrintStyleManager1Style1.PrinterPage.PageFooter.LeftTitle.Add(FEmpresaInformesBase);
-
   FEscribirLog.Acquire;
   try
     JvLogFile.Add(AMensaje);
diff --git a/Source/Cliente/uPantallaPrincipal.dfm b/Source/Cliente/uPantallaPrincipal.dfm
index c0fcc47..8d1fb91 100644
--- a/Source/Cliente/uPantallaPrincipal.dfm
+++ b/Source/Cliente/uPantallaPrincipal.dfm
@@ -515,16 +515,8 @@ object fPantallaPrincipal: TfPantallaPrincipal
     Left = 160
     Top = 182
   end
-  object HostMenu: TJvMainMenu
+  object HostMenu: TMainMenu
     Images = ModulesSmallImageList
-    Style = msItemPainter
-    ImageMargin.Left = 0
-    ImageMargin.Top = 0
-    ImageMargin.Right = 0
-    ImageMargin.Bottom = 0
-    ImageSize.Height = 0
-    ImageSize.Width = 0
-    ItemPainter = JvXPMenuItemPainter1
     Left = 248
     Top = 168
     object Archivo2_OLD: TMenuItem
@@ -673,12 +665,6 @@ object fPantallaPrincipal: TfPantallaPrincipal
       Action = actMenuInformes
     end
   end
-  object JvXPMenuItemPainter1: TJvXPMenuItemPainter
-    SelectionFrameBrush.Color = 13811126
-    SelectionFramePen.Color = 6956042
-    Left = 288
-    Top = 168
-  end
   object StatusPanelImageList: TPngImageList
     PngImages = <
       item
diff --git a/Source/Cliente/uPantallaPrincipal.pas b/Source/Cliente/uPantallaPrincipal.pas
index 474ac26..d954164 100644
--- a/Source/Cliente/uPantallaPrincipal.pas
+++ b/Source/Cliente/uPantallaPrincipal.pas
@@ -39,8 +39,7 @@ type
     actConexion: TAction;
     actAcerca: TAction;
     pnlBorde: TJvXPContainer;
-    HostMenu: TJvMainMenu;
-    JvXPMenuItemPainter1: TJvXPMenuItemPainter;
+    HostMenu: TMainMenu;
     Archivo2_OLD: TMenuItem;
     Ayuda2_OLD: TMenuItem;
     Cambiarmicontrasea2_OLD: TMenuItem;
diff --git a/Source/GUIBase/uViewGridBase.pas b/Source/GUIBase/uViewGridBase.pas
index 1f32fab..e491a9e 100644
--- a/Source/GUIBase/uViewGridBase.pas
+++ b/Source/GUIBase/uViewGridBase.pas
@@ -435,7 +435,7 @@ begin
   if Assigned(_FocusedView) then
   begin
 
-    AIniFile := GetSpecialFolderPath(CSIDL_COMMON_APPDATA); //[All Users]\Application Data
+    AIniFile := GetSpecialFolderPath(CSIDL_APPDATA); //[All Users]\Application Data
     AIniFile := AIniFile + PathDelim + 'Rodax Software' + PathDelim + GetAppName + PathDelim;
 
     if not DirectoryExists(AIniFile) then
@@ -458,7 +458,7 @@ begin
   if Assigned(_FocusedView) then
   begin
 
-    AIniFile := GetSpecialFolderPath(CSIDL_COMMON_APPDATA); //[All Users]\Application Data
+    AIniFile := GetSpecialFolderPath(CSIDL_APPDATA); //[All Users]\Application Data
     AIniFile := AIniFile + PathDelim + 'Rodax Software' + PathDelim + GetAppName + PathDelim;
 
     if not DirectoryExists(AIniFile) then