unit uEditorComisionesReport;

interface

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

type
  TfEditorComisionesPreview = class(TfEditorPreview, IEditorComisionesPreview)
    TBXItem58: TSpTBXItem;
    procedure actExportarRTFExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


implementation

{$R *.dfm}

uses
  uComisionesReportController, uIntegerListUtils, uDialogUtils;

procedure TfEditorComisionesPreview.actExportarRTFExecute(Sender: TObject);
{var
  I: Integer;}
begin
  // inherited; <- No llamar al padre
{  if not Assigned(Controller) then
    raise Exception.Create('No se ha asignado el controlador necesario');

  for I := 0 to ListaID.Count - 1 do
    if (Controller as IComisionesReportController).ExportToWord(ListaID[I]) then
      ShowInfoMessage('La factura se ha exportado correctamente.');
}      
end;

end.