Se añade en los datos de banco de la empresa el IBAN y el SWIFT para operaciones internacionales

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@454 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2008-06-12 10:23:17 +00:00
parent b8fff9216d
commit 8225265f89
16 changed files with 692 additions and 454 deletions

View File

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

View File

@ -53,41 +53,6 @@
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -102,6 +67,27 @@
<DelphiCompile Include="ApplicationBase.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Modulos\Articulos\Base.dcp" />
<DCCReference Include="..\Modulos\Articulos\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Articulos\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Articulos\designide.dcp" />
<DCCReference Include="..\Modulos\Articulos\GUIBase.dcp" />
<DCCReference Include="..\Modulos\Articulos\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Articulos\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Articulos\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Articulos\JvJansD11R.dcp" />
<DCCReference Include="..\Modulos\Articulos\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Articulos\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Articulos\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Articulos\PLuginSDK_D10R.dcp" />
<DCCReference Include="..\Modulos\Articulos\rtl.dcp" />
<DCCReference Include="..\Modulos\Articulos\vcl.dcp" />
<DCCReference Include="..\Modulos\Articulos\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Articulos\vcldb.dcp" />
<DCCReference Include="..\Modulos\Articulos\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Articulos\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Articulos\vclx.dcp" />
<DCCReference Include="..\Modulos\Articulos\xmlrtl.dcp" />
<DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" />
<DCCReference Include="Empresas\Controller\uEmpresasController.pas" />
<DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" />
@ -120,28 +106,7 @@
<DCCReference Include="Empresas\Views\uEmpresasViewRegister.pas" />
<DCCReference Include="Empresas\Views\uViewDatosBancarios.pas" />
<DCCReference Include="Empresas\Views\uViewEmpresa.pas" />
<DCCReference Include="ProvinciasPoblaciones\Controller\Base.dcp" />
<DCCReference Include="ProvinciasPoblaciones\Controller\dbrtl.dcp" />
<DCCReference Include="ProvinciasPoblaciones\Controller\dclIndyCore.dcp" />
<DCCReference Include="ProvinciasPoblaciones\Controller\designide.dcp" />
<DCCReference Include="ProvinciasPoblaciones\Controller\GUIBase.dcp" />
<DCCReference Include="ProvinciasPoblaciones\Controller\IndyCore.dcp" />
<DCCReference Include="ProvinciasPoblaciones\Controller\IndyProtocols.dcp" />
<DCCReference Include="ProvinciasPoblaciones\Controller\IndySystem.dcp" />
<DCCReference Include="ProvinciasPoblaciones\Controller\JvJansD11R.dcp" />
<DCCReference Include="ProvinciasPoblaciones\Controller\pckMD5.dcp" />
<DCCReference Include="ProvinciasPoblaciones\Controller\pckUCDataConnector.dcp" />
<DCCReference Include="ProvinciasPoblaciones\Controller\pckUserControl_RT.dcp" />
<DCCReference Include="ProvinciasPoblaciones\Controller\PLuginSDK_D10R.dcp" />
<DCCReference Include="ProvinciasPoblaciones\Controller\rtl.dcp" />
<DCCReference Include="ProvinciasPoblaciones\Controller\uProvinciasPoblacionesController.pas" />
<DCCReference Include="ProvinciasPoblaciones\Controller\vcl.dcp" />
<DCCReference Include="ProvinciasPoblaciones\Controller\vclactnband.dcp" />
<DCCReference Include="ProvinciasPoblaciones\Controller\vcldb.dcp" />
<DCCReference Include="ProvinciasPoblaciones\Controller\vcljpg.dcp" />
<DCCReference Include="ProvinciasPoblaciones\Controller\VclSmp.dcp" />
<DCCReference Include="ProvinciasPoblaciones\Controller\vclx.dcp" />
<DCCReference Include="ProvinciasPoblaciones\Controller\xmlrtl.dcp" />
<DCCReference Include="ProvinciasPoblaciones\Data\uDataModuleProvinciasPoblaciones.pas">
<Form>DataModuleProvinciasPoblaciones</Form>
<DesignClass>TDataModule</DesignClass>

View File

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

View File

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

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 = '{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);

View File

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

View File

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

View File

@ -29,6 +29,10 @@ type
eNorma19: TDBEdit;
Label1: TLabel;
eNorma58: TDBEdit;
eIBAN: TDBEdit;
Label8: TLabel;
eSWIFT: TDBEdit;
Label9: TLabel;
protected
FController : IDatosBancariosEmpresaController;
FDatosBancarios: IBizEmpresasDatosBancarios;

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

@ -1,280 +1,280 @@
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
<DCC_UsePackage>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</DCC_UsePackage>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN>
<DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
<DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
<DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
<DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">7</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.7.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 05 de junio de 2008 20:23</VersionInfoKeys></VersionInfoKeys><Excluded_Packages/><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
<DCCReference Include="..\Base\schBase_Intf.pas"/>
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
<Form>RptAlbaranesCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
<Form>RptWordAlbaranCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
<Form>RptFichasEmpleado</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
<Form>srvFabricantes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
<Form>RptWordFacturaCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvUnidadesMedida_Impl.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/>
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
<Form>RptPedidosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
<Form>RptWordPedidoProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
<Form>RptWordPresupuestoCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\AHWord97.pas"/>
<DCCReference Include="Utiles\RegExpr.pas"/>
<DCCReference Include="Utiles\uBusinessUtils.pas"/>
<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
<DCCReference Include="Utiles\uServerAppUtils.pas"/>
<DCCReference Include="Utiles\uSesionesUtils.pas"/>
</ItemGroup>
<PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
<MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
<DCC_UsePackage>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</DCC_UsePackage>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN>
<DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
<DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
<DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
<DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType />
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">7</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.7.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 05 de junio de 2008 20:23</VersionInfoKeys></VersionInfoKeys><Excluded_Packages /><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="FactuGES_Server.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
<DCCReference Include="..\Base\schBase_Intf.pas" />
<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
<DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
<Form>RptAlbaranesCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
<Form>RptWordAlbaranCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<Form>srvAlbaranesCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<Form>srvAlbaranesProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<Form>srvAlmacenes</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
<Form>RptEtiquetasContacto</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
<Form>RptFichasEmpleado</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<Form>srvContactos</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" />
<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" />
<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
<Form>srvFabricantes</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
<Form>RptFacturasCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
<Form>RptWordFacturaCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<Form>srvFacturasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<Form>srvFacturasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvUnidadesMedida_Impl.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
<Form>srvHistoricoMovimientos</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
<Form>srvInventario</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas" />
<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
<Form>RptPedidosProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
<Form>RptWordPedidoProveedor</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<Form>srvPedidosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<Form>RptPresupuestosCliente</Form>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
<Form>RptWordPresupuestoCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
<Form>srvPresupuestosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
<Form>RptRecibosCliente</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<Form>srvRecibosCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<Form>srvRecibosProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
<Form>srvReferencias</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
<Form>srvRemesasCliente</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
<Form>srvRemesasProveedor</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
<Form>srvUnidadesMedida</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<Form>srvConfiguracion</Form>
<DesignClass>TDataAbstractService</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConexionBD.pas">
<Form>frConexionBD</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfGeneral.pas">
<Form>frConfGeneral</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uConfiguracion.pas">
<Form>fConfiguracion</Form>
<DesignClass>TForm</DesignClass>
</DCCReference>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
<Form>FrameConfiguracion</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="srvLogin_Impl.pas">
<Form>srvLogin</Form>
<DesignClass>TDARemoteService</DesignClass>
</DCCReference>
<DCCReference Include="uAcercaDe.pas">
<Form>fAcercaDe</Form>
</DCCReference>
<DCCReference Include="uDataModuleServer.pas">
<Form>dmServer</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="uServerMainForm.pas">
<Form>fServerForm</Form>
</DCCReference>
<DCCReference Include="Utiles\AHWord97.pas" />
<DCCReference Include="Utiles\RegExpr.pas" />
<DCCReference Include="Utiles\uBusinessUtils.pas" />
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
<DCCReference Include="Utiles\uServerAppUtils.pas" />
<DCCReference Include="Utiles\uSesionesUtils.pas" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line
[Exception Log]