From 9519bc1dce3053682cc9302c2fc91150030e60c1 Mon Sep 17 00:00:00 2001 From: david Date: Mon, 25 Jan 2010 17:34:44 +0000 Subject: [PATCH] Repaso a remesas de cliente git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@64 f33bb606-9f5c-448d-9c99-757f00063c96 --- .../Controller/BancaElectronica_controller.rc | 22 +++++ .../BancaElectronica_controller.res | Bin 5056 -> 384 bytes .../Views/RemesasCliente_view.dproj | 18 ++-- .../Views/RemesasCliente_view.rc | 22 +++++ .../Views/RemesasCliente_view.res | Bin 32 -> 384 bytes .../Views/uEditorRemesaCliente.dfm | 93 ++++++++++-------- .../Views/uEditorRemesaCliente.pas | 15 +-- .../Views/uEditorRemesaClienteReport.dfm | 2 + .../Views/uEditorRemesaClienteReport.pas | 5 +- .../Views/uEditorRemesasCliente.dfm | 42 ++++---- .../Views/uEditorRemesasCliente.pas | 20 ++-- .../Views/uViewRecibosRemesaCliente.dfm | 14 +-- .../Views/uViewRecibosRemesaCliente.pas | 3 +- .../Views/uViewRemesaCliente.dfm | 52 +++++----- .../Views/uViewRemesaCliente.pas | 3 +- .../Views/uViewRemesasCliente.dfm | 38 +++++-- .../Views/uViewRemesasCliente.pas | 9 +- .../Views/uEditorRemesasProveedor.pas | 2 +- 18 files changed, 227 insertions(+), 133 deletions(-) diff --git a/Source/Modulos/Banca electronica/Controller/BancaElectronica_controller.rc b/Source/Modulos/Banca electronica/Controller/BancaElectronica_controller.rc index e69de29..153736a 100644 --- a/Source/Modulos/Banca electronica/Controller/BancaElectronica_controller.rc +++ b/Source/Modulos/Banca electronica/Controller/BancaElectronica_controller.rc @@ -0,0 +1,22 @@ +1 VERSIONINFO +FILEVERSION 1,0,0,0 +PRODUCTVERSION 1,0,0,0 +FILEFLAGSMASK 0x3FL +FILEFLAGS 0x00L +FILEOS 0x40004L +FILETYPE 0x1L +FILESUBTYPE 0x0L +BEGIN + BLOCK "StringFileInfo" + BEGIN + BLOCK "0C0A04E4" + BEGIN + VALUE "FileVersion", "1.0.0.0\0" + VALUE "ProductVersion", "1.0.0.0\0" + END + END + BLOCK "VarFileInfo" + BEGIN + VALUE "Translation", 0x0C0A, 1252 + END +END diff --git a/Source/Modulos/Banca electronica/Controller/BancaElectronica_controller.res b/Source/Modulos/Banca electronica/Controller/BancaElectronica_controller.res index 86c94e6ada7b3c85f6761b1ee234a9f34ef3c861..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 89 zcmX@0-oQLTLCJxUfkAA@>-7}euyEfF+`%$mH-*3IwZ-y~5+miKtn3_w^Pn$V^ zQ861nx4C)wN(Q~H#+K|o*@m~&(3=1I%Llk7>S*pvE7;Yjz^+ljNYba;|&8!P>=GYp<9J^QiRC`-*du(Wb zBJI+RemE@Tm2dSSKL$269_p-ia&WJ{$B|EYy#Bt1`fm?B(CB-l8nlXqgY!6fUOzP@ zr|Te|e4cZxgJWuLF8<`}dughP69?9a%ha4}r`jtX-7UCl^he&nV;_S<)Ya!2FlEJu zrr{t12%dXkNqpywX{@?Eb_MKs@29XRNI;2D%DxW zo|xv^jnf#kFIDZr^e=W==PW{#^6Ao{deqzuxId;ujOZ~3;otiwSzBXu3^t3 z&$C~D3=Umz@OQRR9+}nP>x>=u115dAI{rd2#Mbgv81-@e%IA6)a8SDwHm3Di`~F1x z)jhG~04Fd5o4f^Iah!WFIS0|E#)aohzS6onIG_;>-~Ytz3J0A}=DenTZ*cIo-Ves9 zp>qHmo5lV+rntk2He9_1!t%2yZsF;l)>iGc4jkU$0bBWEPmBKKP>uSjxhXIDsSodT z@EG|gFZa>|hHF!PaN};FzIxxlpPKT;87{i(!eu7T%H?}r^yeP=K2c}If`cyKd-3DW z_4ib`jDt-MZ?C~;z1O=EKN(!YbpFJR_c`u>(C=ph9O_Y*Jz5Z>`Zs7T9Mn$y@ay$^ z{gulxYxXwGq@TIGbG$~Hi*qk8?9|WMkNweF@MU18F;AQKZ>jcWAL86`f59r^Yh;+XfGU10gV*5=*FT)q#qz2B_Ik28(#vUlW{{>1m(1wXK3zHQ3+RoHfz^$cuqg(^F;eqz6WUMUE^m$ z9R1u2H_t9ue%}<_JcD5KB$svgjBysd-ql#|toxF$&>h1Qc)Vw6j~u{SeHg>my$i{SJtD^MnJV!{AK!ZgN9Q4bN2bs7?m1Qo zsLwc-c&GZ4_%7jWppm+9C(?(bpCye?f6Mv)ml~{r9)<=EoH5SYSxm8xsWZv%2MjL$ zd)R%{gxqI&lEaJ6!*jggJMcIz?<5?~hn@VA1Kzcrp$;C`m0CzQdy{!G?|FT$$5W3N zaydTsdE#>2dGSt*&wOX~r{!54?~lxS4gM|rOZH6mRCZMCP#!z)bEv-^up_gJ*i*BY zl>1d-%!E}5v+s{C_OF@Qj;!xrv5)P2yJ4TmKCqke`Aq-U;NJ}WpRu*&|7!3r$c7zU zF#m_6?>Cia!E%D)b;IaF{ zzPG~QEyw>z^LKm}whzS>Dx3Ct`1w98?Y5 MainSource - - - - - - - - - + + + + + + + + +
fEditorRemesaCliente
TfEditorRemesaCliente diff --git a/Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.rc b/Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.rc index e69de29..153736a 100644 --- a/Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.rc +++ b/Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.rc @@ -0,0 +1,22 @@ +1 VERSIONINFO +FILEVERSION 1,0,0,0 +PRODUCTVERSION 1,0,0,0 +FILEFLAGSMASK 0x3FL +FILEFLAGS 0x00L +FILEOS 0x40004L +FILETYPE 0x1L +FILESUBTYPE 0x0L +BEGIN + BLOCK "StringFileInfo" + BEGIN + BLOCK "0C0A04E4" + BEGIN + VALUE "FileVersion", "1.0.0.0\0" + VALUE "ProductVersion", "1.0.0.0\0" + END + END + BLOCK "VarFileInfo" + BEGIN + VALUE "Translation", 0x0C0A, 1252 + END +END diff --git a/Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.res b/Source/Modulos/Remesas de cliente/Views/RemesasCliente_view.res index 36f26e234a8ac66a47e95cec6d496cf2f1442471..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch literal 384 zcmZ9HOA3Ne6ox;+L5PEv(4cV`IIrjdPAV##hV&wc1g%+%X(R2Xc{`~7t6e0Ioa?#% zkMj%AQhz>WYy7LeWAUaqx~Kv?-;(-Hs4-^ATIZOBrid9+-6Ne7&88mi>kUR4lo#jxZ;#*s4zxg9yNlk=H9sqkCD2^cEXKpiTBNfgkKpXJBWWaLt(Qkv@0 w5yv*t82((Wlr2{_+FDoDHKW2QCXvc+s**ul{{$ Bitmap = {} end + inherited StatusBarImages: TPngImageList + Left = 48 + Top = 352 + end inherited GridPopupMenu: TPopupMenu object N4: TMenuItem [8] Caption = '-' diff --git a/Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.pas b/Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.pas index 9a49143..3859fbb 100644 --- a/Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.pas +++ b/Source/Modulos/Remesas de cliente/Views/uEditorRemesasCliente.pas @@ -6,29 +6,30 @@ uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, uEditorBase, ToolWin, ComCtrls, JvExControls, JvComponent, JvNavigationPane, uViewRemesasCliente, uBizRemesasCliente, ActnList, DBActns, uViewGrid, - Menus, uDataModuleBase, ImgList, PngImageList, TB2Dock, TB2Toolbar, TBX, - TB2Item, StdActns, TB2ExtItems, TBXExtItems, TB2MRU, DB, uDADataTable, + Menus, uDataModuleBase, ImgList, PngImageList, TB2Dock, TB2Toolbar, + TB2Item, StdActns, TB2ExtItems, TB2MRU, DB, uDADataTable, JvFormAutoSize, uDAScriptingProvider, uDACDSDataTable, JvAppStorage, JvAppRegistryStorage, JvFormPlacement, ExtCtrls, uCustomView, uViewBase, uViewBarraSeleccion, pngimage, uIEditorRemesasCliente, uEditorGridBase, JvComponentBase, uViewGridBase, uRemesasClienteController, JvExComCtrls, - JvStatusBar, JSDialog, uDAInterfaces; + JvStatusBar, JSDialog, uDAInterfaces, SpTBXItem, StdCtrls, TntStdCtrls, + SpTBXEditors; type TfEditorRemesasCliente = class(TfEditorGridBase, IEditorRemesasCliente) actVolcarDisco: TAction; - TBXSeparatorItem17: TTBXSeparatorItem; + TBXSeparatorItem17: TSpTBXSeparatorItem; N4: TMenuItem; Volcaradisco1: TMenuItem; - TBXSubmenuItem2: TTBXSubmenuItem; - TBXItem38: TTBXItem; + TBXSubmenuItem2: TSpTBXSubmenuItem; + TBXItem38: TSpTBXItem; JsListaRemesasNoEliminadas: TJSDialog; JsPrevisualizarDialog: TJSDialog; JsImprimirDialog: TJSDialog; procedure FormShow(Sender: TObject); procedure actVolcarDiscoExecute(Sender: TObject); procedure actVolcarDiscoUpdate(Sender: TObject); - procedure OnListaAnosChange(Sender: TObject; const Text: string); + procedure OnListaAnosChange(Sender: TObject); private FRemesasCliente: IBizRemesaCliente; @@ -154,9 +155,9 @@ begin FController.Ver(RemesasCliente); end; -procedure TfEditorRemesasCliente.OnListaAnosChange(Sender: TObject; const Text: string); +procedure TfEditorRemesasCliente.OnListaAnosChange(Sender: TObject); begin - Controller.FiltrarAno(RemesasCliente, DynWhereDataTable, Text); + Controller.FiltrarAno(RemesasCliente, DynWhereDataTable, cbxListaAnos.Text); if RemesasCliente.DataTable.Active then RefrescarInterno; end; @@ -336,4 +337,3 @@ end; end. - \ No newline at end of file diff --git a/Source/Modulos/Remesas de cliente/Views/uViewRecibosRemesaCliente.dfm b/Source/Modulos/Remesas de cliente/Views/uViewRecibosRemesaCliente.dfm index 9c59b2d..aaf7a27 100644 --- a/Source/Modulos/Remesas de cliente/Views/uViewRecibosRemesaCliente.dfm +++ b/Source/Modulos/Remesas de cliente/Views/uViewRecibosRemesaCliente.dfm @@ -1,12 +1,12 @@ inherited frViewRecibosRemesaCliente: TfrViewRecibosRemesaCliente - Width = 549 - Height = 376 + Width = 570 + Height = 193 OnShow = CustomViewShow - ExplicitWidth = 549 - ExplicitHeight = 376 + ExplicitWidth = 570 + ExplicitHeight = 193 inherited cxGrid: TcxGrid - Width = 549 - Height = 351 + Width = 570 + Height = 168 ExplicitWidth = 549 ExplicitHeight = 351 inherited cxGridView: TcxGridDBTableView @@ -137,7 +137,7 @@ inherited frViewRecibosRemesaCliente: TfrViewRecibosRemesaCliente end end inherited ToolBar1: TToolBar - Width = 549 + Width = 570 ExplicitWidth = 549 inherited ToolButton1: TToolButton ExplicitWidth = 62 diff --git a/Source/Modulos/Remesas de cliente/Views/uViewRecibosRemesaCliente.pas b/Source/Modulos/Remesas de cliente/Views/uViewRecibosRemesaCliente.pas index ac52267..ca966ce 100644 --- a/Source/Modulos/Remesas de cliente/Views/uViewRecibosRemesaCliente.pas +++ b/Source/Modulos/Remesas de cliente/Views/uViewRecibosRemesaCliente.pas @@ -9,7 +9,8 @@ uses uDADataTable, ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxImageComboBox, cxCurrencyEdit, - uBizRemesasCliente, uRemesasClienteController, uDAInterfaces; + uBizRemesasCliente, uRemesasClienteController, uDAInterfaces, cxLookAndFeels, + cxLookAndFeelPainters; type IViewRecibosRemesaCliente = interface diff --git a/Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.dfm b/Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.dfm index 80c59c4..34b0616 100644 --- a/Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.dfm +++ b/Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.dfm @@ -1,32 +1,30 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente - Width = 725 - Height = 167 + Width = 525 + Height = 160 Align = alClient ExplicitWidth = 451 ExplicitHeight = 304 object dxLayoutControlRemesaCliente: TdxLayoutControl Left = 0 Top = 0 - Width = 725 - Height = 167 + Width = 525 + Height = 160 Align = alClient ParentBackground = True TabOrder = 0 TabStop = False - AutoContentSizes = [acsWidth, acsHeight] - LookAndFeel = dxLayoutOfficeLookAndFeel1 + LayoutLookAndFeel = dxLayoutOfficeLookAndFeel1 ExplicitWidth = 451 ExplicitHeight = 304 DesignSize = ( - 725 - 167) + 525 + 160) object eReferencia: TcxDBTextEdit Left = 110 Top = 30 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'REFERENCIA' DataBinding.DataSource = dsDataTable - Enabled = False Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.Color = 14745599 @@ -72,7 +70,7 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente Width = 108 end object edtFechaRemesa: TcxDBDateEdit - Left = 448 + Left = 348 Top = 30 Anchors = [akLeft, akTop, akRight] DataBinding.DataField = 'FECHA_REMESA' @@ -161,63 +159,65 @@ inherited frViewRemesaCliente: TfrViewRemesaCliente Width = 121 end object dxLayoutControlRemesaClienteGroup_Root: TdxLayoutGroup - ShowCaption = False + AlignHorz = ahParentManaged + AlignVert = avParentManaged + CaptionOptions.Visible = False + ButtonOptions.Buttons = <> Hidden = True ShowBorder = False object dxLayoutControlRemesaClienteGroup1: TdxLayoutGroup - AutoAligns = [aaVertical] AlignHorz = ahClient - Caption = 'Datos de la remesa' + CaptionOptions.Text = 'Datos de la remesa' + ButtonOptions.Buttons = <> object dxLayoutControlRemesaClienteGroup5: TdxLayoutGroup - ShowCaption = False + CaptionOptions.Visible = False + ButtonOptions.Buttons = <> Hidden = True LayoutDirection = ldHorizontal ShowBorder = False object dxLayoutControlRemesaClienteItem3: TdxLayoutItem - AutoAligns = [aaVertical] AlignHorz = ahClient - Caption = 'Referencia:' + CaptionOptions.Text = 'Referencia:' Control = eReferencia ControlOptions.ShowBorder = False end object dxLayoutControlRemesaClienteItem4: TdxLayoutItem - AutoAligns = [aaVertical] AlignHorz = ahClient - Caption = 'Fecha de cargo:' + CaptionOptions.Text = 'Fecha de cargo:' Control = edtFechaRemesa ControlOptions.ShowBorder = False end end object dxLayoutControlRemesaClienteGroup2: TdxLayoutGroup - ShowCaption = False + CaptionOptions.Visible = False + ButtonOptions.Buttons = <> Hidden = True ShowBorder = False object dxLayoutControlRemesaClienteItem9: TdxLayoutItem - AutoAligns = [aaVertical] AlignHorz = ahClient - Caption = 'Cuenta bancaria:' + CaptionOptions.Text = 'Cuenta bancaria:' Control = cbCuentaBancaria ControlOptions.ShowBorder = False end object dxLayoutControlRemesaClienteItem1: TdxLayoutItem - Caption = 'Forma de cobro:' + CaptionOptions.Text = 'Forma de cobro:' Enabled = False Visible = False Control = cbTipo ControlOptions.ShowBorder = False end object dxLayoutControlRemesaClienteItem8: TdxLayoutItem - AutoAligns = [aaVertical] AlignHorz = ahClient - Caption = 'Descripci'#243'n:' + CaptionOptions.Text = 'Descripci'#243'n:' Control = eDescripcion ControlOptions.ShowBorder = False end end end object dxLayoutControlRemesaClienteGroup3: TdxLayoutGroup - Caption = 'New Group' - ShowCaption = False + CaptionOptions.Text = 'New Group' + CaptionOptions.Visible = False + ButtonOptions.Buttons = <> LayoutDirection = ldHorizontal ShowBorder = False end diff --git a/Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.pas b/Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.pas index b89b532..c386c8d 100644 --- a/Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.pas +++ b/Source/Modulos/Remesas de cliente/Views/uViewRemesaCliente.pas @@ -13,7 +13,8 @@ uses cxSpinEdit, cxCurrencyEdit, uBizRemesasCliente, uRemesasClienteController, cxCalendar, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, - cxImageComboBox, uDAInterfaces; + cxImageComboBox, uDAInterfaces, cxLookAndFeels, cxLookAndFeelPainters, + dxLayoutcxEditAdapters; type IViewRemesaCliente = interface(IViewBase) diff --git a/Source/Modulos/Remesas de cliente/Views/uViewRemesasCliente.dfm b/Source/Modulos/Remesas de cliente/Views/uViewRemesasCliente.dfm index 25c2356..499fd20 100644 --- a/Source/Modulos/Remesas de cliente/Views/uViewRemesasCliente.dfm +++ b/Source/Modulos/Remesas de cliente/Views/uViewRemesasCliente.dfm @@ -1,8 +1,11 @@ inherited frViewRemesasCliente: TfrViewRemesasCliente - Height = 420 - ExplicitHeight = 420 + Width = 622 + Height = 259 + ExplicitWidth = 622 + ExplicitHeight = 259 inherited cxGrid: TcxGrid - Height = 292 + Width = 622 + Height = 131 ExplicitHeight = 292 inherited cxGridView: TcxGridDBTableView DataController.KeyFieldNames = 'RecID' @@ -85,8 +88,11 @@ inherited frViewRemesasCliente: TfrViewRemesasCliente end end inherited frViewFiltroBase1: TfrViewFiltroBase - inherited TBXDockablePanel1: TTBXDockablePanel + Width = 622 + inherited TBXDockablePanel1: TSpTBXDockablePanel + Width = 622 inherited dxLayoutControl1: TdxLayoutControl + Width = 622 inherited txtFiltroTodo: TcxTextEdit Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' @@ -102,27 +108,44 @@ inherited frViewRemesasCliente: TfrViewRemesasCliente Width = 272 end inherited edtFechaFinFiltro: TcxDateEdit + Left = 276 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 276 ExplicitWidth = 221 Width = 221 end inherited eLista: TcxComboBox + Left = 467 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 467 ExplicitWidth = 215 Width = 215 end end + inherited TBXAlignmentPanel1: TSpTBXDockablePanel + Width = 612 + inherited tbxBotones: TSpTBXToolbar + Width = 612 + end + end end end - inherited pnlAgrupaciones: TTBXDockablePanel - Top = 394 + inherited pnlAgrupaciones: TSpTBXDockablePanel + Top = 233 + Width = 622 ExplicitTop = 394 + inherited TBXAlignmentPanel1: TSpTBXDockablePanel + Width = 622 + inherited TBXToolbar1: TSpTBXToolbar + Width = 622 + end + end end inherited dxComponentPrinter: TdxComponentPrinter inherited dxComponentPrinterLink: TdxGridReportLink @@ -130,4 +153,7 @@ inherited frViewRemesasCliente: TfrViewRemesasCliente BuiltInReportLink = True end end + inherited dxPSEngineController1: TdxPSEngineController + Active = True + end end diff --git a/Source/Modulos/Remesas de cliente/Views/uViewRemesasCliente.pas b/Source/Modulos/Remesas de cliente/Views/uViewRemesasCliente.pas index 8fbddfa..c9822ac 100644 --- a/Source/Modulos/Remesas de cliente/Views/uViewRemesasCliente.pas +++ b/Source/Modulos/Remesas de cliente/Views/uViewRemesasCliente.pas @@ -11,10 +11,13 @@ uses cxGridBandedTableView, cxGridDBBandedTableView, JvComponent, JvFormAutoSize, PngImageList, ImgList, dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns, - dxPSEdgePatterns, cxIntlPrintSys3, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk, + dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk, cxGridCustomPopupMenu, cxGridPopupMenu, cxCurrencyEdit, cxSpinEdit, cxCheckBox, - cxCheckComboBox, cxImageComboBox, TB2Item, TBX, TB2Toolbar, TBXDkPanels, - TB2Dock, uViewFiltroBase, dxPgsDlg, uDAInterfaces, uCustomView, uViewBase; + cxCheckComboBox, cxImageComboBox, TB2Item, TB2Toolbar, SpTBXDkPanels, + TB2Dock, uViewFiltroBase, dxPgsDlg, uDAInterfaces, uCustomView, uViewBase, + cxLookAndFeels, cxLookAndFeelPainters, dxPSPDFExportCore, dxPSPDFExport, + cxDrawTextUtils, dxPSPrVwStd, dxPSPrVwAdv, dxPScxEditorProducers, + dxPScxExtEditorProducers, dxPScxPageControlProducer, SpTBXItem; type IViewRemesasCliente = interface(IViewGrid) diff --git a/Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.pas b/Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.pas index b2efcbb..4ddb1d6 100644 --- a/Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.pas +++ b/Source/Modulos/Remesas de proveedor/Views/uEditorRemesasProveedor.pas @@ -156,7 +156,7 @@ end; procedure TfEditorRemesasProveedor.OnListaAnosChange(Sender: TObject); begin - Controller.FiltrarAno(RemesasProveedor, DynWhereDataTable, Text); + Controller.FiltrarAno(RemesasProveedor, DynWhereDataTable, cbxListaAnos.Text); if RemesasProveedor.DataTable.Active then RefrescarInterno; end;