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.