From 5dcb0b2e3a37a0059012f3712f1a0b35d28b20b0 Mon Sep 17 00:00:00 2001 From: david Date: Tue, 15 Jan 2008 09:39:15 +0000 Subject: [PATCH] =?UTF-8?q?Empresas:=20arreglado=20un=20fallo=20en=20los?= =?UTF-8?q?=20bancos=20(error=20al=20a=C3=B1adir).?= 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.Tecsitel_FactuGES2/trunk@218 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- .../Empresas/Data/uDataModuleEmpresas.dfm | 2 -- .../Empresas/Model/schEmpresasClient_Intf.pas | 10 ++++------ .../Empresas/Model/schEmpresasServer_Intf.pas | 8 ++++---- .../Empresas/Servidor/srvEmpresas_Impl.dfm | 8 +++----- Source/ApplicationBase/Empresas/Views/uViewEmpresa.dfm | 1 + 5 files changed, 12 insertions(+), 17 deletions(-) diff --git a/Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.dfm b/Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.dfm index 2622cb89..bc8aa933 100644 --- a/Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.dfm +++ b/Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.dfm @@ -32,7 +32,6 @@ inherited DataModuleEmpresas: TDataModuleEmpresas GeneratorName = 'GEN_EMPRESAS_ID' LogChanges = False Required = True - ReadOnly = True ServerAutoRefresh = True DictionaryEntry = 'Empresas_ID' InPrimaryKey = True @@ -211,7 +210,6 @@ inherited DataModuleEmpresas: TDataModuleEmpresas GeneratorName = 'GEN_EMPRESAS_DATOS_BANCO_ID' LogChanges = False Required = True - ReadOnly = True ServerAutoRefresh = True DictionaryEntry = 'EmpresasDatosBanco_ID' InPrimaryKey = True diff --git a/Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas b/Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas index 298b7c7c..3ff8bebb 100644 --- a/Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas +++ b/Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas @@ -9,8 +9,8 @@ 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_Empresas = '{339ECEE2-0E9D-4AFD-9CCF-7991FCAFFC44}'; - RID_EmpresasDatosBanco = '{97535864-08DF-42D3-9334-2009E15B6DE5}'; + RID_Empresas = '{4D4B7384-254D-4DEE-A7C6-15C6D95FE62C}'; + RID_EmpresasDatosBanco = '{A13C092F-8B20-475E-AB73-BC64846EC069}'; { Data table names } nme_Empresas = 'Empresas'; @@ -91,7 +91,7 @@ const type { IEmpresas } IEmpresas = interface(IDAStronglyTypedDataTable) - ['{96DF5DB9-5264-4B33-BC6D-F6A8119C40F2}'] + ['{94D82008-5773-4226-8E6F-8F86C4BC613C}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -390,7 +390,7 @@ type { IEmpresasDatosBanco } IEmpresasDatosBanco = interface(IDAStronglyTypedDataTable) - ['{5653808F-F011-430B-935F-451A93D817DA}'] + ['{3FB044E3-CC5B-45D7-BE74-941172D25782}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -542,8 +542,6 @@ end; destructor TEmpresasDataTableRules.Destroy; begin - f_NOTAS := Nil; - f_LOGOTIPO := Nil; inherited; end; diff --git a/Source/ApplicationBase/Empresas/Model/schEmpresasServer_Intf.pas b/Source/ApplicationBase/Empresas/Model/schEmpresasServer_Intf.pas index 6f076fb5..92e91b07 100644 --- a/Source/ApplicationBase/Empresas/Model/schEmpresasServer_Intf.pas +++ b/Source/ApplicationBase/Empresas/Model/schEmpresasServer_Intf.pas @@ -9,13 +9,13 @@ 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_EmpresasDelta = '{AA5637FC-EFD6-42DE-BDA1-C31464CB14D3}'; - RID_EmpresasDatosBancoDelta = '{9C692459-7C4C-4403-8747-2D651CC6D3A2}'; + RID_EmpresasDelta = '{B5530DFB-2CAF-472C-9946-BADA26FF23FA}'; + RID_EmpresasDatosBancoDelta = '{0F24EA86-6CBB-49BD-BCC2-9B48AC059D72}'; type { IEmpresasDelta } IEmpresasDelta = interface(IEmpresas) - ['{AA5637FC-EFD6-42DE-BDA1-C31464CB14D3}'] + ['{B5530DFB-2CAF-472C-9946-BADA26FF23FA}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldNIF_CIFValue : String; @@ -315,7 +315,7 @@ type { IEmpresasDatosBancoDelta } IEmpresasDatosBancoDelta = interface(IEmpresasDatosBanco) - ['{9C692459-7C4C-4403-8747-2D651CC6D3A2}'] + ['{0F24EA86-6CBB-49BD-BCC2-9B48AC059D72}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_EMPRESAValue : Integer; diff --git a/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm b/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm index 265163ef..9089fece 100644 --- a/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm +++ b/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm @@ -601,7 +601,6 @@ object srvEmpresas: TsrvEmpresas LogChanges = False Required = True DisplayLabel = 'ID' - ReadOnly = True ServerAutoRefresh = True end item @@ -611,7 +610,6 @@ object srvEmpresas: TsrvEmpresas LogChanges = False Required = True DisplayLabel = 'ID' - ReadOnly = True ServerAutoRefresh = True end> Left = 158 @@ -622,9 +620,9 @@ object srvEmpresas: TsrvEmpresas Top = 90 DiagramData = ''#13#10' '#13#10' '#13#10' '#13#10' '#13#10''#13#10 + 'idth="400" Height="300">'#13#10' '#13#10' '#13#10' '#13#10''#13#10 end object DABin2DataStreamer: TDABin2DataStreamer Left = 48 diff --git a/Source/ApplicationBase/Empresas/Views/uViewEmpresa.dfm b/Source/ApplicationBase/Empresas/Views/uViewEmpresa.dfm index a2b17571..d0c2e148 100644 --- a/Source/ApplicationBase/Empresas/Views/uViewEmpresa.dfm +++ b/Source/ApplicationBase/Empresas/Views/uViewEmpresa.dfm @@ -481,6 +481,7 @@ inherited frViewEmpresa: TfrViewEmpresa AlignHorz = ahClient AlignVert = avClient Caption = 'Logotipo' + Visible = False LayoutDirection = ldHorizontal object dxLayoutControl1Item17: TdxLayoutItem AutoAligns = []