25 lines
600 B
ObjectPascal
25 lines
600 B
ObjectPascal
|
unit uViewProveedor;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
|
|
Dialogs, uViewContacto, DB, uDADataTable, DBCtrls, uViewCategorias,
|
||
|
|
uViewInternet, uViewTelefonos, StdCtrls, Mask, ExtCtrls, uCustomView,
|
||
|
|
uViewBase, uViewDireccion, JvComponent, JvFormAutoSize, cxControls,
|
||
|
|
cxContainer, cxEdit, cxTextEdit, cxDBEdit;
|
||
|
|
|
||
|
|
type
|
||
|
|
IViewProveedor = interface(IViewContacto)
|
||
|
|
['{6A199FA2-EBDB-41EF-99D7-EE4DD32BDAC3}']
|
||
|
|
end;
|
||
|
|
|
||
|
|
TfrViewProveedor = class(TfrViewContacto, IViewProveedor)
|
||
|
|
end;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
{$R *.dfm}
|
||
|
|
|
||
|
|
end.
|