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;