From 7eb3f6f20324c287b1b0c482ab309b15af134918 Mon Sep 17 00:00:00 2001 From: roberto Date: Mon, 14 Apr 2014 14:56:29 +0000 Subject: [PATCH] =?UTF-8?q?Se=20arregla=20el=20enviar=20presupuesto=20por?= =?UTF-8?q?=20mail=20desde=20edici=C3=B3n=20para=20que=20pueda=20escribir?= =?UTF-8?q?=20algo=20antes=20de=20enviarlo,=20y=20las=20facturas=20de=20cl?= =?UTF-8?q?iente=20que=20no=20imprima=20en=20la=20pagina=20anterior?= 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.LuisLeon_FactuGES2/trunk@224 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2 --- Source/Informes/6/InfFacturaCliente.fr3 | 6 +- .../Views/PresupuestosCliente_view.dproj | 20 +-- .../Views/uEditorPresupuestoCliente.dfm | 131 ++++++++---------- .../Views/uEditorPresupuestoCliente.pas | 4 +- 4 files changed, 76 insertions(+), 85 deletions(-) diff --git a/Source/Informes/6/InfFacturaCliente.fr3 b/Source/Informes/6/InfFacturaCliente.fr3 index 7351b71..e91d35a 100644 --- a/Source/Informes/6/InfFacturaCliente.fr3 +++ b/Source/Informes/6/InfFacturaCliente.fr3 @@ -1,7 +1,7 @@ - + - + @@ -63,7 +63,7 @@ - + diff --git a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj index 964bcf8..52ae480 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj +++ b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj @@ -49,16 +49,16 @@ MainSource - - - - - - - - - - + + + + + + + + + +
fDialogListaPresupuestosEnvioEMail
 diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm index 8f9fe60..6c33ce7 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm @@ -205,9 +205,9 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente ExplicitHeight = 234 inherited ToolBar1: TToolBar Width = 750 - Height = 51 + Height = 46 ExplicitWidth = 750 - ExplicitHeight = 51 + ExplicitHeight = 46 inherited ToolButton3: TToolButton Wrap = False end @@ -223,88 +223,83 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente ExplicitLeft = 334 ExplicitTop = 0 end - inherited ToolButton9: TToolButton - Left = 399 - Top = 0 - ExplicitLeft = 399 - ExplicitTop = 0 - end inherited FontName: TJvFontComboBox - Left = 544 - Top = 0 - ExplicitLeft = 544 - ExplicitTop = 0 + Top = 22 + ExplicitTop = 22 end - inherited ToolButton13: TToolButton [7] - Left = 689 - Top = 0 - ExplicitLeft = 689 - ExplicitTop = 0 - ExplicitHeight = 22 - end - inherited ToolButton6: TToolButton [8] - Left = 697 - Top = 0 - ExplicitLeft = 697 - ExplicitTop = 0 - end - inherited FontSize: TEdit [9] - Left = 763 - Top = 0 + inherited FontSize: TEdit + Top = 22 Width = 216 - ExplicitLeft = 763 - ExplicitTop = 0 + ExplicitTop = 22 ExplicitWidth = 216 end - inherited UpDown1: TUpDown [10] - Left = 979 - Top = 0 - ExplicitLeft = 979 - ExplicitTop = 0 + inherited UpDown1: TUpDown + Left = 361 + Top = 22 + ExplicitLeft = 361 + ExplicitTop = 22 + end + inherited ToolButton13: TToolButton + Left = 378 + Top = 22 + ExplicitLeft = 378 + ExplicitTop = 22 + end + inherited ToolButton6: TToolButton + Left = 386 + Top = 22 + ExplicitLeft = 386 + ExplicitTop = 22 end inherited ToolButton7: TToolButton - Left = 996 - Top = 0 - ExplicitLeft = 996 - ExplicitTop = 0 - end - inherited ToolButton11: TToolButton - Left = 1063 - Top = 0 - ExplicitLeft = 1063 - ExplicitTop = 0 - end - inherited ToolButton12: TToolButton - Left = 1204 - Top = 0 - Wrap = False - ExplicitLeft = 1204 - ExplicitTop = 0 - ExplicitHeight = 22 - end - inherited ToolButton10: TToolButton - Left = 1212 - Top = 0 - ExplicitLeft = 1212 - ExplicitTop = 0 + Left = 452 + Top = 22 + ExplicitLeft = 452 + ExplicitTop = 22 end inherited ToolButton8: TToolButton - Left = 1337 - Top = 0 - ExplicitLeft = 1337 - ExplicitTop = 0 + Left = 519 + Top = 22 + ExplicitLeft = 519 + ExplicitTop = 22 + end + inherited ToolButton12: TToolButton + Left = 0 + Top = 22 + Wrap = True + ExplicitLeft = 0 + ExplicitTop = 22 + ExplicitHeight = 27 + end + inherited ToolButton9: TToolButton + Left = 0 + Top = 49 + ExplicitLeft = 0 + ExplicitTop = 49 + end + inherited ToolButton10: TToolButton + Left = 145 + Top = 49 + ExplicitLeft = 145 + ExplicitTop = 49 + end + inherited ToolButton11: TToolButton + Left = 270 + Top = 49 + ExplicitLeft = 270 + ExplicitTop = 49 end end inherited cxGrid: TcxGrid - Top = 77 + Top = 99 Width = 750 - Height = 157 + Height = 135 ExplicitTop = 77 ExplicitWidth = 750 ExplicitHeight = 157 end inherited TBXDock1: TTBXDock - Top = 51 + Top = 73 Width = 750 ExplicitTop = 51 ExplicitWidth = 750 @@ -553,18 +548,14 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente inherited Bevel4: TBevel Left = 497 Top = 122 - Width = 147 ExplicitLeft = 497 ExplicitTop = 122 - ExplicitWidth = 147 end inherited Bevel1: TBevel Left = 497 Top = 238 - Width = 147 ExplicitLeft = 497 ExplicitTop = 238 - ExplicitWidth = 147 end inherited Bevel2: TBevel Left = 130 diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas index b708f15..6ed8676 100644 --- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas @@ -138,13 +138,13 @@ begin '¿Desea guardarlos ahora?') = IDYES) then begin GuardarInterno; - FController.EnviarPresupuestoPorEMail(Presupuesto); + FController.EnviarPresupuestoPorEMail(Presupuesto, False); end else ShowInfoMessage('Recuerde guardar los cambios si quiere enviar por email.'); end else - FController.EnviarPresupuestoPorEMail(Presupuesto); + FController.EnviarPresupuestoPorEMail(Presupuesto, False); end; end;