Cambio para que la tienda tenga asociado un código contable para la parte de contabilidad

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

Database/scripts/factuges.sql

@@ -832,8 +832,8 @@ CREATE TABLE EMPRESAS_DATOS_BANCO (
 
 
 CREATE TABLE EMPRESAS_TIENDAS (
-    ID                  TIPO_ID NOT NULL,
+    ID                  TIPO_ID NOT NULL /* TIPO_ID = INTEGER */,
-    ID_EMPRESA          TIPO_ID NOT NULL,
+    ID_EMPRESA          TIPO_ID NOT NULL /* TIPO_ID = INTEGER */,
     CALLE               VARCHAR(255),
     POBLACION           VARCHAR(255),
     PROVINCIA           VARCHAR(255),
@@ -846,7 +846,8 @@ CREATE TABLE EMPRESAS_TIENDAS (
     EMAIL               VARCHAR(255),
     NOTAS               TIPO_NOTAS,
     FECHA_ALTA          TIMESTAMP,
-    FECHA_MODIFICACION  TIMESTAMP
+    FECHA_MODIFICACION  TIMESTAMP,
+    CODIGO_CONTABLE     VARCHAR(2) COLLATE ES_ES
 );
 
 

Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.dfm

@@ -394,6 +394,11 @@ inherited DataModuleEmpresas: TDataModuleEmpresas
         DataType = datDateTime
         DisplayLabel = 'EmpresasTiendas_FECHA_MODIFICACION'
         DictionaryEntry = 'EmpresasTiendas_FECHA_MODIFICACION'
+      end
+      item
+        Name = 'CODIGO_CONTABLE'
+        DataType = datString
+        Size = 2
       end>
     Params = <>
     MasterMappingMode = mmWhere

Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas

@@ -3,15 +3,15 @@ unit schEmpresasClient_Intf;
 interface
 
 uses
-  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
 
 const
   { Data table rules ids
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_EmpresasTiendas = '{BD78E5F1-4636-43A0-9362-F3F4CDC322CF}';
+  RID_EmpresasTiendas = '{1596A2D4-D5EA-4AB8-A87F-3472E14D95B7}';
-  RID_Empresas = '{B8C14C6F-BCE5-4346-ABEC-0DADBCA0B194}';
+  RID_Empresas = '{36C6A689-7D4A-45D8-AE4A-E7B1AC5D603D}';
-  RID_EmpresasDatosBanco = '{002C9069-240E-40BA-8F11-221B263BAB3C}';
+  RID_EmpresasDatosBanco = '{EF50F778-8A79-4E98-A584-F7409D676979}';
 
   { Data table names }
   nme_EmpresasTiendas = 'EmpresasTiendas';
@@ -34,6 +34,7 @@ const
   fld_EmpresasTiendasNOTAS = 'NOTAS';
   fld_EmpresasTiendasFECHA_ALTA = 'FECHA_ALTA';
   fld_EmpresasTiendasFECHA_MODIFICACION = 'FECHA_MODIFICACION';
+  fld_EmpresasTiendasCODIGO_CONTABLE = 'CODIGO_CONTABLE';
 
   { EmpresasTiendas field indexes }
   idx_EmpresasTiendasID = 0;
@@ -51,6 +52,7 @@ const
   idx_EmpresasTiendasNOTAS = 12;
   idx_EmpresasTiendasFECHA_ALTA = 13;
   idx_EmpresasTiendasFECHA_MODIFICACION = 14;
+  idx_EmpresasTiendasCODIGO_CONTABLE = 15;
 
   { Empresas fields }
   fld_EmpresasID = 'ID';
@@ -127,7 +129,7 @@ const
 type
   { IEmpresasTiendas }
   IEmpresasTiendas = interface(IDAStronglyTypedDataTable)
-  ['{B2D64357-38DD-4359-9187-E02D72E066E8}']
+  ['{5717EA22-3BD0-4D84-8C13-44878475A8A4}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -188,6 +190,10 @@ type
     procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
     function GetFECHA_MODIFICACIONIsNull: Boolean;
     procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
+    function GetCODIGO_CONTABLEValue: String;
+    procedure SetCODIGO_CONTABLEValue(const aValue: String);
+    function GetCODIGO_CONTABLEIsNull: Boolean;
+    procedure SetCODIGO_CONTABLEIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -221,10 +227,12 @@ type
     property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
     property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
     property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
+    property CODIGO_CONTABLE: String read GetCODIGO_CONTABLEValue write SetCODIGO_CONTABLEValue;
+    property CODIGO_CONTABLEIsNull: Boolean read GetCODIGO_CONTABLEIsNull write SetCODIGO_CONTABLEIsNull;
   end;
 
   { TEmpresasTiendasDataTableRules }
-  TEmpresasTiendasDataTableRules = class(TIntfObjectDADataTableRules, IEmpresasTiendas)
+  TEmpresasTiendasDataTableRules = class(TDADataTableRules, IEmpresasTiendas)
   private
     f_NOTAS: IROStrings;
     procedure NOTAS_OnChange(Sender: TObject);
@@ -289,6 +297,10 @@ type
     procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
     function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
     procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
+    function GetCODIGO_CONTABLEValue: String; virtual;
+    procedure SetCODIGO_CONTABLEValue(const aValue: String); virtual;
+    function GetCODIGO_CONTABLEIsNull: Boolean; virtual;
+    procedure SetCODIGO_CONTABLEIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -321,6 +333,8 @@ type
     property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
     property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
     property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
+    property CODIGO_CONTABLE: String read GetCODIGO_CONTABLEValue write SetCODIGO_CONTABLEValue;
+    property CODIGO_CONTABLEIsNull: Boolean read GetCODIGO_CONTABLEIsNull write SetCODIGO_CONTABLEIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -330,7 +344,7 @@ type
 
   { IEmpresas }
   IEmpresas = interface(IDAStronglyTypedDataTable)
-  ['{FBFC4B93-8590-476D-A138-576E2114B398}']
+  ['{8F3B7830-6A3B-4041-9226-8A4768462EEC}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -474,7 +488,7 @@ type
   end;
 
   { TEmpresasDataTableRules }
-  TEmpresasDataTableRules = class(TIntfObjectDADataTableRules, IEmpresas)
+  TEmpresasDataTableRules = class(TDADataTableRules, IEmpresas)
   private
     f_NOTAS: IROStrings;
     f_LOGOTIPO: IROStream;
@@ -629,7 +643,7 @@ type
 
   { IEmpresasDatosBanco }
   IEmpresasDatosBanco = interface(IDAStronglyTypedDataTable)
-  ['{4C8B86F3-910E-49AF-A8B5-C4DA14DDE605}']
+  ['{F70DFC8E-6577-4105-A32D-B29CC4ED64F9}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -691,7 +705,7 @@ type
   end;
 
   { TEmpresasDatosBancoDataTableRules }
-  TEmpresasDatosBancoDataTableRules = class(TIntfObjectDADataTableRules, IEmpresasDatosBanco)
+  TEmpresasDatosBancoDataTableRules = class(TDADataTableRules, IEmpresasDatosBanco)
   private
   protected
     { Property getters and setters }
@@ -1095,6 +1109,27 @@ begin
     DataTable.Fields[idx_EmpresasTiendasFECHA_MODIFICACION].AsVariant := Null;
 end;
 
+function TEmpresasTiendasDataTableRules.GetCODIGO_CONTABLEValue: String;
+begin
+  result := DataTable.Fields[idx_EmpresasTiendasCODIGO_CONTABLE].AsString;
+end;
+
+procedure TEmpresasTiendasDataTableRules.SetCODIGO_CONTABLEValue(const aValue: String);
+begin
+  DataTable.Fields[idx_EmpresasTiendasCODIGO_CONTABLE].AsString := aValue;
+end;
+
+function TEmpresasTiendasDataTableRules.GetCODIGO_CONTABLEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_EmpresasTiendasCODIGO_CONTABLE].IsNull;
+end;
+
+procedure TEmpresasTiendasDataTableRules.SetCODIGO_CONTABLEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_EmpresasTiendasCODIGO_CONTABLE].AsVariant := Null;
+end;
+
 
 { TEmpresasDataTableRules }
 constructor TEmpresasDataTableRules.Create(aDataTable: TDADataTable);

Source/ApplicationBase/Empresas/Model/schEmpresasServer_Intf.pas

@@ -9,14 +9,14 @@ const
   { Delta rules ids 
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_EmpresasTiendasDelta = '{C646565C-D76B-4982-B86D-D3557DDE1E0C}';
+  RID_EmpresasTiendasDelta = '{78EE7516-DCC4-4DF7-862E-593572864080}';
-  RID_EmpresasDelta = '{8A74346F-1F18-4ABC-9BAA-602FDF120909}';
+  RID_EmpresasDelta = '{30CE5020-5913-4D58-BE4E-DF2E33A4BC6D}';
-  RID_EmpresasDatosBancoDelta = '{8F716BEB-5AC5-43F9-BA1B-6B2066216331}';
+  RID_EmpresasDatosBancoDelta = '{E775BE8F-E903-49EE-A902-0644D3FB4CBC}';
 
 type
   { IEmpresasTiendasDelta }
   IEmpresasTiendasDelta = interface(IEmpresasTiendas)
-  ['{C646565C-D76B-4982-B86D-D3557DDE1E0C}']
+  ['{78EE7516-DCC4-4DF7-862E-593572864080}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -33,6 +33,7 @@ type
     function GetOldNOTASValue : IROStrings;
     function GetOldFECHA_ALTAValue : DateTime;
     function GetOldFECHA_MODIFICACIONValue : DateTime;
+    function GetOldCODIGO_CONTABLEValue : String;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -50,6 +51,7 @@ type
     property OldNOTAS : IROStrings read GetOldNOTASValue;
     property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
     property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
+    property OldCODIGO_CONTABLE : String read GetOldCODIGO_CONTABLEValue;
   end;
 
   { TEmpresasTiendasBusinessProcessorRules }
@@ -148,6 +150,12 @@ type
     function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
     procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
     procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
+    function GetCODIGO_CONTABLEValue: String; virtual;
+    function GetCODIGO_CONTABLEIsNull: Boolean; virtual;
+    function GetOldCODIGO_CONTABLEValue: String; virtual;
+    function GetOldCODIGO_CONTABLEIsNull: Boolean; virtual;
+    procedure SetCODIGO_CONTABLEValue(const aValue: String); virtual;
+    procedure SetCODIGO_CONTABLEIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -210,6 +218,10 @@ type
     property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
     property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
     property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;
+    property CODIGO_CONTABLE : String read GetCODIGO_CONTABLEValue write SetCODIGO_CONTABLEValue;
+    property CODIGO_CONTABLEIsNull : Boolean read GetCODIGO_CONTABLEIsNull write SetCODIGO_CONTABLEIsNull;
+    property OldCODIGO_CONTABLE : String read GetOldCODIGO_CONTABLEValue;
+    property OldCODIGO_CONTABLEIsNull : Boolean read GetOldCODIGO_CONTABLEIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -219,7 +231,7 @@ type
 
   { IEmpresasDelta }
   IEmpresasDelta = interface(IEmpresas)
-  ['{8A74346F-1F18-4ABC-9BAA-602FDF120909}']
+  ['{30CE5020-5913-4D58-BE4E-DF2E33A4BC6D}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldNIF_CIFValue : String;
@@ -519,7 +531,7 @@ type
 
   { IEmpresasDatosBancoDelta }
   IEmpresasDatosBancoDelta = interface(IEmpresasDatosBanco)
-  ['{8F716BEB-5AC5-43F9-BA1B-6B2066216331}']
+  ['{E775BE8F-E903-49EE-A902-0644D3FB4CBC}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -1136,6 +1148,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasFECHA_MODIFICACION] := Null;
 end;
 
+function TEmpresasTiendasBusinessProcessorRules.GetCODIGO_CONTABLEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasCODIGO_CONTABLE];
+end;
+
+function TEmpresasTiendasBusinessProcessorRules.GetCODIGO_CONTABLEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasCODIGO_CONTABLE]);
+end;
+
+function TEmpresasTiendasBusinessProcessorRules.GetOldCODIGO_CONTABLEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTiendasCODIGO_CONTABLE];
+end;
+
+function TEmpresasTiendasBusinessProcessorRules.GetOldCODIGO_CONTABLEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasTiendasCODIGO_CONTABLE]);
+end;
+
+procedure TEmpresasTiendasBusinessProcessorRules.SetCODIGO_CONTABLEValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasCODIGO_CONTABLE] := aValue;
+end;
+
+procedure TEmpresasTiendasBusinessProcessorRules.SetCODIGO_CONTABLEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasTiendasCODIGO_CONTABLE] := Null;
+end;
+
 
 { TEmpresasBusinessProcessorRules }
 constructor TEmpresasBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm

@@ -85,6 +85,10 @@ object srvEmpresas: TsrvEmpresas
               item
                 DatasetField = 'FECHA_MODIFICACION'
                 TableField = 'FECHA_MODIFICACION'
+              end
+              item
+                DatasetField = 'CODIGO_CONTABLE'
+                TableField = 'CODIGO_CONTABLE'
               end>
           end>
         Name = 'EmpresasTiendas'
@@ -176,6 +180,11 @@ object srvEmpresas: TsrvEmpresas
             Name = 'FECHA_MODIFICACION'
             DataType = datDateTime
             DictionaryEntry = 'EmpresasTiendas_FECHA_MODIFICACION'
+          end
+          item
+            Name = 'CODIGO_CONTABLE'
+            DataType = datString
+            Size = 2
           end>
       end
       item
@@ -887,8 +896,8 @@ object srvEmpresas: TsrvEmpresas
     Top = 90
     DiagramData = 
       '<Diagrams>'#13#10'  <Diagram Name="New Diagram" Left="200" Top="200" W' +
-      'idth="400" Height="300">'#13#10'    <Entity Name="EmpresasDatosBanco" ' +
+      'idth="400" Height="300">'#13#10'    <Entity Name="Empresas" Left="0,00' +
-      'Left="309,00" Top="0,00" />'#13#10'    <Entity Name="Empresas" Left="0' +
+      '" Top="1,00" />'#13#10'    <Entity Name="EmpresasDatosBanco" Left="308' +
       ',00" Top="0,00" />'#13#10'  </Diagram>'#13#10'</Diagrams>'#13#10
   end
   object DABin2DataStreamer: TDABin2DataStreamer

Source/ApplicationBase/Empresas/Views/uEditorTiendaEmpresa.dfm

@@ -4,24 +4,25 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
   ActiveControl = eNombre
   BorderStyle = bsDialog
   Caption = 'Cambiar datos de la tienda'
-  ClientHeight = 494
+  ClientHeight = 551
-  ClientWidth = 426
+  ClientWidth = 432
   Color = clBtnFace
   ParentFont = True
   OldCreateOrder = True
   Position = poOwnerFormCenter
   DesignSize = (
-    426
+    432
-    494)
+    551)
   PixelsPerInch = 96
   TextHeight = 13
   object Bevel1: TBevel
     Left = 8
     Top = 8
-    Width = 322
+    Width = 328
     Height = 465
     Anchors = [akLeft, akTop, akRight]
     Shape = bsFrame
+    ExplicitWidth = 322
   end
   object Label1: TLabel
     Left = 20
@@ -56,7 +57,7 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
     Caption = 'C'#243'digo postal:'
   end
   object Label5: TLabel
-    Left = 20
+    Left = 19
     Top = 27
     Width = 110
     Height = 13
@@ -136,8 +137,24 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
     AutoSize = False
     Caption = 'Fax:'
   end
+  object Bevel2: TBevel
+    Left = 8
+    Top = 479
+    Width = 328
+    Height = 58
+    Anchors = [akLeft, akTop, akRight]
+    Shape = bsFrame
+  end
+  object Label10: TLabel
+    Left = 19
+    Top = 499
+    Width = 110
+    Height = 13
+    AutoSize = False
+    Caption = 'C'#243'digo contable:'
+  end
   object OKBtn: TButton
-    Left = 343
+    Left = 349
     Top = 7
     Width = 75
     Height = 25
@@ -145,9 +162,10 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
     Caption = '&Aceptar'
     ModalResult = 1
     TabOrder = 0
+    ExplicitLeft = 343
   end
   object CancelBtn: TButton
-    Left = 343
+    Left = 349
     Top = 38
     Width = 75
     Height = 25
@@ -156,6 +174,7 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
     Caption = '&Cancelar'
     ModalResult = 2
     TabOrder = 1
+    ExplicitLeft = 343
   end
   object eDireccion: TDBEdit
     Left = 135
@@ -272,6 +291,15 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
     DataSource = dsTienda
     TabOrder = 12
   end
+  object eCodigoContable: TDBEdit
+    Left = 135
+    Top = 496
+    Width = 191
+    Height = 21
+    DataField = 'CODIGO_CONTABLE'
+    DataSource = dsTienda
+    TabOrder = 13
+  end
   object dsTienda: TDADataSource
     Left = 352
     Top = 72

Source/ApplicationBase/Empresas/Views/uEditorTiendaEmpresa.pas

@@ -37,6 +37,9 @@ type
     eMovil: TDBEdit;
     Label12: TLabel;
     eFax: TDBEdit;
+    Bevel2: TBevel;
+    eCodigoContable: TDBEdit;
+    Label10: TLabel;
     procedure PngSpeedButton3Click(Sender: TObject);
     procedure eMailPropertiesEditValueChanged(Sender: TObject);
     procedure eMailPropertiesValidate(Sender: TObject;

Source/ApplicationBase/Empresas/Views/uViewTiendas.dfm

@@ -55,10 +55,12 @@ inherited frViewTiendas: TfrViewTiendas
         Width = 92
       end
       object cxGridViewTELEFONO: TcxGridDBColumn
+        Caption = 'Tel'#233'fono'
         DataBinding.FieldName = 'TELEFONO'
         Width = 54
       end
       object cxGridViewEMAIL: TcxGridDBColumn
+        Caption = 'e-mail'
         DataBinding.FieldName = 'EMAIL'
         Width = 50
       end
@@ -66,41 +68,31 @@ inherited frViewTiendas: TfrViewTiendas
         DataBinding.FieldName = 'PORTE'
         PropertiesClassName = 'TcxCurrencyEditProperties'
         Properties.Alignment.Horz = taRightJustify
+        Visible = False
         FooterAlignmentHorz = taRightJustify
         HeaderAlignmentHorz = taRightJustify
+        VisibleForCustomization = False
         Width = 54
       end
+      object cxGridViewCODIGO_CONTABLE: TcxGridDBColumn
+        Caption = 'C'#243'd.Contable'
+        DataBinding.FieldName = 'CODIGO_CONTABLE'
+      end
     end
   end
   inherited ToolBar1: TToolBar
     Width = 583
     ExplicitWidth = 583
     inherited ToolButton1: TToolButton
-      Top = 0
-      ExplicitTop = 0
       ExplicitWidth = 62
     end
     inherited ToolButton4: TToolButton
-      Top = 0
-      ExplicitTop = 0
       ExplicitWidth = 74
     end
-    inherited ToolButton5: TToolButton
-      Top = 0
-      ExplicitTop = 0
-    end
     inherited ToolButton2: TToolButton
-      Top = 0
-      ExplicitTop = 0
       ExplicitWidth = 67
     end
-    inherited ToolButton6: TToolButton
-      Top = 0
-      ExplicitTop = 0
-    end
     inherited ToolButton7: TToolButton
-      Top = 0
-      ExplicitTop = 0
       ExplicitWidth = 117
     end
   end

Source/ApplicationBase/Empresas/Views/uViewTiendas.pas

@@ -23,6 +23,7 @@ type
     cxGridViewTELEFONO: TcxGridDBColumn;
     cxGridViewEMAIL: TcxGridDBColumn;
     cxGridViewPORTE: TcxGridDBColumn;
+    cxGridViewCODIGO_CONTABLE: TcxGridDBColumn;
     procedure cxGridViewDblClick(Sender: TObject);
     procedure actEliminarExecute(Sender: TObject);
   protected

Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas

@@ -3,7 +3,7 @@ unit schRecibosClienteClient_Intf;
 interface
 
 uses
-  Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
 
 const
   { Data table rules ids
@@ -405,7 +405,7 @@ type
   end;
 
   { TRecibosClienteDataTableRules }
-  TRecibosClienteDataTableRules = class(TDADataTableRules, IRecibosCliente)
+  TRecibosClienteDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCliente)
   private
   protected
     { Property getters and setters }
@@ -716,7 +716,7 @@ type
   end;
 
   { TPagosClienteDataTableRules }
-  TPagosClienteDataTableRules = class(TDADataTableRules, IPagosCliente)
+  TPagosClienteDataTableRules = class(TIntfObjectDADataTableRules, IPagosCliente)
   private
   protected
     { Property getters and setters }
@@ -991,7 +991,7 @@ type
   end;
 
   { TRecibosCompensadosCliDataTableRules }
-  TRecibosCompensadosCliDataTableRules = class(TDADataTableRules, IRecibosCompensadosCli)
+  TRecibosCompensadosCliDataTableRules = class(TIntfObjectDADataTableRules, IRecibosCompensadosCli)
   private
   protected
     { Property getters and setters }

Source/Servidor/FactuGES_Server.dpr

@@ -105,8 +105,6 @@ uses
   schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
   schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
   schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
-  schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
-  schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
   schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
   schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
   schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas',
@@ -115,7 +113,9 @@ uses
   schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
   uBizRecibosClienteServer in '..\Modulos\Recibos de cliente\Model\uBizRecibosClienteServer.pas',
   schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
-  schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas';
+  schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
+  schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
+  schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas';
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}

Source/Servidor/FactuGES_Server.dproj

@@ -30,6 +30,7 @@
     <BorlandProject>
 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 19 de noviembre de 2007 18:58</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
       
+      
       <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
   </ProjectExtensions>

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", "lunes, 25 de febrero de 2008 19:48\0"
+              VALUE "CompileDate", "martes, 26 de febrero de 2008 17:08\0"
          END
     END
     BLOCK "VarFileInfo"