Se arregla el enviar presupuesto por mail desde edición para que pueda escribir algo antes de enviarlo, y las facturas de cliente que no imprima en la pagina anterior

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@224 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2

Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj

@@ -49,16 +49,16 @@
     <DelphiCompile Include="PresupuestosCliente_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Lib\ApplicationBase.dcp" />
+    <DCCReference Include="..\ApplicationBase.dcp" />
-    <DCCReference Include="..\..\Lib\Articulos_view.dcp" />
+    <DCCReference Include="..\Articulos_view.dcp" />
-    <DCCReference Include="..\..\Lib\Base.dcp" />
+    <DCCReference Include="..\Base.dcp" />
-    <DCCReference Include="..\..\Lib\GestorInformes_controller.dcp" />
+    <DCCReference Include="..\GestorInformes_controller.dcp" />
-    <DCCReference Include="..\..\Lib\GUIBase.dcp" />
+    <DCCReference Include="..\GUIBase.dcp" />
-    <DCCReference Include="..\..\Lib\PreCli_FacPro_relation.dcp" />
+    <DCCReference Include="..\PreCli_FacPro_relation.dcp" />
-    <DCCReference Include="..\..\Lib\PreCli_PedCli_relation.dcp" />
+    <DCCReference Include="..\PreCli_PedCli_relation.dcp" />
-    <DCCReference Include="..\..\Lib\PresupuestosCliente_controller.dcp" />
+    <DCCReference Include="..\PresupuestosCliente_controller.dcp" />
-    <DCCReference Include="..\..\Lib\PresupuestosCliente_model.dcp" />
+    <DCCReference Include="..\PresupuestosCliente_model.dcp" />
-    <DCCReference Include="..\..\Lib\TiposDocumento_controller.dcp" />
+    <DCCReference Include="..\TiposDocumento_controller.dcp" />
     <DCCReference Include="uDialogListaPresupuestosEnvioEMail.pas">
       <Form>fDialogListaPresupuestosEnvioEMail</Form>
     </DCCReference>

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 = 22
-            Top = 0
+            ExplicitTop = 22
-            ExplicitLeft = 544
-            ExplicitTop = 0
           end
-          inherited ToolButton13: TToolButton [7]
+          inherited FontSize: TEdit
-            Left = 689
+            Top = 22
-            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
             Width = 216
-            ExplicitLeft = 763
+            ExplicitTop = 22
-            ExplicitTop = 0
             ExplicitWidth = 216
           end
-          inherited UpDown1: TUpDown [10]
+          inherited UpDown1: TUpDown
-            Left = 979
+            Left = 361
-            Top = 0
+            Top = 22
-            ExplicitLeft = 979
+            ExplicitLeft = 361
-            ExplicitTop = 0
+            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
+            Left = 452
-            Top = 0
+            Top = 22
-            ExplicitLeft = 996
+            ExplicitLeft = 452
-            ExplicitTop = 0
+            ExplicitTop = 22
-          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
           end
           inherited ToolButton8: TToolButton
-            Left = 1337
+            Left = 519
-            Top = 0
+            Top = 22
-            ExplicitLeft = 1337
+            ExplicitLeft = 519
-            ExplicitTop = 0
+            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

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;