FactuGES2/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesDevProveedor.pas
2007-11-28 17:40:31 +00:00

40 lines
1.3 KiB
ObjectPascal

unit uViewAlbaranesDevProveedor;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewAlbaranesProveedor, cxStyles, cxCustomData, cxGraphics,
cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, cxImageComboBox,
cxCurrencyEdit, dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg, dxBkgnd, dxWrap,
dxPrnDev, dxPSCompsProvider, dxPSFillPatterns, dxPSEdgePatterns, dxPgsDlg,
dxPSCore, ImgList, PngImageList, ActnList, cxGridCustomPopupMenu,
cxGridPopupMenu, dxPScxCommon, dxPScxGridLnk, uDADataTable, TB2Item, TBX,
TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase, cxGridLevel,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxControls, cxGridCustomView, cxGrid, cxTextEdit;
type
IViewAlbaranesDevProveedor = interface(IViewAlbaranesProveedor)
['{FB031921-EC00-402F-820D-2EFE0EBB8FCC}']
end;
TfrViewAlbaranesDevProveedor = class(TfrViewAlbaranesProveedor, IViewAlbaranesDevProveedor)
procedure CustomViewCreate(Sender: TObject);
end;
implementation
{$R *.dfm}
procedure TfrViewAlbaranesDevProveedor.CustomViewCreate(Sender: TObject);
begin
inherited;
cxGridViewREF_PED_PROVEEDOR.Destroy;
cxGridViewCALLE.Destroy;
cxGridViewCODIGO_POSTAL.Destroy;
cxGridViewPOBLACION.Destroy;
cxGridViewPROVINCIA.Destroy;
end;
end.