From 23bf48f31341285d7892c40e5d1672099bcce8bf Mon Sep 17 00:00:00 2001 From: david Date: Wed, 9 Jul 2008 15:21:27 +0000 Subject: [PATCH] =?UTF-8?q?Recibos=20de=20cliente:=20faltaba=20la=20direcc?= =?UTF-8?q?i=C3=B3n=20completa=20en=20el=20recibo=20impreso.?= 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@266 f4e31baf-9722-1c47-927c-6f952f962d4b --- Source/Cliente/FactuGES.dproj | 42 +--- Source/Cliente/FactuGES.rc | 8 +- Source/Cliente/FactuGES.res | Bin 171984 -> 171984 bytes Source/Informes/InfReciboCliente.fr3 | 28 ++- .../Reports/uRptRecibosCliente_Server.dfm | 24 +- .../Views/uEditorReciboCliente.dfm | 205 +++++++++-------- .../Views/uViewClienteRecibo.dfm | 15 +- .../Views/uViewClienteRecibo.pas | 8 +- .../Views/uViewPagosCliente.dfm | 2 + .../Views/uViewPagosCliente.pas | 8 +- .../Views/uViewReciboCliImportes.dfm | 1 + .../Views/uViewReciboCliImportes.pas | 8 +- .../Views/uViewReciboCliente.dfm | 159 +++++++------- .../Views/uViewReciboCliente.pas | 9 +- .../Views/uViewRecibosCliCompensados.dfm | 10 - .../Views/uViewRecibosCliCompensados.pas | 8 +- .../Views/RecibosProveedor_view.dproj | 54 ++--- .../Views/uEditorReciboProveedor.dfm | 158 +++++++------- .../Views/uViewPagosProveedor.dfm | 1 + .../Views/uViewPagosProveedor.pas | 8 +- .../Views/uViewProveedorRecibo.pas | 8 +- .../Views/uViewReciboProvImportes.dfm | 1 + .../Views/uViewReciboProvImportes.pas | 8 +- .../Views/uViewReciboProveedor.dfm | 206 +++++++++--------- .../Views/uViewReciboProveedor.pas | 9 +- .../Views/uViewRecibosProvCompensados.pas | 8 +- 26 files changed, 492 insertions(+), 504 deletions(-) diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index 35aacaa7..8b01e4c4 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -53,47 +53,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2230FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.2.3.0FactuGESFactuGES2.2.3.0 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse2240FalseFalseFalseFalseFalse30821252Rodax Software S.L.2.2.4.0FactuGESFactuGES2.2.4.0 diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc index 2aeeee30..5025b55e 100644 --- a/Source/Cliente/FactuGES.rc +++ b/Source/Cliente/FactuGES.rc @@ -1,7 +1,7 @@ MAINICON ICON "C:\Codigo Acana\Resources\Iconos\Factuges.ico" 1 VERSIONINFO -FILEVERSION 2,2,3,0 -PRODUCTVERSION 2,2,3,0 +FILEVERSION 2,2,4,0 +PRODUCTVERSION 2,2,4,0 FILEFLAGSMASK 0x3FL FILEFLAGS 0x00L FILEOS 0x40004L @@ -13,10 +13,10 @@ BEGIN BLOCK "0C0A04E4" BEGIN VALUE "CompanyName", "Rodax Software S.L.\0" - VALUE "FileVersion", "2.2.3.0\0" + VALUE "FileVersion", "2.2.4.0\0" VALUE "InternalName", "FactuGES\0" VALUE "ProductName", "FactuGES\0" - VALUE "ProductVersion", "2.2.3.0\0" + VALUE "ProductVersion", "2.2.4.0\0" END END BLOCK "VarFileInfo" diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index eab3b86901b65243fb0bc60de6c79bf2954a76d4..2a0c5c66aa994b0b33f55dbefdbcc8011502bb35 100644 GIT binary patch delta 42 wcmcbxpX - + - + @@ -24,12 +24,11 @@ - - - - - - + + + + + @@ -53,12 +52,11 @@ - - - - - - + + + + + @@ -72,7 +70,7 @@ - + diff --git a/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm b/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm index 4b2e3822..6246531c 100644 --- a/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm +++ b/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.dfm @@ -780,7 +780,7 @@ object RptRecibosCliente: TRptRecibosCliente ReportOptions.CreateDate = 37871.995398692100000000 ReportOptions.Description.Strings = ( 'Demonstrates how to create simple list report.') - ReportOptions.LastChange = 39563.534544155100000000 + ReportOptions.LastChange = 39638.693800335650000000 ReportOptions.VersionBuild = '1' ReportOptions.VersionMajor = '12' ReportOptions.VersionMinor = '13' @@ -856,28 +856,6 @@ object RptRecibosCliente: TRptRecibosCliente ' end' 'end;' '' - 'procedure Memo42OnBeforePrint(Sender: TfrxComponent);' - 'begin' - ' if ( < 1) then' - ' begin' - - ' Memo42.visible := False; ' + - ' ' - ' Memo45.visible := False;' - ' Memo38.visible := False;' - ' Memo39.visible := False;' - ' Memo43.visible := False;' - '' - - ' Memo27.visible := False; ' + - ' ' - ' Memo28.visible := False;' - ' Memo48.visible := False;' - ' Memo49.visible := False;' - ' Memo52.visible := False; ' - ' end;' - 'end;' - '' 'begin' '' 'end.') diff --git a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm index 333b20b2..a30debd9 100644 --- a/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uEditorReciboCliente.dfm @@ -1,18 +1,18 @@ inherited fEditorReciboCliente: TfEditorReciboCliente Caption = 'Recibo de cliente' ClientHeight = 562 - ClientWidth = 742 + ClientWidth = 885 OnClose = CustomEditorClose - ExplicitWidth = 750 + ExplicitWidth = 893 ExplicitHeight = 596 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader - Width = 742 + Width = 885 Caption = 'Recibo de cliente' ExplicitWidth = 742 inherited Image1: TImage - Left = 715 + Left = 858 Picture.Data = { 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0000180806000000E0773DF80000000970485973000017120000171201679FD2 @@ -39,18 +39,19 @@ inherited fEditorReciboCliente: TfEditorReciboCliente end end inherited TBXDock: TTBXDock - Width = 742 + Width = 885 ExplicitWidth = 742 inherited tbxMain: TTBXToolbar ExplicitWidth = 425 end inherited tbxMenu: TTBXToolbar - ExplicitWidth = 742 + ExplicitWidth = 885 end end inherited pgPaginas: TPageControl - Width = 736 + Width = 879 Height = 361 + ActivePage = pagCompensados OnChanging = pgPaginasChanging ExplicitLeft = 3 ExplicitTop = 79 @@ -64,9 +65,9 @@ inherited fEditorReciboCliente: TfEditorReciboCliente inline frViewReciboCliente1: TfrViewReciboCliente Left = 0 Top = 0 - Width = 728 - Height = 335 - Align = alTop + Width = 871 + Height = 333 + Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 @@ -78,133 +79,139 @@ inherited fEditorReciboCliente: TfEditorReciboCliente ExplicitWidth = 728 ExplicitHeight = 335 inherited dxLayoutControl1: TdxLayoutControl - Width = 728 - Height = 335 + Width = 871 + Height = 333 ExplicitWidth = 728 ExplicitHeight = 335 DesignSize = ( - 728 - 335) + 871 + 333) inherited eReferencia: TcxDBTextEdit - ExplicitWidth = 217 - Width = 217 + ExplicitWidth = 201 + Width = 201 end inherited eSituacion: TcxDBTextEdit - ExplicitWidth = 217 - Width = 217 + ExplicitWidth = 201 + Width = 201 end inherited edtFechaVencimiento: TcxDBDateEdit - ExplicitWidth = 217 - Width = 217 + Left = 305 + ExplicitLeft = 305 + ExplicitWidth = 67 + Width = 67 end inherited memObservaciones: TcxDBMemo - ExplicitWidth = 293 + ExplicitWidth = 277 ExplicitHeight = 44 Height = 44 - Width = 293 + Width = 277 end inherited eFechaEmision: TcxDBTextEdit - Left = 512 - ExplicitLeft = 512 - ExplicitWidth = 253 - Width = 253 + Left = 546 + Top = 378 + ExplicitLeft = 546 + ExplicitTop = 378 + ExplicitWidth = 286 + Width = 286 end inherited eImporteTotal: TcxDBCurrencyEdit - Left = 512 + Left = 546 + Top = 459 Style.IsFontAssigned = True - ExplicitLeft = 512 - ExplicitWidth = 253 - Width = 253 + ExplicitLeft = 546 + ExplicitTop = 459 + ExplicitWidth = 286 + Width = 286 end inherited eNombreCliente: TcxDBTextEdit - Left = 512 - ExplicitLeft = 512 + Left = 546 + Top = 432 + ExplicitLeft = 546 + ExplicitTop = 432 ExplicitWidth = 286 Width = 286 end inherited eNifCif: TcxDBTextEdit - Left = 512 - ExplicitLeft = 512 + Left = 546 + Top = 405 + ExplicitLeft = 546 + ExplicitTop = 405 ExplicitWidth = 286 Width = 286 end inherited eRemesa: TcxDBTextEdit - ExplicitWidth = 217 - Width = 217 + ExplicitWidth = 201 + Width = 201 end inherited edtFechaEmision: TcxDBDateEdit DataBinding.DataField = 'FECHA_EMISION' - ExplicitWidth = 217 - Width = 217 + ExplicitWidth = 62 + Width = 62 end inherited rRefReciboCompensado: TcxDBTextEdit - ExplicitWidth = 191 - Width = 191 + ExplicitWidth = 201 + Width = 201 end inherited eDescripcion: TcxDBTextEdit - ExplicitWidth = 437 - Width = 437 + ExplicitWidth = 201 + Width = 201 end inherited frViewTienda1: TfrViewTienda - Width = 451 - ExplicitWidth = 451 + Width = 201 + ExplicitWidth = 201 inherited dxLayoutControl1: TdxLayoutControl - Width = 451 + Width = 201 inherited cbTienda: TcxComboBox - ExplicitWidth = 200 - Width = 200 + ExplicitWidth = 181 + Width = 181 end end end inherited frViewClienteRecibo1: TfrViewClienteRecibo - Left = 436 - Width = 350 - ExplicitLeft = 436 - ExplicitWidth = 350 + Left = 470 + Width = 362 + ExplicitLeft = 470 + ExplicitWidth = 362 inherited dxLayoutControl1: TdxLayoutControl - Width = 350 + Width = 362 ExplicitWidth = 350 - inherited Bevel1: TBevel - Width = 266 - ExplicitWidth = 266 - end inherited edtlNombre: TcxDBTextEdit DataBinding.DataSource = frViewReciboCliente1.DADataSource - ExplicitWidth = 276 - Width = 276 + ExplicitWidth = 271 + Width = 271 end inherited edtNIFCIF: TcxDBTextEdit DataBinding.DataSource = frViewReciboCliente1.DADataSource - ExplicitWidth = 276 - Width = 276 + ExplicitWidth = 271 + Width = 271 end inherited edtCalle: TcxDBTextEdit DataBinding.DataSource = frViewReciboCliente1.DADataSource - ExplicitWidth = 276 - Width = 276 + ExplicitWidth = 271 + Width = 271 end inherited edtPoblacion: TcxDBTextEdit DataBinding.DataSource = frViewReciboCliente1.DADataSource - ExplicitWidth = 158 - Width = 158 + ExplicitWidth = 153 + Width = 153 end inherited edtProvincia: TcxDBTextEdit DataBinding.DataSource = frViewReciboCliente1.DADataSource - ExplicitWidth = 276 - Width = 276 + ExplicitWidth = 271 + Width = 271 end inherited edtCodigoPostal: TcxDBTextEdit - Left = 192 + Left = 270 DataBinding.DataSource = frViewReciboCliente1.DADataSource - ExplicitLeft = 192 + ExplicitLeft = 270 end inherited Button3: TBitBtn - Left = 82 - ExplicitLeft = 82 + Left = 160 + ExplicitLeft = 160 end inherited cxDBTextEdit1: TcxDBTextEdit - ExplicitWidth = 283 - Width = 283 + ExplicitWidth = 271 + Width = 271 end end end @@ -214,10 +221,11 @@ inherited fEditorReciboCliente: TfEditorReciboCliente object pagPagos: TTabSheet Caption = 'Pagos' ImageIndex = 2 + ExplicitWidth = 728 inline frViewPagosCliente1: TfrViewPagosCliente Left = 0 Top = 0 - Width = 728 + Width = 871 Height = 333 Align = alClient Font.Charset = DEFAULT_CHARSET @@ -231,25 +239,25 @@ inherited fEditorReciboCliente: TfEditorReciboCliente ExplicitWidth = 728 ExplicitHeight = 333 inherited dxLayoutControl1: TdxLayoutControl - Width = 728 + Width = 871 Height = 333 ExplicitWidth = 728 ExplicitHeight = 333 end inherited dxLayoutControl2: TdxLayoutControl - Width = 728 + Width = 871 Height = 333 ExplicitWidth = 728 ExplicitHeight = 333 inherited ToolBar1: TToolBar - Width = 666 - ExplicitWidth = 666 + Width = 684 + ExplicitWidth = 684 end inherited ListaPagosCliente: TcxGrid - Width = 605 - Height = 262 - ExplicitWidth = 605 - ExplicitHeight = 262 + Width = 684 + Height = 256 + ExplicitWidth = 684 + ExplicitHeight = 256 inherited ListaPagosClienteDBTableView1: TcxGridDBTableView inherited ListaPagosClienteDBTableView1TIPO: TcxGridDBColumn IsCaptionAssigned = True @@ -276,10 +284,11 @@ inherited fEditorReciboCliente: TfEditorReciboCliente object pagCompensados: TTabSheet Caption = 'Recibos compensados' ImageIndex = 1 + ExplicitWidth = 728 inline frViewRecibosCliCompensados1: TfrViewRecibosCliCompensados Left = 0 Top = 0 - Width = 728 + Width = 871 Height = 333 Align = alClient Font.Charset = DEFAULT_CHARSET @@ -293,9 +302,9 @@ inherited fEditorReciboCliente: TfEditorReciboCliente ExplicitWidth = 728 ExplicitHeight = 333 inherited cxGrid: TcxGrid - Width = 728 + Width = 871 Height = 308 - ExplicitWidth = 728 + ExplicitWidth = 871 ExplicitHeight = 308 inherited cxGridView: TcxGridDBTableView DataController.Summary.FooterSummaryItems = < @@ -308,20 +317,8 @@ inherited fEditorReciboCliente: TfEditorReciboCliente end end inherited ToolBar1: TToolBar - Width = 728 - ExplicitWidth = 728 - inherited ToolButton1: TToolButton - ExplicitWidth = 113 - end - inherited ToolButton4: TToolButton - ExplicitWidth = 113 - end - inherited ToolButton2: TToolButton - ExplicitWidth = 113 - end - inherited ToolButton7: TToolButton - ExplicitWidth = 113 - end + Width = 871 + ExplicitWidth = 871 inherited ToolButton3: TToolButton ExplicitWidth = 98 end @@ -334,7 +331,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente end inherited StatusBar: TJvStatusBar Top = 543 - Width = 742 + Width = 885 Panels = < item Width = 200 @@ -345,7 +342,7 @@ inherited fEditorReciboCliente: TfEditorReciboCliente inline frViewReciboCliImportes1: TfrViewReciboCliImportes [4] Left = 0 Top = 443 - Width = 742 + Width = 885 Height = 100 Align = alBottom Font.Charset = DEFAULT_CHARSET @@ -359,20 +356,18 @@ inherited fEditorReciboCliente: TfEditorReciboCliente ExplicitTop = 443 ExplicitWidth = 742 inherited dxLayoutControl1: TdxLayoutControl - Width = 742 + Width = 885 ExplicitWidth = 742 inherited eImporte: TcxDBCurrencyEdit DataBinding.DataSource = dsDataTable Properties.OnEditValueChanged = frViewReciboCliImportes1eImportePropertiesEditValueChanged - ExplicitWidth = 150 - Width = 150 end inherited eOtrosGastos: TcxDBCurrencyEdit DataBinding.DataSource = dsDataTable end inherited eImporteTotalRecibo: TcxCurrencyEdit - ExplicitWidth = 183 - Width = 183 + ExplicitWidth = 366 + Width = 366 end end end diff --git a/Source/Modulos/Recibos de cliente/Views/uViewClienteRecibo.dfm b/Source/Modulos/Recibos de cliente/Views/uViewClienteRecibo.dfm index 35dcf8d2..fde44212 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewClienteRecibo.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uViewClienteRecibo.dfm @@ -6,6 +6,11 @@ inherited frViewClienteRecibo: TfrViewClienteRecibo inherited dxLayoutControl1: TdxLayoutControl Width = 357 Height = 318 + ExplicitWidth = 357 + ExplicitHeight = 318 + DesignSize = ( + 357 + 318) object Bevel1: TBevel [0] Left = 81 Top = 71 @@ -19,8 +24,6 @@ inherited frViewClienteRecibo: TfrViewClienteRecibo TabOrder = 3 ExplicitLeft = 81 ExplicitTop = 94 - ExplicitWidth = 224 - Width = 224 end inherited edtNIFCIF: TcxDBTextEdit Left = 81 @@ -28,8 +31,6 @@ inherited frViewClienteRecibo: TfrViewClienteRecibo TabOrder = 4 ExplicitLeft = 81 ExplicitTop = 121 - ExplicitWidth = 562 - Width = 562 end inherited edtCalle: TcxDBTextEdit Left = 81 @@ -37,8 +38,6 @@ inherited frViewClienteRecibo: TfrViewClienteRecibo TabOrder = 5 ExplicitLeft = 81 ExplicitTop = 148 - ExplicitWidth = 562 - Width = 562 end inherited edtPoblacion: TcxDBTextEdit Left = 81 @@ -46,8 +45,6 @@ inherited frViewClienteRecibo: TfrViewClienteRecibo TabOrder = 6 ExplicitLeft = 81 ExplicitTop = 175 - ExplicitWidth = 177 - Width = 177 end inherited edtProvincia: TcxDBTextEdit Left = 81 @@ -55,8 +52,6 @@ inherited frViewClienteRecibo: TfrViewClienteRecibo TabOrder = 8 ExplicitLeft = 81 ExplicitTop = 202 - ExplicitWidth = 327 - Width = 327 end inherited edtCodigoPostal: TcxDBTextEdit Left = 265 diff --git a/Source/Modulos/Recibos de cliente/Views/uViewClienteRecibo.pas b/Source/Modulos/Recibos de cliente/Views/uViewClienteRecibo.pas index bcd0f90c..bf9295c3 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewClienteRecibo.pas +++ b/Source/Modulos/Recibos de cliente/Views/uViewClienteRecibo.pas @@ -6,7 +6,13 @@ uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, uViewDatosYSeleccionCliente, ImgList, PngImageList, ActnList, DB, uDAInterfaces, uDADataTable, dxLayoutControl, StdCtrls, Buttons, cxContainer, - cxEdit, cxTextEdit, cxDBEdit, cxControls, ExtCtrls; + cxEdit, cxTextEdit, cxDBEdit, cxControls, ExtCtrls, dxSkinsCore, dxSkinBlack, + dxSkinBlue, dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, + dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, + dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue, + dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver, + dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters, dxSkinValentine, + dxSkinXmas2008Blue, dxSkinsdxLCPainter; type TfrViewClienteRecibo = class(TfrViewDatosYSeleccionCliente) diff --git a/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.dfm index 2b77c29c..d0860486 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.dfm @@ -15,6 +15,7 @@ inherited frViewPagosCliente: TfrViewPagosCliente Align = alClient ParentBackground = True TabOrder = 0 + TabStop = False AutoContentSizes = [acsWidth, acsHeight] LookAndFeel = dxLayoutOfficeLookAndFeel1 object dxLayoutGroup1: TdxLayoutGroup @@ -31,6 +32,7 @@ inherited frViewPagosCliente: TfrViewPagosCliente Align = alClient ParentBackground = True TabOrder = 1 + TabStop = False AutoContentSizes = [acsWidth, acsHeight] LookAndFeel = dxLayoutOfficeLookAndFeel1 object ToolBar1: TToolBar diff --git a/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.pas b/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.pas index 82d7a07e..f88a520a 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.pas +++ b/Source/Modulos/Recibos de cliente/Views/uViewPagosCliente.pas @@ -11,7 +11,13 @@ uses cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, cxGridCustomView, cxGrid, uBizPagosCliente, ActnList, TB2Item, TBX, TB2Dock, TB2Toolbar, cxImageComboBox, dxLayoutLookAndFeels, ImgList, - PngImageList, ComCtrls, ToolWin, uDAInterfaces; + PngImageList, ComCtrls, ToolWin, uDAInterfaces, dxSkinsCore, dxSkinBlack, + dxSkinBlue, dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, + dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, + dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue, + dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver, + dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters, dxSkinValentine, + dxSkinXmas2008Blue, dxSkinsdxLCPainter, dxSkinscxPCPainter; type IViewPagosCliente = interface(IViewBase) diff --git a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliImportes.dfm b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliImportes.dfm index 445cafba..28a88283 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliImportes.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliImportes.dfm @@ -17,6 +17,7 @@ inherited frViewReciboCliImportes: TfrViewReciboCliImportes Align = alTop ParentBackground = True TabOrder = 0 + TabStop = False AutoContentSizes = [acsWidth, acsHeight] object eImporte: TcxDBCurrencyEdit Left = 93 diff --git a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliImportes.pas b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliImportes.pas index ce1327a5..56550434 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliImportes.pas +++ b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliImportes.pas @@ -8,7 +8,13 @@ uses cxTextEdit, cxMaskEdit, cxDropDownEdit, cxDBEdit, cxControls, cxContainer, cxEdit, cxLabel, cxDBLabel, cxCurrencyEdit, cxSpinEdit, ComCtrls, dxLayoutControl, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, - cxDBLookupComboBox, cxCheckBox; + cxDBLookupComboBox, cxCheckBox, dxSkinsCore, dxSkinBlack, dxSkinBlue, + dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins, + dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, + dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust, + dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue, + dxSkinsdxLCPainter; type TfrViewReciboCliImportes = class(TfrViewBase) diff --git a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm index c81b1ab3..251e78f0 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.dfm @@ -11,14 +11,14 @@ inherited frViewReciboCliente: TfrViewReciboCliente Align = alClient ParentBackground = True TabOrder = 0 + TabStop = False AutoContentSizes = [acsWidth, acsHeight] LookAndFeel = dxLayoutOfficeLookAndFeel1 - ExplicitWidth = 905 DesignSize = ( 854 509) object eReferencia: TcxDBTextEdit - Left = 120 + Left = 98 Top = 30 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'REFERENCIA' @@ -41,11 +41,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 0 - Width = 129 + Width = 327 end object eSituacion: TcxDBTextEdit - Left = 120 - Top = 111 + Left = 98 + Top = 84 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'SITUACION' DataBinding.DataSource = DADataSource @@ -67,11 +67,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 3 - Width = 216 + Width = 327 end object edtFechaVencimiento: TcxDBDateEdit - Left = 120 - Top = 84 + Left = 306 + Top = 57 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_VENCIMIENTO' DataBinding.DataSource = DADataSource @@ -89,11 +89,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True TabOrder = 2 - Width = 129 + Width = 327 end object memObservaciones: TcxDBMemo Left = 22 - Top = 338 + Top = 311 Anchors = [akLeft, akTop, akRight, akBottom] DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataSource = DADataSource @@ -107,11 +107,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente StyleHot.LookAndFeel.NativeStyle = True TabOrder = 8 Height = 49 - Width = 274 + Width = 425 end object eFechaEmision: TcxDBTextEdit Left = 551 - Top = 30 + Top = 391 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_FACTURA' DataBinding.DataSource = DADataSource @@ -132,12 +132,12 @@ inherited frViewReciboCliente: TfrViewReciboCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 9 - Width = 20 + TabOrder = 10 + Width = 281 end object eImporteTotal: TcxDBCurrencyEdit Left = 551 - Top = 111 + Top = 472 AutoSize = False DataBinding.DataField = 'IMPORTE_FACTURA' DataBinding.DataSource = DADataSource @@ -163,13 +163,13 @@ inherited frViewReciboCliente: TfrViewReciboCliente StyleDisabled.TextColor = clWindowText StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 12 + TabOrder = 13 Height = 21 - Width = 182 + Width = 281 end object eNombreCliente: TcxDBTextEdit Left = 551 - Top = 84 + Top = 445 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'NOMBRE' DataBinding.DataSource = DADataSource @@ -190,12 +190,12 @@ inherited frViewReciboCliente: TfrViewReciboCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 11 - Width = 171 + TabOrder = 12 + Width = 281 end object eNifCif: TcxDBTextEdit Left = 551 - Top = 57 + Top = 418 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'NIF_CIF' DataBinding.DataSource = DADataSource @@ -216,12 +216,12 @@ inherited frViewReciboCliente: TfrViewReciboCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 10 - Width = 147 + TabOrder = 11 + Width = 281 end object eRemesa: TcxDBTextEdit - Left = 120 - Top = 138 + Left = 98 + Top = 111 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'REFERENCIA_REMESA' DataBinding.DataSource = DADataSource @@ -243,15 +243,14 @@ inherited frViewReciboCliente: TfrViewReciboCliente StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 4 - Width = 113 + Width = 327 end object edtFechaEmision: TcxDBDateEdit - Left = 120 + Left = 98 Top = 57 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_VENCIMIENTO' DataBinding.DataSource = DADataSource - Enabled = False Properties.ImmediatePost = True Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D @@ -268,11 +267,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True TabOrder = 1 - Width = 113 + Width = 327 end object rRefReciboCompensado: TcxDBTextEdit - Left = 120 - Top = 216 + Left = 98 + Top = 189 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'REFERENCIA_REC_COMPENSADO' DataBinding.DataSource = DADataSource @@ -294,11 +293,11 @@ inherited frViewReciboCliente: TfrViewReciboCliente StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 6 - Width = 191 + Width = 327 end object eDescripcion: TcxDBTextEdit - Left = 120 - Top = 165 + Left = 98 + Top = 138 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'DESCRIPCION' DataBinding.DataSource = DADataSource @@ -320,12 +319,12 @@ inherited frViewReciboCliente: TfrViewReciboCliente StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 5 - Width = 437 + Width = 349 end inline frViewTienda1: TfrViewTienda - Left = 120 - Top = 267 - Width = 451 + Left = 98 + Top = 240 + Width = 327 Height = 41 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -335,15 +334,16 @@ inherited frViewReciboCliente: TfrViewReciboCliente ParentFont = False TabOrder = 7 ReadOnly = False - ExplicitLeft = 120 - ExplicitTop = 267 + ExplicitLeft = 98 + ExplicitTop = 240 + ExplicitWidth = 327 inherited dxLayoutControl1: TdxLayoutControl - ExplicitWidth = 407 + Width = 327 inherited cbTienda: TcxComboBox Left = 10 ExplicitLeft = 10 - ExplicitWidth = 200 - Width = 200 + ExplicitWidth = 307 + Width = 307 end inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Item1: TdxLayoutItem @@ -354,7 +354,7 @@ inherited frViewReciboCliente: TfrViewReciboCliente end inline frViewClienteRecibo1: TfrViewClienteRecibo Left = 475 - Top = 162 + Top = 30 Width = 357 Height = 318 Font.Charset = DEFAULT_CHARSET @@ -363,44 +363,29 @@ inherited frViewReciboCliente: TfrViewReciboCliente Font.Name = 'Tahoma' Font.Style = [] ParentFont = False - TabOrder = 13 + TabOrder = 9 ReadOnly = False ExplicitLeft = 475 - ExplicitTop = 162 + ExplicitTop = 30 inherited dxLayoutControl1: TdxLayoutControl - ExplicitWidth = 328 inherited edtlNombre: TcxDBTextEdit DataBinding.DataSource = DADataSource - ExplicitWidth = 276 - Width = 276 end inherited edtNIFCIF: TcxDBTextEdit DataBinding.DataSource = DADataSource - ExplicitWidth = 276 - Width = 276 end inherited edtCalle: TcxDBTextEdit DataBinding.DataSource = DADataSource - ExplicitWidth = 276 - Width = 276 end inherited edtPoblacion: TcxDBTextEdit DataBinding.DataSource = DADataSource - ExplicitWidth = 158 - Width = 158 end inherited edtProvincia: TcxDBTextEdit DataBinding.DataSource = DADataSource - ExplicitWidth = 276 - Width = 276 end inherited edtCodigoPostal: TcxDBTextEdit DataBinding.DataSource = DADataSource end - inherited cxDBTextEdit1: TcxDBTextEdit - ExplicitWidth = 283 - Width = 283 - end end end object dxLayoutControl1Group_Root: TdxLayoutGroup @@ -425,17 +410,25 @@ inherited frViewReciboCliente: TfrViewReciboCliente Control = eReferencia ControlOptions.ShowBorder = False end - object dxLayoutControl1Item19: TdxLayoutItem - Caption = 'Fecha emisi'#243'n:' - Control = edtFechaEmision - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item3: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'Fecha vencimiento:' - Control = edtFechaVencimiento - ControlOptions.ShowBorder = False + object dxLayoutControl1Group4: TdxLayoutGroup + ShowCaption = False + Hidden = True + LayoutDirection = ldHorizontal + ShowBorder = False + object dxLayoutControl1Item19: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahClient + Caption = 'Fecha emisi'#243'n:' + Control = edtFechaEmision + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item3: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahClient + Caption = 'Vencimiento:' + Control = edtFechaVencimiento + ControlOptions.ShowBorder = False + end end object dxLayoutControl1Item2: TdxLayoutItem AutoAligns = [aaVertical] @@ -474,6 +467,8 @@ inherited frViewReciboCliente: TfrViewReciboCliente end end object dxLayoutControl1Group7: TdxLayoutGroup + AutoAligns = [aaHorizontal] + AlignVert = avClient Caption = 'Observaciones' object dxLayoutControl1Item5: TdxLayoutItem AutoAligns = [aaHorizontal] @@ -489,6 +484,16 @@ inherited frViewReciboCliente: TfrViewReciboCliente Caption = 'New Group' ShowCaption = False ShowBorder = False + object dxLayoutControlClienteModif: TdxLayoutGroup + AutoAligns = [aaHorizontal] + AlignVert = avClient + Caption = 'Datos del cliente' + object dxLayoutControl1Item6: TdxLayoutItem + Control = frViewClienteRecibo1 + ControlOptions.AutoColor = True + ControlOptions.ShowBorder = False + end + end object dxLayoutControlFactura: TdxLayoutGroup Caption = 'Datos de la factura' object dxLayoutControl1Item7: TdxLayoutItem @@ -514,16 +519,6 @@ inherited frViewReciboCliente: TfrViewReciboCliente ControlOptions.ShowBorder = False end end - object dxLayoutControlClienteModif: TdxLayoutGroup - AutoAligns = [aaHorizontal] - AlignVert = avClient - Caption = 'Datos del cliente' - object dxLayoutControl1Item6: TdxLayoutItem - Control = frViewClienteRecibo1 - ControlOptions.AutoColor = True - ControlOptions.ShowBorder = False - end - end end end end diff --git a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas index 4c1d82db..dcb83bdd 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas +++ b/Source/Modulos/Recibos de cliente/Views/uViewReciboCliente.pas @@ -8,7 +8,13 @@ uses cxControls, cxCurrencyEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit, cxCalendar, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, ExtCtrls, uDAInterfaces, uCustomView, uViewDatosYSeleccionCliente, uRecibosClienteController, - uViewTienda, uViewClienteRecibo; + uViewTienda, uViewClienteRecibo, dxSkinsCore, dxSkinBlack, dxSkinBlue, + dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins, + dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, + dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust, + dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue, + dxSkinsdxLCPainter; type IViewReciboCliente = interface(IViewBase) @@ -65,6 +71,7 @@ type dxLayoutControl1Group5: TdxLayoutGroup; dxLayoutControl1Item6: TdxLayoutItem; frViewClienteRecibo1: TfrViewClienteRecibo; + dxLayoutControl1Group4: TdxLayoutGroup; private FRecibo : IBizRecibosCliente; FController : IRecibosClienteController; diff --git a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.dfm b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.dfm index 548859a8..6bca187a 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.dfm +++ b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.dfm @@ -78,25 +78,15 @@ inherited frViewRecibosCliCompensados: TfrViewRecibosCliCompensados Width = 549 ExplicitWidth = 549 inherited ToolButton1: TToolButton - Top = 0 ExplicitWidth = 62 end inherited ToolButton4: TToolButton - Top = 0 ExplicitWidth = 74 end - inherited ToolButton5: TToolButton - Top = 0 - end inherited ToolButton2: TToolButton - Top = 0 ExplicitWidth = 67 end - inherited ToolButton6: TToolButton - Top = 0 - end inherited ToolButton7: TToolButton - Top = 0 ExplicitWidth = 117 end object ToolButton3: TToolButton diff --git a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.pas b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.pas index 7b7c6d21..47368ad0 100644 --- a/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.pas +++ b/Source/Modulos/Recibos de cliente/Views/uViewRecibosCliCompensados.pas @@ -10,7 +10,13 @@ uses cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxImageComboBox, cxCurrencyEdit, uDataModuleRecibosCliente, uBizRecibosCliente, uRecibosClienteController, Grids, DBGrids, cxSpinEdit, - dxLayoutControl, uDAInterfaces; + dxLayoutControl, uDAInterfaces, dxSkinsCore, dxSkinBlack, dxSkinBlue, + dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins, + dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, + dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust, + dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue, + dxSkinscxPCPainter; type IViewRecibosCompensados = interface diff --git a/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dproj b/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dproj index d1bcddd1..5d8e314d 100644 --- a/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dproj +++ b/Source/Modulos/Recibos de proveedor/Views/RecibosProveedor_view.dproj @@ -47,33 +47,33 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + +
fEditorElegirRecibosProveedor
TfEditorElegirRecibosProveedor diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm index 0191217e..0080fe0f 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm +++ b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm @@ -64,8 +64,8 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor Left = 0 Top = 0 Width = 677 - Height = 350 - Align = alTop + Height = 325 + Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 @@ -78,131 +78,139 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor ExplicitHeight = 350 inherited dxLayoutControl1: TdxLayoutControl Width = 677 - Height = 350 + Height = 325 ExplicitWidth = 677 ExplicitHeight = 350 DesignSize = ( 677 - 350) + 325) inherited eReferencia: TcxDBTextEdit - ExplicitWidth = 50 - Width = 50 + ExplicitWidth = 112 + Width = 112 end inherited eSituacion: TcxDBTextEdit - ExplicitWidth = 216 - Width = 216 + ExplicitWidth = 112 + Width = 112 end inherited edtFechaVencimiento: TcxDBDateEdit - ExplicitWidth = 216 - Width = 216 - end - inherited memObservaciones: TcxDBMemo - ExplicitWidth = 274 - Width = 274 - end - inherited eFechaEmision: TcxDBTextEdit - Left = 383 - ExplicitLeft = 383 + Left = 228 + ExplicitLeft = 228 ExplicitWidth = 20 Width = 20 end + inherited memObservaciones: TcxDBMemo + ExplicitWidth = 226 + ExplicitHeight = 169 + Height = 169 + Width = 226 + end + inherited eFechaEmision: TcxDBTextEdit + Left = 384 + ExplicitLeft = 384 + ExplicitWidth = 255 + Width = 255 + end inherited eImporteTotal: TcxDBCurrencyEdit - Left = 383 + Left = 384 Style.IsFontAssigned = True - ExplicitLeft = 383 - ExplicitWidth = 182 - Width = 182 + ExplicitLeft = 384 + ExplicitWidth = 255 + Width = 255 end inherited eNombreCliente: TcxDBTextEdit - Left = 383 - ExplicitLeft = 383 - ExplicitWidth = 171 - Width = 171 + Left = 384 + ExplicitLeft = 384 + ExplicitWidth = 255 + Width = 255 end inherited eRemesa: TcxDBTextEdit - ExplicitWidth = 113 - Width = 113 + ExplicitWidth = 112 + Width = 112 end inherited edtFechaEmision: TcxDBDateEdit - ExplicitWidth = 97 - Width = 97 + ExplicitWidth = 20 + Width = 20 end inherited eReferenciaProveedor: TcxDBTextEdit - ExplicitWidth = 129 - Width = 129 + ExplicitWidth = 112 + Width = 112 end inherited rReferenciaFacturaProv: TcxDBTextEdit - Left = 383 - ExplicitLeft = 383 - ExplicitWidth = 157 - Width = 157 + Left = 384 + ExplicitLeft = 384 + ExplicitWidth = 255 + Width = 255 end inherited rRefReciboCompensado: TcxDBTextEdit - ExplicitWidth = 216 - Width = 216 + ExplicitWidth = 112 + Width = 112 end inherited frViewTienda1: TfrViewTienda - Width = 451 - ExplicitWidth = 451 + Width = 112 + ExplicitWidth = 112 inherited dxLayoutControl1: TdxLayoutControl - Width = 451 + Width = 112 inherited cbTienda: TcxComboBox - ExplicitWidth = 376 - Width = 376 + ExplicitWidth = 92 + Width = 92 end end end inherited eDescripcion: TcxDBTextEdit - ExplicitWidth = 407 - Width = 407 + ExplicitWidth = 112 + Width = 112 end inherited eNifCif: TcxDBTextEdit - Left = 383 - ExplicitLeft = 383 + Left = 384 + ExplicitLeft = 384 ExplicitWidth = 255 Width = 255 end inherited frViewProveedorRecibo1: TfrViewProveedorRecibo - Left = 286 - Width = 350 - ExplicitLeft = 286 - ExplicitWidth = 350 + Left = 276 + Width = 374 + ExplicitLeft = 276 + ExplicitWidth = 374 inherited dxLayoutControl1: TdxLayoutControl - Width = 350 + Width = 374 ExplicitWidth = 350 + inherited Bevel1: TBevel + Width = 266 + ExplicitWidth = 266 + end inherited edtlNombre: TcxDBTextEdit DataBinding.DataSource = frViewReciboProveedor1.DADataSource - ExplicitWidth = 276 - Width = 276 + ExplicitWidth = 283 + Width = 283 end inherited edtNIFCIF: TcxDBTextEdit DataBinding.DataSource = frViewReciboProveedor1.DADataSource - ExplicitWidth = 562 - Width = 562 + ExplicitWidth = 283 + Width = 283 end inherited edtCalle: TcxDBTextEdit DataBinding.DataSource = frViewReciboProveedor1.DADataSource - ExplicitWidth = 562 - Width = 562 + ExplicitWidth = 283 + Width = 283 end inherited edtPoblacion: TcxDBTextEdit DataBinding.DataSource = frViewReciboProveedor1.DADataSource - ExplicitWidth = 177 - Width = 177 + ExplicitWidth = 165 + Width = 165 end inherited edtProvincia: TcxDBTextEdit DataBinding.DataSource = frViewReciboProveedor1.DADataSource - ExplicitWidth = 327 - Width = 327 + ExplicitWidth = 283 + Width = 283 end inherited edtCodigoPostal: TcxDBTextEdit - Left = 260 + Left = 282 DataBinding.DataSource = frViewReciboProveedor1.DADataSource - ExplicitLeft = 260 + ExplicitLeft = 282 end inherited Button3: TBitBtn - Left = 144 - ExplicitLeft = 144 + Left = 166 + ExplicitLeft = 166 end inherited cxDBTextEdit1: TcxDBTextEdit ExplicitWidth = 283 @@ -238,10 +246,10 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor ExplicitWidth = 677 ExplicitHeight = 325 inherited ListaPagosProveedor: TcxGrid - Width = 252 - Height = 105 - ExplicitWidth = 252 - ExplicitHeight = 105 + Width = 633 + Height = 248 + ExplicitWidth = 633 + ExplicitHeight = 248 inherited ListaPagosProveedorDBTableView1: TcxGridDBTableView inherited ListaPagosProveedorDBTableView1TIPO: TcxGridDBColumn IsCaptionAssigned = True @@ -249,8 +257,8 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor end end inherited ToolBar1: TToolBar - Width = 622 - ExplicitWidth = 622 + Width = 633 + ExplicitWidth = 633 end end inherited DADataSource: TDADataSource @@ -367,15 +375,13 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor inherited eImporte: TcxDBCurrencyEdit DataBinding.DataSource = dsDataTable Properties.OnEditValueChanged = frViewReciboProvImportes1eImportePropertiesEditValueChanged - ExplicitWidth = 150 - Width = 150 end inherited eOtrosGastos: TcxDBCurrencyEdit DataBinding.DataSource = dsDataTable end inherited eImporteTotalRecibo: TcxCurrencyEdit - ExplicitWidth = 183 - Width = 183 + ExplicitWidth = 315 + Width = 315 end end end diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.dfm index 359cb9bc..c1ab77a5 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.dfm +++ b/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.dfm @@ -15,6 +15,7 @@ inherited frViewPagosProveedor: TfrViewPagosProveedor Align = alClient ParentBackground = True TabOrder = 0 + TabStop = False AutoContentSizes = [acsWidth, acsHeight] LookAndFeel = dxLayoutOfficeLookAndFeel1 object ListaPagosProveedor: TcxGrid diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.pas b/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.pas index 6ed5950a..c36e6a1f 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.pas +++ b/Source/Modulos/Recibos de proveedor/Views/uViewPagosProveedor.pas @@ -11,7 +11,13 @@ uses cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, cxGridCustomView, cxGrid, uBizPagosProveedor, ActnList, TB2Item, TBX, TB2Dock, TB2Toolbar, cxImageComboBox, dxLayoutLookAndFeels, ImgList, - PngImageList, ComCtrls, ToolWin, uDAInterfaces; + PngImageList, ComCtrls, ToolWin, uDAInterfaces, dxSkinsCore, dxSkinBlack, + dxSkinBlue, dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, + dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, + dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue, + dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver, + dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters, dxSkinValentine, + dxSkinXmas2008Blue, dxSkinsdxLCPainter, dxSkinscxPCPainter; type IViewPagosProveedor = interface(IViewBase) diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewProveedorRecibo.pas b/Source/Modulos/Recibos de proveedor/Views/uViewProveedorRecibo.pas index bf038f1c..a123509c 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uViewProveedorRecibo.pas +++ b/Source/Modulos/Recibos de proveedor/Views/uViewProveedorRecibo.pas @@ -6,7 +6,13 @@ uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, uViewDatosYSeleccionProveedor, ImgList, PngImageList, ActnList, DB, uDAInterfaces, uDADataTable, dxLayoutControl, StdCtrls, Buttons, cxContainer, - cxEdit, cxTextEdit, cxDBEdit, cxControls, ExtCtrls; + cxEdit, cxTextEdit, cxDBEdit, cxControls, ExtCtrls, dxSkinsCore, dxSkinBlack, + dxSkinBlue, dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, + dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, + dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue, + dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver, + dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters, dxSkinValentine, + dxSkinXmas2008Blue, dxSkinsdxLCPainter; type TfrViewProveedorRecibo = class(TfrViewDatosYSeleccionProveedor) diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProvImportes.dfm b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProvImportes.dfm index 6399603b..a087631a 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProvImportes.dfm +++ b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProvImportes.dfm @@ -17,6 +17,7 @@ inherited frViewReciboProvImportes: TfrViewReciboProvImportes Align = alTop ParentBackground = True TabOrder = 0 + TabStop = False AutoContentSizes = [acsWidth, acsHeight] object eImporte: TcxDBCurrencyEdit Left = 93 diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProvImportes.pas b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProvImportes.pas index 5404dbdc..baabca93 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProvImportes.pas +++ b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProvImportes.pas @@ -8,7 +8,13 @@ uses cxTextEdit, cxMaskEdit, cxDropDownEdit, cxDBEdit, cxControls, cxContainer, cxEdit, cxLabel, cxDBLabel, cxCurrencyEdit, cxSpinEdit, ComCtrls, dxLayoutControl, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, - cxDBLookupComboBox, cxCheckBox; + cxDBLookupComboBox, cxCheckBox, dxSkinsCore, dxSkinBlack, dxSkinBlue, + dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins, + dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, + dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust, + dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue, + dxSkinsdxLCPainter; type TfrViewReciboProvImportes = class(TfrViewBase) diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm index ea8ef8e2..6ee14d54 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm +++ b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm @@ -11,6 +11,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor Align = alClient ParentBackground = True TabOrder = 0 + TabStop = False AutoContentSizes = [acsWidth, acsHeight] LookAndFeel = dxLayoutOfficeLookAndFeel1 DesignSize = ( @@ -40,11 +41,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 0 - Width = 50 + Width = 268 end object eSituacion: TcxDBTextEdit Left = 136 - Top = 138 + Top = 111 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'SITUACION' DataBinding.DataSource = DADataSource @@ -66,11 +67,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 4 - Width = 216 + Width = 268 end object edtFechaVencimiento: TcxDBDateEdit - Left = 136 - Top = 111 + Left = 283 + Top = 84 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_VENCIMIENTO' DataBinding.DataSource = DADataSource @@ -88,11 +89,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True TabOrder = 3 - Width = 216 + Width = 268 end object memObservaciones: TcxDBMemo Left = 22 - Top = 365 + Top = 338 Anchors = [akLeft, akTop, akRight, akBottom] DataBinding.DataField = 'OBSERVACIONES' DataBinding.DataSource = DADataSource @@ -106,11 +107,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleHot.LookAndFeel.NativeStyle = True TabOrder = 9 Height = 49 - Width = 200 + Width = 382 end object eFechaEmision: TcxDBTextEdit - Left = 529 - Top = 57 + Left = 518 + Top = 400 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_FACTURA' DataBinding.DataSource = DADataSource @@ -131,12 +132,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 11 - Width = 20 + TabOrder = 12 + Width = 260 end object eImporteTotal: TcxDBCurrencyEdit - Left = 529 - Top = 138 + Left = 518 + Top = 481 AutoSize = False DataBinding.DataField = 'IMPORTE_FACTURA' DataBinding.DataSource = DADataSource @@ -162,13 +163,13 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleDisabled.TextColor = clWindowText StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 14 + TabOrder = 15 Height = 21 - Width = 182 + Width = 260 end object eNombreCliente: TcxDBTextEdit - Left = 529 - Top = 111 + Left = 518 + Top = 454 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'NOMBRE' DataBinding.DataSource = DADataSource @@ -189,12 +190,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 13 - Width = 171 + TabOrder = 14 + Width = 260 end object eRemesa: TcxDBTextEdit Left = 136 - Top = 165 + Top = 138 Anchors = [akLeft, akTop, akRight] DataBinding.DataSource = DADataSource Enabled = False @@ -215,7 +216,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 5 - Width = 113 + Width = 268 end object edtFechaEmision: TcxDBDateEdit Left = 136 @@ -223,7 +224,6 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_EMISION' DataBinding.DataSource = DADataSource - Enabled = False Properties.ImmediatePost = True Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D @@ -240,7 +240,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True TabOrder = 2 - Width = 668 + Width = 268 end object eReferenciaProveedor: TcxDBTextEdit Left = 136 @@ -265,11 +265,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 1 - Width = 287 + Width = 268 end object rReferenciaFacturaProv: TcxDBTextEdit - Left = 529 - Top = 30 + Left = 518 + Top = 373 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'REFERENCIA_FACTURA_PROV' DataBinding.DataSource = DADataSource @@ -290,12 +290,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 10 - Width = 157 + TabOrder = 11 + Width = 260 end object rRefReciboCompensado: TcxDBTextEdit Left = 136 - Top = 243 + Top = 216 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'REFERENCIA_REC_COMPENSADO' DataBinding.DataSource = DADataSource @@ -317,12 +317,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 7 - Width = 200 + Width = 268 end inline frViewTienda1: TfrViewTienda Left = 136 - Top = 294 - Width = 451 + Top = 267 + Width = 268 Height = 41 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -333,13 +333,15 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor TabOrder = 8 ReadOnly = False ExplicitLeft = 136 - ExplicitTop = 294 + ExplicitTop = 267 + ExplicitWidth = 268 inherited dxLayoutControl1: TdxLayoutControl + Width = 268 inherited cbTienda: TcxComboBox Left = 10 ExplicitLeft = 10 - ExplicitWidth = 200 - Width = 200 + ExplicitWidth = 248 + Width = 248 end inherited dxLayoutControl1Group_Root: TdxLayoutGroup inherited dxLayoutControl1Item1: TdxLayoutItem @@ -350,7 +352,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor end object eDescripcion: TcxDBTextEdit Left = 136 - Top = 192 + Top = 165 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'DESCRIPCION' DataBinding.DataSource = DADataSource @@ -372,11 +374,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True TabOrder = 6 - Width = 407 + Width = 268 end object eNifCif: TcxDBTextEdit - Left = 529 - Top = 84 + Left = 518 + Top = 427 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'NIF_CIF' DataBinding.DataSource = DADataSource @@ -397,12 +399,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor StyleFocused.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True - TabOrder = 12 - Width = 199 + TabOrder = 13 + Width = 260 end inline frViewProveedorRecibo1: TfrViewProveedorRecibo - Left = 432 - Top = 189 + Left = 410 + Top = 30 Width = 357 Height = 318 Font.Charset = DEFAULT_CHARSET @@ -411,42 +413,34 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor Font.Name = 'Tahoma' Font.Style = [] ParentFont = False - TabOrder = 15 + TabOrder = 10 ReadOnly = False - ExplicitLeft = 432 - ExplicitTop = 189 + ExplicitLeft = 410 + ExplicitTop = 30 inherited dxLayoutControl1: TdxLayoutControl inherited edtlNombre: TcxDBTextEdit DataBinding.DataSource = DADataSource - ExplicitWidth = 224 - Width = 224 end inherited edtNIFCIF: TcxDBTextEdit DataBinding.DataSource = DADataSource - ExplicitWidth = 562 - Width = 562 end inherited edtCalle: TcxDBTextEdit DataBinding.DataSource = DADataSource - ExplicitWidth = 562 - Width = 562 end inherited edtPoblacion: TcxDBTextEdit DataBinding.DataSource = DADataSource - ExplicitWidth = 177 - Width = 177 end inherited edtProvincia: TcxDBTextEdit DataBinding.DataSource = DADataSource - ExplicitWidth = 327 - Width = 327 end inherited edtCodigoPostal: TcxDBTextEdit + Left = 287 DataBinding.DataSource = DADataSource + ExplicitLeft = 287 end - inherited cxDBTextEdit1: TcxDBTextEdit - ExplicitWidth = 283 - Width = 283 + inherited Button3: TBitBtn + Left = 171 + ExplicitLeft = 171 end end end @@ -478,17 +472,25 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor Control = eReferenciaProveedor ControlOptions.ShowBorder = False end - object dxLayoutControl1Item19: TdxLayoutItem - Caption = 'Fecha emisi'#243'n:' - Control = edtFechaEmision - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item3: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'Fecha vencimiento:' - Control = edtFechaVencimiento - ControlOptions.ShowBorder = False + object dxLayoutControl1Group4: TdxLayoutGroup + ShowCaption = False + Hidden = True + LayoutDirection = ldHorizontal + ShowBorder = False + object dxLayoutControl1Item19: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahClient + Caption = 'Fecha emisi'#243'n:' + Control = edtFechaEmision + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item3: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahClient + Caption = 'Vencimiento:' + Control = edtFechaVencimiento + ControlOptions.ShowBorder = False + end end object dxLayoutControl1Item2: TdxLayoutItem AutoAligns = [aaVertical] @@ -527,6 +529,8 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor end end object dxLayoutControl1Group7: TdxLayoutGroup + AutoAligns = [aaHorizontal] + AlignVert = avClient Caption = 'Observaciones' object dxLayoutControl1Item5: TdxLayoutItem AutoAligns = [aaHorizontal] @@ -542,36 +546,6 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor Caption = 'New Group' ShowCaption = False ShowBorder = False - object dxLayoutControlFactura: TdxLayoutGroup - Caption = 'Datos de la factura' - object dxLayoutControl1Item21: TdxLayoutItem - Caption = 'Ref. factura prov.:' - Control = rReferenciaFacturaProv - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item7: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'Fecha emisi'#243'n:' - Control = eFechaEmision - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item8: TdxLayoutItem - Caption = 'NIF/CIF:' - Control = eNifCif - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item10: TdxLayoutItem - Caption = 'Nombre:' - Control = eNombreCliente - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Item9: TdxLayoutItem - Caption = 'Total factura:' - Control = eImporteTotal - ControlOptions.ShowBorder = False - end - end object dxLayoutControlProveedorModif: TdxLayoutGroup AutoAligns = [aaHorizontal] AlignVert = avClient @@ -581,6 +555,36 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor ControlOptions.AutoColor = True ControlOptions.ShowBorder = False end + object dxLayoutControlFactura: TdxLayoutGroup + Caption = 'Datos de la factura' + object dxLayoutControl1Item21: TdxLayoutItem + Caption = 'Ref. factura prov.:' + Control = rReferenciaFacturaProv + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item7: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahClient + Caption = 'Fecha emisi'#243'n:' + Control = eFechaEmision + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item8: TdxLayoutItem + Caption = 'NIF/CIF:' + Control = eNifCif + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item10: TdxLayoutItem + Caption = 'Nombre:' + Control = eNombreCliente + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item9: TdxLayoutItem + Caption = 'Total factura:' + Control = eImporteTotal + ControlOptions.ShowBorder = False + end + end end end end diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas index 42b139df..96350a47 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas +++ b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas @@ -8,7 +8,13 @@ uses cxControls, cxCurrencyEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit, cxCalendar, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, ExtCtrls, uDAInterfaces, uCustomView, uViewDatosYSeleccionProveedor, uRecibosProveedorController, uViewTienda, - uViewProveedorRecibo; + uViewProveedorRecibo, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel, + dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins, + dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, + dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust, + dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue, + dxSkinsdxLCPainter; type IViewReciboProveedor = interface(IViewBase) @@ -69,6 +75,7 @@ type eNifCif: TcxDBTextEdit; dxLayoutControl1Item6: TdxLayoutItem; frViewProveedorRecibo1: TfrViewProveedorRecibo; + dxLayoutControl1Group4: TdxLayoutGroup; private FRecibo : IBizRecibosProveedor; FController : IRecibosProveedorController; diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProvCompensados.pas b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProvCompensados.pas index 62a6b4a5..a7c2ef1e 100644 --- a/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProvCompensados.pas +++ b/Source/Modulos/Recibos de proveedor/Views/uViewRecibosProvCompensados.pas @@ -10,7 +10,13 @@ uses cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxImageComboBox, cxCurrencyEdit, uDataModuleRecibosProveedor, uBizRecibosProveedor, uRecibosProveedorController, Grids, DBGrids, cxSpinEdit, - dxLayoutControl, uDAInterfaces; + dxLayoutControl, uDAInterfaces, dxSkinsCore, dxSkinBlack, dxSkinBlue, + dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins, + dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, + dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust, + dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue, + dxSkinscxPCPainter; type IViewRecibosCompensados = interface