39 lines
906 B
ObjectPascal
39 lines
906 B
ObjectPascal
|
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.
|