david
76fdc13308
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@581 0c75b7a4-871f-7646-8a2f-f78d34cc349f
47 lines
1.5 KiB
ObjectPascal
47 lines
1.5 KiB
ObjectPascal
unit uEditorAlbaranesClienteReport;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, uEditorPreview, frxExportImage, frxExportPDF, frxDCtrl, frxClass,
|
||
// frxDMPExport, frxGradient, frxChBox, frxCross, frxRich, frxChart, frxOLE,
|
||
// frxBarcode, JvAppStorage, JvAppRegistryStorage, JvComponentBase,
|
||
JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls,
|
||
TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage,
|
||
ExtCtrls, JvExControls, JvComponent, JvNavigationPane, uIEditorAlbaranesClientePreview,
|
||
JvExComCtrls, JvStatusBar, frxDMPExport, frxGradient, frxChBox, frxCross,
|
||
frxRich, frxOLE, frxBarcode, JvAppStorage, JvAppRegistryStorage,
|
||
JvComponentBase, frxExportText, frxExportRTF, frxExportMail, frxExportXLS;
|
||
|
||
type
|
||
TfEditorAlbaranesClientePreview = class(TfEditorPreview, IEditorAlbaranesClientePreview)
|
||
TBXItem58: TTBXItem;
|
||
procedure actExportarRTFExecute(Sender: TObject);
|
||
end;
|
||
|
||
|
||
implementation
|
||
|
||
{$R *.dfm}
|
||
|
||
uses
|
||
uAlbaranesClienteReportController, uDialogUtils;
|
||
|
||
procedure TfEditorAlbaranesClientePreview.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
|
||
(Controller as IAlbaranesClienteReportController).ExportToWord(ListaID[I]);
|
||
|
||
ShowInfoMessage('El albar n se ha exportado correctamente.');
|
||
end;
|
||
|
||
end.
|