diff --git a/Source/Cliente/uPantallaPrincipal.pas b/Source/Cliente/uPantallaPrincipal.pas
index 4c5342db..21f0e570 100644
--- a/Source/Cliente/uPantallaPrincipal.pas
+++ b/Source/Cliente/uPantallaPrincipal.pas
@@ -598,6 +598,7 @@ end;
 procedure TfPantallaPrincipal.Listadeempresas1_OLDClick(Sender: TObject);
 begin
   AppFactuGES.SeleccionarEmpresa;
+  RefrescarUI;  
 end;
 
 procedure TfPantallaPrincipal.actConexionExecute(Sender: TObject);