From 5163032bcf625b818b7359f01ee656e08f211a23 Mon Sep 17 00:00:00 2001 From: david Date: Thu, 28 Aug 2008 15:04:49 +0000 Subject: [PATCH] =?UTF-8?q?Albaranes=20de=20cliente=20->=20mejor=20distrib?= =?UTF-8?q?uci=C3=B3n=20para=20la=20ficha.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@308 f4e31baf-9722-1c47-927c-6f952f962d4b --- .../Views/uEditorAlbaranCliente.dfm | 40 ++- .../Views/uViewAlbaranCliente.dfm | 283 +++++++++--------- .../Views/uViewAlbaranCliente.pas | 5 +- .../Views/uViewAlbaranDevCliente.dfm | 111 ++++--- .../Views/uViewAlbaranDevCliente.pas | 5 +- 5 files changed, 220 insertions(+), 224 deletions(-) diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm index 834866ef..1e207d8d 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm @@ -202,10 +202,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente object pagInicidencias: TTabSheet Caption = 'Incidencias' ImageIndex = 2 - ExplicitLeft = 0 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 inline frViewIncidenciasCli: TfrViewIncidencias Left = 0 Top = 0 @@ -310,8 +306,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente Style.IsFontAssigned = True ExplicitLeft = 164 ExplicitTop = 112 - ExplicitWidth = 93 - Width = 93 + ExplicitWidth = 188 + Width = 188 end inherited ImporteIVA: TcxDBCurrencyEdit Left = 555 @@ -320,8 +316,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente Style.IsFontAssigned = True ExplicitLeft = 555 ExplicitTop = 38 - ExplicitWidth = 137 - Width = 137 + ExplicitWidth = 182 + Width = 182 end inherited ImporteTotal: TcxDBCurrencyEdit Left = 485 @@ -329,8 +325,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente Style.IsFontAssigned = True ExplicitLeft = 485 ExplicitTop = 112 - ExplicitWidth = 137 - Width = 137 + ExplicitWidth = 252 + Width = 252 end inherited edtDescuento: TcxDBSpinEdit Left = 93 @@ -353,8 +349,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente Style.IsFontAssigned = True ExplicitLeft = 484 ExplicitTop = 11 - ExplicitWidth = 92 - Width = 92 + ExplicitWidth = 253 + Width = 253 end inherited edtRE: TcxDBSpinEdit Left = 484 @@ -371,8 +367,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente Style.IsFontAssigned = True ExplicitLeft = 555 ExplicitTop = 65 - ExplicitWidth = 56 - Width = 56 + ExplicitWidth = 182 + Width = 182 end inherited eImporteNeto: TcxDBCurrencyEdit Left = 93 @@ -380,8 +376,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente Style.IsFontAssigned = True ExplicitLeft = 93 ExplicitTop = 11 - ExplicitWidth = 147 - Width = 147 + ExplicitWidth = 259 + Width = 259 end inherited ePorte: TcxDBCurrencyEdit Left = 93 @@ -390,8 +386,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente Style.IsFontAssigned = True ExplicitLeft = 93 ExplicitTop = 139 - ExplicitWidth = 147 - Width = 147 + ExplicitWidth = 259 + Width = 259 end inherited eIVA: TcxDBLookupComboBox Left = 93 @@ -399,8 +395,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente DataBinding.DataField = '' ExplicitLeft = 93 ExplicitTop = 38 - ExplicitWidth = 81 - Width = 81 + ExplicitWidth = 121 + Width = 121 end inherited bTiposIVA: TButton Left = 220 @@ -415,8 +411,8 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente DataBinding.DataSource = nil ExplicitLeft = 93 ExplicitTop = 65 - ExplicitWidth = 219 - Width = 219 + ExplicitWidth = 259 + Width = 259 end inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Group1: TdxLayoutGroup diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm index 39c748de..7904468e 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.dfm @@ -13,13 +13,14 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente Align = alClient ParentBackground = True TabOrder = 0 + TabStop = False AutoContentSizes = [acsWidth, acsHeight] DesignSize = ( 825 620) object Label1: TLabel Left = 22 - Top = 567 + Top = 613 Width = 299 Height = 26 Caption = @@ -51,11 +52,11 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 2 - Width = 119 + Width = 284 end object memObservaciones: TcxDBMemo Left = 22 - Top = 464 + Top = 301 Anchors = [akLeft, akTop, akRight, akBottom] DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataSource = DADataSource @@ -67,9 +68,9 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente StyleDisabled.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 20 - Height = 253 - Width = 186 + TabOrder = 9 + Height = 35 + Width = 781 end object eReferencia: TcxDBTextEdit Left = 116 @@ -95,12 +96,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 0 - Width = 143 + Width = 284 end inline frViewClienteAlbaran: TfrViewDatosYSeleccionCliente - Left = 430 + Left = 426 Top = 28 - Width = 350 + Width = 754 Height = 212 Align = alTop AutoSize = True @@ -110,40 +111,41 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente Font.Name = 'Tahoma' Font.Style = [] ParentFont = False - TabOrder = 15 + TabOrder = 10 ReadOnly = False - ExplicitLeft = 430 + ExplicitLeft = 426 ExplicitTop = 28 + ExplicitWidth = 754 inherited dxLayoutControl1: TdxLayoutControl + Width = 754 Align = alTop - ExplicitWidth = 373 inherited edtlNombre: TcxDBTextEdit - ExplicitWidth = 224 - Width = 224 + ExplicitWidth = 299 + Width = 299 end inherited edtNIFCIF: TcxDBTextEdit - ExplicitWidth = 562 - Width = 562 + ExplicitWidth = 299 + Width = 299 end inherited edtCalle: TcxDBTextEdit - ExplicitWidth = 562 - Width = 562 + ExplicitWidth = 299 + Width = 299 end inherited edtPoblacion: TcxDBTextEdit - ExplicitWidth = 177 - Width = 177 + ExplicitWidth = 181 + Width = 181 end inherited edtProvincia: TcxDBTextEdit - ExplicitWidth = 327 - Width = 327 + ExplicitWidth = 299 + Width = 299 end inherited edtCodigoPostal: TcxDBTextEdit - Left = 281 - ExplicitLeft = 281 + Left = 268 + ExplicitLeft = 268 end inherited Button3: TBitBtn - Left = 171 - ExplicitLeft = 171 + Left = 158 + ExplicitLeft = 158 end end inherited DADataSource: TDADataSource @@ -164,8 +166,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente end end object eCalle: TcxDBTextEdit - Left = 116 - Top = 224 + Left = 520 + Top = 387 DataBinding.DataField = 'CALLE' DataBinding.DataSource = DADataSource Style.BorderColor = clWindowFrame @@ -179,12 +181,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 8 - Width = 263 + TabOrder = 14 + Width = 284 end object ePoblacion: TcxDBTextEdit - Left = 116 - Top = 251 + Left = 520 + Top = 414 DataBinding.DataField = 'POBLACION' DataBinding.DataSource = DADataSource Style.BorderColor = clWindowFrame @@ -198,12 +200,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 9 - Width = 162 + TabOrder = 15 + Width = 61 end object eCodigoPostal: TcxDBTextEdit - Left = 335 - Top = 251 + Left = 721 + Top = 414 DataBinding.DataField = 'CODIGO_POSTAL' DataBinding.DataSource = DADataSource Style.BorderColor = clWindowFrame @@ -217,12 +219,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 10 + TabOrder = 16 Width = 65 end object eProvincia: TcxDBTextEdit - Left = 116 - Top = 278 + Left = 520 + Top = 441 DataBinding.DataField = 'PROVINCIA' DataBinding.DataSource = DADataSource Style.BorderColor = clWindowFrame @@ -236,12 +238,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 11 - Width = 263 + TabOrder = 17 + Width = 406 end object ePersonaContacto: TcxDBTextEdit - Left = 116 - Top = 305 + Left = 520 + Top = 468 DataBinding.DataField = 'PERSONA_CONTACTO' DataBinding.DataSource = DADataSource Style.BorderColor = clWindowFrame @@ -256,12 +258,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 12 - Width = 84 + TabOrder = 18 + Width = 284 end object eTlfTrabajo: TcxDBTextEdit - Left = 116 - Top = 332 + Left = 520 + Top = 495 DataBinding.DataField = 'TELEFONO' DataBinding.DataSource = DADataSource Style.BorderColor = clWindowFrame @@ -275,20 +277,20 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 13 - Width = 122 + TabOrder = 19 + Width = 284 end object bElegirDireccion: TBitBtn - Left = 228 - Top = 359 + Left = 614 + Top = 522 Width = 172 Height = 23 Action = actElegirDireccion Caption = 'Elegir una direcci'#243'n de env'#237'o...' - TabOrder = 14 + TabOrder = 20 end object Button1: TButton - Left = 268 + Left = 264 Top = 138 Width = 132 Height = 23 @@ -316,7 +318,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 5 - Width = 16 + Width = 146 end object cbFormaPago: TcxDBLookupComboBox Left = 116 @@ -347,10 +349,10 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 3 - Width = 32 + Width = 146 end object bFormasPago: TButton - Left = 268 + Left = 264 Top = 109 Width = 132 Height = 23 @@ -359,7 +361,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente OnClick = bFormasPagoClick end object eFechaRecepcion: TcxDBDateEdit - Left = 564 + Left = 560 Top = 330 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_RECEPCION' @@ -380,12 +382,12 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 18 - Width = 123 + TabOrder = 13 + Width = 239 end object cbConAlmacen: TCheckBox Left = 32 - Top = 535 + Top = 581 Width = 179 Height = 21 Caption = 'Asociar este albar'#225'n al almac'#233'n:' @@ -394,7 +396,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente end object cbAlmacen: TcxDBLookupComboBox Left = 217 - Top = 535 + Top = 581 DataBinding.DataField = 'ID_ALMACEN' DataBinding.DataSource = DADataSource Properties.KeyFieldNames = 'ID' @@ -420,7 +422,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 22 - Width = 69 + Width = 586 end object eRefFacturaCli: TcxDBTextEdit Left = 116 @@ -446,10 +448,10 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 7 - Width = 207 + Width = 284 end object eFechaPrevista: TcxDBDateEdit - Left = 564 + Left = 560 Top = 276 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_PREVISTA_ENVIO' @@ -472,8 +474,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 16 - Width = 122 + TabOrder = 11 + Width = 239 end object eRefCliente: TcxDBTextEdit Left = 116 @@ -501,7 +503,7 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente Width = 284 end object eFechaEnvio: TcxDBDateEdit - Left = 564 + Left = 560 Top = 303 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_ENVIO' @@ -522,13 +524,13 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 17 - Width = 217 + TabOrder = 12 + Width = 239 end inline frViewTienda1: TfrViewTienda - Left = 430 - Top = 387 - Width = 451 + Left = 22 + Top = 224 + Width = 373 Height = 41 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -536,15 +538,16 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente Font.Name = 'Tahoma' Font.Style = [] ParentFont = False - TabOrder = 19 + TabOrder = 8 ReadOnly = False - ExplicitLeft = 430 - ExplicitTop = 387 + ExplicitLeft = 22 + ExplicitTop = 224 + ExplicitWidth = 373 inherited dxLayoutControl1: TdxLayoutControl - ExplicitWidth = 373 + Width = 373 inherited cbTienda: TcxComboBox - ExplicitWidth = 376 - Width = 376 + ExplicitWidth = 312 + Width = 312 end end end @@ -558,6 +561,8 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente LayoutDirection = ldHorizontal ShowBorder = False object dxLayoutControl1Group6: TdxLayoutGroup + AutoAligns = [aaVertical] + AlignHorz = ahClient ShowCaption = False Hidden = True ShowBorder = False @@ -638,6 +643,67 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente end end end + object dxLayoutControl1Group17: TdxLayoutGroup + Caption = 'El albar'#225'n pertenece a la tienda' + object dxLayoutControl1Item17: TdxLayoutItem + Caption = 'New Item' + ShowCaption = False + Control = frViewTienda1 + ControlOptions.AutoColor = True + ControlOptions.ShowBorder = False + end + end + object dxLayoutControl1Group7: TdxLayoutGroup + AutoAligns = [aaHorizontal] + AlignVert = avClient + Caption = 'Observaciones' + object dxLayoutControl1Item6: TdxLayoutItem + AutoAligns = [aaHorizontal] + AlignVert = avClient + Control = memObservaciones + ControlOptions.ShowBorder = False + end + end + end + object dxLayoutControl1Group3: TdxLayoutGroup + AutoAligns = [aaVertical] + AlignHorz = ahClient + ShowCaption = False + Hidden = True + ShowBorder = False + object dxLayoutControl1Group2: TdxLayoutGroup + Caption = 'Datos del cliente' + object dxLayoutControl1Item1: TdxLayoutItem + Control = frViewClienteAlbaran + ControlOptions.AutoColor = True + ControlOptions.ShowBorder = False + end + end + object dxLayoutControl1Group12: TdxLayoutGroup + Caption = 'Fechas de envio y recepci'#243'n' + object dxLayoutControl1Item24: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahClient + Caption = 'Fecha prevista de envio:' + Offsets.Left = 10 + Control = eFechaPrevista + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item21: TdxLayoutItem + Caption = 'Fecha de envio:' + Offsets.Left = 10 + Control = eFechaEnvio + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item16: TdxLayoutItem + AutoAligns = [] + AlignHorz = ahClient + Caption = 'Fecha de recepci'#243'n:' + Offsets.Left = 10 + Control = eFechaRecepcion + ControlOptions.ShowBorder = False + end + end object dxLayoutControl1Group8: TdxLayoutGroup AutoAligns = [] AlignHorz = ahClient @@ -697,67 +763,6 @@ inherited frViewAlbaranCliente: TfrViewAlbaranCliente end end end - object dxLayoutControl1Group3: TdxLayoutGroup - AutoAligns = [aaVertical] - AlignHorz = ahClient - ShowCaption = False - Hidden = True - ShowBorder = False - object dxLayoutControl1Group2: TdxLayoutGroup - Caption = 'Datos del cliente' - object dxLayoutControl1Item1: TdxLayoutItem - Control = frViewClienteAlbaran - ControlOptions.AutoColor = True - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Group12: TdxLayoutGroup - Caption = 'Fechas de envio y recepci'#243'n' - object dxLayoutControl1Item24: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'Fecha prevista de envio:' - Offsets.Left = 10 - Control = eFechaPrevista - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item21: TdxLayoutItem - Caption = 'Fecha de envio:' - Offsets.Left = 10 - Control = eFechaEnvio - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item16: TdxLayoutItem - AutoAligns = [] - AlignHorz = ahClient - Caption = 'Fecha de recepci'#243'n:' - Offsets.Left = 10 - Control = eFechaRecepcion - ControlOptions.ShowBorder = False - end - end - object dxLayoutControl1Group17: TdxLayoutGroup - Caption = 'El albar'#225'n pertenece a la tienda' - object dxLayoutControl1Item17: TdxLayoutItem - Caption = 'New Item' - ShowCaption = False - Control = frViewTienda1 - ControlOptions.AutoColor = True - ControlOptions.ShowBorder = False - end - end - end - end - object dxLayoutControl1Group7: TdxLayoutGroup - AutoAligns = [aaHorizontal] - AlignVert = avClient - Caption = 'Observaciones' - object dxLayoutControl1Item6: TdxLayoutItem - AutoAligns = [aaHorizontal] - AlignVert = avClient - Control = memObservaciones - ControlOptions.ShowBorder = False - end end object dxLayoutControl1Group11: TdxLayoutGroup Caption = 'Almac'#233'n de origen' diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas index 94626e5c..b3023d6f 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranCliente.pas @@ -16,7 +16,10 @@ uses ExtCtrls, cxLookupEdit, cxDBLookupEdit, uBizFormasPago, cxDBLookupComboBox, uFormasPagoController, uAlmacenesController, uDAInterfaces, - uViewTienda, uAlbaranesClienteController; + uViewTienda, uAlbaranesClienteController, dxSkinsCore, dxSkinBlack, + dxSkinBlue, dxSkinOffice2007Black, dxSkinOffice2007Blue, + dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver, + dxSkinSilver, dxSkinsDefaultPainters, dxSkinsdxLCPainter; type IViewAlbaranCliente = interface(IViewBase) diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranDevCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranDevCliente.dfm index a3cae1a5..ec26cf2e 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranDevCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranDevCliente.dfm @@ -1,111 +1,103 @@ inherited frViewAlbaranDevCliente: TfrViewAlbaranDevCliente inherited dxLayoutControl1: TdxLayoutControl - inherited Label1: TLabel - Width = 299 - ExplicitWidth = 299 - end inherited edtFechaAlbaran: TcxDBDateEdit - ExplicitWidth = 119 - Width = 119 + ExplicitWidth = 431 + Width = 431 end inherited memObservaciones: TcxDBMemo - ExplicitWidth = 186 + ExplicitWidth = 515 ExplicitHeight = 253 Height = 253 - Width = 186 + Width = 515 end inherited eReferencia: TcxDBTextEdit - ExplicitWidth = 143 - Width = 143 + ExplicitWidth = 431 + Width = 431 end inherited frViewClienteAlbaran: TfrViewDatosYSeleccionCliente - Width = 350 - ExplicitWidth = 350 + Width = 219 + ExplicitWidth = 219 inherited dxLayoutControl1: TdxLayoutControl - Width = 350 + Width = 219 inherited edtlNombre: TcxDBTextEdit - ExplicitWidth = 224 - Width = 224 + ExplicitWidth = 210 + Width = 210 end inherited edtNIFCIF: TcxDBTextEdit - ExplicitWidth = 562 - Width = 562 + ExplicitWidth = 210 + Width = 210 end inherited edtCalle: TcxDBTextEdit - ExplicitWidth = 562 - Width = 562 + ExplicitWidth = 210 + Width = 210 end inherited edtPoblacion: TcxDBTextEdit - ExplicitWidth = 177 - Width = 177 + ExplicitWidth = 92 + Width = 92 end inherited edtProvincia: TcxDBTextEdit - ExplicitWidth = 327 - Width = 327 + ExplicitWidth = 210 + Width = 210 end end end inherited eCalle: TcxDBTextEdit - ExplicitWidth = 263 - Width = 263 + ExplicitWidth = 125 + Width = 125 end inherited ePoblacion: TcxDBTextEdit - ExplicitWidth = 162 - Width = 162 + ExplicitWidth = 24 + Width = 24 end inherited eProvincia: TcxDBTextEdit - ExplicitWidth = 263 - Width = 263 + ExplicitWidth = 125 + Width = 125 end inherited ePersonaContacto: TcxDBTextEdit - ExplicitWidth = 84 - Width = 84 + ExplicitWidth = 125 + Width = 125 end inherited eTlfTrabajo: TcxDBTextEdit - ExplicitWidth = 122 - Width = 122 + ExplicitWidth = 125 + Width = 125 end inherited eReferenciaPedidoCli: TcxTextEdit - ExplicitWidth = 16 - Width = 16 + ExplicitWidth = 293 + Width = 293 end inherited cbFormaPago: TcxDBLookupComboBox - ExplicitWidth = 32 - Width = 32 + ExplicitWidth = 293 + Width = 293 end inherited eFechaRecepcion: TcxDBDateEdit - ExplicitWidth = 123 - Width = 123 - end - inherited cbAlmacen: TcxDBLookupComboBox - ExplicitWidth = 69 - Width = 69 + ExplicitWidth = 85 + Width = 85 end inherited eRefFacturaCli: TcxDBTextEdit - ExplicitWidth = 207 - Width = 207 + ExplicitWidth = 431 + Width = 431 end inherited eFechaPrevista: TcxDBDateEdit - ExplicitWidth = 122 - Width = 122 + ExplicitWidth = 85 + Width = 85 end inherited eRefCliente: TcxDBTextEdit - ExplicitWidth = 284 - Width = 284 + ExplicitWidth = 431 + Width = 431 end inherited eFechaEnvio: TcxDBDateEdit - ExplicitWidth = 217 - Width = 217 + ExplicitWidth = 85 + Width = 85 end inherited frViewTienda1: TfrViewTienda - Width = 822 - ExplicitWidth = 822 + Width = 515 + ExplicitWidth = 515 inherited dxLayoutControl1: TdxLayoutControl - Width = 822 - inherited cbTienda: TcxDBComboBox - DataBinding.DataSource = DADataSource - ExplicitWidth = 412 - Width = 412 + Width = 515 + ExplicitWidth = 822 + inherited cbTienda: TcxComboBox + ExplicitWidth = 454 + Width = 454 end end end @@ -128,9 +120,6 @@ inherited frViewAlbaranDevCliente: TfrViewAlbaranDevCliente end end end - inherited dxLayoutControl1Group8: TdxLayoutGroup - Visible = False - end end inherited dxLayoutControl1Group3: TdxLayoutGroup inherited dxLayoutControl1Group12: TdxLayoutGroup diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranDevCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranDevCliente.pas index e030bab3..583d2f2f 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranDevCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranDevCliente.pas @@ -8,7 +8,10 @@ uses dxLayoutControl, StdCtrls, cxDropDownEdit, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, cxTextEdit, Buttons, uCustomView, uViewBase, uViewDatosYSeleccionCliente, cxDBEdit, cxMemo, cxContainer, cxEdit, - cxMaskEdit, cxCalendar, cxControls, uDAInterfaces, uViewTienda; + cxMaskEdit, cxCalendar, cxControls, uDAInterfaces, uViewTienda, dxSkinsCore, + dxSkinBlack, dxSkinBlue, dxSkinOffice2007Black, dxSkinOffice2007Blue, + dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver, + dxSkinSilver, dxSkinsDefaultPainters, dxSkinsdxLCPainter; type TfrViewAlbaranDevCliente = class(TfrViewAlbaranCliente)