Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cambios en funcionalidad de subcuentas contables relacionadas con la gestion

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@190 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2008-04-09 10:35:38 +00:00
parent 6b422218ea
commit a95e4ffa98
11 changed files with 373 additions and 324 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Database/scripts/factuges.sql
View File

@ -1987,6 +1987,7 @@ CONT_CUENTAS.REF_CUENTA, CONT_CUENTAS.DESCRIPCION as CUENTA, V_CONT_SUBCUENTAS_S
from V_CONT_SUBCUENTAS_SALDO from V_CONT_SUBCUENTAS_SALDO
left join CONT_SUBCUENTAS on (CONT_SUBCUENTAS.ID = V_CONT_SUBCUENTAS_SALDO.ID_SUBCUENTA) left join CONT_SUBCUENTAS on (CONT_SUBCUENTAS.ID = V_CONT_SUBCUENTAS_SALDO.ID_SUBCUENTA)
left join CONT_CUENTAS on (CONT_CUENTAS.ID = CONT_SUBCUENTAS.ID_CUENTA) left join CONT_CUENTAS on (CONT_CUENTAS.ID = CONT_SUBCUENTAS.ID_CUENTA)
order by CONT_CUENTAS.REF_CUENTA
; ;

82
Source/Base/Base.dproj
View File

@ -58,47 +58,47 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Facturas de cliente\Views\adortl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\cxIntl6D11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\cxIntlPrintSys3D11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dclIndyCore.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\designide.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\dsnap.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\GUISDK_D11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\GUISDK_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\IndyCore.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\IndyProtocols.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\IndySystem.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\Jcl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JclVcl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JSDialog100.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvCmpD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvCoreD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvDlgsD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvMMD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvNetD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvPageCompsD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\JvSystemD11R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\pckMD5.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\pckUCDataConnector.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\pckUserControl_RT.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\PluginSDK_D10R.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\PluginSDK_D10R.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\PngComponentsD10.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\PNG_D10.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\rtl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\TB2k_D10.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\tbx_d10.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\vcl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\vclactnband.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\vcldb.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\VclSmp.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\vclx.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Facturas de cliente\Views\xmlrtl.dcp" /> <DCCReference Include="..\Modulos\Facturas de cliente\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>

BIN
Source/Base/Base.res
View File

Binary file not shown.

5
Source/Modulos/Contabilidad/Controller/uSubCuentasController.pas
View File

@ -119,6 +119,7 @@ var
begin begin
ASubCuenta := Nuevo; ASubCuenta := Nuevo;
Ver(ASubCuenta); Ver(ASubCuenta);
if not ASubCuenta.IsEmpty then
AsignarSubCuentaAContacto(ASubCuenta, ASubCuentaContacto); AsignarSubCuentaAContacto(ASubCuenta, ASubCuentaContacto);
end; end;
@ -250,7 +251,7 @@ var
begin begin
ShowHourglassCursor; ShowHourglassCursor;
try try
Result := BuscarCuentas(TipoCuenta); Result := BuscarTodos;//BuscarCuentas(TipoCuenta);
with Result.DataTable.DynamicWhere do with Result.DataTable.DynamicWhere do
begin begin
@ -484,7 +485,7 @@ begin
inherited; inherited;
try try
AController := TCuentasController.Create; AController := TCuentasController.Create;
ACuenta := (AController.ElegirCuenta(AController.BuscarTodos, 'ddddddd', False) as IBizCuenta); ACuenta := (AController.ElegirCuenta(AController.BuscarTodos, 'Debe elegir una cuenta asociada a la subcuenta', False) as IBizCuenta);
if Assigned(ACuenta) then if Assigned(ACuenta) then
begin begin

50
Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.dfm
View File

@ -488,11 +488,6 @@ object srvContabilidad: TsrvContabilidad
Name = 'REF_CUENTA' Name = 'REF_CUENTA'
Value = '' Value = ''
ParamType = daptInput ParamType = daptInput
end
item
Name = 'REF_TIENDA'
Value = ''
ParamType = daptInput
end> end>
Statements = < Statements = <
item item
@ -505,7 +500,7 @@ object srvContabilidad: TsrvContabilidad
'Integer))'#10'from cont_subcuentas'#10'left join cont_cuentas on cont_cu' + 'Integer))'#10'from cont_subcuentas'#10'left join cont_cuentas on cont_cu' +
'entas.id = cont_subcuentas.id_cuenta'#10'where cont_subcuentas.id_ej' + 'entas.id = cont_subcuentas.id_cuenta'#10'where cont_subcuentas.id_ej' +
'ercicio = :ID_EJERCICIO'#10'and cont_cuentas.ref_cuenta = :REF_CUENT' + 'ercicio = :ID_EJERCICIO'#10'and cont_cuentas.ref_cuenta = :REF_CUENT' +
'A'#10#10 'A'#10#10#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -513,7 +508,7 @@ object srvContabilidad: TsrvContabilidad
TableField = 'MAX' TableField = 'MAX'
end> end>
end> end>
Name = 'DarMaxRefSubCuenta' Name = 'DarMaxRefSubCuentaProv'
Fields = < Fields = <
item item
Name = 'MAX' Name = 'MAX'
@ -1349,6 +1344,47 @@ object srvContabilidad: TsrvContabilidad
Size = 255 Size = 255
DictionaryEntry = 'Balances_DESCRIPCION3' DictionaryEntry = 'Balances_DESCRIPCION3'
end> end>
end
item
Params = <
item
Name = 'ID_EJERCICIO'
Value = ''
ParamType = daptInput
end
item
Name = 'REF_CUENTA'
Value = ''
ParamType = daptInput
end
item
Name = 'REF_TIENDA'
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
SQL =
'select max(cast(substr(cont_subcuentas.ref_subcuenta, 6, 10) as ' +
'Integer))'#10'from cont_subcuentas'#10'left join cont_cuentas on cont_cu' +
'entas.id = cont_subcuentas.id_cuenta'#10'where cont_subcuentas.id_ej' +
'ercicio = :ID_EJERCICIO'#10'and cont_cuentas.ref_cuenta = :REF_CUENT' +
'A'#10'and substr(cont_subcuentas.ref_subcuenta, 4, 5) = :REF_TIENDA'#10 +
#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'MAX'
TableField = 'MAX'
end>
end>
Name = 'DarMaxRefSubCuentaCli'
Fields = <
item
Name = 'MAX'
DataType = datInteger
end>
end> end>
JoinDataTables = <> JoinDataTables = <>
UnionDataTables = <> UnionDataTables = <>

4
Source/Modulos/Contabilidad/Servidor/srvContabilidad_Impl.pas
View File

@ -87,7 +87,7 @@ begin
RefTienda := format('%.2d', [NumTienda]); RefTienda := format('%.2d', [NumTienda]);
dsData := NIL; dsData := NIL;
dsData := schContabilidad.NewDataset(AConn, 'DarMaxRefSubCuenta', ['ID_EJERCICIO', 'REF_CUENTA', 'REF_TIENDA'], [darEjercicioActivo(ID_EMPRESA), REFERENCIA_CLIENTES, RefTienda]); dsData := schContabilidad.NewDataset(AConn, 'DarMaxRefSubCuentaCli', ['ID_EJERCICIO', 'REF_CUENTA', 'REF_TIENDA'], [darEjercicioActivo(ID_EMPRESA), REFERENCIA_CLIENTES, RefTienda]);
dsData.Active := True; dsData.Active := True;
if VarIsNull(dsData.FieldValues[0]) then if VarIsNull(dsData.FieldValues[0]) then
@ -161,7 +161,7 @@ begin
try try
try try
dsData := NIL; dsData := NIL;
dsData := schContabilidad.NewDataset(AConn, 'DarMaxRefSubCuenta', ['ID_EJERCICIO', 'REF_CUENTA'], [darEjercicioActivo(ID_EMPRESA), REFERENCIA_PROVEEDORES]); dsData := schContabilidad.NewDataset(AConn, 'DarMaxRefSubCuentaProv', ['ID_EJERCICIO', 'REF_CUENTA'], [darEjercicioActivo(ID_EMPRESA), REFERENCIA_PROVEEDORES]);
dsData.Active := True; dsData.Active := True;
if VarIsNull(dsData.FieldValues[0]) then if VarIsNull(dsData.FieldValues[0]) then

20
Source/Modulos/Contabilidad/Views/uEditorElegirCuentas.dfm
View File

@ -1,8 +1,8 @@
inherited fEditorElegirCuentas: TfEditorElegirCuentas inherited fEditorElegirCuentas: TfEditorElegirCuentas
Caption = 'Seleccionar pedido de cliente' Caption = 'Seleccionar cuenta'
ClientWidth = 656 ClientWidth = 656
ExplicitWidth = 664 ExplicitWidth = 664
ExplicitHeight = 240 ExplicitHeight = 478
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object JvgWizardHeader1: TJvgWizardHeader [0] object JvgWizardHeader1: TJvgWizardHeader [0]
@ -26,7 +26,7 @@ inherited fEditorElegirCuentas: TfEditorElegirCuentas
SymbolFont.Name = 'Wingdings' SymbolFont.Name = 'Wingdings'
SymbolFont.Style = [fsBold] SymbolFont.Style = [fsBold]
Captions.Strings = ( Captions.Strings = (
'Seleccione el pedido de proveedor') 'Seleccione una cuenta')
Comments.Strings = ( Comments.Strings = (
' ') ' ')
Gradient.FromColor = clHighlight Gradient.FromColor = clHighlight
@ -38,8 +38,8 @@ inherited fEditorElegirCuentas: TfEditorElegirCuentas
end end
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
Width = 656 Width = 656
Caption = 'Lista de pedidos de proveedor'
Visible = False Visible = False
ExplicitTop = -6
ExplicitWidth = 656 ExplicitWidth = 656
inherited Image1: TImage inherited Image1: TImage
Left = 629 Left = 629
@ -165,9 +165,17 @@ inherited fEditorElegirCuentas: TfEditorElegirCuentas
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 656 Width = 656
ExplicitWidth = 656 ExplicitWidth = 656
inherited txtFiltroTodo: TcxTextEdit
ExplicitWidth = 273
Width = 273
end
inherited edtFechaIniFiltro: TcxDateEdit
ExplicitWidth = 121
Width = 121
end
inherited edtFechaFinFiltro: TcxDateEdit inherited edtFechaFinFiltro: TcxDateEdit
Left = 290 Left = 225
ExplicitLeft = 290 ExplicitLeft = 225
ExplicitWidth = 421 ExplicitWidth = 421
Width = 421 Width = 421
end end

2
Source/Modulos/Contabilidad/Views/uEditorElegirCuentas.pas
View File

@ -12,7 +12,7 @@ uses
JvNavigationPane, uViewBarraSeleccion, JvgWizardHeader, StdCtrls, JvNavigationPane, uViewBarraSeleccion, JvgWizardHeader, StdCtrls,
uBizCuentas, uIEditorElegirCuentas, uBizCuentas, uIEditorElegirCuentas,
JvExComCtrls, JvStatusBar, uEditorCuentas, uViewCuentas, JvExComCtrls, JvStatusBar, uEditorCuentas, uViewCuentas,
JSDialog, uDAInterfaces; JSDialog, uDAInterfaces, dxGDIPlusClasses;
type type
TfEditorElegirCuentas = class(TfEditorCuentas, IEditorElegirCuentas) TfEditorElegirCuentas = class(TfEditorCuentas, IEditorElegirCuentas)

22
Source/Modulos/Contactos/Views/uViewSubCuentaContacto.dfm
View File

@ -1,6 +1,6 @@
inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
Width = 451 Width = 680
Height = 304 Height = 305
Align = alClient Align = alClient
AutoSize = True AutoSize = True
OnCreate = CustomViewCreate OnCreate = CustomViewCreate
@ -10,15 +10,17 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
object layoutApunte: TdxLayoutControl object layoutApunte: TdxLayoutControl
Left = 0 Left = 0
Top = 0 Top = 0
Width = 451 Width = 680
Height = 304 Height = 305
Align = alClient Align = alClient
ParentBackground = True ParentBackground = True
TabOrder = 0 TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight] AutoContentSizes = [acsWidth, acsHeight]
ExplicitWidth = 451
ExplicitHeight = 304
DesignSize = ( DesignSize = (
451 680
304) 305)
object eRefSubCuenta: TcxDBTextEdit object eRefSubCuenta: TcxDBTextEdit
Left = 93 Left = 93
Top = 37 Top = 37
@ -40,7 +42,7 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
Width = 346 Width = 346
end end
object BitBtn3: TBitBtn object BitBtn3: TBitBtn
Left = 119 Left = 338
Top = 37 Top = 37
Width = 110 Width = 110
Height = 25 Height = 25
@ -104,7 +106,7 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
Width = 265 Width = 265
end end
object BitBtn1: TBitBtn object BitBtn1: TBitBtn
Left = 235 Left = 454
Top = 37 Top = 37
Width = 120 Width = 120
Height = 25 Height = 25
@ -148,7 +150,7 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
E000E248D100E407DB00FF00FF00FF00FF00FF00FF00FF00FF00} E000E248D100E407DB00FF00FF00FF00FF00FF00FF00FF00FF00}
end end
object BitBtn2: TBitBtn object BitBtn2: TBitBtn
Left = 361 Left = 580
Top = 37 Top = 37
Width = 90 Width = 90
Height = 25 Height = 25
@ -258,9 +260,7 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
end end
object actAnadirSubcuenta: TAction object actAnadirSubcuenta: TAction
Caption = 'A'#241'adir subcuenta' Caption = 'A'#241'adir subcuenta'
Enabled = False
ImageIndex = 5 ImageIndex = 5
Visible = False
OnExecute = actAnadirSubcuentaExecute OnExecute = actAnadirSubcuentaExecute
OnUpdate = actAnadirSubcuentaUpdate OnUpdate = actAnadirSubcuentaUpdate
end end

5
Source/Modulos/Contactos/Views/uViewSubCuentaContacto.pas
View File

@ -84,9 +84,8 @@ end;
procedure TfrViewSubCuentaContacto.actAnadirSubcuentaUpdate(Sender: TObject); procedure TfrViewSubCuentaContacto.actAnadirSubcuentaUpdate(Sender: TObject);
begin begin
inherited; inherited;
(Sender as TAction).Enabled := False; (Sender as TAction).Enabled := (not (cbIgnorarContabilidad.Checked))
// (Sender as TAction).Enabled := (not (cbIgnorarContabilidad.Checked)) and (DADataSource.DataTable.IsEmpty);
// and (DADataSource.DataTable.IsEmpty);
end; end;
procedure TfrViewSubCuentaContacto.actElegirSubCuentaExecute(Sender: TObject); procedure TfrViewSubCuentaContacto.actElegirSubCuentaExecute(Sender: TObject);

6
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,4 +1,4 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup> <PropertyGroup>
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid> <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
@ -29,6 +29,10 @@
<Borland.ProjectType /> <Borland.ProjectType />
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">0</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.1.0.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.1.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 25 de marzo de 2008 19:25</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">0</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.1.0.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.1.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 25 de marzo de 2008 19:25</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages> <Excluded_Packages Name="C:\Archivos de programa\RemObjects Software\Pascal Script\Dcu\D10\PascalScript_RO_D10.bpl">RemObjects Pascal Script - RemObjects SDK 3.0 Integration</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>