From c189082daba4659ed8e80f88fb206892ab1d3a02 Mon Sep 17 00:00:00 2001 From: david Date: Thu, 5 Nov 2009 19:32:45 +0000 Subject: [PATCH] Quitar la columna de descuento e importe neto de los detalles de albaranes de cliente. git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@461 f4e31baf-9722-1c47-927c-6f952f962d4b --- .../Views/uEditorAlbaranCliente.dfm | 59 ++++++++++++++++--- .../Views/uEditorAlbaranCliente.pas | 1 - .../Views/uViewAlbaranCliente.dfm | 21 +++++++ .../Views/uViewAlbaranCliente.pas | 2 - .../Views/uViewDetallesAlbaranCliente.dfm | 7 ++- 5 files changed, 79 insertions(+), 11 deletions(-) diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm index d26c1a50..6aacb1c0 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm @@ -202,9 +202,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente inherited TBXDock1: TTBXDock Width = 751 ExplicitWidth = 751 - inherited TBXToolbar1: TTBXToolbar - ExplicitWidth = 548 - end end end end @@ -240,10 +237,10 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente ExplicitWidth = 751 ExplicitHeight = 320 inherited eIncidencias: TcxDBMemo - ExplicitWidth = 734 - ExplicitHeight = 323 - Height = 323 - Width = 734 + ExplicitWidth = 747 + ExplicitHeight = 303 + Height = 303 + Width = 747 end end end @@ -294,7 +291,11 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente inherited ImporteDto: TcxDBCurrencyEdit Left = 164 Top = 38 + Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 164 ExplicitTop = 38 ExplicitWidth = 188 @@ -304,7 +305,11 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente Left = 555 Top = 88 DataBinding.DataField = '' + Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 555 ExplicitTop = 88 ExplicitWidth = 182 @@ -313,7 +318,11 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente inherited ImporteTotal: TcxDBCurrencyEdit Left = 485 Top = 142 + Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 485 ExplicitTop = 142 ExplicitWidth = 252 @@ -322,7 +331,11 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente inherited edtDescuento: TcxDBSpinEdit Left = 93 Top = 38 + Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 93 ExplicitTop = 38 end @@ -330,14 +343,22 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente Left = 484 Top = 88 DataBinding.DataField = '' + Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 484 ExplicitTop = 88 end inherited ImporteBase: TcxDBCurrencyEdit Left = 484 Top = 11 + Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 484 ExplicitTop = 11 ExplicitWidth = 253 @@ -347,7 +368,11 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente Left = 484 Top = 115 DataBinding.DataField = '' + Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 484 ExplicitTop = 115 end @@ -355,7 +380,11 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente Left = 555 Top = 115 DataBinding.DataField = '' + Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 555 ExplicitTop = 115 ExplicitWidth = 182 @@ -364,7 +393,11 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente inherited eImporteNeto: TcxDBCurrencyEdit Left = 93 Top = 11 + Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 93 ExplicitTop = 11 ExplicitWidth = 259 @@ -374,7 +407,11 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente Left = 93 Top = 65 Properties.OnValidate = frViewTotales1ePortePropertiesValidate + Style.LookAndFeel.SkinName = '' Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 93 ExplicitTop = 65 ExplicitWidth = 259 @@ -384,6 +421,10 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente Left = 93 Top = 92 DataBinding.DataField = '' + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 93 ExplicitTop = 92 ExplicitWidth = 121 @@ -400,6 +441,10 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente Top = 119 DataBinding.DataField = '' DataBinding.DataSource = nil + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 93 ExplicitTop = 119 ExplicitWidth = 259 diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas index 6f31b9f3..4af482be 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas @@ -195,7 +195,6 @@ var bEsNuevo : Boolean; begin inherited; - bEsNuevo := False; ShowHourglassCursor; // frViewDetallesPedidoCliente1.SaveGridStatus; diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm index 4a43fe47..e8af2163 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm @@ -100,11 +100,19 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente Width = 771 ExplicitWidth = 771 inherited edtlNombre: TcxDBTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 224 Width = 224 end inherited edtNIFCIF: TcxDBTextEdit Left = 339 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 339 end inherited Button3: TBitBtn @@ -112,9 +120,19 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente ExplicitLeft = 250 end inherited edtPersonaContacto: TcxDBTextEdit + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitWidth = 283 Width = 283 end + inherited edtDireccion: TcxMemo + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + end inherited Button4: TButton Left = 419 ExplicitLeft = 419 @@ -533,9 +551,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente ReadOnly = False ExplicitLeft = 22 ExplicitTop = 301 + ExplicitHeight = 228 inherited memObservaciones: TcxDBMemo DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataSource = DADataSource + ExplicitHeight = 228 + Height = 228 end end object dxLayoutControl1Group_Root: TdxLayoutGroup diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas index 55727d2c..716043be 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas @@ -192,8 +192,6 @@ begin end; procedure TfrViewAlbaranCliente.CustomViewCreate(Sender: TObject); -var - i : integer; begin inherited; FFormasPago := Nil; diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm index 5840a6e2..3f02dd73 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uViewDetallesAlbaranCliente.dfm @@ -1,8 +1,13 @@ inherited frViewDetallesAlbaranCliente: TfrViewDetallesAlbaranCliente inherited cxGrid: TcxGrid inherited cxGridView: TcxGridDBTableView - inherited cxGridViewIMPORTEPORTE: TcxGridDBColumn + inherited cxGridViewDESCUENTO: TcxGridDBColumn Visible = False + VisibleForCustomization = False + end + inherited cxGridViewIMPORTENETO: TcxGridDBColumn + Visible = False + VisibleForCustomization = False end end end