diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm
index 140f2cb5..ff76b5fb 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm	
+++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.dfm	
@@ -2,7 +2,6 @@ inherited fEditorPresupuestosCliente: TfEditorPresupuestosCliente
   Caption = 'Lista de presupuestos de cliente'
   ClientWidth = 805
   ExplicitWidth = 813
-  ExplicitHeight = 240
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas
index 3732887c..b72fd378 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas	
@@ -204,24 +204,29 @@ begin
   begin
     SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Presupuestos as ISeleccionable).SelectedRecords);
     APresupuestos := (Controller as IPresupuestosClienteController).ExtraerSeleccionados(Presupuestos) as IBizPresupuestoCliente;
-
-    with APresupuestos.DataTable do
-    begin
-      First;
-      while not EOF do
-      begin
-        GenerarContratoCli(APresupuestos.ID, False);
-        Next;
-      end;
-    end;
-    actRefrescar.Execute;
-    ShowInfoMessage('Se han generado los contratos');
   end
-  else begin
+  else
     APresupuestos := Self.Presupuestos;
-    GenerarContratoCli(APresupuestos.ID);
+
+  if (Application.MessageBox('¿Está seguro que desea generar el/los contrato/s de los presupuesto/s seleccionado/s?', 'Atención', MB_YESNO) = IDYES) then
+  begin
+    if not AllItems then
+      GenerarContratoCli(APresupuestos.ID)
+    else
+      with APresupuestos.DataTable do
+      begin
+        First;
+        while not EOF do
+        begin
+          GenerarContratoCli(APresupuestos.ID, False);
+          Next;
+        end;
+      end;
+
     actRefrescar.Execute;
-  end;
+    if AllItems then
+       ShowInfoMessage('Se han generado los contratos');
+  end
 end;
 
 procedure TfEditorPresupuestosCliente.actGenerarContratoUpdate(Sender: TObject);
@@ -319,6 +324,7 @@ begin
           actGenerarContrato.Execute;
       end;
     end;
+
   end;
 end;