From 9bc73a9f8b80024b80844420f3a5fb370b5e7f08 Mon Sep 17 00:00:00 2001 From: david Date: Tue, 2 Jun 2009 11:14:01 +0000 Subject: [PATCH] =?UTF-8?q?Ticket=20#187=20->=20Mal=20comportamiento=20al?= =?UTF-8?q?=20pulsar=20en=20el=20bot=C3=B3n=20Cancelar=20en=20la=20exporta?= =?UTF-8?q?ci=C3=B3n=20a=20Word?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@948 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- .../Views/uEditorAlbaranesClienteReport.pas | 5 ++--- .../Views/uEditorAlbaranesProveedorReport.dfm | 2 ++ .../Views/uEditorAlbaranesProveedorReport.pas | 5 ++--- .../Views/uEditorFacturasClienteReport.dfm | 1 - .../Views/uEditorFacturasClienteReport.pas | 5 ++--- .../Views/uEditorPedidosProveedorReport.dfm | 2 +- .../Views/uEditorPedidosProveedorReport.pas | 7 +++---- .../Views/uEditorPresupuestosClienteReport.pas | 5 ++--- 8 files changed, 14 insertions(+), 18 deletions(-) diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesClienteReport.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesClienteReport.pas index 449d1ae4..97b18502 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesClienteReport.pas +++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesClienteReport.pas @@ -38,9 +38,8 @@ begin 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.'); + if (Controller as IAlbaranesClienteReportController).ExportToWord(ListaID[I]) then + ShowInfoMessage('El albarán se ha exportado correctamente.'); end; end. diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedorReport.dfm b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedorReport.dfm index b4313f98..627f6851 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedorReport.dfm +++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedorReport.dfm @@ -1,5 +1,7 @@ inherited fEditorAlbaranesProveedorPreview: TfEditorAlbaranesProveedorPreview Caption = 'Previsualizar el albar'#225'n de proveedor' + ExplicitWidth = 320 + ExplicitHeight = 240 PixelsPerInch = 96 TextHeight = 13 inherited TBXDock: TTBXDock diff --git a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedorReport.pas b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedorReport.pas index 97fa02d2..d47d7f2a 100644 --- a/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedorReport.pas +++ b/Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedorReport.pas @@ -35,9 +35,8 @@ begin raise Exception.Create('No se ha asignado el controlador necesario'); for I := 0 to ListaID.Count - 1 do - (Controller as IAlbaranesProveedorReportController).ExportToWord(ListaID[I], ''); - - ShowInfoMessage('El pedido se ha exportado correctamente.'); + if (Controller as IAlbaranesProveedorReportController).ExportToWord(ListaID[I], '') then + ShowInfoMessage('El albarán de proveedor se ha exportado correctamente.'); end; diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasClienteReport.dfm b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasClienteReport.dfm index e307b4b0..96d85847 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasClienteReport.dfm +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasClienteReport.dfm @@ -2,7 +2,6 @@ inherited fEditorFacturasClientePreview: TfEditorFacturasClientePreview Caption = 'Previsualizar la factura' ClientWidth = 622 ExplicitWidth = 630 - ExplicitHeight = 492 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasClienteReport.pas b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasClienteReport.pas index 0dae11ca..276cf553 100644 --- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasClienteReport.pas +++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasClienteReport.pas @@ -43,9 +43,8 @@ begin raise Exception.Create('No se ha asignado el controlador necesario'); for I := 0 to ListaID.Count - 1 do - (Controller as IFacturasClienteReportController).ExportToWord(ListaID[I]); - - ShowInfoMessage('La factura se ha exportado correctamente.'); + if (Controller as IFacturasClienteReportController).ExportToWord(ListaID[I]) then + ShowInfoMessage('La factura se ha exportado correctamente.'); end; end. diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.dfm b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.dfm index b53d4524..19fa6d1e 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.dfm +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.dfm @@ -1,6 +1,6 @@ inherited fEditorPedidosProveedorPreview: TfEditorPedidosProveedorPreview Caption = 'Previsualizar el pedidos proveedor' - ExplicitHeight = 492 + ExplicitWidth = 320 PixelsPerInch = 96 TextHeight = 13 inherited TBXDock: TTBXDock diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.pas b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.pas index 61e2a4af..4cf58936 100644 --- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.pas +++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.pas @@ -47,10 +47,9 @@ begin raise Exception.Create('No se ha asignado el controlador necesario'); for I := 0 to ListaID.Count - 1 do - (Controller as IPedidosProveedorReportController).ExportToWord(ListaID[I], '', - FVerPrecios, FVerRefProveedor); - - ShowInfoMessage('El pedido se ha exportado correctamente.'); + if (Controller as IPedidosProveedorReportController).ExportToWord(ListaID[I], '', + FVerPrecios, FVerRefProveedor) then + ShowInfoMessage('El pedido se ha exportado correctamente.'); end; function TfEditorPedidosProveedorPreview.GetVerPrecios: Boolean; diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.pas index 3228b4fc..ed033bf9 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.pas @@ -36,9 +36,8 @@ begin raise Exception.Create('No se ha asignado el controlador necesario'); for I := 0 to ListaID.Count - 1 do - (Controller as IPresupuestosClienteReportController).ExportToWord(ListaID[I]); - - ShowInfoMessage('El presupuesto se ha exportado correctamente.'); + if (Controller as IPresupuestosClienteReportController).ExportToWord(ListaID[I]) then + ShowInfoMessage('El presupuesto se ha exportado correctamente.'); end; end.