Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Ticket #187 -> Mal comportamiento al pulsar en el botón Cancelar en la exportación a Word

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@948 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2009-06-02 11:14:01 +00:00
parent 14cffb023d
commit 9bc73a9f8b
8 changed files with 14 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesClienteReport.pas
View File

@ -38,9 +38,8 @@ begin
raise Exception.Create('No se ha asignado el controlador necesario'); raise Exception.Create('No se ha asignado el controlador necesario');
for I := 0 to ListaID.Count - 1 do for I := 0 to ListaID.Count - 1 do
(Controller as IAlbaranesClienteReportController).ExportToWord(ListaID[I]); if (Controller as IAlbaranesClienteReportController).ExportToWord(ListaID[I]) then
ShowInfoMessage('El albarán se ha exportado correctamente.');
ShowInfoMessage('El albar n se ha exportado correctamente.');
end; end;
end. end.

2
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedorReport.dfm
View File

@ -1,5 +1,7 @@
inherited fEditorAlbaranesProveedorPreview: TfEditorAlbaranesProveedorPreview inherited fEditorAlbaranesProveedorPreview: TfEditorAlbaranesProveedorPreview
Caption = 'Previsualizar el albar'#225'n de proveedor' Caption = 'Previsualizar el albar'#225'n de proveedor'
ExplicitWidth = 320
ExplicitHeight = 240
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock

5
Source/Modulos/Albaranes de proveedor/Views/uEditorAlbaranesProveedorReport.pas
View File

@ -35,9 +35,8 @@ begin
raise Exception.Create('No se ha asignado el controlador necesario'); raise Exception.Create('No se ha asignado el controlador necesario');
for I := 0 to ListaID.Count - 1 do for I := 0 to ListaID.Count - 1 do
(Controller as IAlbaranesProveedorReportController).ExportToWord(ListaID[I], ''); if (Controller as IAlbaranesProveedorReportController).ExportToWord(ListaID[I], '') then
ShowInfoMessage('El albarán de proveedor se ha exportado correctamente.');
ShowInfoMessage('El pedido se ha exportado correctamente.');
end; end;

1
Source/Modulos/Facturas de cliente/Views/uEditorFacturasClienteReport.dfm
View File

@ -2,7 +2,6 @@ inherited fEditorFacturasClientePreview: TfEditorFacturasClientePreview
Caption = 'Previsualizar la factura' Caption = 'Previsualizar la factura'
ClientWidth = 622 ClientWidth = 622
ExplicitWidth = 630 ExplicitWidth = 630
ExplicitHeight = 492
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader

5
Source/Modulos/Facturas de cliente/Views/uEditorFacturasClienteReport.pas
View File

@ -43,9 +43,8 @@ begin
raise Exception.Create('No se ha asignado el controlador necesario'); raise Exception.Create('No se ha asignado el controlador necesario');
for I := 0 to ListaID.Count - 1 do for I := 0 to ListaID.Count - 1 do
(Controller as IFacturasClienteReportController).ExportToWord(ListaID[I]); if (Controller as IFacturasClienteReportController).ExportToWord(ListaID[I]) then
ShowInfoMessage('La factura se ha exportado correctamente.');
ShowInfoMessage('La factura se ha exportado correctamente.');
end; end;
end. end.

2
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.dfm
View File

@ -1,6 +1,6 @@
inherited fEditorPedidosProveedorPreview: TfEditorPedidosProveedorPreview inherited fEditorPedidosProveedorPreview: TfEditorPedidosProveedorPreview
Caption = 'Previsualizar el pedidos proveedor' Caption = 'Previsualizar el pedidos proveedor'
ExplicitHeight = 492 ExplicitWidth = 320
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited TBXDock: TTBXDock inherited TBXDock: TTBXDock

7
Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.pas
View File

@ -47,10 +47,9 @@ begin
raise Exception.Create('No se ha asignado el controlador necesario'); raise Exception.Create('No se ha asignado el controlador necesario');
for I := 0 to ListaID.Count - 1 do for I := 0 to ListaID.Count - 1 do
(Controller as IPedidosProveedorReportController).ExportToWord(ListaID[I], '', if (Controller as IPedidosProveedorReportController).ExportToWord(ListaID[I], '',
FVerPrecios, FVerRefProveedor); FVerPrecios, FVerRefProveedor) then
ShowInfoMessage('El pedido se ha exportado correctamente.');
ShowInfoMessage('El pedido se ha exportado correctamente.');
end; end;
function TfEditorPedidosProveedorPreview.GetVerPrecios: Boolean; function TfEditorPedidosProveedorPreview.GetVerPrecios: Boolean;

5
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.pas
View File

@ -36,9 +36,8 @@ begin
raise Exception.Create('No se ha asignado el controlador necesario'); raise Exception.Create('No se ha asignado el controlador necesario');
for I := 0 to ListaID.Count - 1 do for I := 0 to ListaID.Count - 1 do
(Controller as IPresupuestosClienteReportController).ExportToWord(ListaID[I]); if (Controller as IPresupuestosClienteReportController).ExportToWord(ListaID[I]) then
ShowInfoMessage('El presupuesto se ha exportado correctamente.');
ShowInfoMessage('El presupuesto se ha exportado correctamente.');
end; end;
end. end.