Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
- 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
This commit is contained in:
David Arranz 2009-10-06 12:23:03 +00:00
parent 8db1be88e1
commit 7e4a22909c
3 changed files with 11 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.dfm
View File

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

21
Source/Modulos/Contratos de cliente/Views/uEditorContratosCliente.pas
View File

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

4
Source/Modulos/Contratos de cliente/Views/uViewDetallesContratoCliente.pas
View File

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