diff --git a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk
index 985eb239..8f5deda0 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk	
+++ b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dpk	
@@ -32,7 +32,23 @@ requires
   Articulos_view,
   PreCli_AlbCli_relation,
   PreCli_FacCli_relation,
-  GestorInformes_controller;
+  GestorInformes_controller,
+  vcl,
+  rtl,
+  dbrtl,
+  DataAbstract_Core_D11,
+  vcldb,
+  dsnap,
+  adortl,
+  RemObjects_Core_D11,
+  cxLibraryD11,
+  dxThemeD11,
+  dxGDIPlusD11,
+  cxEditorsD11,
+  cxDataD11,
+  vcljpg,
+  dxLayoutControlD11,
+  dxComnD11;
 
 contains
   uPresupuestosClienteViewRegister in 'uPresupuestosClienteViewRegister.pas',
@@ -48,6 +64,7 @@ contains
   uViewDireccionEntregaPresupuestoCliente in 'uViewDireccionEntregaPresupuestoCliente.pas' {frViewDireccionEntregaPresupuestoCliente: TFrame},
   uEditorFechaDecision in 'uEditorFechaDecision.pas' {fEditorFechaDecision: T},
   uViewDocumentosPresupuestoCliente in 'uViewDocumentosPresupuestoCliente.pas' {frViewDocumentosPresupuestoCliente: TFrame},
-  uViewDatosYSeleccionClientePresupuesto in 'uViewDatosYSeleccionClientePresupuesto.pas' {frViewDatosYSeleccionClientePresupuesto: TFrame};
+  uViewDatosYSeleccionClientePresupuesto in 'uViewDatosYSeleccionClientePresupuesto.pas' {frViewDatosYSeleccionClientePresupuesto: TFrame},
+  uViewTotalesPresupuesto in 'uViewTotalesPresupuesto.pas' {frViewTotalesPresupuesto: TFrame};
 
 end.
diff --git a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj
index 106dcaf7..9de369e4 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj	
+++ b/Source/Modulos/Presupuestos de cliente/Views/PresupuestosCliente_view.dproj	
@@ -49,14 +49,27 @@
     <DelphiCompile Include="PresupuestosCliente_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\..\Servidor\Articulos_view.dcp" />
-    <DCCReference Include="..\..\..\Servidor\Base.dcp" />
-    <DCCReference Include="..\..\..\Servidor\GestorInformes_controller.dcp" />
-    <DCCReference Include="..\..\..\Servidor\GUIBase.dcp" />
-    <DCCReference Include="..\..\..\Servidor\PreCli_AlbCli_relation.dcp" />
-    <DCCReference Include="..\..\..\Servidor\PreCli_FacCli_relation.dcp" />
-    <DCCReference Include="..\..\..\Servidor\PresupuestosCliente_controller.dcp" />
-    <DCCReference Include="..\..\..\Servidor\PresupuestosCliente_model.dcp" />
+    <DCCReference Include="adortl.dcp" />
+    <DCCReference Include="Articulos_view.dcp" />
+    <DCCReference Include="Base.dcp" />
+    <DCCReference Include="cxDataD11.dcp" />
+    <DCCReference Include="cxEditorsD11.dcp" />
+    <DCCReference Include="cxLibraryD11.dcp" />
+    <DCCReference Include="DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="dbrtl.dcp" />
+    <DCCReference Include="dsnap.dcp" />
+    <DCCReference Include="dxComnD11.dcp" />
+    <DCCReference Include="dxGDIPlusD11.dcp" />
+    <DCCReference Include="dxLayoutControlD11.dcp" />
+    <DCCReference Include="dxThemeD11.dcp" />
+    <DCCReference Include="GestorInformes_controller.dcp" />
+    <DCCReference Include="GUIBase.dcp" />
+    <DCCReference Include="PreCli_AlbCli_relation.dcp" />
+    <DCCReference Include="PreCli_FacCli_relation.dcp" />
+    <DCCReference Include="PresupuestosCliente_controller.dcp" />
+    <DCCReference Include="PresupuestosCliente_model.dcp" />
+    <DCCReference Include="RemObjects_Core_D11.dcp" />
+    <DCCReference Include="rtl.dcp" />
     <DCCReference Include="uEditorElegirArticulosPresupuestoCliente.pas">
       <Form>fEditorElegirArticulosPresupuestoCliente</Form>
       <DesignClass>TfEditorElegirArticulosPedidoCliente</DesignClass>
@@ -110,6 +123,13 @@
       <Form>frViewPresupuestosCliente</Form>
       <DesignClass>TFrame</DesignClass>
     </DCCReference>
+    <DCCReference Include="uViewTotalesPresupuesto.pas">
+      <Form>frViewTotalesPresupuesto</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
+    <DCCReference Include="vcl.dcp" />
+    <DCCReference Include="vcldb.dcp" />
+    <DCCReference Include="vcljpg.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm
index d388da83..2c1163ed 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm	
+++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm	
@@ -5,6 +5,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
   ClientHeight = 615
   ClientWidth = 764
   OnClose = CustomEditorClose
+  ExplicitTop = -101
   ExplicitWidth = 772
   ExplicitHeight = 649
   PixelsPerInch = 96
@@ -169,25 +170,26 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
   end
   inherited pgPaginas: TPageControl
     Width = 758
-    Height = 414
+    Height = 238
     TabOrder = 1
     OnChanging = pgPaginasChanging
     ExplicitWidth = 758
-    ExplicitHeight = 414
+    ExplicitHeight = 402
     inherited pagGeneral: TTabSheet
       ExplicitLeft = 4
       ExplicitTop = 24
       ExplicitWidth = 750
-      ExplicitHeight = 386
+      ExplicitHeight = 374
     end
     object pagContenido: TTabSheet
       Caption = 'Contenido'
       ImageIndex = 1
+      ExplicitHeight = 374
       inline frViewDetallesPresupuestoCliente1: TfrViewDetallesPresupuestoCliente
         Left = 0
         Top = 0
         Width = 750
-        Height = 386
+        Height = 210
         Align = alClient
         BiDiMode = bdLeftToRight
         Font.Charset = DEFAULT_CHARSET
@@ -200,102 +202,69 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
         TabOrder = 0
         ReadOnly = False
         ExplicitWidth = 750
-        ExplicitHeight = 386
+        ExplicitHeight = 374
         inherited ToolBar1: TToolBar
           Width = 750
-          Height = 46
+          Height = 73
           ExplicitWidth = 750
-          ExplicitHeight = 46
+          ExplicitHeight = 73
           inherited ToolButton3: TToolButton
             Wrap = False
           end
           inherited ToolButton4: TToolButton
             Left = 278
             Top = 0
-            Wrap = True
             ExplicitLeft = 278
             ExplicitTop = 0
           end
-          inherited ToolButton14: TToolButton
-            Left = 0
-            Wrap = False
-            ExplicitLeft = 0
-          end
           inherited FontName: TJvFontComboBox
-            Left = 65
-            Top = 22
-            ExplicitTop = 22
+            Left = 334
+            Top = 0
+            ExplicitLeft = 334
+            ExplicitTop = 0
+          end
+          inherited ToolButton14: TToolButton
+            Left = 479
+            Top = 0
+            Wrap = True
+            ExplicitLeft = 479
+            ExplicitTop = 0
           end
           inherited FontSize: TEdit
-            Top = 22
+            Left = 0
             Width = 200
-            ExplicitTop = 22
+            ExplicitLeft = 0
             ExplicitWidth = 200
           end
           inherited UpDown1: TUpDown
-            Left = 345
-            Top = 22
-            ExplicitLeft = 345
-            ExplicitTop = 22
+            Left = 216
+            ExplicitLeft = 216
           end
           inherited ToolButton13: TToolButton
-            Left = 362
-            Top = 22
-            ExplicitLeft = 362
-            ExplicitTop = 22
-          end
-          inherited ToolButton6: TToolButton
-            Left = 370
-            Top = 22
-            ExplicitLeft = 370
-            ExplicitTop = 22
-          end
-          inherited ToolButton7: TToolButton
-            Left = 436
-            Top = 22
-            ExplicitLeft = 436
-            ExplicitTop = 22
-          end
-          inherited ToolButton8: TToolButton
-            Left = 503
-            Top = 22
-            ExplicitLeft = 503
-            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
+            Left = 233
+            ExplicitLeft = 233
           end
           inherited ToolButton11: TToolButton
-            Left = 270
+            Left = 241
+            ExplicitLeft = 241
+          end
+          inherited ToolButton7: TToolButton
+            Wrap = False
+          end
+          inherited ToolButton8: TToolButton
+            Left = 403
             Top = 49
-            ExplicitLeft = 270
+            ExplicitLeft = 403
             ExplicitTop = 49
           end
         end
         inherited cxGrid: TcxGrid
           Top = 99
           Width = 750
-          Height = 287
+          Height = 111
           ExplicitTop = 99
           ExplicitWidth = 750
-          ExplicitHeight = 287
+          ExplicitHeight = 275
         end
         inherited TBXDock1: TTBXDock
           Top = 73
@@ -320,13 +289,15 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
     object pagPortada: TTabSheet
       Caption = 'Portada'
       ImageIndex = 3
+      ExplicitHeight = 374
       object Panel1: TPanel
         Left = 0
         Top = 0
         Width = 145
-        Height = 386
+        Height = 210
         Align = alLeft
         TabOrder = 0
+        ExplicitHeight = 374
         object Image2: TImage
           Left = 16
           Top = 16
@@ -414,7 +385,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
         Left = 145
         Top = 0
         Width = 605
-        Height = 386
+        Height = 210
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -426,7 +397,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
         ReadOnly = False
         ExplicitLeft = 145
         ExplicitWidth = 605
-        ExplicitHeight = 386
+        ExplicitHeight = 374
         inherited TBXDock1: TTBXDock
           Width = 605
           ExplicitWidth = 605
@@ -442,8 +413,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
           DataBinding.DataSource = dsDataTable
           Style.IsFontAssigned = True
           ExplicitWidth = 605
-          ExplicitHeight = 360
-          Height = 360
+          ExplicitHeight = 348
+          Height = 184
           Width = 605
         end
       end
@@ -451,13 +422,15 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
     object pagMemoria: TTabSheet
       Caption = 'Memoria'
       ImageIndex = 4
+      ExplicitHeight = 374
       object Panel2: TPanel
         Left = 0
         Top = 0
         Width = 145
-        Height = 386
+        Height = 210
         Align = alLeft
         TabOrder = 0
+        ExplicitHeight = 374
         object Image3: TImage
           Left = 16
           Top = 16
@@ -716,7 +689,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
         Left = 145
         Top = 0
         Width = 605
-        Height = 386
+        Height = 210
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -728,7 +701,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
         ReadOnly = False
         ExplicitLeft = 145
         ExplicitWidth = 605
-        ExplicitHeight = 386
+        ExplicitHeight = 374
         inherited TBXDock1: TTBXDock
           Width = 605
           ExplicitWidth = 605
@@ -744,8 +717,8 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
           DataBinding.DataSource = dsDataTable
           Style.IsFontAssigned = True
           ExplicitWidth = 605
-          ExplicitHeight = 360
-          Height = 360
+          ExplicitHeight = 348
+          Height = 184
           Width = 605
         end
       end
@@ -753,11 +726,12 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
     object pagInicidencias: TTabSheet
       Caption = 'Incidencias'
       ImageIndex = 2
+      ExplicitHeight = 374
       inline frViewIncidenciasCli: TfrViewIncidencias
         Left = 0
         Top = 0
         Width = 750
-        Height = 386
+        Height = 210
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -768,7 +742,7 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
         TabOrder = 0
         ReadOnly = False
         ExplicitWidth = 750
-        ExplicitHeight = 386
+        ExplicitHeight = 374
         inherited pnlSup: TPanel
           Width = 750
           ExplicitWidth = 750
@@ -778,13 +752,13 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
         end
         inherited GroupBox1: TGroupBox
           Width = 750
-          Height = 358
+          Height = 182
           ExplicitWidth = 750
-          ExplicitHeight = 358
+          ExplicitHeight = 346
           inherited eIncidencias: TcxDBMemo
             ExplicitWidth = 727
-            ExplicitHeight = 325
-            Height = 325
+            ExplicitHeight = 313
+            Height = 149
             Width = 727
           end
         end
@@ -793,11 +767,12 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
     object pagDocumentos: TTabSheet
       Caption = 'Documentos'
       ImageIndex = 5
+      ExplicitHeight = 374
       inline frViewDocumentosPresupuestoCliente1: TfrViewDocumentosPresupuestoCliente
         Left = 0
         Top = 0
         Width = 750
-        Height = 386
+        Height = 210
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -808,16 +783,16 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
         TabOrder = 0
         ReadOnly = False
         ExplicitWidth = 750
-        ExplicitHeight = 386
+        ExplicitHeight = 374
         inherited TBXDock: TTBXDock
           Width = 750
           ExplicitWidth = 750
         end
         inherited ListView1: TListView
           Width = 750
-          Height = 363
+          Height = 187
           ExplicitWidth = 750
-          ExplicitHeight = 363
+          ExplicitHeight = 351
         end
       end
     end
@@ -832,11 +807,11 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
     ExplicitTop = 596
     ExplicitWidth = 764
   end
-  inline frViewTotales1: TfrViewTotales [4]
+  inline frViewTotalesPresupuesto1: TfrViewTotalesPresupuesto [4]
     Left = 0
-    Top = 496
+    Top = 320
     Width = 764
-    Height = 100
+    Height = 276
     Align = alBottom
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clWindowText
@@ -846,235 +821,168 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
     ParentFont = False
     TabOrder = 4
     ReadOnly = False
-    ExplicitTop = 496
+    ExplicitTop = 320
     ExplicitWidth = 764
-    ExplicitHeight = 100
+    ExplicitHeight = 276
     inherited dxLayoutControl1: TdxLayoutControl
       Width = 764
-      Height = 171
-      LookAndFeel = dxLayoutOfficeLookAndFeel1
       ExplicitWidth = 764
-      ExplicitHeight = 171
       inherited Bevel1: TBevel
-        Left = 93
-        Top = 92
         Width = 73
-        ExplicitLeft = 93
-        ExplicitTop = 92
         ExplicitWidth = 73
       end
       inherited Bevel3: TBevel
-        Left = 375
-        Top = 11
-        Width = 8
-        Height = 54
-        ExplicitLeft = 375
-        ExplicitTop = 11
-        ExplicitWidth = 8
-        ExplicitHeight = 54
+        Left = 441
+        Height = 122
+        ExplicitLeft = 441
+        ExplicitHeight = 122
       end
       inherited Bevel4: TBevel
-        Left = 492
-        Top = 92
-        Width = 21
-        ExplicitLeft = 492
-        ExplicitTop = 92
-        ExplicitWidth = 21
+        Left = 553
+        Width = 192
+        ExplicitLeft = 553
+        ExplicitWidth = 192
       end
       inherited ImporteDto: TcxDBCurrencyEdit
-        Left = 164
-        Top = 112
         Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
-        ExplicitLeft = 164
-        ExplicitTop = 112
-        ExplicitWidth = 188
-        Width = 188
+        ExplicitWidth = 87
+        Width = 87
       end
       inherited ImporteIVA: TcxDBCurrencyEdit
-        Left = 563
-        Top = 38
+        Left = 624
         Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
-        ExplicitLeft = 563
-        ExplicitTop = 38
-        ExplicitWidth = 182
-        Width = 182
+        ExplicitLeft = 624
+        ExplicitWidth = 20
+        Width = 20
       end
       inherited ImporteTotal: TcxDBCurrencyEdit
-        Left = 493
-        Top = 112
+        Left = 554
         Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
-        ExplicitLeft = 493
-        ExplicitTop = 112
-        ExplicitWidth = 252
-        Width = 252
+        ExplicitLeft = 554
+        ExplicitWidth = 90
+        Width = 90
       end
       inherited edtDescuento: TcxDBSpinEdit
-        Left = 93
-        Top = 112
         Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
-        ExplicitLeft = 93
-        ExplicitTop = 112
       end
       inherited edtIVA: TcxDBSpinEdit
-        Left = 492
-        Top = 38
+        Left = 553
         Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
-        ExplicitLeft = 492
-        ExplicitTop = 38
+        ExplicitLeft = 553
       end
       inherited ImporteBase: TcxDBCurrencyEdit
-        Left = 492
-        Top = 11
+        Left = 553
         Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
-        ExplicitLeft = 492
-        ExplicitTop = 11
-        ExplicitWidth = 253
-        Width = 253
+        ExplicitLeft = 553
+        ExplicitWidth = 91
+        Width = 91
       end
       inherited edtRE: TcxDBSpinEdit
-        Left = 492
-        Top = 65
-        DataBinding.DataField = ''
-        DataBinding.DataSource = nil
+        Left = 553
         Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
-        ExplicitLeft = 492
-        ExplicitTop = 65
+        ExplicitLeft = 553
       end
       inherited ImporteRE: TcxDBCurrencyEdit
-        Left = 563
-        Top = 65
-        DataBinding.DataField = ''
-        DataBinding.DataSource = nil
+        Left = 624
         Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
-        ExplicitLeft = 563
-        ExplicitTop = 65
-        ExplicitWidth = 182
-        Width = 182
+        ExplicitLeft = 624
+        ExplicitWidth = 20
+        Width = 20
       end
       inherited eImporteNeto: TcxDBCurrencyEdit
-        Left = 93
-        Top = 11
         Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
-        ExplicitLeft = 93
-        ExplicitTop = 11
-        ExplicitWidth = 259
-        Width = 259
+        ExplicitWidth = 158
+        Width = 158
       end
       inherited ePorte: TcxDBCurrencyEdit
-        Left = 93
-        Top = 139
-        Properties.OnValidate = frViewTotales1ePortePropertiesValidate
         Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
-        ExplicitLeft = 93
-        ExplicitTop = 139
-        ExplicitWidth = 259
-        Width = 259
+        ExplicitWidth = 158
+        Width = 158
       end
       inherited eIVA: TcxDBLookupComboBox
-        Left = 93
-        Top = 38
-        DataBinding.DataField = ''
-        DataBinding.DataSource = nil
         Style.LookAndFeel.SkinName = ''
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
-        ExplicitLeft = 93
-        ExplicitTop = 38
-        ExplicitWidth = 121
-        Width = 121
+        ExplicitWidth = 20
+        Width = 20
       end
       inherited bTiposIVA: TButton
-        Left = 227
-        Top = 38
-        ExplicitLeft = 227
-        ExplicitTop = 38
+        Left = 293
+        ExplicitLeft = 293
       end
       inherited cbRecargoEquivalencia: TcxDBCheckBox
-        Left = 93
-        Top = 65
-        DataBinding.DataField = ''
         Style.LookAndFeel.SkinName = ''
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
-        ExplicitLeft = 93
-        ExplicitTop = 65
-        ExplicitWidth = 259
-        Width = 259
+        ExplicitWidth = 221
+        Width = 221
       end
-      inherited dxLayoutControl1Group_Root: TdxLayoutGroup
-        inherited dxLayoutControl1Group1: TdxLayoutGroup
-          ShowCaption = False
-          ShowBorder = False
-          inherited dxLayoutControl1Group2: TdxLayoutGroup
-            inherited dxLayoutControl1Group6: TdxLayoutGroup
-              Visible = False
-            end
-            inherited dxLayoutControl1Item16: TdxLayoutItem
-              Visible = False
-            end
-            inherited dxLayoutControl1Item10: TdxLayoutItem
-              Visible = False
-            end
-          end
-          inherited dxLayoutControl1Group5: TdxLayoutGroup
-            inherited dxLayoutControl1Group3: TdxLayoutGroup
-              inherited dxLayoutControl1Item12: TdxLayoutItem
-                Visible = False
-              end
-              inherited dxLayoutControl1Group9: TdxLayoutGroup
-                Visible = False
-              end
-              inherited dxLayoutControl1Group8: TdxLayoutGroup
-                Visible = False
-              end
-              inherited dxLayoutControl1Item14: TdxLayoutItem
-                Visible = False
-              end
-            end
-          end
-        end
+      inherited eDescripcionBonificacion: TcxDBTextEdit
+        Style.LookAndFeel.SkinName = ''
+        StyleDisabled.LookAndFeel.SkinName = ''
+        StyleFocused.LookAndFeel.SkinName = ''
+        StyleHot.LookAndFeel.SkinName = ''
+        ExplicitWidth = 325
+        Width = 325
+      end
+      inherited eImporteBonificacion: TcxDBCurrencyEdit
+        Style.LookAndFeel.SkinName = ''
+        Style.IsFontAssigned = True
+        StyleDisabled.LookAndFeel.SkinName = ''
+        StyleFocused.LookAndFeel.SkinName = ''
+        StyleHot.LookAndFeel.SkinName = ''
+        ExplicitWidth = 277
+        Width = 277
+      end
+      inherited cbBonificacion: TcxCheckBox
+        Style.LookAndFeel.SkinName = ''
+        StyleDisabled.LookAndFeel.SkinName = ''
+        StyleFocused.LookAndFeel.SkinName = ''
+        StyleHot.LookAndFeel.SkinName = ''
+        ExplicitWidth = 277
+        Width = 277
       end
     end
   end
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas
index ac34a290..800d9f19 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas	
@@ -19,7 +19,7 @@ uses
   uDAInterfaces, cxRichEdit, cxDBRichEdit, JvGIF, uViewRichEditor, cxPC,
   uViewDetallesArticulosParaVenta, uViewDocumentos,
   uViewDocumentosPresupuestoCliente, uViewDatosYSeleccionClientePresupuesto,
-  cxLabel;
+  cxLabel, uViewTotalesPresupuesto;
 
 type
   TfEditorPresupuestoCliente = class(TfEditorDBItem, IEditorPresupuestoCliente)
@@ -28,7 +28,6 @@ type
     frViewIncidenciasCli: TfrViewIncidencias;
     dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
     dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
-    frViewTotales1: TfrViewTotales;
     pagPortada: TTabSheet;
     pagMemoria: TTabSheet;
     Panel1: TPanel;
@@ -48,6 +47,7 @@ type
     TBXItem35: TTBXItem;
     pagDocumentos: TTabSheet;
     frViewDocumentosPresupuestoCliente1: TfrViewDocumentosPresupuestoCliente;
+    frViewTotalesPresupuesto1: TfrViewTotalesPresupuesto;
 
     procedure FormShow(Sender: TObject);
     procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
@@ -177,6 +177,7 @@ begin
   //GESTION_DOCUMENTOS
   //Este método eliminará el directorio temporal si se ha creado
   frViewDocumentosPresupuestoCliente1.actEliminarTodo.Execute;
+
   FViewPresupuesto := NIL;
   FViewClientePresupuesto := NIL;
   FPresupuesto := NIL;
@@ -216,11 +217,11 @@ procedure TfEditorPresupuestoCliente.frViewTotales1ePortePropertiesValidate(
   var Error: Boolean);
 begin
   inherited;
-  if (not VarIsNull(DisplayValue)) and (Length(DisplayValue) > 0) then
+{  if (not VarIsNull(DisplayValue)) and (Length(DisplayValue) > 0) then
     FPresupuesto.IMPORTE_PORTE := DisplayValue
   else
     FPresupuesto.IMPORTE_PORTE := 0;
-
+}
 //  RecalcularPortePorUnidad; En los documentos de cliente no se desglosa el porte por articulo
 end;
 
@@ -373,9 +374,11 @@ begin
   begin
 //    ViewPresupuesto.ViewClientePresupuesto.Controller := Controller.ClienteController;
     frViewDetallesPresupuestoCliente1.Controller := Controller.DetallesController;
-    
+
     //GESTION_DOCUMENTOS
     frViewDocumentosPresupuestoCliente1.Controller := Controller;
+
+    frViewTotalesPresupuesto1.Controller := FController;
   end;
 end;
 
@@ -393,7 +396,7 @@ begin
   begin
     dsDataTable.DataTable := FPresupuesto.DataTable;
     frViewIncidenciasCli.DADataSource.DataTable := dsDataTable.DataTable;
-    frViewTotales1.DADataSource.DataTable := dsDataTable.DataTable;
+    frViewTotalesPresupuesto1.DADataSource.DataTable := dsDataTable.DataTable;
     if Assigned(FViewPresupuesto) then
     begin
       ViewPresupuesto.ViewClientePresupuesto.OnClienteChanged := NIL;
@@ -404,6 +407,9 @@ begin
 
         //GESTION_DOCUMENTOS
         frViewDocumentosPresupuestoCliente1.Presupuesto := FPresupuesto;
+
+        frViewTotalesPresupuesto1.Presupuesto := FPresupuesto;
+        
       finally
         ViewPresupuesto.ViewClientePresupuesto.OnClienteChanged := OnClienteChanged;
       end;
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewDatosYSeleccionClientePresupuesto.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewDatosYSeleccionClientePresupuesto.pas
index 67adf026..250a8aef 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uViewDatosYSeleccionClientePresupuesto.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Views/uViewDatosYSeleccionClientePresupuesto.pas	
@@ -235,6 +235,7 @@ var
   ACliente : IBizCliente;
 begin
   inherited;
+
   ACliente := (FClientesController.ElegirContacto(FClientesController.BuscarTodos, FMsgElegirCliente, False) as IBizCliente);
 
   if Assigned(ACliente) then
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewTotalesPresupuesto.dfm b/Source/Modulos/Presupuestos de cliente/Views/uViewTotalesPresupuesto.dfm
new file mode 100644
index 00000000..396fa745
--- /dev/null
+++ b/Source/Modulos/Presupuestos de cliente/Views/uViewTotalesPresupuesto.dfm	
@@ -0,0 +1,289 @@
+inherited frViewTotalesPresupuesto: TfrViewTotalesPresupuesto
+  Width = 848
+  Height = 287
+  OnDestroy = CustomViewDestroy
+  OnShow = CustomViewShow
+  ExplicitHeight = 287
+  inherited dxLayoutControl1: TdxLayoutControl
+    Width = 848
+    Height = 281
+    ExplicitWidth = 451
+    ExplicitHeight = 281
+    DesignSize = (
+      848
+      281)
+    inherited Bevel1: TBevel
+      Width = 73
+      ExplicitWidth = 73
+    end
+    inherited Bevel3: TBevel
+      Left = 488
+      Height = 122
+      ExplicitLeft = 488
+      ExplicitHeight = 122
+    end
+    inherited Bevel4: TBevel
+      Left = 600
+      Width = 192
+      ExplicitLeft = 600
+      ExplicitWidth = 192
+    end
+    inherited ImporteDto: TcxDBCurrencyEdit
+      Style.LookAndFeel.SkinName = ''
+      Style.IsFontAssigned = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+    end
+    inherited ImporteIVA: TcxDBCurrencyEdit
+      Left = 671
+      DataBinding.DataField = ''
+      Style.LookAndFeel.SkinName = ''
+      Style.IsFontAssigned = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 12
+      ExplicitLeft = 671
+    end
+    inherited ImporteTotal: TcxDBCurrencyEdit
+      Left = 601
+      Style.LookAndFeel.SkinName = ''
+      Style.IsFontAssigned = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 15
+      ExplicitLeft = 601
+    end
+    inherited edtDescuento: TcxDBSpinEdit
+      Style.LookAndFeel.SkinName = ''
+      Style.IsFontAssigned = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+    end
+    inherited edtIVA: TcxDBSpinEdit
+      Left = 600
+      Style.LookAndFeel.SkinName = ''
+      Style.IsFontAssigned = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 11
+      ExplicitLeft = 600
+    end
+    inherited ImporteBase: TcxDBCurrencyEdit
+      Left = 600
+      Style.LookAndFeel.SkinName = ''
+      Style.IsFontAssigned = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 10
+      ExplicitLeft = 600
+    end
+    inherited edtRE: TcxDBSpinEdit
+      Left = 600
+      DataBinding.DataField = ''
+      Style.LookAndFeel.SkinName = ''
+      Style.IsFontAssigned = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 13
+      ExplicitLeft = 600
+    end
+    inherited ImporteRE: TcxDBCurrencyEdit
+      Left = 671
+      DataBinding.DataField = ''
+      Style.LookAndFeel.SkinName = ''
+      Style.IsFontAssigned = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 14
+      ExplicitLeft = 671
+    end
+    inherited eImporteNeto: TcxDBCurrencyEdit
+      Style.LookAndFeel.SkinName = ''
+      Style.IsFontAssigned = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+    end
+    inherited ePorte: TcxDBCurrencyEdit
+      Style.LookAndFeel.SkinName = ''
+      Style.IsFontAssigned = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+    end
+    inherited eIVA: TcxDBLookupComboBox
+      DataBinding.DataField = ''
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+    end
+    inherited bTiposIVA: TButton
+      Left = 340
+      ExplicitLeft = 340
+    end
+    inherited cbRecargoEquivalencia: TcxDBCheckBox
+      DataBinding.DataField = ''
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      ExplicitWidth = 221
+      Width = 221
+    end
+    object eDescripcionBonificacion: TcxDBTextEdit [16]
+      Left = 104
+      Top = 210
+      Anchors = [akLeft, akTop, akRight]
+      AutoSize = False
+      DataBinding.DataField = 'DESCRIPCION_BONIFICACION'
+      DataBinding.DataSource = DADataSource
+      Enabled = False
+      ParentFont = False
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.HotTrack = False
+      Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleDisabled.TextColor = clWindowText
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 8
+      Height = 21
+      Width = 325
+    end
+    object eImporteBonificacion: TcxDBCurrencyEdit [17]
+      Left = 104
+      Top = 237
+      AutoSize = False
+      DataBinding.DataField = 'IMPORTE_BONIFICACION'
+      DataBinding.DataSource = DADataSource
+      Enabled = False
+      ParentFont = False
+      Properties.Alignment.Horz = taRightJustify
+      Properties.ReadOnly = False
+      Properties.UseLeftAlignmentOnEditing = False
+      Properties.UseThousandSeparator = True
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.Font.Charset = DEFAULT_CHARSET
+      Style.Font.Color = clWindowText
+      Style.Font.Height = -11
+      Style.Font.Name = 'Tahoma'
+      Style.Font.Style = []
+      Style.HotTrack = False
+      Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
+      Style.TextColor = clWindowText
+      Style.IsFontAssigned = True
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleDisabled.TextColor = clWindowText
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 9
+      Height = 21
+      Width = 277
+    end
+    object cbBonificacion: TcxCheckBox [18]
+      Left = 22
+      Top = 183
+      Caption = 'Incluir descuento por bonificaci'#243'n:'
+      Properties.DisplayChecked = '1'
+      Properties.DisplayUnchecked = '0'
+      Properties.ImmediatePost = True
+      Properties.NullStyle = nssUnchecked
+      Properties.ValueChecked = 1
+      Properties.ValueUnchecked = 0
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.HotTrack = False
+      Style.LookAndFeel.Kind = lfStandard
+      Style.LookAndFeel.NativeStyle = True
+      Style.LookAndFeel.SkinName = ''
+      StyleDisabled.LookAndFeel.Kind = lfStandard
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.Kind = lfStandard
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.Kind = lfStandard
+      StyleHot.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 7
+      Width = 277
+    end
+    inherited dxLayoutControl1Group_Root: TdxLayoutGroup
+      inherited dxLayoutControl1Group1: TdxLayoutGroup
+        inherited dxLayoutControl1Group2: TdxLayoutGroup
+          inherited dxLayoutControl1Item8: TdxLayoutItem
+            Visible = False
+          end
+          inherited dxLayoutControl1Group6: TdxLayoutGroup
+            Visible = False
+          end
+          inherited dxLayoutControl1Item16: TdxLayoutItem
+            Visible = False
+          end
+          inherited dxLayoutControl1Item10: TdxLayoutItem
+            Visible = False
+          end
+          inherited dxLayoutControl1Group7: TdxLayoutGroup
+            Visible = False
+          end
+          inherited dxLayoutControl1Item9: TdxLayoutItem
+            Visible = False
+          end
+          object dxLayoutControl1Item19: TdxLayoutItem
+            ShowCaption = False
+            Control = cbBonificacion
+            ControlOptions.ShowBorder = False
+          end
+          object dxLayoutControl1Item17: TdxLayoutItem
+            Caption = 'Descripci'#243'n:'
+            Control = eDescripcionBonificacion
+            ControlOptions.ShowBorder = False
+          end
+          object dxLayoutControl1Item18: TdxLayoutItem
+            Caption = 'Importe:'
+            Control = eImporteBonificacion
+            ControlOptions.ShowBorder = False
+          end
+        end
+        inherited dxLayoutControl1Group5: TdxLayoutGroup
+          inherited dxLayoutControl1Group3: TdxLayoutGroup
+            inherited dxLayoutControl1Item12: TdxLayoutItem
+              Visible = False
+            end
+            inherited dxLayoutControl1Group9: TdxLayoutGroup
+              Visible = False
+            end
+            inherited dxLayoutControl1Group8: TdxLayoutGroup
+              Visible = False
+              inherited dxLayoutControl1Item6: TdxLayoutItem
+                Visible = False
+              end
+            end
+            inherited dxLayoutControl1Item14: TdxLayoutItem
+              Visible = False
+            end
+          end
+        end
+      end
+    end
+  end
+end
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uViewTotalesPresupuesto.pas b/Source/Modulos/Presupuestos de cliente/Views/uViewTotalesPresupuesto.pas
new file mode 100644
index 00000000..8b1d7ab6
--- /dev/null
+++ b/Source/Modulos/Presupuestos de cliente/Views/uViewTotalesPresupuesto.pas	
@@ -0,0 +1,103 @@
+unit uViewTotalesPresupuesto;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uViewTotales, cxGraphics, dxLayoutLookAndFeels, DB, uDAInterfaces,
+  uDADataTable, dxLayoutControl, cxCheckBox, cxDBEdit, StdCtrls, cxDropDownEdit,
+  cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, cxMaskEdit, cxSpinEdit,
+  cxContainer, cxEdit, cxTextEdit, cxCurrencyEdit, ExtCtrls, cxControls,
+  uBizPresupuestosCliente, uPresupuestosClienteController;
+
+type
+  TfrViewTotalesPresupuesto = class(TfrViewTotales)
+    dxLayoutControl1Item17: TdxLayoutItem;
+    eDescripcionBonificacion: TcxDBTextEdit;
+    dxLayoutControl1Item18: TdxLayoutItem;
+    eImporteBonificacion: TcxDBCurrencyEdit;
+    dxLayoutControl1Item19: TdxLayoutItem;
+    cbBonificacion: TcxCheckBox;
+    procedure CustomViewDestroy(Sender: TObject);
+    procedure CustomViewShow(Sender: TObject);
+    procedure OnBonificacionPropertiesEditValueChanged(Sender: TObject);
+
+  protected
+    FPresupuesto: IBizPresupuestoCliente;
+    FController : IPresupuestosClienteController;
+    function GetPresupuesto: IBizPresupuestoCliente;
+    procedure SetPresupuesto(const Value: IBizPresupuestoCliente);
+    function GetController : IPresupuestosClienteController;
+    procedure SetController (const Value : IPresupuestosClienteController); virtual;
+
+  public
+    property Presupuesto: IBizPresupuestoCliente read GetPresupuesto write SetPresupuesto;
+    property Controller : IPresupuestosClienteController read GetController write SetController;
+
+  end;
+
+implementation
+{$R *.dfm}
+
+{ TfrViewTotalesPresupuesto }
+
+procedure TfrViewTotalesPresupuesto.CustomViewDestroy(Sender: TObject);
+begin
+  cbBonificacion.Properties.OnEditValueChanged := Nil;
+  FPresupuesto := NIL;
+  FController := NIL;
+  inherited;
+end;
+
+procedure TfrViewTotalesPresupuesto.CustomViewShow(Sender: TObject);
+begin
+  inherited;
+
+  if not Presupuesto.DESCRIPCION_BONIFICACIONIsNull
+  or not Presupuesto.IMPORTE_BONIFICACIONIsNull then
+  begin
+     cbBonificacion.Checked := True;
+     eDescripcionBonificacion.Enabled := True;
+     eImporteBonificacion.Enabled := True;
+  end;
+
+  cbBonificacion.Properties.OnEditValueChanged := OnBonificacionPropertiesEditValueChanged;
+end;
+
+function TfrViewTotalesPresupuesto.GetController: IPresupuestosClienteController;
+begin
+  Result := FController;
+end;
+
+function TfrViewTotalesPresupuesto.GetPresupuesto: IBizPresupuestoCliente;
+begin
+  Result := FPresupuesto;
+end;
+
+procedure TfrViewTotalesPresupuesto.OnBonificacionPropertiesEditValueChanged(
+  Sender: TObject);
+begin
+  if cbBonificacion.Checked then
+  begin
+    eDescripcionBonificacion.Enabled := True;
+    eImporteBonificacion.Enabled := True;
+  end
+  else
+  begin
+    eDescripcionBonificacion.Enabled := False;
+    eImporteBonificacion.Enabled := False;
+    Controller.BorrarBonificacion(Presupuesto);
+  end;
+end;
+
+procedure TfrViewTotalesPresupuesto.SetController(const Value: IPresupuestosClienteController);
+begin
+  FController := Value;
+end;
+
+procedure TfrViewTotalesPresupuesto.SetPresupuesto(const Value: IBizPresupuestoCliente);
+begin
+  FPresupuesto := Value;
+end;
+
+end.