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;

procedure TfEditorPresupuestosClientePreview.actExportarRTFExecute(
  Sender: TObject);
var
  AListaID : TStringList;
  I: Integer;
begin
  // inherited; <- No llamar al padre
  if Assigned(Controller) then
  begin
    AListaID := TStringList.Create;
    try
      AListaID.CommaText := Self.ListaID;
      for I := 0 to AListaID.Count - 1 do
        (Controller as IPresupuestosClienteReportController).ExportToWord(StrToInt(AListaID[I]));
    finally
      FreeAndNIL(AListaID);
    end;
  end;
  
end;

end.