unit uEditorPagosProveedor;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uEditorPagos, Menus, DB, uDADataTable, JvAppStorage,
  JvAppRegistryStorage, JvComponent, JvFormPlacement, ImgList,
  PngImageList, StdActns, ActnList, ComCtrls, TB2ExtItems, TBXExtItems,
  TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls,
  JvNavigationPane, JvComponentBase;

type
  IEditorPagosProveedor = interface(IEditorPagos)
  ['{FC3BF723-7AE6-4468-AF8E-CA9FA8A912D9}']
  end;

  TfEditorPagosProveedor = class(TfEditorPagos, IEditorPagosProveedor)
    procedure actEliminarExecute(Sender: TObject);
  public
    constructor Create(AOwner: TComponent); override;
  end;

var
  fEditorPagosProveedor: TfEditorPagosProveedor;

implementation

{$R *.dfm}
{ TfEditorPagosProveedor }

uses uEditorUtils,
     uViewPagosProveedor, uBizPagos, uViewPagos;

procedure TfEditorPagosProveedor.actEliminarExecute(Sender: TObject);
begin
  if (Application.MessageBox('¿Desea borrar este pago de proveedor?', 'Atención', MB_YESNO) = IDYES) then
  begin
    inherited;
    ViewGrid.RefreshGrid;
  end;
end;

constructor TfEditorPagosProveedor.Create(AOwner: TComponent);
begin
  inherited;
  ViewGrid := CreateView(TfrViewPagosProveedor) as IViewPagos;
end;

end.