diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql
index ef68e278..8f478e1c 100644
--- a/Database/scripts/factuges.sql
+++ b/Database/scripts/factuges.sql
@@ -610,7 +610,9 @@ CREATE TABLE EMPRESAS_DATOS_BANCO (
DC VARCHAR(15),
CUENTA VARCHAR(15),
SUFIJO_N19 VARCHAR(3),
- SUFIJO_N58 VARCHAR(3)
+ SUFIJO_N58 VARCHAR(3),
+ IBAN VARCHAR(255) COLLATE ES_ES,
+ SWIFT VARCHAR(255) COLLATE ES_ES
);
diff --git a/Source/ApplicationBase/ApplicationBase.dproj b/Source/ApplicationBase/ApplicationBase.dproj
index fb1dd24c..c48ad70c 100644
--- a/Source/ApplicationBase/ApplicationBase.dproj
+++ b/Source/ApplicationBase/ApplicationBase.dproj
@@ -53,41 +53,6 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
VCL for the Web Design Package for CodeGear RAD Studio
CodeGear WebSnap Components
CodeGear SOAP Components
@@ -102,6 +67,27 @@
MainSource
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
@@ -120,28 +106,7 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
TDataModule
diff --git a/Source/ApplicationBase/ApplicationBase.res b/Source/ApplicationBase/ApplicationBase.res
index 8b251f31..1641339f 100644
Binary files a/Source/ApplicationBase/ApplicationBase.res and b/Source/ApplicationBase/ApplicationBase.res differ
diff --git a/Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.dfm b/Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.dfm
index bc8aa933..a16d018a 100644
--- a/Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.dfm
+++ b/Source/ApplicationBase/Empresas/Data/uDataModuleEmpresas.dfm
@@ -267,6 +267,16 @@ inherited DataModuleEmpresas: TDataModuleEmpresas
Size = 3
DisplayLabel = 'Sufijo 58'
DictionaryEntry = 'EmpresasDatosBanco_SUFIJO_N58'
+ end
+ item
+ Name = 'IBAN'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'SWIFT'
+ DataType = datString
+ Size = 255
end>
Params = <>
MasterMappingMode = mmWhere
diff --git a/Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas b/Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas
index 22940064..32290ac8 100644
--- a/Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas
+++ b/Source/ApplicationBase/Empresas/Model/schEmpresasClient_Intf.pas
@@ -3,14 +3,14 @@ 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_Empresas = '{C3D4A098-DEBE-4C2B-B91E-7371A6FA2608}';
- RID_EmpresasDatosBanco = '{30C8046D-7C1C-4CFB-B7F3-CEA665F701F5}';
+ RID_Empresas = '{DCDDB872-8363-4FCC-A410-5E68BDE201BD}';
+ RID_EmpresasDatosBanco = '{B0ECED4B-40DD-4640-9DA0-5445ADEAB9E8}';
{ Data table names }
nme_Empresas = 'Empresas';
@@ -76,6 +76,8 @@ const
fld_EmpresasDatosBancoCUENTA = 'CUENTA';
fld_EmpresasDatosBancoSUFIJO_N19 = 'SUFIJO_N19';
fld_EmpresasDatosBancoSUFIJO_N58 = 'SUFIJO_N58';
+ fld_EmpresasDatosBancoIBAN = 'IBAN';
+ fld_EmpresasDatosBancoSWIFT = 'SWIFT';
{ EmpresasDatosBanco field indexes }
idx_EmpresasDatosBancoID = 0;
@@ -87,11 +89,13 @@ const
idx_EmpresasDatosBancoCUENTA = 6;
idx_EmpresasDatosBancoSUFIJO_N19 = 7;
idx_EmpresasDatosBancoSUFIJO_N58 = 8;
+ idx_EmpresasDatosBancoIBAN = 9;
+ idx_EmpresasDatosBancoSWIFT = 10;
type
{ IEmpresas }
IEmpresas = interface(IDAStronglyTypedDataTable)
- ['{1D920893-489E-4359-A55A-9146247372EF}']
+ ['{49EC618A-361D-45A6-8D6B-9F82E813B67D}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -235,7 +239,7 @@ type
end;
{ TEmpresasDataTableRules }
- TEmpresasDataTableRules = class(TIntfObjectDADataTableRules, IEmpresas)
+ TEmpresasDataTableRules = class(TDADataTableRules, IEmpresas)
private
f_NOTAS: IROStrings;
f_LOGOTIPO: IROStream;
@@ -390,7 +394,7 @@ type
{ IEmpresasDatosBanco }
IEmpresasDatosBanco = interface(IDAStronglyTypedDataTable)
- ['{DB4CAAE0-5E1D-41E0-9B92-3F41A237F812}']
+ ['{E4C2B666-DA61-4076-986F-3FD1FF179EC2}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@@ -428,6 +432,14 @@ type
procedure SetSUFIJO_N58Value(const aValue: String);
function GetSUFIJO_N58IsNull: Boolean;
procedure SetSUFIJO_N58IsNull(const aValue: Boolean);
+ function GetIBANValue: String;
+ procedure SetIBANValue(const aValue: String);
+ function GetIBANIsNull: Boolean;
+ procedure SetIBANIsNull(const aValue: Boolean);
+ function GetSWIFTValue: String;
+ procedure SetSWIFTValue(const aValue: String);
+ function GetSWIFTIsNull: Boolean;
+ procedure SetSWIFTIsNull(const aValue: Boolean);
{ Properties }
@@ -449,10 +461,14 @@ type
property SUFIJO_N19IsNull: Boolean read GetSUFIJO_N19IsNull write SetSUFIJO_N19IsNull;
property SUFIJO_N58: String read GetSUFIJO_N58Value write SetSUFIJO_N58Value;
property SUFIJO_N58IsNull: Boolean read GetSUFIJO_N58IsNull write SetSUFIJO_N58IsNull;
+ property IBAN: String read GetIBANValue write SetIBANValue;
+ property IBANIsNull: Boolean read GetIBANIsNull write SetIBANIsNull;
+ property SWIFT: String read GetSWIFTValue write SetSWIFTValue;
+ property SWIFTIsNull: Boolean read GetSWIFTIsNull write SetSWIFTIsNull;
end;
{ TEmpresasDatosBancoDataTableRules }
- TEmpresasDatosBancoDataTableRules = class(TIntfObjectDADataTableRules, IEmpresasDatosBanco)
+ TEmpresasDatosBancoDataTableRules = class(TDADataTableRules, IEmpresasDatosBanco)
private
protected
{ Property getters and setters }
@@ -492,6 +508,14 @@ type
procedure SetSUFIJO_N58Value(const aValue: String); virtual;
function GetSUFIJO_N58IsNull: Boolean; virtual;
procedure SetSUFIJO_N58IsNull(const aValue: Boolean); virtual;
+ function GetIBANValue: String; virtual;
+ procedure SetIBANValue(const aValue: String); virtual;
+ function GetIBANIsNull: Boolean; virtual;
+ procedure SetIBANIsNull(const aValue: Boolean); virtual;
+ function GetSWIFTValue: String; virtual;
+ procedure SetSWIFTValue(const aValue: String); virtual;
+ function GetSWIFTIsNull: Boolean; virtual;
+ procedure SetSWIFTIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@@ -512,6 +536,10 @@ type
property SUFIJO_N19IsNull: Boolean read GetSUFIJO_N19IsNull write SetSUFIJO_N19IsNull;
property SUFIJO_N58: String read GetSUFIJO_N58Value write SetSUFIJO_N58Value;
property SUFIJO_N58IsNull: Boolean read GetSUFIJO_N58IsNull write SetSUFIJO_N58IsNull;
+ property IBAN: String read GetIBANValue write SetIBANValue;
+ property IBANIsNull: Boolean read GetIBANIsNull write SetIBANIsNull;
+ property SWIFT: String read GetSWIFTValue write SetSWIFTValue;
+ property SWIFTIsNull: Boolean read GetSWIFTIsNull write SetSWIFTIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@@ -1235,6 +1263,48 @@ begin
DataTable.Fields[idx_EmpresasDatosBancoSUFIJO_N58].AsVariant := Null;
end;
+function TEmpresasDatosBancoDataTableRules.GetIBANValue: String;
+begin
+ result := DataTable.Fields[idx_EmpresasDatosBancoIBAN].AsString;
+end;
+
+procedure TEmpresasDatosBancoDataTableRules.SetIBANValue(const aValue: String);
+begin
+ DataTable.Fields[idx_EmpresasDatosBancoIBAN].AsString := aValue;
+end;
+
+function TEmpresasDatosBancoDataTableRules.GetIBANIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_EmpresasDatosBancoIBAN].IsNull;
+end;
+
+procedure TEmpresasDatosBancoDataTableRules.SetIBANIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_EmpresasDatosBancoIBAN].AsVariant := Null;
+end;
+
+function TEmpresasDatosBancoDataTableRules.GetSWIFTValue: String;
+begin
+ result := DataTable.Fields[idx_EmpresasDatosBancoSWIFT].AsString;
+end;
+
+procedure TEmpresasDatosBancoDataTableRules.SetSWIFTValue(const aValue: String);
+begin
+ DataTable.Fields[idx_EmpresasDatosBancoSWIFT].AsString := aValue;
+end;
+
+function TEmpresasDatosBancoDataTableRules.GetSWIFTIsNull: boolean;
+begin
+ result := DataTable.Fields[idx_EmpresasDatosBancoSWIFT].IsNull;
+end;
+
+procedure TEmpresasDatosBancoDataTableRules.SetSWIFTIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ DataTable.Fields[idx_EmpresasDatosBancoSWIFT].AsVariant := Null;
+end;
+
initialization
RegisterDataTableRules(RID_Empresas, TEmpresasDataTableRules);
diff --git a/Source/ApplicationBase/Empresas/Model/schEmpresasServer_Intf.pas b/Source/ApplicationBase/Empresas/Model/schEmpresasServer_Intf.pas
index ffedb886..384b51c2 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 = '{6F02EFDD-030E-4464-B393-8062C40DA26A}';
- RID_EmpresasDatosBancoDelta = '{601F0536-A7EC-45DF-8E25-B741AB86A055}';
+ RID_EmpresasDelta = '{13974051-7EC2-48D3-B7EB-67D4DE412283}';
+ RID_EmpresasDatosBancoDelta = '{132B47C7-B0BC-4144-8C00-810C7180BDA0}';
type
{ IEmpresasDelta }
IEmpresasDelta = interface(IEmpresas)
- ['{6F02EFDD-030E-4464-B393-8062C40DA26A}']
+ ['{13974051-7EC2-48D3-B7EB-67D4DE412283}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String;
@@ -315,7 +315,7 @@ type
{ IEmpresasDatosBancoDelta }
IEmpresasDatosBancoDelta = interface(IEmpresasDatosBanco)
- ['{601F0536-A7EC-45DF-8E25-B741AB86A055}']
+ ['{132B47C7-B0BC-4144-8C00-810C7180BDA0}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_EMPRESAValue : Integer;
@@ -326,6 +326,8 @@ type
function GetOldCUENTAValue : String;
function GetOldSUFIJO_N19Value : String;
function GetOldSUFIJO_N58Value : String;
+ function GetOldIBANValue : String;
+ function GetOldSWIFTValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
@@ -337,6 +339,8 @@ type
property OldCUENTA : String read GetOldCUENTAValue;
property OldSUFIJO_N19 : String read GetOldSUFIJO_N19Value;
property OldSUFIJO_N58 : String read GetOldSUFIJO_N58Value;
+ property OldIBAN : String read GetOldIBANValue;
+ property OldSWIFT : String read GetOldSWIFTValue;
end;
{ TEmpresasDatosBancoBusinessProcessorRules }
@@ -398,6 +402,18 @@ type
function GetOldSUFIJO_N58IsNull: Boolean; virtual;
procedure SetSUFIJO_N58Value(const aValue: String); virtual;
procedure SetSUFIJO_N58IsNull(const aValue: Boolean); virtual;
+ function GetIBANValue: String; virtual;
+ function GetIBANIsNull: Boolean; virtual;
+ function GetOldIBANValue: String; virtual;
+ function GetOldIBANIsNull: Boolean; virtual;
+ procedure SetIBANValue(const aValue: String); virtual;
+ procedure SetIBANIsNull(const aValue: Boolean); virtual;
+ function GetSWIFTValue: String; virtual;
+ function GetSWIFTIsNull: Boolean; virtual;
+ function GetOldSWIFTValue: String; virtual;
+ function GetOldSWIFTIsNull: Boolean; virtual;
+ procedure SetSWIFTValue(const aValue: String); virtual;
+ procedure SetSWIFTIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@@ -436,6 +452,14 @@ type
property SUFIJO_N58IsNull : Boolean read GetSUFIJO_N58IsNull write SetSUFIJO_N58IsNull;
property OldSUFIJO_N58 : String read GetOldSUFIJO_N58Value;
property OldSUFIJO_N58IsNull : Boolean read GetOldSUFIJO_N58IsNull;
+ property IBAN : String read GetIBANValue write SetIBANValue;
+ property IBANIsNull : Boolean read GetIBANIsNull write SetIBANIsNull;
+ property OldIBAN : String read GetOldIBANValue;
+ property OldIBANIsNull : Boolean read GetOldIBANIsNull;
+ property SWIFT : String read GetSWIFTValue write SetSWIFTValue;
+ property SWIFTIsNull : Boolean read GetSWIFTIsNull write SetSWIFTIsNull;
+ property OldSWIFT : String read GetOldSWIFTValue;
+ property OldSWIFTIsNull : Boolean read GetOldSWIFTIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -1482,6 +1506,68 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoSUFIJO_N58] := Null;
end;
+function TEmpresasDatosBancoBusinessProcessorRules.GetIBANValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoIBAN];
+end;
+
+function TEmpresasDatosBancoBusinessProcessorRules.GetIBANIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoIBAN]);
+end;
+
+function TEmpresasDatosBancoBusinessProcessorRules.GetOldIBANValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoIBAN];
+end;
+
+function TEmpresasDatosBancoBusinessProcessorRules.GetOldIBANIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoIBAN]);
+end;
+
+procedure TEmpresasDatosBancoBusinessProcessorRules.SetIBANValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoIBAN] := aValue;
+end;
+
+procedure TEmpresasDatosBancoBusinessProcessorRules.SetIBANIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoIBAN] := Null;
+end;
+
+function TEmpresasDatosBancoBusinessProcessorRules.GetSWIFTValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoSWIFT];
+end;
+
+function TEmpresasDatosBancoBusinessProcessorRules.GetSWIFTIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoSWIFT]);
+end;
+
+function TEmpresasDatosBancoBusinessProcessorRules.GetOldSWIFTValue: String;
+begin
+ result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoSWIFT];
+end;
+
+function TEmpresasDatosBancoBusinessProcessorRules.GetOldSWIFTIsNull: Boolean;
+begin
+ result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpresasDatosBancoSWIFT]);
+end;
+
+procedure TEmpresasDatosBancoBusinessProcessorRules.SetSWIFTValue(const aValue: String);
+begin
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoSWIFT] := aValue;
+end;
+
+procedure TEmpresasDatosBancoBusinessProcessorRules.SetSWIFTIsNull(const aValue: Boolean);
+begin
+ if aValue then
+ BusinessProcessor.CurrentChange.NewValueByName[fld_EmpresasDatosBancoSWIFT] := Null;
+end;
+
initialization
RegisterBusinessProcessorRules(RID_EmpresasDelta, TEmpresasBusinessProcessorRules);
diff --git a/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm b/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm
index e4b69f10..f593e270 100644
--- a/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm
+++ b/Source/ApplicationBase/Empresas/Servidor/srvEmpresas_Impl.dfm
@@ -303,6 +303,14 @@ object srvEmpresas: TsrvEmpresas
item
DatasetField = 'SUFIJO_N58'
TableField = 'SUFIJO_N58'
+ end
+ item
+ DatasetField = 'IBAN'
+ TableField = 'IBAN'
+ end
+ item
+ DatasetField = 'SWIFT'
+ TableField = 'SWIFT'
end>
end>
Name = 'EmpresasDatosBanco'
@@ -361,6 +369,16 @@ object srvEmpresas: TsrvEmpresas
DataType = datString
Size = 3
DictionaryEntry = 'EmpresasDatosBanco_SUFIJO_N58'
+ end
+ item
+ Name = 'IBAN'
+ DataType = datString
+ Size = 255
+ end
+ item
+ Name = 'SWIFT'
+ DataType = datString
+ Size = 255
end>
end>
JoinDataTables = <>
@@ -621,9 +639,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/uEditorDatosBancariosEmpresa.dfm b/Source/ApplicationBase/Empresas/Views/uEditorDatosBancariosEmpresa.dfm
index 01b623d8..1407019d 100644
--- a/Source/ApplicationBase/Empresas/Views/uEditorDatosBancariosEmpresa.dfm
+++ b/Source/ApplicationBase/Empresas/Views/uEditorDatosBancariosEmpresa.dfm
@@ -3,19 +3,19 @@ object fEditorDatosBancariosEmpresa: TfEditorDatosBancariosEmpresa
Top = 108
BorderStyle = bsDialog
Caption = 'Cambio de datos bancarios'
- ClientHeight = 292
- ClientWidth = 433
+ ClientHeight = 414
+ ClientWidth = 449
Color = clBtnFace
ParentFont = True
OldCreateOrder = True
Position = poOwnerFormCenter
DesignSize = (
- 433
- 292)
+ 449
+ 414)
PixelsPerInch = 96
TextHeight = 13
object OKBtn: TButton
- Left = 350
+ Left = 366
Top = 7
Width = 75
Height = 25
@@ -23,9 +23,10 @@ object fEditorDatosBancariosEmpresa: TfEditorDatosBancariosEmpresa
Caption = '&Guardar'
ModalResult = 1
TabOrder = 0
+ ExplicitLeft = 350
end
object CancelBtn: TButton
- Left = 350
+ Left = 366
Top = 38
Width = 75
Height = 25
@@ -34,12 +35,13 @@ object fEditorDatosBancariosEmpresa: TfEditorDatosBancariosEmpresa
Caption = '&Cancelar'
ModalResult = 2
TabOrder = 1
+ ExplicitLeft = 350
end
object GroupBox1: TGroupBox
Left = 8
Top = 8
Width = 329
- Height = 176
+ Height = 228
Caption = 'Datos bancarios'
TabOrder = 2
object Label5: TLabel
@@ -82,6 +84,22 @@ object fEditorDatosBancariosEmpresa: TfEditorDatosBancariosEmpresa
AutoSize = False
Caption = 'Cuenta:'
end
+ object Label8: TLabel
+ Left = 11
+ Top = 172
+ Width = 78
+ Height = 13
+ AutoSize = False
+ Caption = 'IBAN:'
+ end
+ object Label9: TLabel
+ Left = 11
+ Top = 199
+ Width = 78
+ Height = 13
+ AutoSize = False
+ Caption = 'SWIFT:'
+ end
object eNombre: TDBEdit
Left = 95
Top = 28
@@ -131,10 +149,19 @@ object fEditorDatosBancariosEmpresa: TfEditorDatosBancariosEmpresa
DataSource = dsDatosBancarios
TabOrder = 4
end
+ object eSWIFT: TDBEdit
+ Left = 95
+ Top = 196
+ Width = 223
+ Height = 21
+ DataField = 'SWIFT'
+ DataSource = dsDatosBancarios
+ TabOrder = 5
+ end
end
object GroupBox2: TGroupBox
Left = 8
- Top = 190
+ Top = 242
Width = 329
Height = 83
Caption = 'Sufijos para normas CSB'
@@ -176,6 +203,15 @@ object fEditorDatosBancariosEmpresa: TfEditorDatosBancariosEmpresa
TabOrder = 1
end
end
+ object eIBAN: TDBEdit
+ Left = 103
+ Top = 177
+ Width = 223
+ Height = 21
+ DataField = 'IBAN'
+ DataSource = dsDatosBancarios
+ TabOrder = 4
+ end
object dsDatosBancarios: TDADataSource
Left = 352
Top = 72
diff --git a/Source/ApplicationBase/Empresas/Views/uEditorDatosBancariosEmpresa.pas b/Source/ApplicationBase/Empresas/Views/uEditorDatosBancariosEmpresa.pas
index de80ae66..60cac84a 100644
--- a/Source/ApplicationBase/Empresas/Views/uEditorDatosBancariosEmpresa.pas
+++ b/Source/ApplicationBase/Empresas/Views/uEditorDatosBancariosEmpresa.pas
@@ -29,6 +29,10 @@ type
eNorma19: TDBEdit;
Label1: TLabel;
eNorma58: TDBEdit;
+ eIBAN: TDBEdit;
+ Label8: TLabel;
+ eSWIFT: TDBEdit;
+ Label9: TLabel;
protected
FController : IDatosBancariosEmpresaController;
FDatosBancarios: IBizEmpresasDatosBancarios;
diff --git a/Source/ApplicationBase/Empresas/Views/uEditorEmpresa.dfm b/Source/ApplicationBase/Empresas/Views/uEditorEmpresa.dfm
index c04cfe4b..58c60222 100644
--- a/Source/ApplicationBase/Empresas/Views/uEditorEmpresa.dfm
+++ b/Source/ApplicationBase/Empresas/Views/uEditorEmpresa.dfm
@@ -8,7 +8,7 @@ inherited fEditorEmpresa: TfEditorEmpresa
ClientWidth = 674
Scaled = False
ExplicitWidth = 682
- ExplicitHeight = 581
+ ExplicitHeight = 588
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@@ -75,20 +75,20 @@ inherited fEditorEmpresa: TfEditorEmpresa
end
end
inherited pgPaginas: TPageControl
- Width = 674
- Height = 459
- ExplicitWidth = 674
- ExplicitHeight = 459
+ Width = 668
+ Height = 453
+ ExplicitWidth = 668
+ ExplicitHeight = 453
inherited pagGeneral: TTabSheet
ExplicitLeft = 4
ExplicitTop = 24
- ExplicitWidth = 666
- ExplicitHeight = 431
+ ExplicitWidth = 660
+ ExplicitHeight = 425
inline frViewEmpresa1: TfrViewEmpresa
Left = 0
Top = 0
- Width = 666
- Height = 431
+ Width = 660
+ Height = 425
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -98,145 +98,145 @@ inherited fEditorEmpresa: TfEditorEmpresa
ParentFont = False
TabOrder = 0
ReadOnly = False
- ExplicitWidth = 666
- ExplicitHeight = 431
+ ExplicitWidth = 660
+ ExplicitHeight = 425
inherited dxLayoutControl1: TdxLayoutControl
- Width = 666
- Height = 431
+ Width = 660
+ Height = 425
LookAndFeel = dxLayoutOfficeLookAndFeel1
- ExplicitWidth = 666
- ExplicitHeight = 431
+ ExplicitWidth = 660
+ ExplicitHeight = 425
inherited PngSpeedButton1: TPngSpeedButton
- Left = 621
+ Left = 615
Top = 295
- ExplicitLeft = 621
+ ExplicitLeft = 615
ExplicitTop = 295
end
inherited PngSpeedButton2: TPngSpeedButton
- Left = 621
+ Left = 615
Top = 267
- ExplicitLeft = 621
+ ExplicitLeft = 615
ExplicitTop = 267
end
inherited eCalle: TcxDBTextEdit
Top = 189
ExplicitTop = 189
- ExplicitWidth = 84
- Width = 84
+ ExplicitWidth = 234
+ Width = 234
end
inherited eProvincia: TcxDBTextEdit
Top = 243
ExplicitTop = 243
- ExplicitWidth = 60
- Width = 60
+ ExplicitWidth = 234
+ Width = 234
end
inherited ePoblacion: TcxDBTextEdit
Top = 216
ExplicitTop = 216
- ExplicitWidth = 100
- Width = 100
+ ExplicitWidth = 99
+ Width = 99
end
inherited eCodigoPostal: TcxDBTextEdit
- Left = 289
+ Left = 286
Top = 216
- ExplicitLeft = 289
+ ExplicitLeft = 286
ExplicitTop = 216
end
inherited ePaginaWeb: TcxDBTextEdit
- Left = 477
+ Left = 474
Top = 216
- ExplicitLeft = 477
+ ExplicitLeft = 474
ExplicitTop = 216
- ExplicitWidth = 165
- Width = 165
+ ExplicitWidth = 164
+ Width = 164
end
inherited eMailParticular: TcxDBTextEdit
- Left = 477
+ Left = 474
Top = 189
- ExplicitLeft = 477
+ ExplicitLeft = 474
ExplicitTop = 189
- ExplicitWidth = 165
- Width = 165
+ ExplicitWidth = 164
+ Width = 164
end
inherited eMailTrabajo: TcxDBTextEdit
- Left = 477
+ Left = 474
Top = 162
- ExplicitLeft = 477
+ ExplicitLeft = 474
ExplicitTop = 162
- ExplicitWidth = 129
- Width = 129
+ ExplicitWidth = 164
+ Width = 164
end
inherited cxDBMemo1: TcxDBMemo
Top = 294
ExplicitTop = 294
- ExplicitWidth = 107
- ExplicitHeight = 234
- Height = 234
- Width = 107
+ ExplicitWidth = 329
+ ExplicitHeight = 115
+ Height = 115
+ Width = 329
end
inherited eTlfParticular: TcxDBTextEdit
- Left = 477
+ Left = 474
Top = 57
- ExplicitLeft = 477
+ ExplicitLeft = 474
ExplicitTop = 57
- ExplicitWidth = 91
- Width = 91
+ ExplicitWidth = 164
+ Width = 164
end
inherited eTlfTrabajo: TcxDBTextEdit
- Left = 477
+ Left = 474
Top = 30
- ExplicitLeft = 477
+ ExplicitLeft = 474
ExplicitTop = 30
- ExplicitWidth = 127
- Width = 127
+ ExplicitWidth = 164
+ Width = 164
end
inherited eTlfMovil: TcxDBTextEdit
- Left = 477
+ Left = 474
Top = 84
- ExplicitLeft = 477
+ ExplicitLeft = 474
ExplicitTop = 84
- ExplicitWidth = 155
- Width = 155
+ ExplicitWidth = 164
+ Width = 164
end
inherited eFax: TcxDBTextEdit
- Left = 477
+ Left = 474
Top = 111
- ExplicitLeft = 477
+ ExplicitLeft = 474
ExplicitTop = 111
- ExplicitWidth = 121
- Width = 121
+ ExplicitWidth = 164
+ Width = 164
end
inherited eNombre: TcxDBTextEdit
Top = 30
ExplicitTop = 30
- ExplicitWidth = 108
- Width = 108
+ ExplicitWidth = 234
+ Width = 234
end
inherited eNIFCIF: TcxDBTextEdit
Top = 57
ExplicitTop = 57
- ExplicitWidth = 108
- Width = 108
+ ExplicitWidth = 234
+ Width = 234
end
inherited memRegistroMercantil: TcxDBMemo
Top = 84
ExplicitTop = 84
- ExplicitWidth = 76
- Width = 76
+ ExplicitWidth = 234
+ Width = 234
end
inherited cxDBSpinEdit1: TcxDBSpinEdit
Top = 138
ExplicitTop = 138
end
inherited cxDBImage1: TcxDBImage
- Left = 382
+ Left = 379
Top = 267
- ExplicitLeft = 382
+ ExplicitLeft = 379
ExplicitTop = 267
- ExplicitWidth = 140
- ExplicitHeight = 100
- Height = 100
- Width = 140
+ ExplicitWidth = 230
+ ExplicitHeight = 142
+ Height = 142
+ Width = 230
end
end
end
@@ -247,8 +247,8 @@ inherited fEditorEmpresa: TfEditorEmpresa
inline frViewDatosBancarios1: TfrViewDatosBancarios
Left = 0
Top = 0
- Width = 666
- Height = 431
+ Width = 660
+ Height = 425
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -258,17 +258,29 @@ inherited fEditorEmpresa: TfEditorEmpresa
ParentFont = False
TabOrder = 0
ReadOnly = False
- ExplicitWidth = 666
- ExplicitHeight = 431
+ ExplicitWidth = 660
+ ExplicitHeight = 425
inherited cxGrid: TcxGrid
- Width = 666
- Height = 406
+ Width = 660
+ Height = 400
ExplicitWidth = 666
ExplicitHeight = 406
end
inherited ToolBar1: TToolBar
- Width = 666
+ Width = 660
ExplicitWidth = 666
+ inherited ToolButton1: TToolButton
+ ExplicitWidth = 113
+ end
+ inherited ToolButton4: TToolButton
+ ExplicitWidth = 113
+ end
+ inherited ToolButton2: TToolButton
+ ExplicitWidth = 113
+ end
+ inherited ToolButton7: TToolButton
+ ExplicitWidth = 113
+ end
end
end
end
diff --git a/Source/ApplicationBase/Empresas/Views/uViewDatosBancarios.dfm b/Source/ApplicationBase/Empresas/Views/uViewDatosBancarios.dfm
index 9ffd2041..1a1ab489 100644
--- a/Source/ApplicationBase/Empresas/Views/uViewDatosBancarios.dfm
+++ b/Source/ApplicationBase/Empresas/Views/uViewDatosBancarios.dfm
@@ -37,16 +37,42 @@ inherited frViewDatosBancarios: TfrViewDatosBancarios
end
object cxGridViewSUFIJO_N19: TcxGridDBColumn
DataBinding.FieldName = 'SUFIJO_N19'
+ Visible = False
+ VisibleForCustomization = False
Width = 55
end
object cxGridViewSUFIJO_N58: TcxGridDBColumn
DataBinding.FieldName = 'SUFIJO_N58'
+ Visible = False
+ VisibleForCustomization = False
Width = 57
end
+ object cxGridViewIBAN: TcxGridDBColumn
+ DataBinding.FieldName = 'IBAN'
+ Visible = False
+ VisibleForCustomization = False
+ end
+ object cxGridViewSWIFT: TcxGridDBColumn
+ DataBinding.FieldName = 'SWIFT'
+ Visible = False
+ VisibleForCustomization = False
+ end
end
end
inherited ToolBar1: TToolBar
Width = 583
ExplicitWidth = 583
+ inherited ToolButton1: TToolButton
+ ExplicitWidth = 62
+ end
+ inherited ToolButton4: TToolButton
+ ExplicitWidth = 74
+ end
+ inherited ToolButton2: TToolButton
+ ExplicitWidth = 67
+ end
+ inherited ToolButton7: TToolButton
+ ExplicitWidth = 117
+ end
end
end
diff --git a/Source/ApplicationBase/Empresas/Views/uViewDatosBancarios.pas b/Source/ApplicationBase/Empresas/Views/uViewDatosBancarios.pas
index 13f2891f..1ea1a4a3 100644
--- a/Source/ApplicationBase/Empresas/Views/uViewDatosBancarios.pas
+++ b/Source/ApplicationBase/Empresas/Views/uViewDatosBancarios.pas
@@ -27,6 +27,8 @@ type
cxGridViewCUENTA: TcxGridDBColumn;
cxGridViewSUFIJO_N19: TcxGridDBColumn;
cxGridViewSUFIJO_N58: TcxGridDBColumn;
+ cxGridViewIBAN: TcxGridDBColumn;
+ cxGridViewSWIFT: TcxGridDBColumn;
procedure cxGridViewDblClick(Sender: TObject);
protected
procedure AnadirInterno; override;
diff --git a/Source/ApplicationBase/Empresas/Views/uViewEmpresa.dfm b/Source/ApplicationBase/Empresas/Views/uViewEmpresa.dfm
index d0c2e148..dd573e15 100644
--- a/Source/ApplicationBase/Empresas/Views/uViewEmpresa.dfm
+++ b/Source/ApplicationBase/Empresas/Views/uViewEmpresa.dfm
@@ -11,6 +11,7 @@ inherited frViewEmpresa: TfrViewEmpresa
Align = alClient
ParentBackground = True
TabOrder = 0
+ TabStop = False
AutoContentSizes = [acsWidth, acsHeight]
object PngSpeedButton1: TPngSpeedButton
Left = 545
@@ -44,7 +45,7 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4
- Width = 84
+ Width = 194
end
object eProvincia: TcxDBTextEdit
Left = 117
@@ -62,7 +63,7 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7
- Width = 60
+ Width = 194
end
object ePoblacion: TcxDBTextEdit
Left = 117
@@ -80,7 +81,7 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5
- Width = 100
+ Width = 59
end
object eCodigoPostal: TcxDBTextEdit
Left = 246
@@ -116,7 +117,7 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 15
- Width = 165
+ Width = 132
end
object eMailParticular: TcxDBTextEdit
Left = 436
@@ -134,7 +135,7 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 14
- Width = 165
+ Width = 132
end
object eMailTrabajo: TcxDBTextEdit
Left = 436
@@ -152,7 +153,7 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 13
- Width = 129
+ Width = 132
end
object cxDBMemo1: TcxDBMemo
Left = 22
@@ -170,8 +171,8 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 8
- Height = 234
- Width = 107
+ Height = 59
+ Width = 289
end
object eTlfParticular: TcxDBTextEdit
Left = 436
@@ -189,7 +190,7 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 10
- Width = 91
+ Width = 132
end
object eTlfTrabajo: TcxDBTextEdit
Left = 436
@@ -207,7 +208,7 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 9
- Width = 127
+ Width = 132
end
object eTlfMovil: TcxDBTextEdit
Left = 436
@@ -225,7 +226,7 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 11
- Width = 155
+ Width = 132
end
object eFax: TcxDBTextEdit
Left = 436
@@ -243,7 +244,7 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 12
- Width = 121
+ Width = 132
end
object eNombre: TcxDBTextEdit
Left = 117
@@ -262,7 +263,7 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 0
- Width = 108
+ Width = 194
end
object eNIFCIF: TcxDBTextEdit
Left = 117
@@ -281,7 +282,7 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 1
- Width = 108
+ Width = 194
end
object memRegistroMercantil: TcxDBMemo
Left = 117
@@ -301,7 +302,7 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 2
Height = 48
- Width = 76
+ Width = 194
end
object cxDBSpinEdit1: TcxDBSpinEdit
Left = 117
@@ -337,8 +338,8 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 16
- Height = 100
- Width = 140
+ Height = 86
+ Width = 198
end
object dxLayoutControl1Group_Root: TdxLayoutGroup
ShowCaption = False
diff --git a/Source/ApplicationBase/Empresas/Views/uViewEmpresa.pas b/Source/ApplicationBase/Empresas/Views/uViewEmpresa.pas
index d2e5e583..4a0cd1ec 100644
--- a/Source/ApplicationBase/Empresas/Views/uViewEmpresa.pas
+++ b/Source/ApplicationBase/Empresas/Views/uViewEmpresa.pas
@@ -9,7 +9,13 @@ uses
JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
cxDBEdit, dxLayoutControl, dxLayoutLookAndFeels, cxMemo, cxMaskEdit,
cxSpinEdit, cxImage, JvExControls, JvBitmapButton, ActnList, ImgList,
- PngImageList, TB2Item, TBX, TB2Dock, TB2Toolbar, PngSpeedButton, uDAInterfaces;
+ PngImageList, TB2Item, TBX, TB2Dock, TB2Toolbar, PngSpeedButton, uDAInterfaces,
+ dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel, dxSkinCoffee,
+ dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
+ dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black,
+ dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
+ dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters,
+ dxSkinValentine, dxSkinXmas2008Blue, dxSkinsdxLCPainter;
type
IViewEmpresa = interface(IViewBase)
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index 8238ffe8..92f30d69 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -105,8 +105,6 @@ uses
uRptPedidosProveedor_Server in '..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas' {RptPedidosProveedor: TDataModule},
uRptWordPedidoProveedor in '..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas' {RptWordPedidoProveedor: TDataModule},
srvObras_Impl in '..\Modulos\Obras\Servidor\srvObras_Impl.pas',
- schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
- schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
uBizObrasServer in '..\Modulos\Obras\Model\uBizObrasServer.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
@@ -125,7 +123,9 @@ uses
uRptRecibosCliente_Server in '..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas' {RptRecibosCliente: TDataModule},
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
- srvProvinciasPoblaciones_Impl in '..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas';
+ srvProvinciasPoblaciones_Impl in '..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.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 b67b4065..c04561bf 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -1,280 +1,280 @@
-
+
-
- {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
- FactuGES_Server.dpr
- Debug
- AnyCPU
- DCC32
- ..\..\Output\Debug\Servidor\FactuGES_Server.exe
- vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100
-
-
- 7.0
- False
- False
- 0
- 3
- ..\..\Output\Release\Servidor
- RELEASE
-
-
- 7.0
- 3
- ..\..\Output\Debug\Servidor
- DEBUG;
- True
- True
- True
- $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
- $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
- $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
- $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
-
-
- Delphi.Personality
-
-
- FalseTrueFalse/standaloneTrueFalse1070FalseFalseFalseFalseFalse308212521.0.7.01.0.7.0jueves, 05 de junio de 2008 20:23FactuGES_Server.dpr
-
-
-
-
- MainSource
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDARemoteService
-
-
-
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDARemoteService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataModule
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
-
-
-
- TDataAbstractService
-
-
-
-
-
- TDataAbstractService
-
-
-
- TFrame
-
-
-
- TFrame
-
-
-
- TForm
-
-
-
- TFrame
-
-
-
- TDARemoteService
-
-
-
-
-
-
- TDataModule
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+ {ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}
+ FactuGES_Server.dpr
+ Debug
+ AnyCPU
+ DCC32
+ ..\..\Output\Debug\Servidor\FactuGES_Server.exe
+ vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100
+
+
+ 7.0
+ False
+ False
+ 0
+ 3
+ ..\..\Output\Release\Servidor
+ RELEASE
+
+
+ 7.0
+ 3
+ ..\..\Output\Debug\Servidor
+ DEBUG;
+ True
+ True
+ True
+ $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
+ $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
+ $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
+ $(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10
+
+
+ Delphi.Personality
+
+
+FalseTrueFalse/standaloneTrueFalse1070FalseFalseFalseFalseFalse308212521.0.7.01.0.7.0jueves, 05 de junio de 2008 20:23FactuGES_Server.dpr
+
+
+
+
+ MainSource
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDARemoteService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataModule
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+
+
+
+ TDataAbstractService
+
+
+
+
+
+ TDataAbstractService
+
+
+
+ TFrame
+
+
+
+ TFrame
+
+
+
+ TForm
+
+
+
+ TFrame
+
+
+
+ TDARemoteService
+
+
+
+
+
+
+ TDataModule
+
+
+
+
+
+
+
+
+
+
+
+
+
+