unit uViewTiendas;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uViewBase, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
  cxDataStorage, cxEdit, DB, cxDBData, cxTextEdit, cxGridLevel,
  cxGridCustomTableView, cxGridTableView, cxGridBandedTableView,
  cxGridDBBandedTableView, cxClasses, cxControls, cxGridCustomView, cxGrid,
  uDADataTable, Grids, DBGrids, ActnList, ImgList, PngImageList, ComCtrls,
  ToolWin, cxGridDBTableView, uViewDetallesGenerico, cxCurrencyEdit,
  uDAInterfaces;

type
  TfrViewTiendas = class(TfrViewDetallesGenerico)
    cxGridViewDIRECCION: TcxGridDBColumn;
    cxGridViewPOBLACION: TcxGridDBColumn;
    cxGridViewCP: TcxGridDBColumn;
    cxGridViewPROVINCIA: TcxGridDBColumn;
    cxGridViewPERSONA_CONTACTO: TcxGridDBColumn;
    cxGridViewNOMBRE: TcxGridDBColumn;
    cxGridViewTELEFONO: TcxGridDBColumn;
    cxGridViewEMAIL: TcxGridDBColumn;
    cxGridViewPORTE: TcxGridDBColumn;
    procedure cxGridViewDblClick(Sender: TObject);
    procedure actEliminarExecute(Sender: TObject);
  protected
    procedure AnadirInterno; override;
    procedure ModificarInterno; override;
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

uses
  uDialogUtils, uTiendasEmpresaController, uBizEmpresasTiendas;

procedure TfrViewTiendas.actEliminarExecute(Sender: TObject);
begin
  if (ShowConfirmMessage('Eliminar una tienda', '¿Desea eliminar esta tienda?') = IDYES) then
    inherited;
end;

procedure TfrViewTiendas.AnadirInterno;
begin
  inherited;

  try
    with TTiendasEmpresaController.Create do
      Ver((dsDetalles.DataTable) as IBizEmpresasTiendas);
  finally
    if (dsDetalles.DataTable.State in dsEditModes) then
      dsDetalles.DataTable.Post;
  end;
end;

procedure TfrViewTiendas.cxGridViewDblClick(Sender: TObject);
begin
  inherited;
  actModificar.Execute;
end;

procedure TfrViewTiendas.ModificarInterno;
begin
  inherited;
  with TTiendasEmpresaController.Create do
    Ver((dsDetalles.DataTable) as IBizEmpresasTiendas);
end;

end.