AbetoDesign_FactuGES2/Source/Modulos/Albaranes de proveedor/Views/uViewAlbaranesDevProveedor.pas

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, dxPScxGrid6Lnk, uDADataTable, TB2Item, TBX,
  TB2Toolbar, TBXDkPanels, TB2Dock, uViewFiltroBase, cxGridLevel,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
  cxControls, cxGridCustomView, cxGrid, cxTextEdit, uDAInterfaces, uCustomView,
  uViewBase;

type
  IViewAlbaranesDevProveedor = interface(IViewAlbaranesProveedor)
  ['{FB031921-EC00-402F-820D-2EFE0EBB8FCC}']
  end;

  TfrViewAlbaranesDevProveedor = class(TfrViewAlbaranesProveedor, IViewAlbaranesDevProveedor)
    cxGridViewALBARAN_PADRE: TcxGridDBColumn;
    procedure CustomViewCreate(Sender: TObject);
  end;

implementation
{$R *.dfm}

procedure TfrViewAlbaranesDevProveedor.CustomViewCreate(Sender: TObject);
begin
  inherited;
  cxGridViewCALLE.Destroy;
  cxGridViewCODIGO_POSTAL.Destroy;
  cxGridViewPOBLACION.Destroy;
  cxGridViewPROVINCIA.Destroy;
end;

end.