From 56770ef2a26a6edc1df804977b5eb8ae51b39f3f Mon Sep 17 00:00:00 2001 From: roberto Date: Tue, 3 Jun 2008 15:16:04 +0000 Subject: [PATCH] Cambios varios para subida git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@421 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- .../Views/uEditorAlbaranesProveedor.pas | 4 +-- .../Views/uEditorFacturasProveedor.dfm | 20 +++++-------- .../Views/uEditorFacturasProveedor.pas | 4 +-- .../Views/uEditorRecibosCliente.dfm | 20 ++++++------- .../Views/uEditorRecibosCliente.pas | 14 ++++++---- .../Views/uEditorRecibosProveedor.dfm | 28 ++++++++++++------- 6 files changed, 45 insertions(+), 45 deletions(-) diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas index b31a7af2..4529759d 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas +++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedor.pas @@ -199,7 +199,7 @@ procedure TfEditorAlbaranesProveedor.ImprimirInterno; AllItems: Boolean; } begin -AppFactuGES.ShowCapado; + inherited; { AAlbaranes := Nil; AllItems := False; @@ -290,7 +290,7 @@ procedure TfEditorAlbaranesProveedor.PrevisualizarInterno; AAlbaranes: IBizAlbaranProveedor; AllItems: Boolean;} begin -AppFactuGES.ShowCapado; + inherited; { AAlbaranes := Nil; AllItems := False; diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm index b3d03571..54ca878e 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm +++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.dfm @@ -38,7 +38,7 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor Width = 849 ExplicitWidth = 849 inherited tbxMain: TTBXToolbar - ExplicitWidth = 474 + ExplicitWidth = 632 object TBXSubmenuItem2: TTBXSubmenuItem [0] Caption = 'Nuevo' DisplayMode = nbdmImageAndText @@ -131,27 +131,15 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor Width = 849 ExplicitWidth = 849 inherited txtFiltroTodo: TcxTextEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 752 Width = 752 end inherited edtFechaIniFiltro: TcxDateEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 282 Width = 282 end inherited edtFechaFinFiltro: TcxDateEdit Left = 386 - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 386 ExplicitWidth = 453 Width = 453 @@ -208,6 +196,12 @@ inherited fEditorFacturasProveedor: TfEditorFacturasProveedor inherited actConfPagina: TAction Visible = False end + inherited actPrevisualizar: TAction + Visible = True + end + inherited actImprimir: TAction + Visible = True + end inherited actDuplicar: TAction Hint = 'Generar una factura nueva a partir de la factura seleccionada' end diff --git a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas index beab164f..d3346584 100644 --- a/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Views/uEditorFacturasProveedor.pas @@ -231,7 +231,7 @@ procedure TfEditorFacturasProveedor.ImprimirInterno; AFacturas: IBizFacturaProveedor; AllItems: Boolean;} begin -AppFactuGES.ShowCapado; + inherited; { AFacturas := Nil; AllItems := False; @@ -333,7 +333,7 @@ procedure TfEditorFacturasProveedor.PrevisualizarInterno; AFacturas: IBizFacturaProveedor; AllItems: Boolean;} begin -AppFactuGES.ShowCapado; + inherited; { AFacturas := Nil; AllItems := False; diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm index 8f9f216d..a39d3d2e 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.dfm @@ -119,27 +119,15 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente Width = 645 ExplicitWidth = 645 inherited txtFiltroTodo: TcxTextEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 548 Width = 548 end inherited edtFechaIniFiltro: TcxDateEdit - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 194 Width = 194 end inherited edtFechaFinFiltro: TcxDateEdit Left = 298 - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 298 ExplicitWidth = 337 Width = 337 @@ -174,6 +162,14 @@ inherited fEditorRecibosCliente: TfEditorRecibosCliente BuiltInReportLink = True end end + inherited cxViewGridPopupMenu: TcxGridPopupMenu + PopupMenus = < + item + GridView = frViewRecibosCliente1.cxGridView + HitTypes = [gvhtCell] + Index = 0 + end> + end end inherited EditorActionList: TActionList [4] Left = 136 diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas index cba89e8f..0cec9565 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas +++ b/Source/Modulos/Recibos de cliente/Views/uEditorRecibosCliente.pas @@ -131,12 +131,13 @@ begin end; procedure TfEditorRecibosCliente.ImprimirInterno; -{var +{ Respuesta : Integer; ARecibosCliente: IBizRecibosCliente; - AllItems: Boolean;} + } begin - AppFactuGES.ShowCapado; + inherited; + { ARecibosCliente := Nil; AllItems := False; @@ -196,12 +197,13 @@ begin end; procedure TfEditorRecibosCliente.PrevisualizarInterno; -{var +{ Respuesta : Integer; ARecibosCliente: IBizRecibosCliente; - AllItems: Boolean;} + } begin - AppFactuGES.ShowCapado; + inherited; + { ARecibosCliente := Nil; AllItems := False; diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.dfm index 8247ded8..161a407e 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.dfm +++ b/Source/Modulos/Recibos de proveedor/Views/uEditorRecibosProveedor.dfm @@ -3,7 +3,7 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor ClientHeight = 664 ClientWidth = 638 ExplicitWidth = 646 - ExplicitHeight = 691 + ExplicitHeight = 698 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader @@ -41,7 +41,7 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor Width = 638 ExplicitWidth = 638 inherited tbxMain: TTBXToolbar - ExplicitWidth = 276 + ExplicitWidth = 434 end inherited tbxMenu: TTBXToolbar ExplicitWidth = 638 @@ -119,18 +119,18 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor Width = 638 ExplicitWidth = 638 inherited txtFiltroTodo: TcxTextEdit - ExplicitWidth = 273 - Width = 273 + ExplicitWidth = 541 + Width = 541 end inherited edtFechaIniFiltro: TcxDateEdit - ExplicitWidth = 121 - Width = 121 + ExplicitWidth = 190 + Width = 190 end inherited edtFechaFinFiltro: TcxDateEdit Left = 294 ExplicitLeft = 294 - ExplicitWidth = 244 - Width = 244 + ExplicitWidth = 334 + Width = 334 end end inherited TBXAlignmentPanel1: TTBXAlignmentPanel @@ -162,6 +162,14 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor BuiltInReportLink = True end end + inherited cxViewGridPopupMenu: TcxGridPopupMenu + PopupMenus = < + item + GridView = frViewRecibosProveedor1.cxGridView + HitTypes = [gvhtCell] + Index = 0 + end> + end end inherited EditorActionList: TActionList [4] Left = 136 @@ -176,10 +184,10 @@ inherited fEditorRecibosProveedor: TfEditorRecibosProveedor Visible = False end inherited actPrevisualizar: TAction - Enabled = False + Visible = True end inherited actImprimir: TAction - Enabled = False + Visible = True end inherited actDuplicar: TAction Enabled = False