Tecsitel_FactuGES2/Source/Modulos/Presupuestos de cliente/Views/uDialogOpcionesImpresionPresupuestosCliente.pas

unit uDialogOpcionesImpresionPresupuestosCliente;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uDialogBase, ActnList, StdCtrls, ExtCtrls, jpeg, dxGDIPlusClasses;

type
  TfDialogOpcionesImpresionPresupuestosCliente = class(TfDialogBase)
    Image1: TImage;
    Image2: TImage;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Image3: TImage;
    procedure actAceptarExecute(Sender: TObject);
    procedure actCancelarExecute(Sender: TObject);
    procedure Image1DblClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Image2DblClick(Sender: TObject);
    procedure Image3DblClick(Sender: TObject);
  private
    FVerSello: Integer;
  end;

  function elegirFirmaDocumento(var AVerSello: Integer): Boolean;

  function ElegirOpcionesImpresionPresupuestoCliente(var AVerSello : Integer): Boolean;

implementation
{$R *.dfm}

uses
  uFactuGES_App,
  uDialogOpcionesImpresionPresupuestosClienteAzacan,
  uDialogOpcionesImpresionPresupuestosClienteMusaeda,
  uDialogOpcionesImpresionPresupuestosClienteCristalCleaner;

function ElegirOpcionesImpresionPresupuestoCliente(var AVerSello : Integer): Boolean;
var
  AEditor : TfDialogOpcionesImpresionPresupuestosCliente;
begin
  AEditor := TfDialogOpcionesImpresionPresupuestosCliente.Create(NIL);
  try
    Result := (AEditor.ShowModal = mrOk);
    if Result then
    begin
      AVerSello := AEditor.FVerSello;
    end;
  finally
    AEditor.Release;
  end;
end;

procedure TfDialogOpcionesImpresionPresupuestosCliente.actAceptarExecute(Sender: TObject);
begin
  inherited;
  ModalResult := mrOk
end;

procedure TfDialogOpcionesImpresionPresupuestosCliente.actCancelarExecute(Sender: TObject);
begin
  inherited;
  ModalResult := mrCancel;
end;

procedure TfDialogOpcionesImpresionPresupuestosCliente.FormCreate(
  Sender: TObject);
begin
  inherited;
  FVerSello := 1;
end;

procedure TfDialogOpcionesImpresionPresupuestosCliente.Image1DblClick(
  Sender: TObject);
begin
  inherited;
  FVerSello := 1;
  actAceptar.Execute;
end;

procedure TfDialogOpcionesImpresionPresupuestosCliente.Image2DblClick(
  Sender: TObject);
begin
  inherited;
  FVerSello := 2;
  actAceptar.Execute;
end;


procedure TfDialogOpcionesImpresionPresupuestosCliente.Image3DblClick(
  Sender: TObject);
begin
  inherited;
  FVerSello := 3;
  actAceptar.Execute;
end;

function elegirFirmaDocumento(var AVerSello: Integer): Boolean;
begin
  Result := True;

  if (AppFactuGES.EmpresaActiva.ID = 1) then
     //Preguntamos si desea que en los presupuestos se vea el Sello de Paco u Oscar,
     //solo para empresa Tecsitel
     Result := ElegirOpcionesImpresionPresupuestoCliente(AVerSello);

  if (AppFactuGES.EmpresaActiva.ID = 3) then
     //Preguntamos si desea que en los presupuestos se vea el Sello de Oscar, Jos<6F> Lu<4C>s y David,
     //solo para empresa Azacan
     Result := ElegirOpcionesImpresionPresupuestoClienteAzacan(AVerSello);

  if (AppFactuGES.EmpresaActiva.ID = 4) then
     //Preguntamos si desea que en los presupuestos se vea el Sello de Oscar o David,
     //solo para empresa Musaeda
     Result := ElegirOpcionesImpresionPresupuestoClienteMusaeda(AVerSello);

  if (AppFactuGES.EmpresaActiva.ID = 5) then
     //Preguntamos si desea que en los presupuestos se vea el Sello de Oscar, Jos<6F> Lu<4C>s o David,
     //solo para empresa CRISTAL CLEANER
     Result := ElegirOpcionesImpresionPresupuestoClienteCristalCleaner(AVerSello);
end;


end.