FactuGES/Clientes/ImprimirFacturasProforma.pas

{
===============================================================================
  Copyright (©) 2002. Rodax Software.
===============================================================================
  Los contenidos de este fichero son propiedad de Rodax Software titular del
  copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
  en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
  acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
  bajo el que se suministra.
  -----------------------------------------------------------------------------
  Web:  www.rodax-software.com
===============================================================================
  Fecha primera versión: 31-12-2002
  Versión actual: 1.0.0
  Fecha versión actual: 31-12-2002
===============================================================================
  Modificaciones:

    Fecha         Comentarios
    ---------------------------------------------------------------------------
===============================================================================
}

unit ImprimirFacturasProforma;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  RDXFRAME, StdCtrls, RdxComboBox, RdxBotones, RdxCampos,
  ExtCtrls, RdxBarras, RdxTitulos, InformeFacturaProforma, Configuracion,
  Grids, DBGrids, RdxPaneles, RdxRadioButton, VistaPrevia, AdvPanel,
  cxDBEdit, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit,
  cxButtonEdit;

type
  TfrImprimirFacturasProforma = class(TRdxFrame)
    pnlTitulo: TRdxPanelTituloOperacion;
    pnlVistaPrevia: TPanel;
    pnlCuerpo: TPanel;
    pnlProveedor: TAdvPanel;
    eCodigo: TLabel;
    eCodigoCliente: TLabel;
    eNombre: TLabel;
    eFecha: TLabel;
    eNIFCIF: TLabel;
    CodCliente: TcxTextEdit;
    NIFCIF: TcxTextEdit;
    FechaFactura: TcxTextEdit;
    Nombre: TcxTextEdit;
    Codigo: TcxButtonEdit;
    procedure bCancelarClick(Sender: TObject);
    procedure CodFacturaButtonClick(Sender: TObject);
    procedure bImprimirClick(Sender: TObject);
    procedure CodigoPropertiesButtonClick(Sender: TObject;
      AButtonIndex: Integer);
  private
    FCodigoFactura : Variant;
    FInformeFactura : TdmInformeFacturaProforma;
    FVistaPrevia : TfrVistaPrevia;
    procedure SetCodigoFactura (Value : Variant);
    procedure DarDatosFactura;
  protected
    procedure FreeContenido; override;
    function CloseFrame : Boolean; override;
  public
    constructor Create(AOwner : TComponent); override;
    destructor Destroy; override;
  published
    property CodigoFactura : Variant read FCodigoFactura write SetCodigoFactura;
  end;

var
  frImprimirFacturasProforma: TfrImprimirFacturasProforma;

implementation

{$R *.DFM}

uses
  Variants, RdxFrameFacturasProforma, Entidades, FacturasProforma,
  Clientes, Mensajes, StrFunc, InformeBase, BaseDatos, TablaFacturasProforma;

constructor TfrImprimirFacturasProforma.Create(AOwner : TComponent);
begin
  inherited Create(AOwner);
  FCodigoFactura := NULL;
  FVistaPrevia := TfrVistaPrevia.Create(Self);
  FVistaPrevia.Parent := pnlVistaPrevia;
  FInformeFactura := TdmInformeFacturaProforma.Create(Self);
  FInformeFactura.Preview := FVistaPrevia.Preview;
end;

procedure TfrImprimirFacturasProforma.bCancelarClick(Sender: TObject);
begin
  CloseFrame;
end;

procedure TfrImprimirFacturasProforma.FreeContenido;
begin
  if (ContenidoModal is TRdxFrameFacturasProforma) then
    CodigoFactura := (ContenidoModal as TRdxFrameFacturasProforma).CodigoFactura;
  inherited FreeContenido;
end;

procedure TfrImprimirFacturasProforma.CodFacturaButtonClick(Sender: TObject);
begin
  ContenidoModal := TfrFacturasProforma.Create(Self);
  CodigoFactura := FCodigoFactura;
end;

procedure TfrImprimirFacturasProforma.SetCodigoFactura(Value: Variant);
begin
  if EsCadenaVacia(Value) then
    Exit;
  if FCodigoFactura <> Value then
  begin
    FCodigoFactura := Value;
    DarDatosFactura;
    FInformeFactura.CodigoFactura := CodigoFactura;
    FInformeFactura.Previsualizar;
  end;
end;

destructor TfrImprimirFacturasProforma.Destroy;
begin
  FInformeFactura.Free;
  inherited;
end;

procedure TfrImprimirFacturasProforma.bImprimirClick(Sender: TObject);
begin
  FInformeFactura.Imprimir;
end;

procedure TfrImprimirFacturasProforma.DarDatosFactura;
var
  DatosFactura : TDatosFacturaProforma;
begin
  DatosFactura := TDatosFacturaProforma.Create(FCodigoFactura);
  try
    Codigo.Text := DatosFactura.Codigo;
    FechaFactura.Text := DateToStr(DatosFactura.FechaFactura);
    CodCliente.Text := DatosFactura.CodigoCliente;
    NIFCIF.Text := DatosFactura.NIFCIF;
    Nombre.Text := DatosFactura.Nombre;
  finally
    DatosFactura.Free;
  end;
end;

function TfrImprimirFacturasProforma.CloseFrame: Boolean;
begin
  FInformeFactura.Preview := NIL;
  (FVistaPrevia as TRdxFrame).CloseFrame;
  Result := inherited CloseFrame;
end;

procedure TfrImprimirFacturasProforma.CodigoPropertiesButtonClick(
  Sender: TObject; AButtonIndex: Integer);
begin
  ContenidoModal := TfrFacturasProforma.Create(Self);
end;

end.