Tecsitel_FactuGES/Frames/RdxFrameMovimientos.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.3
  Fecha versi<EFBFBD>n actual: 20-08-2002
===============================================================================
  Modificaciones:

    Fecha         Comentarios
    ---------------------------------------------------------------------------
    31-03-2002    Eliminar el procedimiento virtual BorrarLineasDetalle, que se aplicaba
                  al TratarCambios y decir que si.

    07-04-2002    Se ha adaptado el frame para transaccion unica.

    09-04-2002    Sustituir las constantes IDYES/IDNO por IDOK.

    20-08-2002    A<EFBFBD>adir en TratarCambios el Cancel.
===============================================================================
}

unit RdxFrameMovimientos;

{$I ..\COMPILE.INC}

interface

uses
  Consts, Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  RdxFrame, RdxDBFrame, IBCustomDataSet, Tipos, IBDataBase, DB, RxMemDS;

type
  TRdxFrameMovimientos = class(TRdxDBFrame)
  private
    FTablaPedidos : TIBDataSet;
    FTablaDetalleMem : TRxMemoryData;
  protected

    FCodigoAlmacenOrigen : Variant;
    FCodigoAlmacenDestino : Variant;
    FCodigoArticulo : Variant;
    FCodigoPedido : Variant;
    FCodigoCliente : Variant;
    FListaAlmacenesCodigo : TStringList;
    FListaCodigosAlmacen : TStringList;

    procedure SetTablaPedidos (Value : TIBDataSet);
    procedure SetTablaDetalleMem (Value : TRxMemoryData);
    procedure SetCodigoAlmacenOrigen (Value : Variant); virtual;
    procedure SetCodigoAlmacenDestino (Value : Variant); virtual;
    procedure SetCodigoArticulo (Value : Variant); virtual;
    procedure SetCodigoPedido (Value : Variant); virtual;
    procedure SetCodigoCliente (Value : Variant); virtual;

    procedure BuscarAlmacenOrigen; virtual; abstract;
    procedure BuscarAlmacenDestino; virtual; abstract;
    procedure BuscarPedido; virtual; abstract;
    procedure BuscarCliente; virtual; abstract;

    function TratarCambios : integer; override;
    procedure SetContenido (NuevoFrame : TRdxFrame); override;
    procedure CambiarModo(ModoAnterior, Modo : TRdxModo); override;
  public
    property TablaPedidos: TIBDataSet read FTablaPedidos write SetTablaPedidos;
    property TablaDetalleMem: TRxMemoryData read FTablaDetalleMem write SetTablaDetalleMem;
    property CodigoAlmacenOrigen : Variant read FCodigoAlmacenOrigen write SetCodigoAlmacenOrigen;
    property CodigoAlmacenDestino : Variant read FCodigoAlmacenDestino write SetCodigoAlmacenDestino;
    property CodigoPedido : Variant read FCodigoPedido write SetCodigoPedido;
    property CodigoCliente : Variant read FCodigoCliente write SetCodigoCliente;
    property CodigoArticulo : Variant read FCodigoArticulo write SetCodigoArticulo;

    constructor Create (AOwner : TComponent); override;
    destructor Destroy; override;
  published
    property BaseDatos;
    property Transaccion;
  end;

implementation

{$R *.DFM}

uses
  IB, Mensajes
  {$IFDEF RDX_D6}, Variants{$ENDIF};

{ TRdxFrameProveedores }

const
msgPregunta = '<27>Esta seguro de que desea salir del movimiento?';

constructor TRdxFrameMovimientos.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FTablaPedidos := nil;
  FTablaDetalleMem := nil;
  FCodigoAlmacenOrigen := NULL;
  FCodigoAlmacenDestino := NULL;
  FCodigoPedido := NULL;
  FCodigoCliente := NULL;
  FCodigoArticulo := NULL;

  FListaAlmacenesCodigo := TStringList.Create;
  FListaCodigosAlmacen := TStringList.Create;
end;

destructor TRdxFrameMovimientos.Destroy;
begin
  FListaAlmacenesCodigo.Free;
  FListaCodigosAlmacen.Free;
  inherited;
end;

procedure TRdxFrameMovimientos.SetContenido(NuevoFrame: TRdxFrame);
begin
  if (FContenido <> NIL) then
    if (Contenido.Name = NuevoFrame.ClassName) then
    begin
      NuevoFrame.Free;
      exit;
    end;
  inherited;
end;

procedure TRdxFrameMovimientos.SetCodigoAlmacenOrigen(Value: Variant);
begin
  if (not VarIsNull(Value)) then
  begin
    FCodigoAlmacenOrigen := Value;
    BuscarAlmacenOrigen;
  end;
end;


procedure TRdxFrameMovimientos.SetCodigoArticulo(Value: Variant);
begin
  if VarIsNull(Value) then
    exit;
  if Value = '' then
    exit;
  FCodigoArticulo := Value;
end;

procedure TRdxFrameMovimientos.SetCodigoAlmacenDestino(Value: Variant);
begin
  if not VarIsNull(Value) then
  begin
    FCodigoAlmacenDestino := Value;
    BuscarAlmacenDestino;
  end;
end;

procedure TRdxFrameMovimientos.SetCodigoPedido(Value: Variant);
begin
  if (not VarIsNull(Value)) then
  begin
    FCodigoPedido := Value;
    BuscarPedido;
  end;
end;

procedure TRdxFrameMovimientos.SetCodigoCliente(Value: Variant);
begin
  if (not VarIsNull(Value)) then
  begin
    FCodigoCliente := Value;
    BuscarCliente;
  end;
end;


procedure TRdxFrameMovimientos.CambiarModo(ModoAnterior, Modo: TRdxModo);
begin
  inherited;
  if (FModo in [Normal, Seleccionar]) then
  begin
    TablaDetalleMem.Close;
    TablaDetalleMem.Open;
  end
  else begin
    { Si est<EFBFBD>bamos en el modo A<EFBFBD>adir y pasamos a cualquier otro modo SIEMPRE
      es necesario buscar el codigo de almac<EFBFBD>n que tiene el frame
      en CodigoAlmacen (al activar el modo A<EFBFBD>adir NO se pisa este valor con
      el c<EFBFBD>digo de almac<EFBFBD>n nuevo), preguntamos si la tabla esta activa por si
      se ha cerrado al realizar algun cambio en modificar y ejecutar TratarCambios}
    if (not TablaDetalleMem.Active) or (ModoAnterior = Anadir) then
      BuscarAlmacenDestino;
  end;
end;

procedure TRdxFrameMovimientos.SetTablaPedidos(Value: TIBDataSet);
begin
  if (FTablaPedidos <> Value) then
  begin
    FTablaPedidos := Value;
  end;
end;

procedure TRdxFrameMovimientos.SetTablaDetalleMem(Value: TRxMemoryData);
begin
  if (FTablaDetalleMem <> Value) then
  begin
    FTablaDetalleMem := Value;
  end;
end;

function TRdxFrameMovimientos.TratarCambios : integer;
begin
  if TablaDetalleMem.Modified = true then
    TablaDetalleMem.Post;
  if (TablaDetalleMem.RecordCount <> 0) then
    case VerMensajePregunta(msgPregunta) of
      IDYES       : Result := IDOK;
      IDNO        : Result := IDNO;
      IDCANCEL    : Result := IDCANCEL;
    end
  else Result := IDOK;
end;

end.