diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql
index 4a4a2046..33345ec8 100644
--- a/Database/scripts/factuges.sql
+++ b/Database/scripts/factuges.sql
@@ -832,8 +832,8 @@ CREATE TABLE EMPRESAS_DATOS_BANCO (
CREATE TABLE EMPRESAS_TIENDAS (
- ID TIPO_ID NOT NULL,
- ID_EMPRESA TIPO_ID NOT NULL,
+ ID TIPO_ID NOT NULL /* TIPO_ID = INTEGER */,
+ 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
);
diff --git a/Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.dfm b/Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.dfm
index 0425eb90..53a567d2 100644
--- a/Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.dfm
+++ b/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
diff --git a/Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas b/Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas
index 11958316..cb02913c 100644
--- a/Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas
+++ b/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_Empresas = '{B8C14C6F-BCE5-4346-ABEC-0DADBCA0B194}';
- RID_EmpresasDatosBanco = '{002C9069-240E-40BA-8F11-221B263BAB3C}';
+ RID_EmpresasTiendas = '{1596A2D4-D5EA-4AB8-A87F-3472E14D95B7}';
+ RID_Empresas = '{36C6A689-7D4A-45D8-AE4A-E7B1AC5D603D}';
+ 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);
diff --git a/Source/ApplicationBase/Empresas/Model/schEmpresasServer_Intf.pas b/Source/ApplicationBase/Empresas/Model/schEmpresasServer_Intf.pas
index 5282051e..b3c25928 100644
--- a/Source/ApplicationBase/Empresas/Model/schEmpresasServer_Intf.pas
+++ b/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_EmpresasDelta = '{8A74346F-1F18-4ABC-9BAA-602FDF120909}';
- RID_EmpresasDatosBancoDelta = '{8F716BEB-5AC5-43F9-BA1B-6B2066216331}';
+ RID_EmpresasTiendasDelta = '{78EE7516-DCC4-4DF7-862E-593572864080}';
+ RID_EmpresasDelta = '{30CE5020-5913-4D58-BE4E-DF2E33A4BC6D}';
+ 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);
diff --git a/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm b/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm
index c7712ccf..d961e190 100644
--- a/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm
+++ b/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 =
''#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10' '#13#10''#13#10
end
object DABin2DataStreamer: TDABin2DataStreamer
diff --git a/Source/ApplicationBase/Empresas/Views/uEditorTiendaEmpresa.dfm b/Source/ApplicationBase/Empresas/Views/uEditorTiendaEmpresa.dfm
index a153c1b6..0a865130 100644
--- a/Source/ApplicationBase/Empresas/Views/uEditorTiendaEmpresa.dfm
+++ b/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
- ClientWidth = 426
+ ClientHeight = 551
+ ClientWidth = 432
Color = clBtnFace
ParentFont = True
OldCreateOrder = True
Position = poOwnerFormCenter
DesignSize = (
- 426
- 494)
+ 432
+ 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
diff --git a/Source/ApplicationBase/Empresas/Views/uEditorTiendaEmpresa.pas b/Source/ApplicationBase/Empresas/Views/uEditorTiendaEmpresa.pas
index 1bbdeac1..2b8266df 100644
--- a/Source/ApplicationBase/Empresas/Views/uEditorTiendaEmpresa.pas
+++ b/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;
diff --git a/Source/ApplicationBase/Empresas/Views/uViewTiendas.dfm b/Source/ApplicationBase/Empresas/Views/uViewTiendas.dfm
index 8a5b7bc5..d39208eb 100644
--- a/Source/ApplicationBase/Empresas/Views/uViewTiendas.dfm
+++ b/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
diff --git a/Source/ApplicationBase/Empresas/Views/uViewTiendas.pas b/Source/ApplicationBase/Empresas/Views/uViewTiendas.pas
index 8973081f..a5df6b71 100644
--- a/Source/ApplicationBase/Empresas/Views/uViewTiendas.pas
+++ b/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
diff --git a/Source/Base/Base.res b/Source/Base/Base.res
index 1641339f..8b251f31 100644
Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ
diff --git a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas b/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas
index 529b52e7..a53a65fb 100644
--- a/Source/Modulos/Recibos de cliente/Model/schRecibosClienteClient_Intf.pas
+++ b/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 }
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index 263981b4..87b65fa1 100644
Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index 16d7fe20..dc6673ef 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/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}
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index 584e04cb..1554da5d 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -30,6 +30,7 @@
FalseTrueFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.03.0.0.0lunes, 19 de noviembre de 2007 18:58
+
RemObjects Pascal Script - RemObjects SDK 3.0 Integration
FactuGES_Server.dpr
diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index 603f10d9..f6699457 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/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"