unit uViewDatosPago; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, uViewBase, DB, uDADataTable, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxCalendar, cxDBEdit, StdCtrls, Mask, DBCtrls, ExtCtrls, cxMemo, cxRichEdit, cxDBRichEdit, cxGraphics, cxCurrencyEdit, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, uBizPagos, uBizCuentas, uCustomView, uListaCuentas; type TfrViewDatosPago = class(TfrViewBase) eFecha: TLabel; edtFecha: TcxDBDateEdit; DADataSource: TDADataSource; eDescripcion: TLabel; edtDescripcion: TcxDBTextEdit; eImporte: TLabel; edtImporte: TcxDBCurrencyEdit; Bevel1: TBevel; Label5: TLabel; private public end; var frViewDatosPago: TfrViewDatosPago; implementation {$R *.dfm} { TfrViewDatosPago } end.