From 8e34090d135bc6272d84ce5ba53dd9806a77b061 Mon Sep 17 00:00:00 2001 From: roberto Date: Tue, 24 Nov 2009 11:10:50 +0000 Subject: [PATCH] Se adaptan los editores para que no se habiliten las opciones de imprimir y previsualizar hasta que no haya cambios en el documento nuevo git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@977 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- Source/GUIBase/uEditorDBBase.pas | 10 ++++++-- .../Views/uEditorAlbaranCliente.pas | 6 +++++ .../Views/uEditorAlbaranProveedor.pas | 7 +++++ .../Views/uEditorFacturaCliente.pas | 7 +++++ .../Views/uEditorPedidoProveedor.pas | 10 ++++++-- .../Views/uEditorPresupuestoCliente.dfm | 24 ++++++++++++------ .../Views/uEditorPresupuestoCliente.pas | 6 +++++ .../Views/uEditorRemesaCliente.dfm | 7 ++--- .../Views/uEditorRemesaCliente.pas | 6 +++++ .../Views/uEditorRemesaProveedor.pas | 8 +++++- Source/Servidor/FactuGES_Server.RES | Bin 23208 -> 23208 bytes Source/Servidor/FactuGES_Server.rc | 2 +- 12 files changed, 76 insertions(+), 17 deletions(-) diff --git a/Source/GUIBase/uEditorDBBase.pas b/Source/GUIBase/uEditorDBBase.pas index 9f18482a..7d66cf46 100644 --- a/Source/GUIBase/uEditorDBBase.pas +++ b/Source/GUIBase/uEditorDBBase.pas @@ -34,6 +34,7 @@ type procedure dsDataTableDataChange(Sender: TObject; Field: TField); protected function HayDatos: Boolean; + function PuedoImprimir: Boolean; virtual; function GetModified: Boolean; override; procedure RefrescarInterno; override; procedure CancelarCambiosInterno; override; @@ -181,6 +182,11 @@ begin and (not dsDataTable.DataTable.IsEmpty); end; +function TfEditorDBBase.PuedoImprimir: Boolean; +begin + Result := True; +end; + procedure TfEditorDBBase.RefrescarInterno; var AID: Integer; @@ -249,13 +255,13 @@ end; procedure TfEditorDBBase.actPrevisualizarUpdate(Sender: TObject); begin inherited; - (Sender as TAction).Enabled := HayDatos; + (Sender as TAction).Enabled := HayDatos and PuedoImprimir; end; procedure TfEditorDBBase.actImprimirUpdate(Sender: TObject); begin inherited; - (Sender as TAction).Enabled := HayDatos; + (Sender as TAction).Enabled := HayDatos and PuedoImprimir; end; initialization diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas index 3c6f19de..a7af5e6a 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas @@ -71,6 +71,7 @@ type //Si queremos crear otra vista para el editor heredado solo tendriamos que //sobreescribir este metodo procedure AsignarVista; virtual; + function PuedoImprimir: Boolean; override; public procedure PonerTitulos(const ATitulo: string = ''); override; @@ -142,6 +143,11 @@ begin inherited; end; +function TfEditorAlbaranCliente.PuedoImprimir: Boolean; +begin + Result := inherited PuedoImprimir and (not Albaran.Cliente.IDIsNull); +end; + procedure TfEditorAlbaranCliente.EliminarInterno; begin if (ShowConfirmMessage('¿Desea borrar este albarán de cliente?', '') = IDYES) then diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas index 08ad4612..f4e28c2a 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas +++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranProveedor.pas @@ -59,6 +59,8 @@ type procedure EliminarInterno; override; procedure PrevisualizarInterno; override; procedure ImprimirInterno; override; + + function PuedoImprimir: Boolean; override; property ViewAlbaran: IViewAlbaranProveedor read GetViewAlbaran write SetViewAlbaran; @@ -215,6 +217,11 @@ begin Modified := False; end; +function TfEditorAlbaranProveedor.PuedoImprimir: Boolean; +begin + Result := inherited PuedoImprimir and (not Albaran.Proveedor.IDIsNull); +end; + procedure TfEditorAlbaranProveedor.ImprimirInterno; var AllItems: Boolean; diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas index 3f55685f..1bb8f425 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.pas @@ -72,6 +72,8 @@ type procedure PrevisualizarInterno; override; procedure PonerTitulos(const ATitulo: string = ''); override; + function PuedoImprimir: Boolean; override; + public destructor Destroy; override; property Controller : IFacturasClienteController read GetController write SetController; @@ -366,6 +368,11 @@ begin end; end; +function TfEditorFacturaCliente.PuedoImprimir: Boolean; +begin + Result := inherited PuedoImprimir and (not Factura.Cliente.IDIsNull); +end; + procedure TfEditorFacturaCliente.PonerTitulos(const ATitulo: string); var FTitulo : String; diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas index b8fe92e8..1d32ae84 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidoProveedor.pas @@ -61,13 +61,14 @@ type procedure ImprimirInterno; override; procedure OnProveedorChanged(Sender : TObject); - + function PuedoImprimir: Boolean; override; + //Si queremos crear otra vista para el editor heredado solo tendriamos que //sobreescribir este metodo procedure AsignarVista; virtual; property ViewPedido: IViewPedidoProveedor read GetViewPedido write SetViewPedido; - + public procedure PonerTitulos(const ATitulo: string = ''); override; property Controller : IPedidosProveedorController read GetController write SetController; @@ -229,6 +230,11 @@ begin FController.Print(FPedido, AllItems, FImprimirPrecios, FImprimirRefProveedor); end; +function TfEditorPedidoProveedor.PuedoImprimir: Boolean; +begin + Result := inherited PuedoImprimir and (not Pedido.Proveedor.IDIsNull); +end; + procedure TfEditorPedidoProveedor.OnProveedorChanged(Sender: TObject); begin if Assigned(FPedido) then diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm index 447f8089..368a1fe3 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm @@ -205,22 +205,32 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente ExplicitHeight = 338 inherited ToolBar1: TToolBar Width = 750 - Height = 73 + Height = 46 ExplicitWidth = 750 - inherited ToolButton14: TToolButton + ExplicitHeight = 46 + inherited ToolButton3: TToolButton + Wrap = False + end + inherited ToolButton4: TToolButton + Left = 278 + Top = 0 Wrap = True + ExplicitLeft = 278 + ExplicitTop = 0 + end + inherited ToolButton14: TToolButton + Left = 0 + Wrap = False + ExplicitLeft = 0 end inherited FontName: TJvFontComboBox - Left = 0 + Left = 65 Top = 22 - ExplicitLeft = 0 ExplicitTop = 22 end inherited FontSize: TEdit - Left = 145 Top = 22 Width = 200 - ExplicitLeft = 145 ExplicitTop = 22 ExplicitWidth = 200 end @@ -233,10 +243,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente inherited ToolButton13: TToolButton Left = 362 Top = 22 - Wrap = False ExplicitLeft = 362 ExplicitTop = 22 - ExplicitHeight = 22 end inherited ToolButton6: TToolButton Left = 370 diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas index f5703f93..bce6b591 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas @@ -93,6 +93,7 @@ type procedure PonerTitulos(const ATitulo: string = ''); override; function GetModified: Boolean; override; procedure SetModified(const Value : Boolean); override; + function PuedoImprimir: Boolean; override; public property Controller : IPresupuestosClienteController read GetController write SetController; @@ -336,6 +337,11 @@ begin FController.Preview(FPresupuesto); end; +function TfEditorPresupuestoCliente.PuedoImprimir: Boolean; +begin + Result := inherited PuedoImprimir and (not Presupuesto.Cliente.IDIsNull); +end; + procedure TfEditorPresupuestoCliente.RecalcularPortePorUnidad; begin //Esta lógica se llamará en el editor porque es para facilitar el rellenado de información del documento diff --git a/Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.dfm b/Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.dfm index bc5b3a83..f1b0721c 100644 --- a/Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.dfm +++ b/Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.dfm @@ -8,7 +8,6 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente ClientWidth = 676 Scaled = False OnClose = CustomEditorClose - ExplicitTop = -69 ExplicitWidth = 684 ExplicitHeight = 617 PixelsPerInch = 96 @@ -48,6 +47,8 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente inherited lblDesbloquear: TcxLabel Left = 578 ExplicitLeft = 578 + AnchorX = 623 + AnchorY = 14 end end inherited TBXDock: TTBXDock @@ -258,7 +259,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente item Width = 200 end> - ExplicitTop = 574 + ExplicitTop = 564 ExplicitWidth = 676 end inline frViewTotales1: TfrViewTotales [4] @@ -275,7 +276,7 @@ inherited fEditorRemesaCliente: TfEditorRemesaCliente ParentFont = False TabOrder = 4 ReadOnly = False - ExplicitTop = 537 + ExplicitTop = 518 ExplicitWidth = 676 ExplicitHeight = 46 inherited dxLayoutControl1: TdxLayoutControl diff --git a/Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.pas b/Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.pas index 7fb213a3..4f0fadbe 100644 --- a/Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.pas +++ b/Source/Modulos/Remesas de cliente/Views/uEditorRemesaCliente.pas @@ -63,6 +63,7 @@ type procedure PonerTitulos(const ATitulo: string = ''); override; function GetModified: Boolean; override; + function PuedoImprimir: Boolean; override; public property RemesaCliente: IBizRemesaCliente read GetRemesaCliente write SetRemesaCliente; @@ -183,6 +184,11 @@ begin FController.Preview(FRemesaCliente); end; +function TfEditorRemesaCliente.PuedoImprimir: Boolean; +begin + Result := inherited PuedoImprimir and (not RemesaCliente.Recibos.IDIsNull); +end; + procedure TfEditorRemesaCliente.SetRemesaCliente(const Value: IBizRemesaCliente); begin FRemesaCliente := Value; diff --git a/Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedor.pas b/Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedor.pas index 19258336..283ee3ab 100644 --- a/Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedor.pas +++ b/Source/Modulos/Remesas de proveedor/Views/uEditorRemesaProveedor.pas @@ -63,6 +63,7 @@ type procedure PonerTitulos(const ATitulo: string = ''); override; function GetModified: Boolean; override; + function PuedoImprimir: Boolean; override; public property RemesaProveedor: IBizRemesaProveedor read GetRemesaProveedor write SetRemesaProveedor; @@ -104,6 +105,11 @@ begin Result := bCambiado; end; +function TfEditorRemesaProveedor.PuedoImprimir: Boolean; +begin + Result := inherited PuedoImprimir and (not RemesaProveedor.Recibos.IDIsNull); +end; + function TfEditorRemesaProveedor.GetViewRemesaProveedor: IViewRemesaProveedor; begin Result := FViewRemesaProveedor; @@ -340,4 +346,4 @@ end; end. - \ No newline at end of file + \ No newline at end of file diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index 231fbf6f0a5c2dbcfb2363a6f54cb093aed6853b..23911d3edcde06bce1cfbe7e0debc1404e91a3cf 100644 GIT binary patch delta 21 ccmZ3nm2t&Z#tl(X>_!Y$3