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

Cambios de .where por dynamicwhere, faltan dos por ser más complejos y ser de remesas no se tocan

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@142 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2007-11-18 17:23:37 +00:00
parent 637920c2a7
commit c5014e11f1
25 changed files with 683 additions and 517 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

98
Source/Base/Base.dproj
View File

@ -60,55 +60,55 @@
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Cliente\DataAbstract_Core_D10.dcp" /> <DCCReference Include="..\Cliente\DataAbstract_Core_D10.dcp" />
<DCCReference Include="..\Cliente\RemObjects_Core_D10.dcp" /> <DCCReference Include="..\Cliente\RemObjects_Core_D10.dcp" />
<DCCReference Include="..\Modulos\Contactos\adortl.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxDataD10.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\cxDataD10.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxEditorsD10.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\cxEditorsD10.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxExportD10.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\cxExportD10.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxExtEditorsD10.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\cxExtEditorsD10.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxGridD10.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\cxGridD10.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxIntl5D10.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\cxIntl5D10.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxIntlPrintSys3D10.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\cxIntlPrintSys3D10.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxLibraryD10.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\cxLibraryD10.dcp" />
<DCCReference Include="..\Modulos\Contactos\cxPageControlD10.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\cxPageControlD10.dcp" />
<DCCReference Include="..\Modulos\Contactos\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\dbrtl.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\dclIndyCore.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Contactos\designide.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Contactos\dsnap.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxPSCoreD10.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\dxPSCoreD10.dcp" />
<DCCReference Include="..\Modulos\Contactos\dxThemeD10.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\dxThemeD10.dcp" />
<DCCReference Include="..\Modulos\Contactos\GUISDK_D11.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\GUISDK_D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\IndyCore.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Contactos\IndyProtocols.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Contactos\IndySystem.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Contactos\Jcl.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\JclVcl.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\JSDialog100.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvCmpD11R.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvCoreD11R.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvDlgsD11R.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvMMD11R.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvNetD11R.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvPageCompsD11R.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvSystemD11R.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\pckMD5.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Contactos\pckUCDataConnector.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Contactos\pckUserControl_RT.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Contactos\PngComponentsD10.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Contactos\PNG_D10.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Contactos\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Contactos\rtl.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\TB2k_D10.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Contactos\tbx_d10.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcl.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Contactos\vclactnband.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcldb.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcljpg.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Contactos\VclSmp.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Contactos\vclx.dcp" /> <DCCReference Include="..\Modulos\Recibos de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Contactos\xmlrtl.dcp" /> <DCCReference Include="..\Modulos\Recibos 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>

1
Source/Cliente/FactuGES.dpr
View File

@ -1,7 +1,6 @@
program FactuGES; program FactuGES;
uses uses
ExceptionLog,
Forms, Forms,
Windows, Windows,
SysUtils, SysUtils,

12
Source/Cliente/FactuGES.dproj
View File

@ -45,7 +45,7 @@
<DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_ResourcePath> <DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_ResourcePath>
<DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_ObjPath> <DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_ObjPath>
<DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_IncludePath> <DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10;T:\COMPON~1\jcl\lib\d11\debug;$(BDSCOMMONDIR)\Dcp;..\Lib;..\Modulos\Lib</DCC_IncludePath>
<DCC_Define>DEBUG;EUREKALOG;EUREKALOG_VER6</DCC_Define> <DCC_Define>DEBUG;</DCC_Define>
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe> <DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
<DCC_DebugVN>True</DCC_DebugVN> <DCC_DebugVN>True</DCC_DebugVN>
</PropertyGroup> </PropertyGroup>
@ -58,6 +58,14 @@
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\PluginSDK_D10R.bpl">PluginSDK for Delphi 10 (Runtime)</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\PluginSDK_D10R.bpl">PluginSDK for Delphi 10 (Runtime)</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
@ -87,7 +95,7 @@
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6006 EurekaLog Version=6006
Activate=1 Activate=0
Activate Handle=1 Activate Handle=1
Save Log File=1 Save Log File=1
Foreground Tab=0 Foreground Tab=0

23
Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
View File

@ -833,19 +833,26 @@ begin
end; end;
procedure TAlbaranesClienteController.FiltrarEmpresa(AAlbaran: IBizAlbaranCliente); procedure TAlbaranesClienteController.FiltrarEmpresa(AAlbaran: IBizAlbaranCliente);
var
Condicion: TDAWhereExpression;
begin begin
if AAlbaran.DataTable.Active then if AAlbaran.DataTable.Active then
AAlbaran.DataTable.Active := False; AAlbaran.DataTable.Active := False;
// Filtrar los albaranes actuales por empresa // Filtrar los presupuestos actuales por empresa
{ with AContacto.DataTable.DynamicWhere do with AAlbaran.DataTable.DynamicWhere do
begin begin
Clear; // (ID_EMPRESA >= ID)
// (ID = :ID) Condicion := NewBinaryExpression(NewField('', fld_AlbaranesClienteID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual);
Expression := NewBinaryExpression(NewField('', fld_AlbaranesClienteID_EMPRESA),
NewConstant(dmUsuarios.IDEmpresaActual, datInteger), dboEqual); if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end; end;
}
if AAlbaran.DataTable.Active then
AAlbaran.DataTable.Active := False;
end; end;
procedure TAlbaranesClienteController.SetClienteController(const Value: IClientesController); procedure TAlbaranesClienteController.SetClienteController(const Value: IClientesController);

22
Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.rc
View File

@ -0,0 +1,22 @@
1 VERSIONINFO
FILEVERSION 1,0,0,0
PRODUCTVERSION 1,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
FILETYPE 0x1L
FILESUBTYPE 0x0L
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x0C0A, 1252
END
END

BIN
Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.res
View File

Binary file not shown.

2
Source/Modulos/Albaranes de cliente/Plugin/uPluginAlbaranesCliente.dfm
View File

@ -275,7 +275,7 @@ object PluginAlbaranesCliente: TPluginAlbaranesCliente
Action = actAlbaranesCliente Action = actAlbaranesCliente
end end
object Ordenesdedevolucin1: TMenuItem object Ordenesdedevolucin1: TMenuItem
Tag = 104 Tag = 105
Action = actAlbaranesDevCliente Action = actAlbaranesDevCliente
end end
end end

21
Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas
View File

@ -895,19 +895,24 @@ begin
Result := ASeleccionados; Result := ASeleccionados;
end; end;
procedure TAlbaranesProveedorController.FiltrarEmpresa( procedure TAlbaranesProveedorController.FiltrarEmpresa(AAlbaran: IBizAlbaranProveedor);
AAlbaran: IBizAlbaranProveedor); var
Condicion: TDAWhereExpression;
begin begin
if AAlbaran.DataTable.Active then if AAlbaran.DataTable.Active then
AAlbaran.DataTable.Active := False; AAlbaran.DataTable.Active := False;
// Filtrar los presupuestos actuales por empresa // Filtrar los presupuestos actuales por empresa
// with AAlbaran.DataTable.Where do with AAlbaran.DataTable.DynamicWhere do
// begin begin
// if NotEmpty then // (ID_EMPRESA >= ID)
// AddOperator(opAND); Condicion := NewBinaryExpression(NewField('', fld_AlbaranesProveedorID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual);
// AddCondition(fld_AlbaranesProveedorID_EMPRESA, cEqual, dmUsuarios.IDEmpresaActual);
// end; if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
end; end;
procedure TAlbaranesProveedorController.SetProveedorController(const Value: IProveedoresController); procedure TAlbaranesProveedorController.SetProveedorController(const Value: IProveedoresController);

22
Source/Modulos/Almacenes/Controller/uAlmacenesController.pas
View File

@ -341,21 +341,23 @@ begin
end; end;
procedure TAlmacenesController.FiltrarEmpresa(AAlmacen: IBizAlmacen); procedure TAlmacenesController.FiltrarEmpresa(AAlmacen: IBizAlmacen);
var
Condicion: TDAWhereExpression;
begin begin
if AAlmacen.DataTable.Active then if AAlmacen.DataTable.Active then
AAlmacen.DataTable.Active := False; AAlmacen.DataTable.Active := False;
{
// Filtrar los Almacenes actuales por empresa
with AAlmacen.DataTable.Where do
begin
if NotEmpty then
AddOperator(opAND);
OpenBraket; // Filtrar los Almacenes actuales por empresa
AddText('ALMACENES.' + fld_AlmacenesID_EMPRESA + ' = ' + IntToStr(dmUsuarios.IDEmpresaActual)); with AAlmacen.DataTable.DynamicWhere do
CloseBraket; begin
// (ID_EMPRESA >= ID)
Condicion := NewBinaryExpression(NewField('', fld_AlmacenesID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end; end;
}
end; end;
function TAlmacenesController.Guardar(AAlmacen: IBizAlmacen): Boolean; function TAlmacenesController.Guardar(AAlmacen: IBizAlmacen): Boolean;

89
Source/Modulos/Articulos/Controller/uArticulosController.pas
View File

@ -143,24 +143,33 @@ begin
end; end;
function TArticulosController.BuscarInventariables: IBizArticulo; function TArticulosController.BuscarInventariables: IBizArticulo;
var
Condicion: TDAWhereExpression;
begin begin
ShowHourglassCursor; ShowHourglassCursor;
try try
Result := BuscarTodos; Result := BuscarTodos;
with Result.DataTable.Where do
// Filtrar los articulos inventariables
with Result.DataTable.DynamicWhere do
begin begin
if NotEmpty then // (ID_EMPRESA >= ID)
AddOperator(opAND); Condicion := NewBinaryExpression(NewField('', fld_ArticulosINVENTARIABLE), NewConstant(1, datInteger), dboEqual);
OpenBraket;
AddText('V_ARTICULOS.' + fld_ArticulosINVENTARIABLE + ' = 1'); if IsEmpty then
CloseBraket; Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end; end;
finally finally
HideHourglassCursor; HideHourglassCursor;
end; end;
end; end;
function TArticulosController.BuscarReferencia(const Ref: String; AClienteID: Integer = -1): IBizArticulo; function TArticulosController.BuscarReferencia(const Ref: String; AClienteID: Integer = -1): IBizArticulo;
var
Condicion: TDAWhereExpression;
begin begin
ShowHourglassCursor; ShowHourglassCursor;
try try
@ -169,20 +178,26 @@ begin
else else
Result := BuscarTodos(AClienteID); Result := BuscarTodos(AClienteID);
with Result.DataTable.Where do // Filtrar por referencia
with Result.DataTable.DynamicWhere do
begin begin
if NotEmpty then // (REFERENCIA >= Ref)
AddOperator(opAND); Condicion := NewBinaryExpression(NewField('', fld_ArticulosREFERENCIA), NewConstant(UpperCase(Ref), datString), dboEqual);
OpenBraket;
AddText('UPPER(V_ARTICULOS.' + fld_ArticulosREFERENCIA + ') = UPPER(''' + Ref + ''')'); if IsEmpty then
CloseBraket; Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end; end;
finally finally
HideHourglassCursor; HideHourglassCursor;
end; end;
end; end;
function TArticulosController.BuscarReferenciaProveedor(const Ref: String; AClienteID: Integer = -1): IBizArticulo; function TArticulosController.BuscarReferenciaProveedor(const Ref: String; AClienteID: Integer = -1): IBizArticulo;
var
Condicion: TDAWhereExpression;
begin begin
ShowHourglassCursor; ShowHourglassCursor;
try try
@ -191,14 +206,18 @@ begin
else else
Result := BuscarTodos(AClienteID); Result := BuscarTodos(AClienteID);
with Result.DataTable.Where do // Filtrar por referencia
with Result.DataTable.DynamicWhere do
begin begin
if NotEmpty then // (REFERENCIA >= Ref)
AddOperator(opAND); Condicion := NewBinaryExpression(NewField('', fld_ArticulosREFERENCIA_PROV), NewConstant(UpperCase(Ref), datString), dboEqual);
OpenBraket;
AddText('UPPER(V_ARTICULOS.' + fld_ArticulosREFERENCIA_PROV + ') = UPPER(''' + Ref + ''')'); if IsEmpty then
CloseBraket; Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end; end;
finally finally
HideHourglassCursor; HideHourglassCursor;
end; end;
@ -219,19 +238,25 @@ begin
end; end;
function TArticulosController.BuscarTodos(AProveedor: IBizProveedor): IBizArticulo; function TArticulosController.BuscarTodos(AProveedor: IBizProveedor): IBizArticulo;
var
Condicion: TDAWhereExpression;
begin begin
if Assigned(AProveedor) then if Assigned(AProveedor) then
begin begin
ShowHourglassCursor; ShowHourglassCursor;
try try
Result := BuscarTodos; Result := BuscarTodos;
with Result.DataTable.Where do
// Filtrar los articulos del proveedor
with Result.DataTable.DynamicWhere do
begin begin
if NotEmpty then // (ID_PROVEEDOR = ID)
AddOperator(opAND); Condicion := NewBinaryExpression(NewField('', fld_ArticulosID_PROVEEDOR), NewConstant(AProveedor.ID, datInteger), dboEqual);
OpenBraket;
AddText('V_ARTICULOS.' + fld_ArticulosID_PROVEEDOR + ' = ' + IntToStr(AProveedor.ID)); if IsEmpty then
CloseBraket; Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end; end;
finally finally
HideHourglassCursor; HideHourglassCursor;
@ -536,21 +561,23 @@ begin
end; end;
procedure TArticulosController.FiltrarEmpresa(AArticulo: IBizArticulo); procedure TArticulosController.FiltrarEmpresa(AArticulo: IBizArticulo);
var
Condicion: TDAWhereExpression;
begin begin
if AArticulo.DataTable.Active then if AArticulo.DataTable.Active then
AArticulo.DataTable.Active := False; AArticulo.DataTable.Active := False;
// Filtrar los Articulos actuales por empresa // Filtrar los Articulos actuales por empresa
{ with AArticulo.DataTable.Where do with AArticulo.DataTable.DynamicWhere do
begin begin
if NotEmpty then // (ID_EMPRESA >= ID)
AddOperator(opAND); Condicion := NewBinaryExpression(NewField('', fld_ArticulosID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual);
OpenBraket; if IsEmpty then
// AddText('V_ARTICULOS.' + fld_ArticulosID_EMPRESA + ' = ' + IntToStr(dmUsuarios.IDEmpresaActual)); Expression := Condicion
CloseBraket; else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end; end;
}
end; end;
function TArticulosController.GetProveedoresController: IProveedoresController; function TArticulosController.GetProveedoresController: IProveedoresController;

77
Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
View File

@ -411,40 +411,54 @@ begin
end; end;
function TFacturasClienteController.BuscarTodasPendientesComision(IdAgente:Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaCliente; function TFacturasClienteController.BuscarTodasPendientesComision(IdAgente:Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaCliente;
var
Condicion: TDAWhereExpression;
begin begin
ShowHourglassCursor; ShowHourglassCursor;
try try
Result := BuscarTodos; Result := BuscarTodos;
with Result.DataTable.Where do with Result.DataTable.DynamicWhere do
begin begin
if NotEmpty then
AddOperator(opAND);
//Todas las facturas de un agente determinado //Todas las facturas de un agente determinado
OpenBraket; Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteID_AGENTE), NewConstant(IdAgente, datInteger), dboEqual);
AddText(fld_FacturasClienteID_AGENTE + ' = ' + IntToStr(IdAgente));
CloseBraket;
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
with Result.DataTable.DynamicWhere do
begin
//Todas aquellas que no esten asociadas a ninguna comisión o asociadas a la comisión, //Todas aquellas que no esten asociadas a ninguna comisión o asociadas a la comisión,
//pero no asociadas en el editor de la comision, esto es porque se puede agregar y quitar //pero no asociadas en el editor de la comision, esto es porque se puede agregar y quitar
//facturas y todos los cambios estan el cache y por lo tanto al pedir las facturas a seleccionar //facturas y todos los cambios estan el cache y por lo tanto al pedir las facturas a seleccionar
//debemos tener en cuenta dichso cambios en cache //debemos tener en cuenta dichso cambios en cache
AddOperator(opAND); Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteID_COMISION_LIQUIDADA), NewNull(), dboEqual);
OpenBraket;
OpenBraket;
//En el caso de ser facturas sin asociar
OpenBraket;
AddText(fld_FacturasClienteID_COMISION_LIQUIDADA + ' IS NULL ');
CloseBraket;
//Quitamos aquellas que ya están asociadas
if length(IdFacturasAsociadas) > 0 then
begin
AddOperator(opAND);
OpenBraket;
AddText(fld_FacturasClienteID + ' not in (' + IdFacturasAsociadas + ')');
CloseBraket;
end;
CloseBraket;
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
{REPASARRRRRRR
//Quitamos aquellas que ya están asociadas
if length(IdFacturasAsociadas) > 0 then
with Result.DataTable.DynamicWhere do
begin
Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteID), ' not in (' + IdFacturasAsociadas + ')');, dboEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
with Result.DataTable.Where do
begin
CLOSEBraket;
AddOperator(opOR); AddOperator(opOR);
OpenBraket; OpenBraket;
@ -465,10 +479,10 @@ begin
CloseBraket; CloseBraket;
end; end;
}
finally finally
HideHourglassCursor; HideHourglassCursor;
end; end;
// showmessage(Result.DataTable.Where.Clause);
end; end;
function TFacturasClienteController.BuscarTodos: IBizFacturaCliente; function TFacturasClienteController.BuscarTodos: IBizFacturaCliente;
@ -833,18 +847,23 @@ begin
end; end;
procedure TFacturasClienteController.FiltrarEmpresa(AFactura: IBizFacturaCliente); procedure TFacturasClienteController.FiltrarEmpresa(AFactura: IBizFacturaCliente);
var
Condicion: TDAWhereExpression;
begin begin
if AFactura.DataTable.Active then if AFactura.DataTable.Active then
AFactura.DataTable.Active := False; AFactura.DataTable.Active := False;
{
// Filtrar las facturas actuales por empresa // Filtrar las facturas actuales por empresa
with AFactura.DataTable.Where do with AFactura.DataTable.DynamicWhere do
begin begin
if NotEmpty then // (ID_EMPRESA >= ID)
AddOperator(opAND); Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual);
// AddCondition(fld_FacturasClienteID_EMPRESA, cEqual, dmUsuarios.IDEmpresaActual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end; end;
}
end; end;
procedure TFacturasClienteController.SetClienteController(const Value: IClientesController); procedure TFacturasClienteController.SetClienteController(const Value: IClientesController);

2
Source/Modulos/Facturas de cliente/Plugin/uPluginFacturasCliente.dfm
View File

@ -65,7 +65,7 @@ object PluginFacturasCliente: TPluginFacturasCliente
Caption = '-' Caption = '-'
end end
object Facturasdecliente1: TMenuItem object Facturasdecliente1: TMenuItem
Tag = 105 Tag = 106
Action = actFacturasCliente Action = actFacturasCliente
end end
end end

18
Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
View File

@ -415,7 +415,7 @@ begin
FiltrarEmpresa(Result); FiltrarEmpresa(Result);
end; end;
{ {REPASARRRRR
function TFacturasProveedorController.BuscarTodasPendientesComision(IdAgente:Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaProveedor; function TFacturasProveedorController.BuscarTodasPendientesComision(IdAgente:Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaProveedor;
begin begin
ShowHourglassCursor; ShowHourglassCursor;
@ -474,7 +474,6 @@ begin
finally finally
HideHourglassCursor; HideHourglassCursor;
end; end;
// showmessage(Result.DataTable.Where.Clause);
end; end;
} }
@ -838,18 +837,23 @@ begin
end; end;
procedure TFacturasProveedorController.FiltrarEmpresa(AFactura: IBizFacturaProveedor); procedure TFacturasProveedorController.FiltrarEmpresa(AFactura: IBizFacturaProveedor);
var
Condicion: TDAWhereExpression;
begin begin
if AFactura.DataTable.Active then if AFactura.DataTable.Active then
AFactura.DataTable.Active := False; AFactura.DataTable.Active := False;
// Filtrar las facturas actuales por empresa // Filtrar las facturas actuales por empresa
{ with AFactura.DataTable.Where do with AFactura.DataTable.DynamicWhere do
begin begin
if NotEmpty then // (ID_EMPRESA >= ID)
AddOperator(opAND); Condicion := NewBinaryExpression(NewField('', fld_FacturasProveedorID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual);
AddCondition(fld_FacturasProveedorID_EMPRESA, cEqual, dmUsuarios.IDEmpresaActual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end; end;
}
end; end;
procedure TFacturasProveedorController.SetProveedorController(const Value: IProveedoresController); procedure TFacturasProveedorController.SetProveedorController(const Value: IProveedoresController);

15
Source/Modulos/Historico de movimientos/Controller/uHistoricoMovimientosController.pas
View File

@ -181,19 +181,22 @@ begin
end; end;
procedure THistoricoMovimientosController.FiltrarEmpresa(AHistoricoMovimientos: IBizHistoricoMovimientos); procedure THistoricoMovimientosController.FiltrarEmpresa(AHistoricoMovimientos: IBizHistoricoMovimientos);
var
Condicion: TDAWhereExpression;
begin begin
if AHistoricoMovimientos.DataTable.Active then if AHistoricoMovimientos.DataTable.Active then
AHistoricoMovimientos.DataTable.Active := False; AHistoricoMovimientos.DataTable.Active := False;
// Filtrar los HistoricoMovimientos actuales por empresa // Filtrar los HistoricoMovimientos actuales por empresa
with AHistoricoMovimientos.DataTable.Where do with AAlbaran.DataTable.DynamicWhere do
begin begin
if NotEmpty then // (ID_EMPRESA >= ID)
AddOperator(opAND); Condicion := NewBinaryExpression(NewField('', fld_Historico_MovimientosID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual);
OpenBraket; if IsEmpty then
AddText(fld_Historico_MovimientosID_EMPRESA + ' = ' + IntToStr(AppFactuGES.EmpresaActiva.ID)); Expression := Condicion
CloseBraket; else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end; end;
end; end;

30
Source/Modulos/Inventario/Controller/uInventarioController.pas
View File

@ -372,19 +372,22 @@ begin
end; end;
procedure TInventarioController.FiltrarEmpresa(ADetalleReservas: IBizDetalleReservas); procedure TInventarioController.FiltrarEmpresa(ADetalleReservas: IBizDetalleReservas);
var
Condicion: TDAWhereExpression;
begin begin
if ADetalleReservas.DataTable.Active then if ADetalleReservas.DataTable.Active then
ADetalleReservas.DataTable.Active := False; ADetalleReservas.DataTable.Active := False;
// Filtrar los inventario actuales por empresa // Filtrar los inventario actuales por empresa
with ADetalleReservas.DataTable.Where do with ADetalleReservas.DataTable.DynamicWhere do
begin begin
if NotEmpty then // (ID_EMPRESA >= ID)
AddOperator(opAND); Condicion := NewBinaryExpression(NewField('', fld_DETALLE_RESERVAS_INVID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual);
OpenBraket; if IsEmpty then
AddText(fld_DETALLE_RESERVAS_INVID_EMPRESA + ' = ' + IntToStr(AppFactuGES.EmpresaActiva.ID)); Expression := Condicion
CloseBraket; else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end; end;
end; end;
@ -888,19 +891,22 @@ end;
} }
procedure TInventarioController.FiltrarEmpresa(AInventario: IBizInventario); procedure TInventarioController.FiltrarEmpresa(AInventario: IBizInventario);
var
Condicion: TDAWhereExpression;
begin begin
if AInventario.DataTable.Active then if AInventario.DataTable.Active then
AInventario.DataTable.Active := False; AInventario.DataTable.Active := False;
// Filtrar los inventario actuales por empresa // Filtrar los inventario actuales por empresa
with AInventario.DataTable.Where do with AAlbaran.DataTable.DynamicWhere do
begin begin
if NotEmpty then // (ID_EMPRESA >= ID)
AddOperator(opAND); Condicion := NewBinaryExpression(NewField('', fld_InventarioID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual);
OpenBraket; if IsEmpty then
AddText(fld_InventarioID_EMPRESA + ' = ' + IntToStr(AppFactuGES.EmpresaActiva.ID)); Expression := Condicion
CloseBraket; else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end; end;
end; end;

37
Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas
View File

@ -141,17 +141,23 @@ begin
end; end;
function TPedidosProveedorController.BuscarPendientesRecepcion: IBizPedidoProveedor; function TPedidosProveedorController.BuscarPendientesRecepcion: IBizPedidoProveedor;
var
Condicion: TDAWhereExpression;
begin begin
ShowHourglassCursor; ShowHourglassCursor;
try try
Result := BuscarTodos; Result := BuscarTodos;
with Result.DataTable.Where do
// Filtrar los pedidos pendientes de recepcion
with Result.DataTable.DynamicWhere do
begin begin
if NotEmpty then // (SITUACION <> RECIBIDO)
AddOperator(opAND); Condicion := NewBinaryExpression(NewField('', fld_PedidosProveedorSITUACION), NewConstant(SITUACION_PEDIDO_RECIBIDO, datString), dboNotEqual);
OpenBraket;
AddText(fld_PedidosProveedorSITUACION + ' <> ''' + SITUACION_PEDIDO_RECIBIDO + ''''); if IsEmpty then
CloseBraket; Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end; end;
finally finally
HideHourglassCursor; HideHourglassCursor;
@ -633,18 +639,23 @@ begin
Result := ASeleccionados; Result := ASeleccionados;
end; end;
procedure TPedidosProveedorController.FiltrarEmpresa( procedure TPedidosProveedorController.FiltrarEmpresa(APedido: IBizPedidoProveedor);
APedido: IBizPedidoProveedor); var
Condicion: TDAWhereExpression;
begin begin
if APedido.DataTable.Active then if APedido.DataTable.Active then
APedido.DataTable.Active := False; APedido.DataTable.Active := False;
// Filtrar los presupuestos actuales por empresa // Filtrar los pedidos actuales por empresa
with APedido.DataTable.Where do with APedido.DataTable.DynamicWhere do
begin begin
if NotEmpty then // (ID_EMPRESA >= ID)
AddOperator(opAND); Condicion := NewBinaryExpression(NewField('', fld_PedidosProveedorID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual);
// AddCondition(fld_PedidosProveedorID_EMPRESA, cEqual, dmUsuarios.IDEmpresaActual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end; end;
end; end;

36
Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
View File

@ -150,17 +150,22 @@ begin
end; end;
function TPresupuestosClienteController.BuscarPendientes: IBizPresupuestoCliente; function TPresupuestosClienteController.BuscarPendientes: IBizPresupuestoCliente;
var
Condicion: TDAWhereExpression;
begin begin
ShowHourglassCursor; ShowHourglassCursor;
try try
Result := BuscarTodos; Result := BuscarTodos;
with Result.DataTable.Where do // Filtrar los presupuesto pendientes de recepcion
with Result.DataTable.DynamicWhere do
begin begin
if NotEmpty then // (SITUACION <> RECIBIDO)
AddOperator(opAND); Condicion := NewBinaryExpression(NewField('', fld_PresupuestosClienteSITUACION), NewConstant(SITUACION_PRESUPUESTO_PENDIENTE, datString), dboNotEqual);
OpenBraket;
AddText(fld_PresupuestosClienteSITUACION + ' = ''' + SITUACION_PRESUPUESTO_PENDIENTE + ''''); if IsEmpty then
CloseBraket; Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end; end;
finally finally
HideHourglassCursor; HideHourglassCursor;
@ -596,19 +601,24 @@ begin
Result := ASeleccionados; Result := ASeleccionados;
end; end;
procedure TPresupuestosClienteController.FiltrarEmpresa( procedure TPresupuestosClienteController.FiltrarEmpresa(APresupuesto: IBizPresupuestoCliente);
APresupuesto: IBizPresupuestoCliente); var
Condicion: TDAWhereExpression;
begin begin
if APresupuesto.DataTable.Active then if APresupuesto.DataTable.Active then
APresupuesto.DataTable.Active := False; APresupuesto.DataTable.Active := False;
{ with APresupuesto.DataTable.Where do // Filtrar los presupuestos actuales por empresa
with APresupuesto.DataTable.DynamicWhere do
begin begin
if NotEmpty then // (ID_EMPRESA >= ID)
AddOperator(opAND); Condicion := NewBinaryExpression(NewField('', fld_PresupuestosClienteID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual);
AddCondition(fld_PresupuestosClienteID_EMPRESA, cEqual, dmUsuarios.IDEmpresaActual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end; end;
}
end; end;
procedure TPresupuestosClienteController.SetClienteController(const Value: IClientesController); procedure TPresupuestosClienteController.SetClienteController(const Value: IClientesController);

77
Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas
View File

@ -82,6 +82,9 @@ type
private private
function ImporteTotalModificado(ARecibosCliente: IBizRecibosCliente; function ImporteTotalModificado(ARecibosCliente: IBizRecibosCliente;
var ImporteRestante: Currency): Boolean; var ImporteRestante: Currency): Boolean;
procedure FiltrarEmpresa(ARecibo: IBizRecibosCliente);
protected protected
FDataModule : IDataModuleRecibosCliente; FDataModule : IDataModuleRecibosCliente;
FPagosController : IPagosClienteController; FPagosController : IPagosClienteController;
@ -241,6 +244,7 @@ end;
function TRecibosClienteController.BuscarTodos: IBizRecibosCliente; function TRecibosClienteController.BuscarTodos: IBizRecibosCliente;
begin begin
Result := FDataModule.GetItems; Result := FDataModule.GetItems;
FiltrarEmpresa(Result);
end; end;
function TRecibosClienteController.BuscarRecibosACompensar(const Recibo: IBizRecibosCliente): IBizRecibosCliente; function TRecibosClienteController.BuscarRecibosACompensar(const Recibo: IBizRecibosCliente): IBizRecibosCliente;
@ -315,6 +319,7 @@ end;
function TRecibosClienteController.Buscar(const ID: Integer): IBizRecibosCliente; function TRecibosClienteController.Buscar(const ID: Integer): IBizRecibosCliente;
begin begin
Result := (FDataModule as IDataModuleRecibosCliente).GetItem(ID); Result := (FDataModule as IDataModuleRecibosCliente).GetItem(ID);
FiltrarEmpresa(Result);
end; end;
function TRecibosClienteController.BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosCliente; function TRecibosClienteController.BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosCliente;
@ -342,24 +347,33 @@ begin
end; end;
function TRecibosClienteController.BuscarRecibosARemesar: IBizRecibosCliente; function TRecibosClienteController.BuscarRecibosARemesar: IBizRecibosCliente;
var
Condicion: TDAWhereExpression;
begin begin
ShowHourglassCursor; ShowHourglassCursor;
try try
Result := BuscarTodos; Result := BuscarTodos;
with Result.DataTable.Where do
begin
if NotEmpty then
AddOperator(opAND);
//Omitimos los recibos compensados with Result.DataTable.DynamicWhere do
OpenBraket; begin
AddText(fld_RecibosClienteID_RECIBO_COMPENSADO + ' IS NULL '); //No podrá compensarse un recibo ya compensado
CloseBraket; Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteID_RECIBO_COMPENSADO), NewNull(), dboEqual);
AddOperator(opAND);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
with Result.DataTable.DynamicWhere do
begin
//Solo dejaremos remesar aquellos recibos que no esten cobrados (Pendientes/Devueltos) //Solo dejaremos remesar aquellos recibos que no esten cobrados (Pendientes/Devueltos)
OpenBraket; Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteSITUACION), NewConstant(CTE_COBRADO, datString), dboNotEqual);
AddText(fld_RecibosClienteSITUACION + ' <> ''' + CTE_COBRADO + '''');
CloseBraket; if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end; end;
finally finally
HideHourglassCursor; HideHourglassCursor;
@ -367,18 +381,25 @@ begin
end; end;
function TRecibosClienteController.BuscarRecibosRemesa(const ID_REMESA: Integer): IBizRecibosCliente; function TRecibosClienteController.BuscarRecibosRemesa(const ID_REMESA: Integer): IBizRecibosCliente;
var
Condicion: TDAWhereExpression;
begin begin
ShowHourglassCursor; ShowHourglassCursor;
try try
Result := BuscarTodos; Result := BuscarTodos;
with Result.DataTable.Where do
// Filtrar los recibos de una remesa determinada
with Result.DataTable.DynamicWhere do
begin begin
if NotEmpty then // (ID_REMESA >= ID)
AddOperator(opAND); Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteID_REMESA), NewConstant(ID_REMESA, datInteger), dboEqual);
OpenBraket;
AddText(fld_RecibosClienteID_REMESA + ' = ' + IntToStr(ID_REMESA)); if IsEmpty then
CloseBraket; Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end; end;
finally finally
HideHourglassCursor; HideHourglassCursor;
end; end;
@ -803,6 +824,26 @@ begin
Result := ASeleccionados; Result := ASeleccionados;
end; end;
procedure TRecibosClienteController.FiltrarEmpresa(ARecibo: IBizRecibosCliente);
var
Condicion: TDAWhereExpression;
begin
if ARecibo.DataTable.Active then
ARecibo.DataTable.Active := False;
// Filtrar los recibos actuales por empresa
with ARecibo.DataTable.DynamicWhere do
begin
// (ID_EMPRESA >= ID)
Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
end;
procedure TRecibosClienteController.Preview(ARecibosCliente: IBizRecibosCliente; AllItems: Boolean = false); procedure TRecibosClienteController.Preview(ARecibosCliente: IBizRecibosCliente; AllItems: Boolean = false);
var var
AReportController : IRecibosClienteReportController; AReportController : IRecibosClienteReportController;

51
Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.dproj
View File

@ -40,57 +40,17 @@
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject> <Delphi.Personality> <Parameters> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</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.0.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.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">RecibosProveedor_controller.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<Parameters Name="UseLauncher">False</Parameters>
<Parameters Name="LoadAllSymbols">True</Parameters>
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
</Parameters>
<Package_Options>
<Package_Options Name="ImplicitBuild">True</Package_Options>
<Package_Options Name="DesigntimeOnly">False</Package_Options>
<Package_Options Name="RuntimeOnly">False</Package_Options>
</Package_Options>
<VersionInfo>
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
<VersionInfo Name="MajorVer">1</VersionInfo>
<VersionInfo Name="MinorVer">0</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.0.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.0.0.0</VersionInfoKeys>
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
</VersionInfoKeys>
<Source>
<Source Name="MainSource">RecibosProveedor_controller.dpk</Source>
</Source>
</Delphi.Personality> </BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup> <ItemGroup>
<DelphiCompile Include="RecibosProveedor_controller.dpk"> <DelphiCompile Include="RecibosProveedor_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Lib\Base.dcp" /> <DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\..\Lib\Contactos_controller.dcp" /> <DCCReference Include="..\Contactos_controller.dcp" />
<DCCReference Include="..\..\Lib\RecibosProveedor_data.dcp" /> <DCCReference Include="..\RecibosProveedor_data.dcp" />
<DCCReference Include="..\..\Lib\RecibosProveedor_model.dcp" /> <DCCReference Include="..\RecibosProveedor_model.dcp" />
<DCCReference Include="uPagosProveedorController.pas" /> <DCCReference Include="uPagosProveedorController.pas" />
<DCCReference Include="uRecibosProveedorController.pas" /> <DCCReference Include="uRecibosProveedorController.pas" />
<DCCReference Include="uRecibosProveedorReportController.pas" /> <DCCReference Include="uRecibosProveedorReportController.pas" />
@ -101,7 +61,6 @@
<DCCReference Include="View\uIEditorRecibosProveedorPreview.pas" /> <DCCReference Include="View\uIEditorRecibosProveedorPreview.pas" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]
EurekaLog Version=6006 EurekaLog Version=6006

169
Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas
View File

@ -77,6 +77,9 @@ type
private private
function ImporteTotalModificado(ARecibosProveedor: IBizRecibosProveedor; function ImporteTotalModificado(ARecibosProveedor: IBizRecibosProveedor;
var ImporteRestante: Currency): Boolean; var ImporteRestante: Currency): Boolean;
procedure FiltrarEmpresa(ARecibo: IBizRecibosProveedor);
protected protected
FDataModule : IDataModuleRecibosProveedor; FDataModule : IDataModuleRecibosProveedor;
FPagosController : IPagosProveedorController; FPagosController : IPagosProveedorController;
@ -89,7 +92,6 @@ type
function ValidarReciboProveedor(ARecibosProveedor: IBizRecibosProveedor): Boolean; function ValidarReciboProveedor(ARecibosProveedor: IBizRecibosProveedor): Boolean;
procedure AsignarDataModule; procedure AsignarDataModule;
procedure AsignarID(ARecibosProveedor: IBizRecibosProveedor; const IDNuevo: Integer);
function DarNuevaReferencia(ID_FACTURA : Integer; REFERENCIA: String): String; function DarNuevaReferencia(ID_FACTURA : Integer; REFERENCIA: String): String;
public public
@ -196,29 +198,6 @@ begin
FDataModule := TDataModuleRecibosProveedor.Create(Nil); FDataModule := TDataModuleRecibosProveedor.Create(Nil);
end; end;
procedure TRecibosProveedorController.AsignarID(ARecibosProveedor: IBizRecibosProveedor;
const IDNuevo: Integer);
var
AContador : Integer;
begin
if not Assigned(ARecibosProveedor) then
raise Exception.Create ('IBizRecibosProveedor no asignado');
if not Assigned(ARecibosProveedor.Pagos) then
raise Exception.Create ('Pagos del recibo no asignados');
if not Assigned(FPagosController) then
raise Exception.Create ('Controller pagos no asignado');
//Lo haremos siempre para actualizar siempre la referencia del recibo
// if ARecibosProveedor.EsNuevo then
// begin
ARecibosProveedor.Edit;
ARecibosProveedor.DESCRIPCION := 'RECIBO ' + ARecibosProveedor.REFERENCIA + ' - ' + CifraToLetras((ARecibosProveedor.IMPORTE + ARecibosProveedor.OTROS_GASTOS));
ARecibosProveedor.Post;
// end;
end;
procedure TRecibosProveedorController.AsignarRemesa(ARecibos: IBizRecibosProveedor; ID_REMESA: Integer); procedure TRecibosProveedorController.AsignarRemesa(ARecibos: IBizRecibosProveedor; ID_REMESA: Integer);
begin begin
if Assigned(ARecibos) then if Assigned(ARecibos) then
@ -235,7 +214,6 @@ begin
//para que asigne un ID nuevo para el pago, porque aqui si hay maestro-detalle //para que asigne un ID nuevo para el pago, porque aqui si hay maestro-detalle
AnadirPago(ARecibos, DateToStr(Date)); //->Ojo el orden es importante AnadirPago(ARecibos, DateToStr(Date)); //->Ojo el orden es importante
ARecibos.ID_REMESA := ID_REMESA; ARecibos.ID_REMESA := ID_REMESA;
AsignarID(ARecibos, ARecibos.ID);
end; end;
Next; Next;
end; end;
@ -246,6 +224,7 @@ end;
function TRecibosProveedorController.BuscarTodos: IBizRecibosProveedor; function TRecibosProveedorController.BuscarTodos: IBizRecibosProveedor;
begin begin
Result := FDataModule.GetItems; Result := FDataModule.GetItems;
FiltrarEmpresa(Result);
end; end;
constructor TRecibosProveedorController.Create; constructor TRecibosProveedorController.Create;
@ -260,20 +239,26 @@ end;
function TRecibosProveedorController.Buscar(const ID: Integer): IBizRecibosProveedor; function TRecibosProveedorController.Buscar(const ID: Integer): IBizRecibosProveedor;
begin begin
Result := (FDataModule as IDataModuleRecibosProveedor).GetItem(ID); Result := (FDataModule as IDataModuleRecibosProveedor).GetItem(ID);
FiltrarEmpresa(Result);
end; end;
function TRecibosProveedorController.BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosProveedor; function TRecibosProveedorController.BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosProveedor;
var
Condicion: TDAWhereExpression;
begin begin
ShowHourglassCursor; ShowHourglassCursor;
try try
Result := BuscarTodos; Result := BuscarTodos;
with Result.DataTable.Where do // Filtrar los recibos de una determinada factura
with Result.DataTable.DynamicWhere do
begin begin
if NotEmpty then // (ID_FACTURA = ID_FACTURA)
AddOperator(opAND); Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorID_FACTURA), NewConstant(ID_FACTURA, datInteger), dboEqual);
OpenBraket;
AddText(fld_RecibosProveedorID_FACTURA + ' = ' + IntToStr(ID_FACTURA)); if IsEmpty then
CloseBraket; Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end; end;
finally finally
HideHourglassCursor; HideHourglassCursor;
@ -281,6 +266,8 @@ begin
end; end;
function TRecibosProveedorController.BuscarRecibosACompensar(const Recibo: IBizRecibosProveedor): IBizRecibosProveedor; function TRecibosProveedorController.BuscarRecibosACompensar(const Recibo: IBizRecibosProveedor): IBizRecibosProveedor;
var
Condicion: TDAWhereExpression;
begin begin
if not Assigned(Recibo) then if not Assigned(Recibo) then
raise Exception.Create ('IBizReciboProveedor no asignado (BuscarRecibosACompensar)'); raise Exception.Create ('IBizReciboProveedor no asignado (BuscarRecibosACompensar)');
@ -288,36 +275,49 @@ begin
ShowHourglassCursor; ShowHourglassCursor;
try try
Result := BuscarTodos; Result := BuscarTodos;
with Result.DataTable.Where do
with Result.DataTable.DynamicWhere do
begin begin
if NotEmpty then
AddOperator(opAND);
//No podrá compensarse un recibo a si mismo //No podrá compensarse un recibo a si mismo
OpenBraket; Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorID), NewConstant(Recibo.ID, datInteger), dboNotEqual);
AddText(fld_RecibosProveedorID + ' <> ' + IntToStr(Recibo.ID));
CloseBraket;
AddOperator(opAND); if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
with Result.DataTable.DynamicWhere do
begin
//Solo podrá compensar recibos del mismo proveedor //Solo podrá compensar recibos del mismo proveedor
OpenBraket; Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorID_PROVEEDOR), NewConstant(Recibo.ID_PROVEEDOR, datInteger), dboEqual);
AddText(fld_RecibosProveedorID_PROVEEDOR + ' = ' + IntToStr(Recibo.ID_PROVEEDOR));
CloseBraket;
AddOperator(opAND); if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
with Result.DataTable.DynamicWhere do
begin
//Omitimos los recibos compensados //Omitimos los recibos compensados
OpenBraket; Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorID_RECIBO_COMPENSADO), NewNull(), dboEqual);
AddText(fld_RecibosProveedorID_RECIBO_COMPENSADO + ' IS NULL ');
CloseBraket;
AddOperator(opAND); if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
with Result.DataTable.DynamicWhere do
begin
//Solo dejaremos remesar aquellos recibos que no esten cobrados (Pendientes/Devueltos) //Solo dejaremos remesar aquellos recibos que no esten cobrados (Pendientes/Devueltos)
OpenBraket; Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorSITUACION), NewConstant(CTE_PAGADO, datString), dboNotEqual);
AddText(fld_RecibosProveedorSITUACION + ' <> ''' + CTE_PAGADO + '''');
CloseBraket; if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end; end;
finally finally
HideHourglassCursor; HideHourglassCursor;
@ -325,23 +325,33 @@ begin
end; end;
function TRecibosProveedorController.BuscarRecibosARemesar: IBizRecibosProveedor; function TRecibosProveedorController.BuscarRecibosARemesar: IBizRecibosProveedor;
var
Condicion: TDAWhereExpression;
begin begin
ShowHourglassCursor; ShowHourglassCursor;
try try
Result := BuscarTodos; Result := BuscarTodos;
with Result.DataTable.Where do
with Result.DataTable.DynamicWhere do
begin begin
if NotEmpty then
AddOperator(opAND);
//Omitimos los recibos compensados //Omitimos los recibos compensados
OpenBraket; Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorID_RECIBO_COMPENSADO), NewNull(), dboEqual);
AddText(fld_RecibosProveedorID_RECIBO_COMPENSADO + ' IS NULL ');
CloseBraket; if IsEmpty then
AddOperator(opAND); Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
with Result.DataTable.DynamicWhere do
begin
//Solo dejaremos remesar aquellos recibos que no esten pagados (Pendientes/Devueltos) //Solo dejaremos remesar aquellos recibos que no esten pagados (Pendientes/Devueltos)
OpenBraket; Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorSITUACION), NewConstant(CTE_PAGADO, datString), dboNotEqual);
AddText(fld_RecibosProveedorSITUACION + ' <> ''' + CTE_PAGADO + '''');
CloseBraket; if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end; end;
finally finally
HideHourglassCursor; HideHourglassCursor;
@ -349,18 +359,25 @@ begin
end; end;
function TRecibosProveedorController.BuscarRecibosRemesa(const ID_REMESA: Integer): IBizRecibosProveedor; function TRecibosProveedorController.BuscarRecibosRemesa(const ID_REMESA: Integer): IBizRecibosProveedor;
var
Condicion: TDAWhereExpression;
begin begin
ShowHourglassCursor; ShowHourglassCursor;
try try
Result := BuscarTodos; Result := BuscarTodos;
with Result.DataTable.Where do
// Filtrar los recibos de una determinada remesa
with Result.DataTable.DynamicWhere do
begin begin
if NotEmpty then // (ID_REMESA = ID)
AddOperator(opAND); Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorID_REMESA), NewConstant(ID_REMESA, datInteger), dboEqual);
OpenBraket;
AddText(fld_RecibosProveedorID_REMESA + ' = ' + IntToStr(ID_REMESA)); if IsEmpty then
CloseBraket; Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end; end;
finally finally
HideHourglassCursor; HideHourglassCursor;
end; end;
@ -748,6 +765,26 @@ begin
Result := ASeleccionados; Result := ASeleccionados;
end; end;
procedure TRecibosProveedorController.FiltrarEmpresa(ARecibo: IBizRecibosProveedor);
var
Condicion: TDAWhereExpression;
begin
if ARecibo.DataTable.Active then
ARecibo.DataTable.Active := False;
// Filtrar los recibos actuales por empresa
with ARecibo.DataTable.DynamicWhere do
begin
// (ID_EMPRESA >= ID)
Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual);
if IsEmpty then
Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end;
end;
procedure TRecibosProveedorController.Preview(ARecibosProveedor: IBizRecibosProveedor); procedure TRecibosProveedorController.Preview(ARecibosProveedor: IBizRecibosProveedor);
var var
AReportController : IRecibosProveedorReportController; AReportController : IRecibosProveedorReportController;

20
Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas
View File

@ -455,18 +455,22 @@ begin
end; end;
procedure TRemesasClienteController.FiltrarEmpresa(ARemesaCliente: IBizRemesaCliente); procedure TRemesasClienteController.FiltrarEmpresa(ARemesaCliente: IBizRemesaCliente);
var
Condicion: TDAWhereExpression;
begin begin
if ARemesaCliente.DataTable.Active then if ARemesaCliente.DataTable.Active then
ARemesaCliente.DataTable.Active := False; ARemesaCliente.DataTable.Active := False;
// Filtrar los contactos actuales por empresa // Filtrar las remesas actuales por empresa
with ARemesaCliente.DataTable.Where do with AAlbaran.DataTable.DynamicWhere do
begin begin
if NotEmpty then // (ID_EMPRESA >= ID)
AddOperator(opAND); Condicion := NewBinaryExpression(NewField('', fld_RemesasClienteID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual);
// Para evitar ambigüedades en la SQL del servidor
AddText(fld_RemesasClienteID_EMPRESA + ' = ' + IntToStr(dmUsuarios.IDEmpresaActual)); if IsEmpty then
// AddCondition('##' + fld_RemesasClienteID_EMPRESA, cEqual, dmUsuarios.IDEmpresaActual); Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end; end;
end; end;

18
Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas
View File

@ -455,18 +455,22 @@ begin
end; end;
procedure TRemesasProveedorController.FiltrarEmpresa(ARemesaProveedor: IBizRemesaProveedor); procedure TRemesasProveedorController.FiltrarEmpresa(ARemesaProveedor: IBizRemesaProveedor);
var
Condicion: TDAWhereExpression;
begin begin
if ARemesaProveedor.DataTable.Active then if ARemesaProveedor.DataTable.Active then
ARemesaProveedor.DataTable.Active := False; ARemesaProveedor.DataTable.Active := False;
// Filtrar los contactos actuales por empresa // Filtrar las remesas actuales por empresa
with ARemesaProveedor.DataTable.Where do with AAlbaran.DataTable.DynamicWhere do
begin begin
if NotEmpty then // (ID_EMPRESA >= ID)
AddOperator(opAND); Condicion := NewBinaryExpression(NewField('', fld_RemesasProveedorID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual);
// Para evitar ambigüedades en la SQL del servidor
AddText(fld_RemesasProveedorID_EMPRESA + ' = ' + IntToStr(dmUsuarios.IDEmpresaActual)); if IsEmpty then
// AddCondition('##' + fld_RemesasProveedorID_EMPRESA, cEqual, dmUsuarios.IDEmpresaActual); Expression := Condicion
else
Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
end; end;
end; end;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

358
Source/Servidor/FactuGES_Server.dproj
View File

@ -1,184 +1,182 @@
<?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>
<MainSource>FactuGES_Server.dpr</MainSource> <MainSource>FactuGES_Server.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler> <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName> <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation> <DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols> <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
<DCC_Define>RELEASE</DCC_Define> <DCC_Define>RELEASE</DCC_Define>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version> <Version>7.0</Version>
<DCC_MapFile>3</DCC_MapFile> <DCC_MapFile>3</DCC_MapFile>
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput> <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
<DCC_Define>DEBUG;</DCC_Define> <DCC_Define>DEBUG;</DCC_Define>
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
</PropertyGroup> </PropertyGroup>
<ProjectExtensions> <ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality> <Borland.Personality>Delphi.Personality</Borland.Personality>
<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">3</VersionInfo><VersionInfo Name="MinorVer">0</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">3.0.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">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">domingo, 30 de septiembre de 2007 20:47</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">3</VersionInfo><VersionInfo Name="MinorVer">0</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">3.0.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">3.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">domingo, 30 de septiembre de 2007 20:47</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><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
<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> </ProjectExtensions>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject> <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
</ProjectExtensions> <ItemGroup>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> <DelphiCompile Include="FactuGES_Server.dpr">
<ItemGroup> <MainSource>MainSource</MainSource>
<DelphiCompile Include="FactuGES_Server.dpr"> </DelphiCompile>
<MainSource>MainSource</MainSource> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
</DelphiCompile> <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" /> <Form>srvEmpresas</Form>
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas"> <DesignClass>TDARemoteService</DesignClass>
<Form>srvEmpresas</Form> </DCCReference>
<DesignClass>TDARemoteService</DesignClass> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" /> <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" /> <DCCReference Include="..\Base\schBase_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
<DCCReference Include="..\Base\schBase_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" /> <Form>srvAlbaranesCliente</Form>
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvAlbaranesCliente</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" /> <Form>srvAlbaranesProveedor</Form>
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvAlbaranesProveedor</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" /> <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" /> <Form>srvAlmacenes</Form>
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas"> <DesignClass>TDARemoteService</DesignClass>
<Form>srvAlmacenes</Form> </DCCReference>
<DesignClass>TDARemoteService</DesignClass> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" /> <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" /> <Form>srvContactos</Form>
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas"> <DesignClass>TDARemoteService</DesignClass>
<Form>srvContactos</Form> </DCCReference>
<DesignClass>TDARemoteService</DesignClass> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" /> <Form>srvFacturasCliente</Form>
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvFacturasCliente</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" /> <Form>srvFacturasProveedor</Form>
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvFacturasProveedor</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" /> <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" /> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" /> <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" /> <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" /> <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" /> <Form>srvPedidosProveedor</Form>
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvPedidosProveedor</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" /> <Form>RptPresupuestosCliente</Form>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas"> </DCCReference>
<Form>RptPresupuestosCliente</Form> <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
</DCCReference> <Form>srvPresupuestosCliente</Form>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvPresupuestosCliente</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" /> <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" /> <Form>srvRecibosCliente</Form>
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvRecibosCliente</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" /> <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" /> <Form>srvRecibosProveedor</Form>
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvRecibosProveedor</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
</DCCReference> <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" /> <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" /> <DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" /> <Form>srvConfiguracion</Form>
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas"> <DesignClass>TDataAbstractService</DesignClass>
<Form>srvConfiguracion</Form> </DCCReference>
<DesignClass>TDataAbstractService</DesignClass> <DCCReference Include="Configuracion\uConexionBD.pas">
</DCCReference> <Form>frConexionBD</Form>
<DCCReference Include="Configuracion\uConexionBD.pas"> <DesignClass>TFrame</DesignClass>
<Form>frConexionBD</Form> </DCCReference>
<DesignClass>TFrame</DesignClass> <DCCReference Include="Configuracion\uConfGeneral.pas">
</DCCReference> <Form>frConfGeneral</Form>
<DCCReference Include="Configuracion\uConfGeneral.pas"> <DesignClass>TFrame</DesignClass>
<Form>frConfGeneral</Form> </DCCReference>
<DesignClass>TFrame</DesignClass> <DCCReference Include="Configuracion\uConfiguracion.pas">
</DCCReference> <Form>fConfiguracion</Form>
<DCCReference Include="Configuracion\uConfiguracion.pas"> <DesignClass>TForm</DesignClass>
<Form>fConfiguracion</Form> </DCCReference>
<DesignClass>TForm</DesignClass> <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
</DCCReference> <Form>FrameConfiguracion</Form>
<DCCReference Include="Configuracion\uFrameConfiguracion.pas"> <DesignClass>TFrame</DesignClass>
<Form>FrameConfiguracion</Form> </DCCReference>
<DesignClass>TFrame</DesignClass> <DCCReference Include="srvLogin_Impl.pas">
</DCCReference> <Form>srvLogin</Form>
<DCCReference Include="srvLogin_Impl.pas"> <DesignClass>TDARemoteService</DesignClass>
<Form>srvLogin</Form> </DCCReference>
<DesignClass>TDARemoteService</DesignClass> <DCCReference Include="uAcercaDe.pas">
</DCCReference> <Form>fAcercaDe</Form>
<DCCReference Include="uAcercaDe.pas"> </DCCReference>
<Form>fAcercaDe</Form> <DCCReference Include="uDataModuleServer.pas">
</DCCReference> <Form>dmServer</Form>
<DCCReference Include="uDataModuleServer.pas"> <DesignClass>TDataModule</DesignClass>
<Form>dmServer</Form> </DCCReference>
<DesignClass>TDataModule</DesignClass> <DCCReference Include="uServerMainForm.pas">
</DCCReference> <Form>fServerForm</Form>
<DCCReference Include="uServerMainForm.pas"> </DCCReference>
<Form>fServerForm</Form> <DCCReference Include="Utiles\RegExpr.pas"/>
</DCCReference> <DCCReference Include="Utiles\uBusinessUtils.pas"/>
<DCCReference Include="Utiles\RegExpr.pas" /> <DCCReference Include="Utiles\uDatabaseUtils.pas"/>
<DCCReference Include="Utiles\uBusinessUtils.pas" /> <DCCReference Include="Utiles\uReferenciasUtils.pas"/>
<DCCReference Include="Utiles\uDatabaseUtils.pas" /> <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
<DCCReference Include="Utiles\uReferenciasUtils.pas" /> <DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" /> <DCCReference Include="Utiles\uServerAppUtils.pas"/>
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" /> <DCCReference Include="Utiles\uSesionesUtils.pas"/>
<DCCReference Include="Utiles\uServerAppUtils.pas" /> </ItemGroup>
<DCCReference Include="Utiles\uSesionesUtils.pas" />
</ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line
[Exception Log] [Exception Log]

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "3.0.0.0\0" VALUE "FileVersion", "3.0.0.0\0"
VALUE "ProductVersion", "3.0.0.0\0" VALUE "ProductVersion", "3.0.0.0\0"
VALUE "CompileDate", "sábado, 17 de noviembre de 2007 18:30\0" VALUE "CompileDate", "domingo, 18 de noviembre de 2007 18:14\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"