unit uViewInfMargenArticulo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uViewInformeBase, ActnList, ImgList, PngImageList, uViewGrid,
  uViewInformeBaseGrid, uViewSumarios, TBXDkPanels, StdCtrls,
  uViewAgrupaciones, uCustomView, uViewBase, uViewColumnas, ComCtrls,
  TB2Dock, uViewInformeBaseParametros, uBizInformes, cxStyles,
  cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB,
  cxDBData, cxGridLevel, cxClasses, cxControls, cxGridCustomView,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid,
  cxTextEdit, uViewFiltros, uBizInfMargenArticulo,
  uViewPeriodoFechas, uViewInfMargenArticuloGrid, cxContainer, uViewFiltroBase,
  uDADataTable, uInfMargenArticuloController;

type
  IViewInfMargenArticulo = interface(IViewInformeBase)
  ['{B9426535-792E-47C3-825E-1EB378FD4AB7}']
    function GetDatos : IBizInfMargenArticulo;
    procedure SetDatos (const Value : IBizInfMargenArticulo);
    property Datos : IBizInfMargenArticulo read GetDatos write SetDatos;
  end;

  TfrViewInfMargenArticulo = class(TfrViewInformeBase, IViewInfMargenArticulo)
    actPeriodoFechas: TAction;
    frViewInfMargenArticuloGrid1: TfrViewInfMargenArticuloGrid;
    frViewPeriodoFechas1: TfrViewPeriodoFechas;
    procedure actRefrescarExecute(Sender: TObject);
    procedure actPeriodoFechasExecute(Sender: TObject);
    procedure frViewInfMargenArticuloGrid1cxGridViewPOR_MARGEN_PRO_COMPHeaderClick(
      Sender: TObject);
    procedure frViewInfMargenArticuloGrid1cxGridViewCANTIDADHeaderClick(
      Sender: TObject);
    procedure frViewInfMargenArticuloGrid1cxGridViewIMP_MARGEN_PRO_COMP_TOTALHeaderClick(
      Sender: TObject);
    procedure frViewInfMargenArticuloGrid1cxGridViewPOR_MARGEN_ULT_VENT_ULT_COMPHeaderClick(
      Sender: TObject);
    procedure frViewInfMargenArticuloGrid1cxGridViewIMP_MARGEN_ULT_VENT_ULT_COMPHeaderClick(
      Sender: TObject);
    procedure frViewInfMargenArticuloGrid1cxGridViewPOR_MARGEN_PRO_VENT_PRO_COMPHeaderClick(
      Sender: TObject);
    procedure frViewInfMargenArticuloGrid1cxGridViewIMP_MARGEN_PRO_VENT_PRO_COMPHeaderClick(
      Sender: TObject);

  protected
    FDatos : IBizInfMargenArticulo;
    FModificado : Boolean;
    procedure OnViewInformeBaseGridChanged(Sender : TObject);
    procedure OnFilterChanged(Sender : TObject);
    procedure ActivarTarea(const ATarea: Integer); override;
    function GetFocusedView: TcxGridDBTableView; override;
    function GetDatos : IBizInfMargenArticulo;
    procedure SetDatos (const Value : IBizInfMargenArticulo);

  public
    property Datos : IBizInfMargenArticulo read GetDatos write SetDatos;
    constructor Create(AOwner: TComponent); override;
    procedure Refresh; override;
  end;

implementation
{$R *.dfm}

uses schInfMargenArticuloClient_Intf;

const
  PERIODO = 0;



{ TfrViewInfMargenArticulo }

constructor TfrViewInfMargenArticulo.Create(AOwner: TComponent);
begin
  inherited;
  frViewInfMargenArticuloGrid1.OnViewChanged := OnViewInformeBaseGridChanged;
  frViewInfMargenArticuloGrid1.OnFilterChanged := OnFilterChanged;
  frViewColumnas1.ViewInformeBaseGrid := frViewInfMargenArticuloGrid1;
  frViewAgrupaciones1.ViewInformeBaseGrid := frViewInfMargenArticuloGrid1;
  frViewSumarios1.ViewInformeBaseGrid := frViewInfMargenArticuloGrid1;
  frViewFiltros1.ViewInformeBaseGrid := frViewInfMargenArticuloGrid1;
  pcParametros.ActivePage := TabSheet5;
end;


procedure TfrViewInfMargenArticulo.frViewInfMargenArticuloGrid1cxGridViewCANTIDADHeaderClick(
  Sender: TObject);
begin
  inherited;
  frViewInfMargenArticuloGrid1.cxGridView.DataController.Groups.DataController.BeginUpdate;
  frViewInfMargenArticuloGrid1.cxGridView.GetColumnByFieldName(fld_InfMargenPorFacturaCANTIDAD).SortOrder := soAscending;
  frViewInfMargenArticuloGrid1.cxGridView.GetColumnByFieldName(fld_InfMargenPorFacturaCANTIDAD).Summary.SortByGroupFooterSummary := True;
  frViewInfMargenArticuloGrid1.cxGridView.DataController.Groups.DataController.EndUpdate;
end;

procedure TfrViewInfMargenArticulo.frViewInfMargenArticuloGrid1cxGridViewIMP_MARGEN_PRO_COMP_TOTALHeaderClick(
  Sender: TObject);
begin
  inherited;
  frViewInfMargenArticuloGrid1.cxGridView.DataController.Groups.DataController.BeginUpdate;
  frViewInfMargenArticuloGrid1.cxGridView.GetColumnByFieldName(fld_InfMargenPorFacturaIMP_MARGEN_PRO_COMP_TOTAL).SortOrder := soAscending;
  frViewInfMargenArticuloGrid1.cxGridView.GetColumnByFieldName(fld_InfMargenPorFacturaIMP_MARGEN_PRO_COMP_TOTAL).Summary.SortByGroupFooterSummary := True;
  frViewInfMargenArticuloGrid1.cxGridView.DataController.Groups.DataController.EndUpdate;
end;

procedure TfrViewInfMargenArticulo.frViewInfMargenArticuloGrid1cxGridViewIMP_MARGEN_PRO_VENT_PRO_COMPHeaderClick(
  Sender: TObject);
begin
  inherited;
  frViewInfMargenArticuloGrid1.cxGridView.DataController.Groups.DataController.BeginUpdate;
  frViewInfMargenArticuloGrid1.cxGridView.GetColumnByFieldName(fld_InfMargenPorClienteIMP_MARGEN_PRO_VENT_PRO_COMP).SortOrder := soAscending;
  frViewInfMargenArticuloGrid1.cxGridView.GetColumnByFieldName(fld_InfMargenPorClienteIMP_MARGEN_PRO_VENT_PRO_COMP).Summary.SortByGroupFooterSummary := True;
  frViewInfMargenArticuloGrid1.cxGridView.DataController.Groups.DataController.EndUpdate;
end;

procedure TfrViewInfMargenArticulo.frViewInfMargenArticuloGrid1cxGridViewIMP_MARGEN_ULT_VENT_ULT_COMPHeaderClick(
  Sender: TObject);
begin
  inherited;
  frViewInfMargenArticuloGrid1.cxGridView.DataController.Groups.DataController.BeginUpdate;
  frViewInfMargenArticuloGrid1.cxGridView.GetColumnByFieldName(fld_InfMargenPorClienteIMP_MARGEN_ULT_VENT_ULT_COMP).SortOrder := soAscending;
  frViewInfMargenArticuloGrid1.cxGridView.GetColumnByFieldName(fld_InfMargenPorClienteIMP_MARGEN_ULT_VENT_ULT_COMP).Summary.SortByGroupFooterSummary := True;
  frViewInfMargenArticuloGrid1.cxGridView.DataController.Groups.DataController.EndUpdate;
end;

procedure TfrViewInfMargenArticulo.frViewInfMargenArticuloGrid1cxGridViewPOR_MARGEN_PRO_COMPHeaderClick(
  Sender: TObject);
begin
  inherited;
  frViewInfMargenArticuloGrid1.cxGridView.DataController.Groups.DataController.BeginUpdate;
  frViewInfMargenArticuloGrid1.cxGridView.GetColumnByFieldName(fld_InfMargenPorFacturaPOR_MARGEN_PRO_COMP).SortOrder := soAscending;
  frViewInfMargenArticuloGrid1.cxGridView.GetColumnByFieldName(fld_InfMargenPorFacturaPOR_MARGEN_PRO_COMP).Summary.SortByGroupFooterSummary := True;
  frViewInfMargenArticuloGrid1.cxGridView.DataController.Groups.DataController.EndUpdate;
end;

procedure TfrViewInfMargenArticulo.frViewInfMargenArticuloGrid1cxGridViewPOR_MARGEN_PRO_VENT_PRO_COMPHeaderClick(
  Sender: TObject);
begin
  inherited;
  frViewInfMargenArticuloGrid1.cxGridView.DataController.Groups.DataController.BeginUpdate;
  frViewInfMargenArticuloGrid1.cxGridView.GetColumnByFieldName(fld_InfMargenPorClientePOR_MARGEN_PRO_VENT_PRO_COMP).SortOrder := soAscending;
  frViewInfMargenArticuloGrid1.cxGridView.GetColumnByFieldName(fld_InfMargenPorClientePOR_MARGEN_PRO_VENT_PRO_COMP).Summary.SortByGroupFooterSummary := True;
  frViewInfMargenArticuloGrid1.cxGridView.DataController.Groups.DataController.EndUpdate;
end;

procedure TfrViewInfMargenArticulo.frViewInfMargenArticuloGrid1cxGridViewPOR_MARGEN_ULT_VENT_ULT_COMPHeaderClick(
  Sender: TObject);
begin
  inherited;
  frViewInfMargenArticuloGrid1.cxGridView.DataController.Groups.DataController.BeginUpdate;
  frViewInfMargenArticuloGrid1.cxGridView.GetColumnByFieldName(fld_InfMargenPorClientePOR_MARGEN_ULT_VENT_ULT_COMP).SortOrder := soAscending;
  frViewInfMargenArticuloGrid1.cxGridView.GetColumnByFieldName(fld_InfMargenPorClientePOR_MARGEN_ULT_VENT_ULT_COMP).Summary.SortByGroupFooterSummary := True;
  frViewInfMargenArticuloGrid1.cxGridView.DataController.Groups.DataController.EndUpdate;
end;

function TfrViewInfMargenArticulo.GetDatos: IBizInfMargenArticulo;
begin
  Result := FDatos;
end;

function TfrViewInfMargenArticulo.GetFocusedView: TcxGridDBTableView;
begin
  Result := frViewInfMargenArticuloGrid1.cxGridView;
end;

procedure TfrViewInfMargenArticulo.Refresh;
var
  AColumns : TStringList;
  AColumnsGroup : TStringList;
  i: Integer;
begin
  inherited;
  ShowHourglassCursor;

  actRefrescar.Enabled := False;

  frViewInfMargenArticuloGrid1.OnViewChanged := nil;
  frViewInfMargenArticuloGrid1.OnFilterChanged := nil;

  try
    // Calcular las columnas a pedir al servidor
    AColumns := frViewColumnas1.GetCheckedColumns;
    AColumns.sorted := true;
    AColumns.Duplicates := dupIgnore;

    //Añadimos el nombre de los campos a los que referencia los captions de agrupacion
    AColumnsGroup := frViewAgrupaciones1.GetAgrupaciones;
    for i:= 0 to AColumnsGroup.Count - 1 do
      AColumns.Add((frViewInfMargenArticuloGrid1 as IViewInformeBaseGrid).GetColumnByCaption(AColumnsGroup.Strings[i]).DataBinding.FieldName);


   FDatos.VisibleColumns := AColumns.CommaText;

    with Datos.DataTable do
    begin
      DisableControls;
      try
        Active := False;

        LoadSchema;

        ParamByName('FECHAINI').AsDateTime := frViewPeriodoFechas1.FechaInicial;
        ParamByName('FECHAFIN').AsDateTime := frViewPeriodoFechas1.FechaFinal;

//        ParamByName('FECHAINI2').AsDateTime :=  frViewPeriodoFechas1.FechaInicial; //'12.12.2000';
//        ParamByName('FECHAFIN2').AsDateTime := frViewPeriodoFechas1.FechaFinal;

        Active := True;

        frViewColumnas1.Execute;
        frViewAgrupaciones1.Execute;
        frViewSumarios1.Refresh;
        frViewFiltros1.Refresh;
        pnlTareas.Visible := True;

        if Assigned(FOnViewChanged) then
          FOnViewChanged(Self);
      finally
        EnableControls;
        frViewInfMargenArticuloGrid1.Refresh;
        frViewInfMargenArticuloGrid1.ExpandirTodo;
        frViewInfMargenArticuloGrid1.GotoFirst;

        //Para que no lo incluya en la agrupacion del distinc y luego no salga
        frViewInfMargenArticuloGrid1.cxGridViewID_DETALLE.Visible := False;
      end;
    end;

  finally
    FreeAndNil(AColumns);
//    ViewInfMargenArticuloGrid.OnViewChanged := OnViewInformeBaseGridChanged;
//    ViewInfMargenArticuloGrid.OnFilterChanged := OnFilterChanged;
    actRefrescar.Enabled := True;
    HideHourglassCursor;
  end;
end;

procedure TfrViewInfMargenArticulo.SetDatos(const Value: IBizInfMargenArticulo);
begin
  FDatos := Value;
end;

procedure TfrViewInfMargenArticulo.actRefrescarExecute(Sender: TObject);
begin
  inherited;
  Refresh;
end;

procedure TfrViewInfMargenArticulo.OnViewInformeBaseGridChanged(
  Sender: TObject);
begin
  if Assigned(Self.OnViewChanged) then
    Self.OnViewChanged(Self);
end;

procedure TfrViewInfMargenArticulo.OnFilterChanged(Sender: TObject);
begin
  frViewFiltros1.Refresh;
end;

procedure TfrViewInfMargenArticulo.actPeriodoFechasExecute(
  Sender: TObject);
begin
  inherited;
  ActivarTarea(PERIODO);
end;

procedure TfrViewInfMargenArticulo.ActivarTarea(const ATarea: Integer);
begin
  inherited;
  case ATarea of
    PERIODO    : pcParametros.ActivePage := TabSheet5;
  end;
end;

end.