Tecsitel_FactuGES/Frames/RdxFrameFacturasCliente.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: 02-08-2002
===============================================================================
  Modificaciones:

    Fecha         Comentarios
    ---------------------------------------------------------------------------
    07-04-2002    Se ha adaptado el frame para transacci<EFBFBD>n <EFBFBD>nica.

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

    02-08-2002    P224. El frame ahora trabaja con listas de facturas en vez de
                  con una sola factura.
===============================================================================
}

unit RdxFrameFacturasCliente;

{$I ..\COMPILE.INC}

interface

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

type
  TRdxFrameFacturasCliente = class(TRdxDBFrame)
  private
    FTablaFacturas : TIBDataSet;
    FTablaDetallesFacturas : TIBDataSet;
  protected
    FListaFacturas : TStringList;
    procedure SetTablaFacturas (Value : TIBDataSet);
    procedure SetTablaDetallesFacturas (Value : TIBDataSet);
    procedure SetListaFacturas (Value : TStringList);
    procedure SetCodigoFactura (Value : Variant);
    procedure SetFCodigoFactura (Value : Variant);
    function GetCodigoFactura: Variant;
    function GetFCodigoFactura: Variant;
    procedure SetContenido (NuevoFrame : TRdxFrame); override;
    function TratarCambios : integer; override;
    procedure BuscarFactura; virtual; 
    procedure CambiarModo(ModoAnterior, Modo : TRdxModo); override;
  public
    property TablaFacturas: TIBDataSet read FTablaFacturas write SetTablaFacturas;
    property TablaDetallesFacturas: TIBDataSet read FTablaDetallesFacturas write SetTablaDetallesFacturas;

    property ListaFacturas : TStringList read FListaFacturas write SetListaFacturas;
    property CodigoFactura : Variant read GetCodigoFactura write SetCodigoFactura;
    property FCodigoFactura : Variant read GetFCodigoFactura write SetFCodigoFactura;
    constructor Create (AOwner : TComponent); override;
    destructor Destroy; override;
  published
    property BaseDatos;
    property Transaccion;
  end;


implementation

{$R *.DFM}

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


{ TRdxFrameFacturasCliente }

constructor TRdxFrameFacturasCliente.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FListaFacturas := TStringList.Create;
  FTablaFacturas := NIL;
  FTablaDetallesFacturas := NIL;
end;

function TRdxFrameFacturasCliente.TratarCambios : integer;
begin
  if (TablaFacturas.Modified = True) or
     ((TablaDetallesFacturas <> NIL) and (TablaDetallesFacturas.Modified = True)) then
  begin
    case VerMensajePregunta(msgGuardarCambios) of
      IDCANCEL    : Result := IDCANCEL;
      IDYES       : begin
                      if (RealizarOperacion)
                      then Result := IDOK
                      else Result := IDCANCEL;
                    end;
      IDNO        : begin
                      if (DescartarOperacion)
                      then Result := IDOK
                      else Result := IDCANCEL;
                    end;
    end
  end
  else Result := IDOK;
end;

procedure TRdxFrameFacturasCliente.SetCodigoFactura(Value: Variant);
begin
  if not EsCadenaVacia(Value) then
  begin
    FCodigoFactura := Value;
    BuscarFactura;
  end
end;

procedure TRdxFrameFacturasCliente.SetContenido(NuevoFrame: TRdxFrame);
begin
  if (FContenido <> NIL) then
    if (Contenido.Name = NuevoFrame.ClassName) then
    begin
      NuevoFrame.Free;
      exit;
    end;
  inherited;
  if (TablaFacturas <> NIL) then
  begin
    FCodigoFactura := TablaFacturas.FieldByName('CODIGO').Value;
    if Contenido is TRdxFrameFacturasCliente then
      (Contenido as TRdxFrameFacturasCliente).CodigoFactura := FCodigoFactura;
  end;
end;

procedure TRdxFrameFacturasCliente.CambiarModo(ModoAnterior, Modo : TRdxModo);
begin
  inherited;
  if (FModo in [Normal, Seleccionar]) then
  begin
    TablaFacturas.Close;
    TablaFacturas.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 factura que tiene el frame
      en CodigoFactura (al activar el modo A<EFBFBD>adir NO se pisa este valor con
      el c<EFBFBD>digo de factura nuevo) }
    if (not TablaFacturas.Active) or (ModoAnterior = Anadir) then
      BuscarFactura;
  end;
end;

procedure TRdxFrameFacturasCliente.SetTablaFacturas(Value: TIBDataSet);
begin
  if (FTablaFacturas <> Value) then
    FTablaFacturas := Value;
end;

procedure TRdxFrameFacturasCliente.SetTablaDetallesFacturas(Value: TIBDataSet);
begin
  if (FTablaDetallesFacturas <> Value) then
    FTablaDetallesFacturas := Value;
end;

procedure TRdxFrameFacturasCliente.BuscarFactura;
begin
//
end;

function TRdxFrameFacturasCliente.GetCodigoFactura: Variant;
begin
  Result := FCodigoFactura;
end;

function TRdxFrameFacturasCliente.GetFCodigoFactura: Variant;
begin
  if (ListaFacturas.Count = 0) then
    Result := NULL
  else
    Result := ListaFacturas.Strings[ListaFacturas.Count-1];
end;

procedure TRdxFrameFacturasCliente.SetFCodigoFactura(Value: Variant);
begin
  FListaFacturas.Clear;
  if (not VarIsNull(Value)) then
    FListaFacturas.Add(Value);
end;

procedure TRdxFrameFacturasCliente.SetListaFacturas(Value: TStringList);
begin
  if (Value = NIL) or (Value.Count = 0) then
    exit;

  FListaFacturas.Clear;
  FListaFacturas.Assign(Value);
end;

destructor TRdxFrameFacturasCliente.Destroy;
begin
  FListaFacturas.Free;
  FListaFacturas := NIL;
  inherited;
end;

end.