unit uViewDatosPagoCliente; 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; type TfrViewDatosPago = class(TfrViewBase) Bevel1: TBevel; Label5: TLabel; Label1: TLabel; Label2: TLabel; edtFecha: TcxDBDateEdit; Label3: TLabel; edtVencimiento: TcxDBDateEdit; DADataSource: TDADataSource; eReferencia: TcxDBTextEdit; private { Private declarations } public { Public declarations } end; var frViewDatosPago: TfrViewDatosPago; implementation {$R *.dfm} end.