- Ticket #64 -> Generar factura en el submenu (boton derecho) del grid de contratos no va.

- Limpeza de código y unidades.

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@443 f4e31baf-9722-1c47-927c-6f952f962d4b

Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.dfm

@@ -203,7 +203,7 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
     object actGenerarFactura: TAction
       Category = 'Acciones'
       Caption = 'Generar factura'
-      ImageIndex = 24
+      ImageIndex = 26
       OnExecute = actGenerarFacturaExecute
       OnUpdate = actGenerarFacturaUpdate
     end
@@ -1962,9 +1962,7 @@ inherited fEditorContratosCliente: TfEditorContratosCliente
       Visible = False
     end
     object Generar2: TMenuItem [7]
-      Caption = 'Generar factura'
-      ImageIndex = 26
-      OnClick = actGenerarExecute
+      Action = actGenerarFactura
     end
     object N4: TMenuItem [8]
       Caption = '-'

Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.pas

@@ -109,14 +109,13 @@ uGestorInformesController;
 *************************** TfEditorContratosCliente ***************************
 }
 procedure TfEditorContratosCliente.actAceptarExecute(Sender: TObject);
-var
+{var
   AContratos: IBizContratoCliente;
-  AllItems: Boolean;
-  AFecha: Variant;
+  AllItems: Boolean;}
 begin
-  AContratos := Nil;
+{  AContratos := Nil;
   AllItems := False;
-{
+
   //Pedimos fecha de decision y realizamos todo el proceso de asignacion, en el caso de no darla no se hace nada
   AFecha := Null;
   with TfEditorFechaDecision.Create(nil) do
@@ -161,10 +160,6 @@ begin
 end;
 
 procedure TfEditorContratosCliente.actAnularExecute(Sender: TObject);
-var
-  AContratos: IBizContratoCliente;
-  AllItems: Boolean;
-  AFecha: Variant;
 begin
 {  AContratos := Nil;
   AllItems := False;
@@ -276,13 +271,11 @@ end;
 procedure TfEditorContratosCliente.actGenerarFacturaUpdate(Sender: TObject);
 begin
   inherited;
-{
+
   (Sender as TAction).Enabled := HayDatos
                                  and not (ViewGrid.NumSeleccionados > 1)
-                                 and (FContratos.FACTURA = '')
-                                 and ViewGrid.esSeleccionCeldaDatos
-                                 and (FContratos.SITUACION = SITUACION_PRESUPUESTO_ACEPTADO);
-}
+                                 and ViewGrid.esSeleccionCeldaDatos;
+
 end;
 
 procedure TfEditorContratosCliente.actGenerarPresupuestoProvExecute(Sender: TObject);

Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.pas

@@ -109,9 +109,9 @@ begin
 end;
 
 procedure TfrViewDetallesContratoCliente.actAsignarDescuentoExecute(Sender: TObject);
-var
+{var
   AuxTop, AuxRow:Integer;
-  ADescuento: Variant;
+  ADescuento: Variant;}
 
 begin
 {