Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Empresas: arreglado un fallo en los bancos (error al añadir).

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@218 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-01-15 09:39:15 +00:00
parent 35b7d45b07
commit 5dcb0b2e3a
5 changed files with 12 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.dfm
View File

@ -32,7 +32,6 @@ inherited DataModuleEmpresas: TDataModuleEmpresas
GeneratorName = 'GEN_EMPRESAS_ID' GeneratorName = 'GEN_EMPRESAS_ID'
LogChanges = False LogChanges = False
Required = True Required = True
ReadOnly = True
ServerAutoRefresh = True ServerAutoRefresh = True
DictionaryEntry = 'Empresas_ID' DictionaryEntry = 'Empresas_ID'
InPrimaryKey = True InPrimaryKey = True
@ -211,7 +210,6 @@ inherited DataModuleEmpresas: TDataModuleEmpresas
GeneratorName = 'GEN_EMPRESAS_DATOS_BANCO_ID' GeneratorName = 'GEN_EMPRESAS_DATOS_BANCO_ID'
LogChanges = False LogChanges = False
Required = True Required = True
ReadOnly = True
ServerAutoRefresh = True ServerAutoRefresh = True
DictionaryEntry = 'EmpresasDatosBanco_ID' DictionaryEntry = 'EmpresasDatosBanco_ID'
InPrimaryKey = True InPrimaryKey = True

10
Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas
View File

@ -9,8 +9,8 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Empresas = '{339ECEE2-0E9D-4AFD-9CCF-7991FCAFFC44}'; RID_Empresas = '{4D4B7384-254D-4DEE-A7C6-15C6D95FE62C}';
RID_EmpresasDatosBanco = '{97535864-08DF-42D3-9334-2009E15B6DE5}'; RID_EmpresasDatosBanco = '{A13C092F-8B20-475E-AB73-BC64846EC069}';
{ Data table names } { Data table names }
nme_Empresas = 'Empresas'; nme_Empresas = 'Empresas';
@ -91,7 +91,7 @@ const
type type
{ IEmpresas } { IEmpresas }
IEmpresas = interface(IDAStronglyTypedDataTable) IEmpresas = interface(IDAStronglyTypedDataTable)
['{96DF5DB9-5264-4B33-BC6D-F6A8119C40F2}'] ['{94D82008-5773-4226-8E6F-8F86C4BC613C}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -390,7 +390,7 @@ type
{ IEmpresasDatosBanco } { IEmpresasDatosBanco }
IEmpresasDatosBanco = interface(IDAStronglyTypedDataTable) IEmpresasDatosBanco = interface(IDAStronglyTypedDataTable)
['{5653808F-F011-430B-935F-451A93D817DA}'] ['{3FB044E3-CC5B-45D7-BE74-941172D25782}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -542,8 +542,6 @@ end;
destructor TEmpresasDataTableRules.Destroy; destructor TEmpresasDataTableRules.Destroy;
begin begin
f_NOTAS := Nil;
f_LOGOTIPO := Nil;
inherited; inherited;
end; end;

8
Source/ApplicationBase/Empresas/Model/schEmpresasServer_Intf.pas
View File

@ -9,13 +9,13 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_EmpresasDelta = '{AA5637FC-EFD6-42DE-BDA1-C31464CB14D3}'; RID_EmpresasDelta = '{B5530DFB-2CAF-472C-9946-BADA26FF23FA}';
RID_EmpresasDatosBancoDelta = '{9C692459-7C4C-4403-8747-2D651CC6D3A2}'; RID_EmpresasDatosBancoDelta = '{0F24EA86-6CBB-49BD-BCC2-9B48AC059D72}';
type type
{ IEmpresasDelta } { IEmpresasDelta }
IEmpresasDelta = interface(IEmpresas) IEmpresasDelta = interface(IEmpresas)
['{AA5637FC-EFD6-42DE-BDA1-C31464CB14D3}'] ['{B5530DFB-2CAF-472C-9946-BADA26FF23FA}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String; function GetOldNIF_CIFValue : String;
@ -315,7 +315,7 @@ type
{ IEmpresasDatosBancoDelta } { IEmpresasDatosBancoDelta }
IEmpresasDatosBancoDelta = interface(IEmpresasDatosBanco) IEmpresasDatosBancoDelta = interface(IEmpresasDatosBanco)
['{9C692459-7C4C-4403-8747-2D651CC6D3A2}'] ['{0F24EA86-6CBB-49BD-BCC2-9B48AC059D72}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;

8
Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm
View File

@ -601,7 +601,6 @@ object srvEmpresas: TsrvEmpresas
LogChanges = False LogChanges = False
Required = True Required = True
DisplayLabel = 'ID' DisplayLabel = 'ID'
ReadOnly = True
ServerAutoRefresh = True ServerAutoRefresh = True
end end
item item
@ -611,7 +610,6 @@ object srvEmpresas: TsrvEmpresas
LogChanges = False LogChanges = False
Required = True Required = True
DisplayLabel = 'ID' DisplayLabel = 'ID'
ReadOnly = True
ServerAutoRefresh = True ServerAutoRefresh = True
end> end>
Left = 158 Left = 158
@ -622,9 +620,9 @@ object srvEmpresas: TsrvEmpresas
Top = 90 Top = 90
DiagramData = DiagramData =
'<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' + '<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="311,00" Top="2,00" />'#13#10' <Entity Name="Empresas" Left="0' + '" Top="0,00" />'#13#10' <Entity Name="EmpresasDatosBanco" Left="310' +
',00" Top="0,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10 ',00" Top="1,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10
end end
object DABin2DataStreamer: TDABin2DataStreamer object DABin2DataStreamer: TDABin2DataStreamer
Left = 48 Left = 48

1
Source/ApplicationBase/Empresas/Views/uViewEmpresa.dfm
View File

@ -481,6 +481,7 @@ inherited frViewEmpresa: TfrViewEmpresa
AlignHorz = ahClient AlignHorz = ahClient
AlignVert = avClient AlignVert = avClient
Caption = 'Logotipo' Caption = 'Logotipo'
Visible = False
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
object dxLayoutControl1Item17: TdxLayoutItem object dxLayoutControl1Item17: TdxLayoutItem
AutoAligns = [] AutoAligns = []