Tipos de venta: corregido error con editor.

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

Source/Modulos/Tipos de venta/Model/schTiposVentaClient_Intf.pas

@@ -3,7 +3,7 @@ unit schTiposVentaClient_Intf;
 interface
 
 uses
-  Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
 
 const
   { Data table rules ids
@@ -53,7 +53,7 @@ type
   end;
 
   { TTiposVentaDataTableRules }
-  TTiposVentaDataTableRules = class(TDADataTableRules, ITiposVenta)
+  TTiposVentaDataTableRules = class(TIntfObjectDADataTableRules, ITiposVenta)
   private
   protected
     { Property getters and setters }

Source/Modulos/Tipos de venta/Views/uEditorTiposVenta.dfm

@@ -62,7 +62,7 @@ object fEditorTiposVenta: TfEditorTiposVenta
           FilterBox.Visible = fvNever
           DataController.DataSource = dsTiposVenta
           DataController.Filter.Options = [fcoCaseInsensitive]
-          DataController.KeyFieldNames = 'CODIGO'
+          DataController.KeyFieldNames = 'ID'
           DataController.Options = [dcoAnsiSort, dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoFocusTopRowAfterSorting, dcoImmediatePost]
           DataController.Summary.DefaultGroupSummaryItems = <>
           DataController.Summary.FooterSummaryItems = <>
@@ -90,6 +90,11 @@ object fEditorTiposVenta: TfEditorTiposVenta
           OptionsView.GroupByBox = False
           OptionsView.HeaderEndEllipsis = True
           OptionsView.Indicator = True
+          object ListaTiposVentaViewID: TcxGridDBColumn
+            DataBinding.FieldName = 'ID'
+            Visible = False
+            VisibleForCustomization = False
+          end
           object ListaTiposVentaViewDESCRIPCION: TcxGridDBColumn
             Caption = 'Tipo de venta'
             DataBinding.FieldName = 'DESCRIPCION'
@@ -99,11 +104,19 @@ object fEditorTiposVenta: TfEditorTiposVenta
             Options.Focusing = False
             SortIndex = 0
             SortOrder = soAscending
-            Width = 191
+            Width = 287
           end
           object ListaTiposVentaViewCODIGO: TcxGridDBColumn
             Caption = 'C'#243'digo contable'
             DataBinding.FieldName = 'CODIGO_CONTABLE'
+            PropertiesClassName = 'TcxSpinEditProperties'
+            Properties.Alignment.Horz = taRightJustify
+            Properties.ImmediatePost = True
+            Properties.SpinButtons.Visible = False
+            GroupSummaryAlignment = taRightJustify
+            HeaderAlignmentHorz = taRightJustify
+            HeaderGlyphAlignmentHorz = taRightJustify
+            Width = 141
           end
         end
         object ListaTiposVentaLevel: TcxGridLevel

Source/Modulos/Tipos de venta/Views/uEditorTiposVenta.pas

@@ -31,7 +31,7 @@ uses
   ActnList, Grids, DBGrids, StdCtrls, ComCtrls, cxStyles, cxCustomData,
   cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, cxGridLevel,
   cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
-  cxControls, cxGridCustomView, cxGrid, cxTextEdit, uDAInterfaces;
+  cxControls, cxGridCustomView, cxGrid, cxTextEdit, uDAInterfaces, cxSpinEdit;
 
 type
   TfEditorTiposVenta = class(TForm, IEditorTiposVenta)
@@ -50,6 +50,7 @@ type
     ListaTiposVentaViewCODIGO: TcxGridDBColumn;
     ListaTiposVentaViewDESCRIPCION: TcxGridDBColumn;
     ListaTiposVentaLevel: TcxGridLevel;
+    ListaTiposVentaViewID: TcxGridDBColumn;
     procedure FormShow(Sender: TObject);
 
     procedure actAceptarExecute(Sender: TObject);

Source/Servidor/FactuGES_Server.dproj

@@ -1,4 +1,4 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
 	<PropertyGroup>
 		<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>

Source/Servidor/FactuGES_Server.rc

@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "1.0.0.0\0"
               VALUE "ProductVersion", "1.0.0.0\0"
-              VALUE "CompileDate", "martes, 26 de febrero de 2008 18:24\0"
+              VALUE "CompileDate", "martes, 26 de febrero de 2008 20:41\0"
          END
     END
     BLOCK "VarFileInfo"