roberto
8325ba3b6d
Peticiones relacionadas Tareas #802: No se guarda la información de grupo de proveedor en proveedores Tareas #803: Al impirimir un presupuesto, preguntar si se imprime el anagrama de la ISO Tareas #804: Al imprimir un pedido de proveedor, imprimir con sello y firma git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@1055 0c75b7a4-871f-7646-8a2f-f78d34cc349f
56 lines
1.9 KiB
ObjectPascal
56 lines
1.9 KiB
ObjectPascal
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, AVerISO);
|
|
|
|
if bPrevisualizar then
|
|
for I := 0 to ListaID.Count - 1 do
|
|
if (Controller as IPresupuestosClienteReportController).ExportToWord(ListaID[I], '', AVerSello, AVerISO) then
|
|
ShowInfoMessage('El presupuesto se ha exportado correctamente.');
|
|
end;
|
|
|
|
end.
|