Se arregla la vista de importes de las facturas para que se vean los totales

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@400 f4e31baf-9722-1c47-927c-6f952f962d4b

Source/GUIBase/GUIBase.dproj

@@ -58,37 +58,37 @@
     <DelphiCompile Include="GUIBase.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Contabilidad\Base.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\cxDataD11.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\cxEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\cxExportD11.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\cxTreeListD11.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\dxBarD11.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\dxBarExtItemsD11.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\dxLayoutControlD11.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\dxPScxCommonD11.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\dxPScxGrid6LnkD11.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\dxPsPrVwAdvD11.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\dxThemeD11.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\frx11.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\frxe11.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\fs11.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\JvAppFrmD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\JvGlobusD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\PngComponentsD10.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\PNG_D10.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\tb2k_d10.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\tbx_d10.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\vclactnband.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Contabilidad\vclx.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\Base.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\cxDataD11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\cxEditorsD11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\cxExportD11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\cxLibraryD11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\cxTreeListD11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\dbrtl.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\dxBarD11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\dxBarExtItemsD11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\dxLayoutControlD11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\dxPScxCommonD11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\dxPScxGrid6LnkD11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\dxPsPrVwAdvD11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\dxThemeD11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\frx11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\frxe11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\fs11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\JvAppFrmD11R.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\JvCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\JvGlobusD11R.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\PngComponentsD10.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\PNG_D10.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\rtl.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\tb2k_d10.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\tbx_d10.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\vcl.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\vclactnband.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\vcldb.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\vcljpg.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\vclx.dcp" />
     <DCCReference Include="uDialogBase.pas">
       <Form>fDialogBase</Form>
     </DCCReference>

Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm

@@ -80,18 +80,22 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
   end
   inherited pgPaginas: TPageControl
     Width = 854
-    Height = 360
+    Height = 368
     ActivePage = pagContabilidad
     OnChanging = pgPaginasChanging
+    ExplicitTop = 109
     ExplicitWidth = 854
-    ExplicitHeight = 360
+    ExplicitHeight = 368
     inherited pagGeneral: TTabSheet
+      ExplicitLeft = 4
+      ExplicitTop = 24
       ExplicitWidth = 846
+      ExplicitHeight = 340
       inline frViewFacturaCliente1: TfrViewFacturaCliente
         Left = 0
         Top = 0
         Width = 846
-        Height = 332
+        Height = 340
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -102,12 +106,12 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
         TabOrder = 0
         ReadOnly = False
         ExplicitWidth = 846
-        ExplicitHeight = 332
+        ExplicitHeight = 340
         inherited dxLayoutControl1: TdxLayoutControl
           Width = 846
-          Height = 332
+          Height = 340
           ExplicitWidth = 846
-          ExplicitHeight = 332
+          ExplicitHeight = 340
           inherited eReferencia: TcxDBTextEdit
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
@@ -249,7 +253,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
         Left = 0
         Top = 0
         Width = 846
-        Height = 332
+        Height = 340
         Align = alClient
         BiDiMode = bdLeftToRight
         Font.Charset = DEFAULT_CHARSET
@@ -262,7 +266,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
         TabOrder = 0
         ReadOnly = False
         ExplicitWidth = 846
-        ExplicitHeight = 332
+        ExplicitHeight = 340
         inherited ToolBar1: TToolBar
           Width = 846
           Height = 24
@@ -349,10 +353,10 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
         inherited cxGrid: TcxGrid
           Top = 50
           Width = 846
-          Height = 282
+          Height = 290
           ExplicitTop = 50
           ExplicitWidth = 846
-          ExplicitHeight = 282
+          ExplicitHeight = 290
         end
         inherited TBXDock1: TTBXDock
           Top = 24
@@ -417,6 +421,13 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
     end
   end
   inherited PnlComentario: TPanel
+    Width = 860
+    TabOrder = 5
+    ExplicitWidth = 860
+    inherited lbComentario: TLabel
+      Width = 850
+      Height = 25
+    end
   end
   inline frViewTotales1: TfrViewTotales [5]
     Left = 0
@@ -449,10 +460,10 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
       end
       inherited Bevel4: TBevel
         Left = 569
-        Top = 72
+        Top = 57
         Width = 186
         ExplicitLeft = 569
-        ExplicitTop = 72
+        ExplicitTop = 57
         ExplicitWidth = 186
       end
       inherited ImporteDto: TcxDBCurrencyEdit
@@ -468,27 +479,27 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
       end
       inherited ImporteIVA: TcxDBCurrencyEdit
         Left = 640
-        Top = 107
+        Top = 77
         Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 640
-        ExplicitTop = 107
+        ExplicitTop = 77
         ExplicitWidth = 155
         Width = 155
       end
       inherited ImporteTotal: TcxDBCurrencyEdit
         Left = 570
-        Top = 161
+        Top = 131
         Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 570
-        ExplicitTop = 161
+        ExplicitTop = 131
         ExplicitWidth = 225
         Width = 225
       end
@@ -504,14 +515,14 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
       end
       inherited edtIVA: TcxDBSpinEdit
         Left = 569
-        Top = 107
+        Top = 77
         Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 569
-        ExplicitTop = 107
+        ExplicitTop = 77
       end
       inherited ImporteBase: TcxDBCurrencyEdit
         Left = 569
@@ -528,7 +539,7 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
       end
       inherited edtRE: TcxDBSpinEdit
         Left = 569
-        Top = 134
+        Top = 104
         Properties.AssignedValues.MinValue = True
         Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
@@ -536,18 +547,18 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 569
-        ExplicitTop = 134
+        ExplicitTop = 104
       end
       inherited ImporteRE: TcxDBCurrencyEdit
         Left = 640
-        Top = 134
+        Top = 104
         Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 640
-        ExplicitTop = 134
+        ExplicitTop = 104
         ExplicitWidth = 155
         Width = 155
       end
@@ -617,6 +628,13 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
           end
           inherited dxLayoutControl1Group5: TdxLayoutGroup
             inherited dxLayoutControl1Group3: TdxLayoutGroup
+              inherited dxLayoutControl1Group11: TdxLayoutGroup
+                inherited dxLayoutControl1Item14: TdxLayoutItem
+                  Offsets.Bottom = 0
+                  Offsets.Top = 0
+                  Visible = False
+                end
+              end
               inherited dxLayoutControl1Group8: TdxLayoutGroup
                 inherited dxLayoutControl1Item7: TdxLayoutItem
                   Visible = True

Source/Modulos/Facturas de proveedor/Views/uEditorFacturaProveedor.dfm

@@ -68,24 +68,33 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
       end
     end
   end
+  inherited StatusBar: TJvStatusBar
+    Top = 587
+    Width = 746
+    Panels = <
+      item
+        Width = 200
+      end>
+    ExplicitTop = 587
+    ExplicitWidth = 746
+  end
   inherited pgPaginas: TPageControl
     Width = 740
-    Height = 342
+    Height = 312
     OnChanging = pgPaginasChanging
-    ExplicitLeft = 3
-    ExplicitTop = 79
+    ExplicitTop = 109
     ExplicitWidth = 740
-    ExplicitHeight = 342
+    ExplicitHeight = 312
     inherited pagGeneral: TTabSheet
       ExplicitLeft = 4
       ExplicitTop = 24
       ExplicitWidth = 732
-      ExplicitHeight = 314
+      ExplicitHeight = 284
       inline frViewFacturaProveedor1: TfrViewFacturaProveedor
         Left = 0
         Top = 0
         Width = 732
-        Height = 314
+        Height = 284
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -96,15 +105,15 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
         TabOrder = 0
         ReadOnly = False
         ExplicitWidth = 732
-        ExplicitHeight = 314
+        ExplicitHeight = 284
         inherited dxLayoutControl1: TdxLayoutControl
           Width = 732
-          Height = 314
+          Height = 284
           ExplicitWidth = 732
-          ExplicitHeight = 314
+          ExplicitHeight = 284
           DesignSize = (
             732
-            314)
+            284)
           inherited eReferencia: TcxDBTextEdit
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
@@ -264,7 +273,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
         Left = 0
         Top = 0
         Width = 732
-        Height = 314
+        Height = 284
         Align = alClient
         BiDiMode = bdLeftToRight
         Font.Charset = DEFAULT_CHARSET
@@ -277,7 +286,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
         TabOrder = 0
         ReadOnly = False
         ExplicitWidth = 732
-        ExplicitHeight = 314
+        ExplicitHeight = 284
         inherited ToolBar1: TToolBar
           Width = 732
           ExplicitWidth = 732
@@ -302,47 +311,47 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
             ExplicitWidth = 57
           end
           inherited UpDown1: TUpDown
-            Left = 202
-            ExplicitLeft = 202
+            Left = 218
+            ExplicitLeft = 218
           end
           inherited ToolButton13: TToolButton
-            Left = 219
-            ExplicitLeft = 219
+            Left = 235
+            ExplicitLeft = 235
           end
           inherited ToolButton6: TToolButton
-            Left = 227
-            ExplicitLeft = 227
+            Left = 243
+            ExplicitLeft = 243
           end
           inherited ToolButton7: TToolButton
-            Left = 261
-            ExplicitLeft = 261
+            Left = 277
+            ExplicitLeft = 277
           end
           inherited ToolButton8: TToolButton
-            Left = 295
-            ExplicitLeft = 295
+            Left = 311
+            ExplicitLeft = 311
           end
           inherited ToolButton12: TToolButton
-            Left = 329
-            ExplicitLeft = 329
+            Left = 345
+            ExplicitLeft = 345
           end
           inherited ToolButton9: TToolButton
-            Left = 337
-            ExplicitLeft = 337
+            Left = 353
+            ExplicitLeft = 353
           end
           inherited ToolButton10: TToolButton
-            Left = 371
-            ExplicitLeft = 371
+            Left = 387
+            ExplicitLeft = 387
           end
           inherited ToolButton11: TToolButton
-            Left = 405
-            ExplicitLeft = 405
+            Left = 421
+            ExplicitLeft = 421
           end
         end
         inherited cxGrid: TcxGrid
           Width = 732
-          Height = 242
+          Height = 212
           ExplicitWidth = 732
-          ExplicitHeight = 242
+          ExplicitHeight = 212
         end
         inherited TBXDock1: TTBXDock
           Width = 732
@@ -403,16 +412,6 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
       end
     end
   end
-  inherited StatusBar: TJvStatusBar
-    Top = 587
-    Width = 746
-    Panels = <
-      item
-        Width = 200
-      end>
-    ExplicitTop = 587
-    ExplicitWidth = 746
-  end
   inline frViewTotales1: TfrViewTotales [4]
     Left = 0
     Top = 424
@@ -425,7 +424,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
     Font.Name = 'Tahoma'
     Font.Style = []
     ParentFont = False
-    TabOrder = 4
+    TabOrder = 5
     ReadOnly = False
     ExplicitTop = 424
     ExplicitWidth = 746
@@ -443,10 +442,10 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
       end
       inherited Bevel4: TBevel
         Left = 510
-        Top = 72
+        Top = 57
         Width = 186
         ExplicitLeft = 510
-        ExplicitTop = 72
+        ExplicitTop = 57
         ExplicitWidth = 186
       end
       inherited ImporteDto: TcxDBCurrencyEdit
@@ -462,27 +461,27 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
       end
       inherited ImporteIVA: TcxDBCurrencyEdit
         Left = 581
-        Top = 107
+        Top = 77
         Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 581
-        ExplicitTop = 107
+        ExplicitTop = 77
         ExplicitWidth = 143
         Width = 143
       end
       inherited ImporteTotal: TcxDBCurrencyEdit
         Left = 511
-        Top = 161
+        Top = 131
         Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 511
-        ExplicitTop = 161
+        ExplicitTop = 131
         ExplicitWidth = 213
         Width = 213
       end
@@ -498,14 +497,14 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
       end
       inherited edtIVA: TcxDBSpinEdit
         Left = 510
-        Top = 107
+        Top = 77
         Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 510
-        ExplicitTop = 107
+        ExplicitTop = 77
       end
       inherited ImporteBase: TcxDBCurrencyEdit
         Left = 510
@@ -522,7 +521,7 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
       end
       inherited edtRE: TcxDBSpinEdit
         Left = 510
-        Top = 134
+        Top = 104
         Properties.AssignedValues.MinValue = True
         Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
@@ -530,18 +529,18 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 510
-        ExplicitTop = 134
+        ExplicitTop = 104
       end
       inherited ImporteRE: TcxDBCurrencyEdit
         Left = 581
-        Top = 134
+        Top = 104
         Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
         StyleDisabled.LookAndFeel.SkinName = ''
         StyleFocused.LookAndFeel.SkinName = ''
         StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 581
-        ExplicitTop = 134
+        ExplicitTop = 104
         ExplicitWidth = 143
         Width = 143
       end
@@ -618,6 +617,13 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
           end
           inherited dxLayoutControl1Group5: TdxLayoutGroup
             inherited dxLayoutControl1Group3: TdxLayoutGroup
+              inherited dxLayoutControl1Group11: TdxLayoutGroup
+                inherited dxLayoutControl1Item14: TdxLayoutItem
+                  Offsets.Bottom = 0
+                  Offsets.Top = 0
+                  Visible = False
+                end
+              end
               inherited dxLayoutControl1Group8: TdxLayoutGroup
                 inherited dxLayoutControl1Item7: TdxLayoutItem
                   Visible = True
@@ -629,18 +635,22 @@ inherited fEditorFacturaProveedor: TfEditorFacturaProveedor
       end
     end
   end
-  inherited EditorActionList: TActionList [5]
+  inherited PnlComentario: TPanel [5]
+    Width = 746
+    ExplicitWidth = 746
+    inherited lbComentario: TLabel
+      Width = 736
+      Height = 25
+    end
+  end
+  inherited EditorActionList: TActionList [9]
     Left = 8
     Top = 144
   end
-  inherited SmallImages: TPngImageList [6]
-  end
-  inherited LargeImages: TPngImageList [7]
-  end
-  inherited JvFormStorage: TJvFormStorage [8]
-  end
   inherited dsDataTable: TDADataSource [10]
     Left = 40
     Top = 144
   end
+  inherited JvAppRegistryStorage: TJvAppRegistryStorage [11]
+  end
 end