Se arreglan informes y vistas de presupuestos y contratos que no ordenaban bien

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

Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.drc

@@ -25,4 +25,4 @@ END
 /* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Views\uEditorElegirArticulosContratoCliente.dfm */
 /* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Views\uEditorContratosClienteReport.dfm */
 /* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Views\ContratosCliente_view.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf8B8.tmp */
+/* C:\Codigo Acana\Source\Modulos\Contratos de cliente\Views\ContratosCliente_view.drf */

Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm

@@ -12,7 +12,7 @@ inherited frViewContratosCliente: TfrViewContratosCliente
     ExplicitHeight = 397
     inherited cxGridView: TcxGridDBTableView
       DataController.KeyFieldNames = 'ID'
-      DataController.Options = [dcoAnsiSort, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText, dcoGroupsAlwaysExpanded]
+      DataController.Options = [dcoAnsiSort, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded]
       DataController.Summary.DefaultGroupSummaryItems = <
         item
           Format = ',0.00 '#8364';-,0.00 '#8364
@@ -31,9 +31,6 @@ inherited frViewContratosCliente: TfrViewContratosCliente
           Kind = skSum
           Column = cxGridViewIMPORTE_TOTAL
         end>
-      DataController.OnCompare = cxGridViewDataControllerCompare
-      OptionsCustomize.ColumnHidingOnGrouping = False
-      OptionsView.GroupFooters = gfAlwaysVisible
       object cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn
         Caption = 'Incidencias'
         DataBinding.FieldName = 'INCIDENCIAS_ACTIVAS'
@@ -118,12 +115,6 @@ inherited frViewContratosCliente: TfrViewContratosCliente
         Width = 25
       end
     end
-    object cxGridDBTableView1: TcxGridDBTableView [1]
-      NavigatorButtons.ConfirmDelete = False
-      DataController.Summary.DefaultGroupSummaryItems = <>
-      DataController.Summary.FooterSummaryItems = <>
-      DataController.Summary.SummaryGroups = <>
-    end
     inherited cxGridLevel: TcxGridLevel
       Caption = 'Todos'
     end

Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm

@@ -14,7 +14,7 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
     ExplicitHeight = 397
     inherited cxGridView: TcxGridDBTableView
       DataController.KeyFieldNames = 'ID'
-      DataController.Options = [dcoAnsiSort, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoSortByDisplayText, dcoGroupsAlwaysExpanded]
+      DataController.Options = [dcoAnsiSort, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded]
       DataController.Summary.DefaultGroupSummaryItems = <
         item
           Format = ',0.00 '#8364';-,0.00 '#8364
@@ -33,7 +33,6 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
           Kind = skSum
           Column = cxGridViewIMPORTE_TOTAL
         end>
-      DataController.OnCompare = cxGridViewDataControllerCompare
       OptionsCustomize.ColumnHidingOnGrouping = False
       OptionsView.GroupFooters = gfAlwaysVisible
       object cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn
@@ -69,8 +68,6 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
       object cxGridViewREFERENCIA: TcxGridDBColumn
         DataBinding.FieldName = 'REFERENCIA'
         BestFitMaxWidth = 25
-        SortIndex = 0
-        SortOrder = soDescending
         Width = 58
       end
       object cxGridViewSITUACION: TcxGridDBColumn
@@ -119,12 +116,6 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
         Width = 25
       end
     end
-    object cxGridDBTableView1: TcxGridDBTableView [1]
-      NavigatorButtons.ConfirmDelete = False
-      DataController.Summary.DefaultGroupSummaryItems = <>
-      DataController.Summary.FooterSummaryItems = <>
-      DataController.Summary.SummaryGroups = <>
-    end
     inherited cxGridLevel: TcxGridLevel
       Caption = 'Todos'
     end
@@ -233,7 +224,7 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
   end
   inherited ActionList1: TActionList
     Left = 200
-    Top = 448
+    Top = 408
     object actCliente: TAction
       Caption = 'Cliente'
       OnExecute = actClienteExecute

Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.pas

@@ -12,7 +12,7 @@ uses
   uDADataTable, cxGridLevel, cxClasses, cxControls, cxGridCustomView, Classes,
   cxGrid, uBizPresupuestosCliente, cxCurrencyEdit, Forms, uViewFiltroBase, ActnList, TB2Item,
   TBX, TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, Windows,
-  uCustomView, uViewBase;
+  uCustomView, uViewBase, cxTextEdit, cxCalendar;
 
 type
   IViewPresupuestosCliente = interface(IViewGrid)
@@ -23,7 +23,6 @@ type
   end;
 
   TfrViewPresupuestosCliente = class(TfrViewGrid, IViewPresupuestosCliente)
-    cxGridDBTableView1: TcxGridDBTableView;
     cxGridViewREFERENCIA: TcxGridDBColumn;
     cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn;
     cxGridViewNOMBRE: TcxGridDBColumn;