From 0db8a3bf4f557fcfc220e68e1d5d2b294621ae30 Mon Sep 17 00:00:00 2001 From: roberto Date: Tue, 26 Feb 2008 17:20:29 +0000 Subject: [PATCH] =?UTF-8?q?Cambio=20para=20que=20la=20tienda=20tenga=20aso?= =?UTF-8?q?ciado=20un=20c=C3=B3digo=20contable=20para=20la=20parte=20de=20?= =?UTF-8?q?contabilidad?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@150 f4e31baf-9722-1c47-927c-6f952f962d4b --- Database/scripts/factuges.sql | 7 ++- .../Empresas/Data/uDataModuleEmpresas.dfm | 5 ++ .../Empresas/Model/schEmpresasClient_Intf.pas | 55 ++++++++++++++---- .../Empresas/Model/schEmpresasServer_Intf.pas | 55 ++++++++++++++++-- .../Empresas/Servidor/srvEmpresas_Impl.dfm | 13 ++++- .../Empresas/Views/uEditorTiendaEmpresa.dfm | 44 +++++++++++--- .../Empresas/Views/uEditorTiendaEmpresa.pas | 3 + .../Empresas/Views/uViewTiendas.dfm | 24 +++----- .../Empresas/Views/uViewTiendas.pas | 1 + Source/Base/Base.res | Bin 4748 -> 384 bytes .../Model/schRecibosClienteClient_Intf.pas | 8 +-- Source/Servidor/FactuGES_Server.RES | Bin 23204 -> 23204 bytes Source/Servidor/FactuGES_Server.dpr | 6 +- Source/Servidor/FactuGES_Server.dproj | 1 + Source/Servidor/FactuGES_Server.rc | 2 +- 15 files changed, 171 insertions(+), 53 deletions(-) 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 1641339fcc482e7e3492d1b45813a86619622c33..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644 GIT binary patch delta 11 ScmeBCZD5|Duvteife`=|>;pCc literal 4748 zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?p${kR>3GhM`oH*q zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7 z{BT%G%irdMe*|oDJmgvJaA2`9B<6Xi*?M~Q;)@Sbfwf3uf zVaWkbUjU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N| z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0 zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38= zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W zVvPDBKHh;i=RU4J_ta3E;)Mn>Y+L zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJugbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC zy(^m((;DnQmDQKatmw!@c`| G?EMQ&4NnpP 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 263981b437ad9f1169b3fd7a351d31fb7cbdcee6..87b65fa13c831efc6b3db57d8624efe4bb59b083 100644 GIT binary patch delta 65 zcmZ3om2t^d#tjjXj2x3ABb6DSOs;Jp8PvfRxpR5lp&8Hm7$nHhe3hCh{1HS Vc9b@!C4&`%34;X#!{pc~cL1lJ5rY5# 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"