Tecsitel_FactuGES/BaseDatos/TablaHistoricoMovimientos.pas

{
===============================================================================
  Copyright (<EFBFBD>) 2001. Rodax Software.
===============================================================================
  Los contenidos de este fichero son propiedad de Rodax Software titular del
  copyright. Este fichero s<EFBFBD>lo podr<EFBFBD> ser copiado, distribuido y utilizado,
  en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
  acuerdo con los t<EFBFBD>rminos y condiciones establecidas en el acuerdo/contrato
  bajo el que se suministra.
  -----------------------------------------------------------------------------
  Web:  www.rodax-software.com
===============================================================================
  Fecha primera versi<EFBFBD>n: 01-10-2001
  Versi<EFBFBD>n actual: 1.0.2
  Fecha versi<EFBFBD>n actual: 14-07-2004
===============================================================================
  Modificaciones:

    Fecha         Comentarios
    ---------------------------------------------------------------------------
    16-11-2002    p250. Poner el n<EFBFBD>mero total de movimientos dados de alta
                  en la inicializaci<EFBFBD>n del grid.
    14-07-2004    Se ha adaptado las SQL a multiempresa.

===============================================================================
}

unit TablaHistoricoMovimientos;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms,
  Dialogs, DBTables, DB, IBCustomDataSet, IBSQL, BaseDatos, IBDatabase,
  dxDBGrid, dxDBCtrl, Mensajes, IB, dbgrids, StrFunc;

type
  TdmTablaHistoricoMovimientos = class(TDataModule)
  private
    procedure IniciarSQL;
  public
    sqlConsultar : TStrings;
    sqlEliminar : TStrings;
    sqlGrid : TStrings;

    constructor Create (AOwner : TComponent); override;
    destructor Destroy; override;

    procedure InicializarGridMovimientos(var Grid: TdxDBGrid);
  end;

var
  dmTablaHistoricoMovimientos: TdmTablaHistoricoMovimientos;

implementation
{$R *.DFM}

constructor TdmTablaHistoricoMovimientos.Create (AOwner : TComponent);
begin
  inherited;
  sqlConsultar := TStringList.Create;
  sqlEliminar := TStringList.Create;
  sqlGrid := TStringList.Create;
  IniciarSQL;
end;

destructor TdmTablaHistoricoMovimientos.Destroy;
begin
  sqlConsultar.Free;
  sqlEliminar.Free;
  sqlGrid.Free;
  inherited;
end;

procedure TdmTablaHistoricoMovimientos.IniciarSQL;
begin
  with sqlConsultar do
  begin
    Add('select * ');
    Add('from MOVIMIENTOS ');
    Add('where CODIGOEMPRESA = :CODIGOEMPRESA ');
    Add('and CODIGO = :CODIGO ');
  end;

  with sqlEliminar do
  begin
    Add('delete from MOVIMIENTOS ');
    Add('where CODIGOEMPRESA = :CODIGOEMPRESA ');
    Add('and CODIGO = :CODIGO ');
  end;

  with sqlGrid do
  begin
    Add('select CODIGO, FECHA, HORA, TIPOOPERACION, TIPOMOVIMIENTO, CODIGOARTICULO, FAMILIA, ');
    Add('DESCRIPCIONARTICULO, STOCKANTIGUO, STOCKNUEVO ');
    Add('from MOVIMIENTOS ');
    Add('where CODIGOEMPRESA = :CODIGOEMPRESA ');
    Add('and CODIGOALMACEN = :CODIGOALMACEN ');
    Add('order by FECHA desc, HORA desc');
  end;
end;

procedure TdmTablaHistoricoMovimientos.InicializarGridMovimientos(var Grid: TdxDBGrid);
var
  Columna : TdxDBTreeListColumn;
begin
  with Grid do begin
    DestroyColumns;
    ShowSummaryFooter := True;
    {Columna FECHA}
    Columna := CreateColumn(TdxDBTreeListColumn);
    Columna.FieldName := 'FECHA';
    Columna.Caption := 'Fecha';
    Columna.Width := tamColFecha2;
    Columna.SummaryFooterType := cstCount;
    Columna.SummaryFooterFormat := 'Total: 0 movimientos';    
    {Columna HORA}
    Columna := CreateColumn(TdxDBTreeListColumn);
    Columna.FieldName := 'HORA';
    Columna.Caption := 'Hora';
    Columna.Width := tamColHora;
    {Columna TIPOOPERACION}
    Columna := CreateColumn(TdxDBTreeListColumn);
    Columna.FieldName := 'TIPOOPERACION';
    Columna.Caption := 'Tipo operaci<63>n';
    Columna.Width := tamColTipoOperacion;
    {Columna TIPOMOVIMIENTO}
    Columna := CreateColumn(TdxDBTreeListColumn);
    Columna.FieldName := 'TIPOMOVIMIENTO';
    Columna.Caption := 'Tipo movimiento';
    Columna.Width := tamColTipoMovimiento;
    {Columna CODIGOARTICULO}
    Columna := CreateColumn(TdxDBTreeListColumn);
    Columna.FieldName := 'CODIGOARTICULO';
    Columna.Caption := 'C<>d. material';
    Columna.Width := tamColCodigo3;
    {Columna DESCRIPCIONARTICULO}
    Columna := CreateColumn(TdxDBTreeListColumn);
    Columna.FieldName := 'DESCRIPCIONARTICULO';
    Columna.Caption := 'Descripci<63>n';
    Columna.Width := tamColDescripcion3;
    {Columna STOCKANTIGUO}
    Columna := CreateColumn(TdxDBTreeListColumn);
    Columna.FieldName := 'STOCKANTIGUO';
    Columna.Caption := 'Stock anterior';
    Columna.Width := tamColStockMin;
    {Columna STOCKNUEVO}
    Columna := CreateColumn(TdxDBTreeListColumn);
    Columna.FieldName := 'STOCKNUEVO';
    Columna.Caption := 'Stock nuevo';
    Columna.Width := tamColStockMin;
  end;
end;

end.