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'
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

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

@ -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;

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

@ -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;

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

@ -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 =
'<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' +
'idth="400" Height="300">'#13#10' <Entity Name="EmpresasDatosBanco" ' +
'Left="311,00" Top="2,00" />'#13#10' <Entity Name="Empresas" Left="0' +
',00" Top="0,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10
'idth="400" Height="300">'#13#10' <Entity Name="Empresas" Left="0,00' +
'" Top="0,00" />'#13#10' <Entity Name="EmpresasDatosBanco" Left="310' +
',00" Top="1,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10
end
object DABin2DataStreamer: TDABin2DataStreamer
Left = 48

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

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