AbetoArmarios_FactuGES/Informes/InformeAlbaranCliente.pas

{
===============================================================================
  Copyright (<EFBFBD>) 2005. 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: 30-09-2005
  Versi<EFBFBD>n actual: 1.0.0
  Fecha versi<EFBFBD>n actual: 30-09-2005
===============================================================================
  Modificaciones:

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

unit InformeAlbaranCliente;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, InformeBase, FR_IBXDB, FR_Shape, FR_DSet, FR_DBSet, FR_Class,
  DB, IBCustomDataSet, IBQuery, RdxEmpresaActiva;

type
  TdmInformeAlbaranCliente = class(TdmInformeBase)
    TablaCab: TfrDBDataSet;
    TablaDet: TfrDBDataSet;
    TablaAlbaranes: TIBQuery;
    TablaDetallesAlbaranes: TIBQuery;
  private
    FCodigo : Variant;
    FConLogo: Boolean;
  protected
    procedure PrepararConsultas; override;
  public
    constructor Create(AOwner: TComponent); override;
  published
    property Codigo : variant read FCodigo write FCodigo;
  end;

var
  dmInformeAlbaranCliente: TdmInformeAlbaranCliente;

implementation
{$R *.dfm}

uses Literales, Mensajes;

{ TdmInformeFacturaProforma }

constructor TdmInformeAlbaranCliente.Create(AOwner: TComponent);
var
  i: Integer;
begin
  inherited;
  FConLogo := True;

  i := EmpresaActiva.Restricciones.IndexOf(CTE_INFORMES_CONLOGO);
  if i < 0  then
     FConLogo := (VerMensajePregunta(msgConLogo) = IDYES);
     
  if FConLogo then
    FNombreInforme := 'InformeAlbaranCliente(Con logo).frf'
  else
    FNombreInforme := 'InformeAlbaranCliente.frf';


end;

procedure TdmInformeAlbaranCliente.PrepararConsultas;
begin
  inherited;

  with TablaAlbaranes do
  begin
    Database := FBaseDatos;
    Transaction := FTransaccion;
    SQL.Clear;
    SQL.Add('select * from ALBARANESCLIENTE ');
    SQL.Add('where CODIGO = :CODIGO');
    ParamByName('CODIGO').AsString := FCodigo;
    Prepare;
  end;

  with TablaDetallesAlbaranes do
  begin
    Database := FBaseDatos;
    Transaction := FTransaccion;
    SQL.Clear;
    SQL.Add('select * from DETALLESALBARANESCLIENTE ');
    SQL.Add('where CODIGOALBARAN = :CODIGOALBARAN');
    ParamByName('CODIGOALBARAN').AsString := FCodigo;
    Prepare;
  end;

  TablaCab.Open;
  TablaDet.Open;
end;

end.