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

unit uEditorPresupuestosClienteReport;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorPresupuestosClientePreview,
  JvExComCtrls, JvStatusBar, frxDMPExport, frxGradient, frxChBox, frxCross,
  frxRich, frxOLE, frxBarcode, JvAppStorage, JvAppRegistryStorage,
  JvComponentBase, uEditorPreview, frxExportImage, frxExportPDF, frxDCtrl,
  frxClass, JvFormPlacement, ImgList, PngImageList, StdActns, ActnList,
  ComCtrls, TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar,
  pngimage, frxExportText, frxExportRTF, frxExportMail, frxExportXLS;

type
  TfEditorPresupuestosClientePreview = class(TfEditorPreview, IEditorPresupuestosClientePreview)
    TBXItem58: TTBXItem;
    procedure actExportarRTFExecute(Sender: TObject);
  end;


implementation

{$R *.dfm}

uses
  uPresupuestosClienteReportController, uIntegerListUtils, uDialogUtils,
  uFactuGES_App, uDialogOpcionesImpresionPresupuestosCliente;

procedure TfEditorPresupuestosClientePreview.actExportarRTFExecute(Sender: TObject);
var
  I: Integer;
  AVerSello: Integer;
  AVerISO: Integer;
  bPrevisualizar: Boolean;

begin
  bPrevisualizar := True;

  // inherited; <- No llamar al padre
  if not Assigned(Controller) then
    raise Exception.Create('No se ha asignado el controlador necesario');

  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
      bPrevisualizar := ElegirOpcionesImpresionPresupuestoCliente(AVerSello);

  if bPrevisualizar then
     for I := 0 to ListaID.Count - 1 do
         if (Controller as IPresupuestosClienteReportController).ExportToWord(ListaID[I], '', AVerSello) then
            ShowInfoMessage('El presupuesto se ha exportado correctamente.');
end;

end.