From c5014e11f19c3035ade921a9a64e3b97ffe16eec Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Sun, 18 Nov 2007 17:23:37 +0000
Subject: [PATCH] =?UTF-8?q?Cambios=20de=20.where=20por=20dynamicwhere,=20f?=
 =?UTF-8?q?altan=20dos=20por=20ser=20m=C3=A1s=20complejos=20y=20ser=20de?=
 =?UTF-8?q?=20remesas=20no=20se=20tocan?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@142 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 Source/Base/Base.dproj                        |  98 ++---
 Source/Cliente/FactuGES.dpr                   |   1 -
 Source/Cliente/FactuGES.dproj                 |  12 +-
 .../uAlbaranesClienteController.pas           |  23 +-
 .../Model/AlbaranesCliente_model.rc           |  22 ++
 .../Model/AlbaranesCliente_model.res          | Bin 5056 -> 384 bytes
 .../Plugin/uPluginAlbaranesCliente.dfm        |   2 +-
 .../uAlbaranesProveedorController.pas         |  21 +-
 .../Controller/uAlmacenesController.pas       |  22 +-
 .../Controller/uArticulosController.pas       |  89 +++--
 .../Controller/uFacturasClienteController.pas |  77 ++--
 .../Plugin/uPluginFacturasCliente.dfm         |   2 +-
 .../uFacturasProveedorController.pas          |  18 +-
 .../uHistoricoMovimientosController.pas       |  15 +-
 .../Controller/uInventarioController.pas      |  30 +-
 .../uPedidosProveedorController.pas           |  37 +-
 .../uPresupuestosClienteController.pas        |  36 +-
 .../Controller/uRecibosClienteController.pas  |  77 +++-
 .../RecibosProveedor_controller.dproj         |  51 +--
 .../uRecibosProveedorController.pas           | 169 +++++----
 .../Controller/uRemesasClienteController.pas  |  20 +-
 .../uRemesasProveedorController.pas           |  18 +-
 Source/Servidor/FactuGES_Server.RES           | Bin 23208 -> 23212 bytes
 Source/Servidor/FactuGES_Server.dproj         | 358 +++++++++---------
 Source/Servidor/FactuGES_Server.rc            |   2 +-
 25 files changed, 683 insertions(+), 517 deletions(-)

diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index b0a34150..ee72957f 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -60,55 +60,55 @@
     </DelphiCompile>
     <DCCReference Include="..\Cliente\DataAbstract_Core_D10.dcp" />
     <DCCReference Include="..\Cliente\RemObjects_Core_D10.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\adortl.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\cxDataD10.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\cxEditorsD10.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\cxExportD10.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\cxExtEditorsD10.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\cxGridD10.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\cxIntl5D10.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\cxIntlPrintSys3D10.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\cxLibraryD10.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\cxPageControlD10.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\dclIndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\designide.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\dsnap.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\dxPSCoreD10.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\dxThemeD10.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\GUISDK_D11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\IndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\IndyProtocols.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\IndySystem.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Jcl.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\JclVcl.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\JSDialog100.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\JvCmpD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\JvCoreD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\JvDlgsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\JvMMD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\JvNetD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\JvSystemD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\pckMD5.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\pckUCDataConnector.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\pckUserControl_RT.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\PngComponentsD10.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\PNG_D10.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\TB2k_D10.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\tbx_d10.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\vclactnband.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\VclSmp.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\vclx.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\xmlrtl.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\adortl.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\cxDataD10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\cxEditorsD10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\cxExportD10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\cxExtEditorsD10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\cxGridD10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\cxIntl5D10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\cxIntlPrintSys3D10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\cxLibraryD10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\cxPageControlD10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\dbrtl.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\dclIndyCore.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\designide.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\dsnap.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\dxPSCoreD10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\dxThemeD10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\GUISDK_D11.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\IndyCore.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\IndyProtocols.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\IndySystem.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\Jcl.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JclVcl.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JSDialog100.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JvCmpD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JvCoreD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JvCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JvDlgsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JvMMD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JvNetD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JvPageCompsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\JvSystemD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\pckMD5.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\pckUCDataConnector.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\pckUserControl_RT.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\PngComponentsD10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\PNG_D10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\rtl.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\TB2k_D10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\tbx_d10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\vcl.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\vclactnband.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\vcldb.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\vcljpg.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\VclSmp.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\vclx.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\xmlrtl.dcp" />
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
     <DCCReference Include="Conexion\uConfigurarConexion.pas">
       <Form>fConfigurarConexion</Form>
diff --git a/Source/Cliente/FactuGES.dpr b/Source/Cliente/FactuGES.dpr
index c34fb5f1..ce8466be 100644
--- a/Source/Cliente/FactuGES.dpr
+++ b/Source/Cliente/FactuGES.dpr
@@ -1,7 +1,6 @@
 program FactuGES;
 
 uses
-  ExceptionLog,
   Forms,
   Windows,
   SysUtils,
diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index 65925705..9388df6d 100644
--- a/Source/Cliente/FactuGES.dproj
+++ b/Source/Cliente/FactuGES.dproj
@@ -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_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_Define>DEBUG;EUREKALOG;EUREKALOG_VER6</DCC_Define>
+    <DCC_Define>DEBUG;</DCC_Define>
     <DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
     <DCC_DebugVN>True</DCC_DebugVN>
   </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\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>
@@ -87,7 +95,7 @@
 <!-- EurekaLog First Line
 [Exception Log]
 EurekaLog Version=6006
-Activate=1
+Activate=0
 Activate Handle=1
 Save Log File=1
 Foreground Tab=0
diff --git a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
index c09579be..46b9befc 100644
--- a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas	
+++ b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas	
@@ -833,19 +833,26 @@ begin
 end;
 
 procedure TAlbaranesClienteController.FiltrarEmpresa(AAlbaran: IBizAlbaranCliente);
+var
+  Condicion: TDAWhereExpression;
 begin
   if AAlbaran.DataTable.Active then
-    AAlbaran.DataTable.Active := False;
+     AAlbaran.DataTable.Active := False;
 
-  // Filtrar los albaranes actuales por empresa
-{  with AContacto.DataTable.DynamicWhere do
+  // Filtrar los presupuestos actuales por empresa
+  with AAlbaran.DataTable.DynamicWhere do
   begin
-    Clear;
-    // (ID = :ID)
-    Expression := NewBinaryExpression(NewField('', fld_AlbaranesClienteID_EMPRESA),
-      NewConstant(dmUsuarios.IDEmpresaActual, datInteger), dboEqual);
+    // (ID_EMPRESA >= ID)
+    Condicion := NewBinaryExpression(NewField('', fld_AlbaranesClienteID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual);
+
+    if IsEmpty then
+       Expression := Condicion
+    else
+       Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
   end;
-}
+
+  if AAlbaran.DataTable.Active then
+    AAlbaran.DataTable.Active := False;
 end;
 
 procedure TAlbaranesClienteController.SetClienteController(const Value: IClientesController);
diff --git a/Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.rc b/Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.rc
index e69de29b..153736af 100644
--- a/Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.rc	
+++ b/Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.rc	
@@ -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
diff --git a/Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.res b/Source/Modulos/Albaranes de cliente/Model/AlbaranesCliente_model.res
index 86c94e6ada7b3c85f6761b1ee234a9f34ef3c861..8b251f312bcccec5485024f6fe8d80e1cdf25746 100644
GIT binary patch
delta 89
zcmX@0-oQLTLCJxUfkA<Rf#Lsu0U!o)fWUx(iwDdA5)O=${RBNkSQsEuFkuFU1q_o{
a2`VwwFibutC^p$d$Y8RLu*u{aVHW_zk`NF8

literal 5056
zcmbW5&x;&Y5XWnifD(f4!IPI+L`3!=E9BmaF%VEA#@TDLXpF&R6XJUC)cc=I4kFSA
z{{!hg%bp}hVRP_qjvmDJ`>A@>-7}euyEfF+`%$mH-*3IwZ-y~5+miKtn3_w^Pn$V^
zQ861nx4C)wN(Q~H#+K|o*@m~&(3=1I%<H)w9v)iTH127q{qXp)&8xW)6MlQro{s1I
z=>Llk7>S*pvE<P%TA%O5t8M1iio?{LPxr*;#4S`z+Fc)g#h&&g#=PVuPjYGN#$r5b
z0WYwr!x9ILIX>7;Yjz^+ljNYba;|&8!P>=GYp<<v7!SPQ(0Ax>9J^QiRC`-*du(Wb
zBJI+RemE@Tm2dSSKL$269_p-ia&WJ{$B|EYy#Bt1`fm?B(CB-l8nlXqgY!6fUOzP@
zr|Te|e4cZxgJWuLF8<`}dughP69?9a%ha4}r`jtX-7UCl^he&nV;_S<)Ya!2FlEJu
zrr<Dd%05f0<E5wmw6kBlO~$hRp_>{t12%dXkNqpywX{@?Eb_MKs@29XRNI;2D%DxW
zo|xv^j<v+dlz&dYi}m1xf#%TNTCbSw2flJQGT|Qme&q4!Z=2Tp)Y}^E12Hw&$pK$*
zm$1cwzUC4it>nf#kFIDZr^e=W==PW{#^6Ao{deqzuxId;ujOZ~3;otiwSzBXu3^t3
z&$C~D3=Umz@OQRR9+}nP>x>=u115dAI{rd2#Mbgv81-@e%IA6)a8SDwHm3Di`~F1x
z)jhG~04Fd5o4f^Iah!WFIS0|E#)aohzS6onIG_;>-~Ytz3J0A}=DenTZ*cIo-Ves9
zp>qHmo5lV+rntk2He9_1!t%2yZsF;l)>iGc4jkU$0bBWEPmBKKP>uSjxhXIDsSodT
z@EG|gFZa>|hHF!PaN};FzIxxlpPKT;87{i(!eu7T%H?}r^yeP=K2c}If`cyKd-3DW
z_4ib`jDt-MZ?C~;z1O=EKN(!YbpFJR_c`u>(C=ph9O_Y*Jz5Z>`Zs7T9Mn$y@ay$^
z{gulxYxXwGq@TIGbG$~Hi*qk8?9|WMkNweF@MU18F;AQKZ>jcWAL86`f59<wkq`a8
z|7xSx>r^Yh;+XfGU10gV*5=*FT)q#qz2B_Ik28(#vUlW{{>1m(1wXK3zHQ3+Ro<w-
zxM?i0@cc%=r;&5D2EGT2a=)RW;79${*WQ}(j%ID*T^sfXZk6J+*7rx=&tqNQNpZ;U
zcGj%odtY~*e|IFtY`p*c{Hae(F!*tQkqcdDcW%;74O4603-KFjtixJ-orSp9&@Vm0
zA%AF$^MgKq1M!~wxcb~v!`T!sV!-DP<hzPo$wx)>Hfz^$cuqg(^F;eqz6WUMUE^m$
z9R1u2H_t9ue%}<_JcD5KB$svgjBysd-ql#|toxF$&>h<I-Q_(4d*IMSn_5gC=6SDP
z#9=t|Gce#X^~>1Qc)Vw6j~u{SeHg>my$i{SJtD^MnJV!{AK!ZgN9Q4bN2bs7?m1Qo
zsLwc-c&GZ4_%7jWppm+9C(?(bpCye?f6Mv)ml~{r9)<=EoH5SYSxm8xsWZv%2MjL$
zd)R%{gxqI&lEaJ6!*jggJMcIz?<5?~hn@VA1Kzcrp$;C`m0CzQdy{!G?|FT$$5W3N
zaydTsdE#>2dGSt*&wOX~r{!54?~lxS4gM|rOZH6mRCZMCP#!z)bEv-^up_gJ*i*BY
zl>1d-%!E}5v+s{C_OF@Qj;!xrv5)P2yJ4TmKCqke`Aq-U;NJ}WpRu*&|7!3r$c7zU
zF#m_6?>Cia!<S9h99+1nv0b}mwLU+z&(yl%2({x~SDWXTOMm`DzA#22S4C6LC0UGk
z*FS#qfm?Q9kL<4P+a0?uf6s0!^S*s$4;1yY$LvVejuh_LRdImP8_Kq!(Fb<l9@?Jb
zznAJg^==OU+a8lSuW9C6`@*pv3iGbk?hmm$_OhZgc2}{F6g|egYwrj>E%D)b;IaF{
zzPG~QEyw>z^LKm}whzS<wRh}mt&Aslj&YwWV$Z(Ry8H5v>>Dx3Ct`1w98?Y5<V|m^
zK-B0{#XeBB@1*@;g`ugI=w6OlRllnJb=MWO2aOse!)s1-*Lf$aaW~E0^pg+@_qFPt
NBBy(C`N|)c{soGtd8+^b

diff --git a/Source/Modulos/Albaranes de cliente/Plugin/uPluginAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Plugin/uPluginAlbaranesCliente.dfm
index 5910a3ad..ac065ea0 100644
--- a/Source/Modulos/Albaranes de cliente/Plugin/uPluginAlbaranesCliente.dfm	
+++ b/Source/Modulos/Albaranes de cliente/Plugin/uPluginAlbaranesCliente.dfm	
@@ -275,7 +275,7 @@ object PluginAlbaranesCliente: TPluginAlbaranesCliente
         Action = actAlbaranesCliente
       end
       object Ordenesdedevolucin1: TMenuItem
-        Tag = 104
+        Tag = 105
         Action = actAlbaranesDevCliente
       end
     end
diff --git a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas
index ac920bf8..475b8e2e 100644
--- a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas	
+++ b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas	
@@ -895,19 +895,24 @@ begin
   Result := ASeleccionados;
 end;
 
-procedure TAlbaranesProveedorController.FiltrarEmpresa(
-  AAlbaran: IBizAlbaranProveedor);
+procedure TAlbaranesProveedorController.FiltrarEmpresa(AAlbaran: IBizAlbaranProveedor);
+var
+  Condicion: TDAWhereExpression;
 begin
   if AAlbaran.DataTable.Active then
      AAlbaran.DataTable.Active := False;
 
   // Filtrar los presupuestos actuales por empresa
-//  with AAlbaran.DataTable.Where do
-//  begin
-//    if NotEmpty then
-//       AddOperator(opAND);
-//    AddCondition(fld_AlbaranesProveedorID_EMPRESA, cEqual, dmUsuarios.IDEmpresaActual);
-//  end;
+  with AAlbaran.DataTable.DynamicWhere do
+  begin
+    // (ID_EMPRESA >= ID)
+    Condicion := NewBinaryExpression(NewField('', fld_AlbaranesProveedorID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual);
+
+    if IsEmpty then
+       Expression := Condicion
+    else
+       Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
+  end;
 end;
 
 procedure TAlbaranesProveedorController.SetProveedorController(const Value: IProveedoresController);
diff --git a/Source/Modulos/Almacenes/Controller/uAlmacenesController.pas b/Source/Modulos/Almacenes/Controller/uAlmacenesController.pas
index e4bc4724..fad9cfc9 100644
--- a/Source/Modulos/Almacenes/Controller/uAlmacenesController.pas
+++ b/Source/Modulos/Almacenes/Controller/uAlmacenesController.pas
@@ -341,21 +341,23 @@ begin
 end;
 
 procedure TAlmacenesController.FiltrarEmpresa(AAlmacen: IBizAlmacen);
+var
+  Condicion: TDAWhereExpression;
 begin
   if AAlmacen.DataTable.Active then
     AAlmacen.DataTable.Active := False;
-{
-  // Filtrar los Almacenes actuales por empresa
-  with AAlmacen.DataTable.Where do
-  begin
-    if NotEmpty then
-      AddOperator(opAND);
 
-    OpenBraket;
-    AddText('ALMACENES.' + fld_AlmacenesID_EMPRESA + ' = ' + IntToStr(dmUsuarios.IDEmpresaActual));
-    CloseBraket;
+  // Filtrar los Almacenes actuales por empresa
+  with AAlmacen.DataTable.DynamicWhere do
+  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;
 
 function TAlmacenesController.Guardar(AAlmacen: IBizAlmacen): Boolean;
diff --git a/Source/Modulos/Articulos/Controller/uArticulosController.pas b/Source/Modulos/Articulos/Controller/uArticulosController.pas
index 127c8007..d17d93ab 100644
--- a/Source/Modulos/Articulos/Controller/uArticulosController.pas
+++ b/Source/Modulos/Articulos/Controller/uArticulosController.pas
@@ -143,24 +143,33 @@ begin
 end;
 
 function TArticulosController.BuscarInventariables: IBizArticulo;
+var
+  Condicion: TDAWhereExpression;
 begin
   ShowHourglassCursor;
   try
     Result := BuscarTodos;
-    with Result.DataTable.Where do
+
+    // Filtrar los articulos inventariables
+    with Result.DataTable.DynamicWhere do
     begin
-      if NotEmpty then
-         AddOperator(opAND);
-      OpenBraket;
-      AddText('V_ARTICULOS.' + fld_ArticulosINVENTARIABLE + ' = 1');
-      CloseBraket;
+      // (ID_EMPRESA >= ID)
+      Condicion := NewBinaryExpression(NewField('', fld_ArticulosINVENTARIABLE), NewConstant(1, datInteger), dboEqual);
+
+      if IsEmpty then
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
     end;
+
   finally
     HideHourglassCursor;
   end;
 end;
 
 function TArticulosController.BuscarReferencia(const Ref: String; AClienteID: Integer = -1): IBizArticulo;
+var
+  Condicion: TDAWhereExpression;
 begin
   ShowHourglassCursor;
   try
@@ -169,20 +178,26 @@ begin
     else
        Result := BuscarTodos(AClienteID);
 
-    with Result.DataTable.Where do
+    // Filtrar por referencia
+    with Result.DataTable.DynamicWhere do
     begin
-      if NotEmpty then
-         AddOperator(opAND);
-      OpenBraket;
-      AddText('UPPER(V_ARTICULOS.' + fld_ArticulosREFERENCIA + ') = UPPER(''' +  Ref + ''')');
-      CloseBraket;
+      // (REFERENCIA >= Ref)
+      Condicion := NewBinaryExpression(NewField('', fld_ArticulosREFERENCIA), NewConstant(UpperCase(Ref), datString), dboEqual);
+
+      if IsEmpty then
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
     end;
+
   finally
     HideHourglassCursor;
   end;
 end;
 
 function TArticulosController.BuscarReferenciaProveedor(const Ref: String; AClienteID: Integer = -1): IBizArticulo;
+var
+  Condicion: TDAWhereExpression;
 begin
   ShowHourglassCursor;
   try
@@ -191,14 +206,18 @@ begin
     else
        Result := BuscarTodos(AClienteID);
 
-    with Result.DataTable.Where do
+    // Filtrar por referencia
+    with Result.DataTable.DynamicWhere do
     begin
-      if NotEmpty then
-         AddOperator(opAND);
-      OpenBraket;
-      AddText('UPPER(V_ARTICULOS.' + fld_ArticulosREFERENCIA_PROV + ') = UPPER(''' +  Ref + ''')');
-      CloseBraket;
+      // (REFERENCIA >= Ref)
+      Condicion := NewBinaryExpression(NewField('', fld_ArticulosREFERENCIA_PROV), NewConstant(UpperCase(Ref), datString), dboEqual);
+
+      if IsEmpty then
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
     end;
+
   finally
     HideHourglassCursor;
   end;
@@ -219,19 +238,25 @@ begin
 end;
 
 function TArticulosController.BuscarTodos(AProveedor: IBizProveedor): IBizArticulo;
+var
+  Condicion: TDAWhereExpression;
 begin
   if Assigned(AProveedor) then
   begin
     ShowHourglassCursor;
     try
       Result := BuscarTodos;
-      with Result.DataTable.Where do
+
+      // Filtrar los articulos del proveedor
+      with Result.DataTable.DynamicWhere do
       begin
-        if NotEmpty then
-           AddOperator(opAND);
-        OpenBraket;
-        AddText('V_ARTICULOS.' + fld_ArticulosID_PROVEEDOR + ' = ' +  IntToStr(AProveedor.ID));
-        CloseBraket;
+        // (ID_PROVEEDOR = ID)
+        Condicion := NewBinaryExpression(NewField('', fld_ArticulosID_PROVEEDOR), NewConstant(AProveedor.ID, datInteger), dboEqual);
+
+        if IsEmpty then
+           Expression := Condicion
+        else
+           Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
       end;
     finally
       HideHourglassCursor;
@@ -536,21 +561,23 @@ begin
 end;
 
 procedure TArticulosController.FiltrarEmpresa(AArticulo: IBizArticulo);
+var
+  Condicion: TDAWhereExpression;
 begin
   if AArticulo.DataTable.Active then
     AArticulo.DataTable.Active := False;
 
   // Filtrar los Articulos actuales por empresa
-{  with AArticulo.DataTable.Where do
+  with AArticulo.DataTable.DynamicWhere do
   begin
-    if NotEmpty then
-      AddOperator(opAND);
+    // (ID_EMPRESA >= ID)
+    Condicion := NewBinaryExpression(NewField('', fld_ArticulosID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual);
 
-    OpenBraket;
-//    AddText('V_ARTICULOS.' + fld_ArticulosID_EMPRESA + ' = ' + IntToStr(dmUsuarios.IDEmpresaActual));
-    CloseBraket;
+    if IsEmpty then
+       Expression := Condicion
+    else
+       Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
   end;
-}  
 end;
 
 function TArticulosController.GetProveedoresController: IProveedoresController;
diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
index 530107c7..b4eb0ec9 100644
--- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas	
+++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas	
@@ -411,40 +411,54 @@ begin
 end;
 
 function TFacturasClienteController.BuscarTodasPendientesComision(IdAgente:Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaCliente;
+var
+  Condicion: TDAWhereExpression;
 begin
   ShowHourglassCursor;
   try
     Result := BuscarTodos;
-    with Result.DataTable.Where do
+    with Result.DataTable.DynamicWhere do
     begin
-      if NotEmpty then
-         AddOperator(opAND);
       //Todas las facturas de un agente determinado
-      OpenBraket;
-      AddText(fld_FacturasClienteID_AGENTE + ' = ' + IntToStr(IdAgente));
-      CloseBraket;
+      Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteID_AGENTE), NewConstant(IdAgente, datInteger), dboEqual);
 
+      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,
       //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
       //debemos tener en cuenta dichso cambios en cache
-      AddOperator(opAND);
-      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;
+      Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteID_COMISION_LIQUIDADA), NewNull(), dboEqual);
 
+      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);
 
         OpenBraket;
@@ -465,10 +479,10 @@ begin
 
       CloseBraket;
     end;
+}    
   finally
     HideHourglassCursor;
   end;
-//  showmessage(Result.DataTable.Where.Clause);
 end;
 
 function TFacturasClienteController.BuscarTodos: IBizFacturaCliente;
@@ -833,18 +847,23 @@ begin
 end;
 
 procedure TFacturasClienteController.FiltrarEmpresa(AFactura: IBizFacturaCliente);
+var
+  Condicion: TDAWhereExpression;
 begin
   if AFactura.DataTable.Active then
     AFactura.DataTable.Active := False;
-{
+
   // Filtrar las facturas actuales por empresa
-  with AFactura.DataTable.Where do
+  with AFactura.DataTable.DynamicWhere do
   begin
-    if NotEmpty then
-      AddOperator(opAND);
-//    AddCondition(fld_FacturasClienteID_EMPRESA, cEqual, dmUsuarios.IDEmpresaActual);
+    // (ID_EMPRESA >= ID)
+    Condicion := NewBinaryExpression(NewField('', fld_FacturasClienteID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual);
+
+    if IsEmpty then
+       Expression := Condicion
+    else
+       Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
   end;
-}  
 end;
 
 procedure TFacturasClienteController.SetClienteController(const Value: IClientesController);
diff --git a/Source/Modulos/Facturas de cliente/Plugin/uPluginFacturasCliente.dfm b/Source/Modulos/Facturas de cliente/Plugin/uPluginFacturasCliente.dfm
index b6a3ed86..34f5ed8e 100644
--- a/Source/Modulos/Facturas de cliente/Plugin/uPluginFacturasCliente.dfm	
+++ b/Source/Modulos/Facturas de cliente/Plugin/uPluginFacturasCliente.dfm	
@@ -65,7 +65,7 @@ object PluginFacturasCliente: TPluginFacturasCliente
         Caption = '-'
       end
       object Facturasdecliente1: TMenuItem
-        Tag = 105
+        Tag = 106
         Action = actFacturasCliente
       end
     end
diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
index 37ed1606..11c9f816 100644
--- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas	
+++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas	
@@ -415,7 +415,7 @@ begin
   FiltrarEmpresa(Result);  
 end;
 
-{
+{REPASARRRRR
 function TFacturasProveedorController.BuscarTodasPendientesComision(IdAgente:Integer; IdComision: Integer; IdFacturasAsociadas: String): IBizFacturaProveedor;
 begin
   ShowHourglassCursor;
@@ -474,7 +474,6 @@ begin
   finally
     HideHourglassCursor;
   end;
-//  showmessage(Result.DataTable.Where.Clause);
 end;
 }
 
@@ -838,18 +837,23 @@ begin
 end;
 
 procedure TFacturasProveedorController.FiltrarEmpresa(AFactura: IBizFacturaProveedor);
+var
+  Condicion: TDAWhereExpression;
 begin
   if AFactura.DataTable.Active then
     AFactura.DataTable.Active := False;
 
   // Filtrar las facturas actuales por empresa
-{  with AFactura.DataTable.Where do
+  with AFactura.DataTable.DynamicWhere do
   begin
-    if NotEmpty then
-      AddOperator(opAND);
-    AddCondition(fld_FacturasProveedorID_EMPRESA, cEqual, dmUsuarios.IDEmpresaActual);
+    // (ID_EMPRESA >= ID)
+    Condicion := NewBinaryExpression(NewField('', fld_FacturasProveedorID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual);
+
+    if IsEmpty then
+       Expression := Condicion
+    else
+       Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
   end;
-}  
 end;
 
 procedure TFacturasProveedorController.SetProveedorController(const Value: IProveedoresController);
diff --git a/Source/Modulos/Historico de movimientos/Controller/uHistoricoMovimientosController.pas b/Source/Modulos/Historico de movimientos/Controller/uHistoricoMovimientosController.pas
index f4110337..467074a7 100644
--- a/Source/Modulos/Historico de movimientos/Controller/uHistoricoMovimientosController.pas	
+++ b/Source/Modulos/Historico de movimientos/Controller/uHistoricoMovimientosController.pas	
@@ -181,19 +181,22 @@ begin
 end;
 
 procedure THistoricoMovimientosController.FiltrarEmpresa(AHistoricoMovimientos: IBizHistoricoMovimientos);
+var
+  Condicion: TDAWhereExpression;
 begin
   if AHistoricoMovimientos.DataTable.Active then
     AHistoricoMovimientos.DataTable.Active := False;
 
   // Filtrar los HistoricoMovimientos actuales por empresa
-  with AHistoricoMovimientos.DataTable.Where do
+  with AAlbaran.DataTable.DynamicWhere do
   begin
-    if NotEmpty then
-      AddOperator(opAND);
+    // (ID_EMPRESA >= ID)
+    Condicion := NewBinaryExpression(NewField('', fld_Historico_MovimientosID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual);
 
-    OpenBraket;
-    AddText(fld_Historico_MovimientosID_EMPRESA + ' = ' + IntToStr(AppFactuGES.EmpresaActiva.ID));
-    CloseBraket;
+    if IsEmpty then
+       Expression := Condicion
+    else
+       Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
   end;
 end;
 
diff --git a/Source/Modulos/Inventario/Controller/uInventarioController.pas b/Source/Modulos/Inventario/Controller/uInventarioController.pas
index dfa4ed28..0cfc4154 100644
--- a/Source/Modulos/Inventario/Controller/uInventarioController.pas
+++ b/Source/Modulos/Inventario/Controller/uInventarioController.pas
@@ -372,19 +372,22 @@ begin
 end;
 
 procedure TInventarioController.FiltrarEmpresa(ADetalleReservas: IBizDetalleReservas);
+var
+  Condicion: TDAWhereExpression;
 begin
   if ADetalleReservas.DataTable.Active then
     ADetalleReservas.DataTable.Active := False;
 
   // Filtrar los inventario actuales por empresa
-  with ADetalleReservas.DataTable.Where do
+  with ADetalleReservas.DataTable.DynamicWhere do
   begin
-    if NotEmpty then
-      AddOperator(opAND);
+    // (ID_EMPRESA >= ID)
+    Condicion := NewBinaryExpression(NewField('', fld_DETALLE_RESERVAS_INVID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual);
 
-    OpenBraket;
-    AddText(fld_DETALLE_RESERVAS_INVID_EMPRESA + ' = ' + IntToStr(AppFactuGES.EmpresaActiva.ID));
-    CloseBraket;
+    if IsEmpty then
+       Expression := Condicion
+    else
+       Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
   end;
 end;
 
@@ -888,19 +891,22 @@ end;
 }
 
 procedure TInventarioController.FiltrarEmpresa(AInventario: IBizInventario);
+var
+  Condicion: TDAWhereExpression;
 begin
   if AInventario.DataTable.Active then
     AInventario.DataTable.Active := False;
 
   // Filtrar los inventario actuales por empresa
-  with AInventario.DataTable.Where do
+  with AAlbaran.DataTable.DynamicWhere do
   begin
-    if NotEmpty then
-      AddOperator(opAND);
+    // (ID_EMPRESA >= ID)
+    Condicion := NewBinaryExpression(NewField('', fld_InventarioID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual);
 
-    OpenBraket;
-    AddText(fld_InventarioID_EMPRESA + ' = ' + IntToStr(AppFactuGES.EmpresaActiva.ID));
-    CloseBraket;
+    if IsEmpty then
+       Expression := Condicion
+    else
+       Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
   end;
 end;
 
diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas
index 78d39556..2888f2d8 100644
--- a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas	
+++ b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas	
@@ -141,17 +141,23 @@ begin
 end;
 
 function TPedidosProveedorController.BuscarPendientesRecepcion: IBizPedidoProveedor;
+var
+  Condicion: TDAWhereExpression;
 begin
   ShowHourglassCursor;
   try
     Result := BuscarTodos;
-    with Result.DataTable.Where do
+
+    // Filtrar los pedidos pendientes de recepcion
+    with Result.DataTable.DynamicWhere do
     begin
-      if NotEmpty then
-        AddOperator(opAND);
-      OpenBraket;
-      AddText(fld_PedidosProveedorSITUACION + ' <> ''' + SITUACION_PEDIDO_RECIBIDO + '''');
-      CloseBraket;
+      // (SITUACION <> RECIBIDO)
+      Condicion := NewBinaryExpression(NewField('', fld_PedidosProveedorSITUACION), NewConstant(SITUACION_PEDIDO_RECIBIDO, datString), dboNotEqual);
+
+      if IsEmpty then
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
     end;
   finally
     HideHourglassCursor;
@@ -633,18 +639,23 @@ begin
   Result := ASeleccionados;
 end;
 
-procedure TPedidosProveedorController.FiltrarEmpresa(
-  APedido: IBizPedidoProveedor);
+procedure TPedidosProveedorController.FiltrarEmpresa(APedido: IBizPedidoProveedor);
+var
+  Condicion: TDAWhereExpression;
 begin
   if APedido.DataTable.Active then
     APedido.DataTable.Active := False;
 
-  // Filtrar los presupuestos actuales por empresa
-  with APedido.DataTable.Where do
+  // Filtrar los pedidos actuales por empresa
+  with APedido.DataTable.DynamicWhere do
   begin
-    if NotEmpty then
-      AddOperator(opAND);
-//    AddCondition(fld_PedidosProveedorID_EMPRESA, cEqual, dmUsuarios.IDEmpresaActual);
+    // (ID_EMPRESA >= ID)
+    Condicion := NewBinaryExpression(NewField('', fld_PedidosProveedorID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual);
+
+    if IsEmpty then
+       Expression := Condicion
+    else
+       Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
   end;
 end;
 
diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
index 6c57ce4b..e0497b56 100644
--- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas	
@@ -150,17 +150,22 @@ begin
 end;
 
 function TPresupuestosClienteController.BuscarPendientes: IBizPresupuestoCliente;
+var
+  Condicion: TDAWhereExpression;
 begin
   ShowHourglassCursor;
   try
     Result := BuscarTodos;
-    with Result.DataTable.Where do
+    // Filtrar los presupuesto pendientes de recepcion
+    with Result.DataTable.DynamicWhere do
     begin
-      if NotEmpty then
-        AddOperator(opAND);
-      OpenBraket;
-      AddText(fld_PresupuestosClienteSITUACION + ' = ''' + SITUACION_PRESUPUESTO_PENDIENTE + '''');
-      CloseBraket;
+      // (SITUACION <> RECIBIDO)
+      Condicion := NewBinaryExpression(NewField('', fld_PresupuestosClienteSITUACION), NewConstant(SITUACION_PRESUPUESTO_PENDIENTE, datString), dboNotEqual);
+
+      if IsEmpty then
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
     end;
   finally
     HideHourglassCursor;
@@ -596,19 +601,24 @@ begin
   Result := ASeleccionados;
 end;
 
-procedure TPresupuestosClienteController.FiltrarEmpresa(
-  APresupuesto: IBizPresupuestoCliente);
+procedure TPresupuestosClienteController.FiltrarEmpresa(APresupuesto: IBizPresupuestoCliente);
+var
+  Condicion: TDAWhereExpression;
 begin
   if APresupuesto.DataTable.Active then
     APresupuesto.DataTable.Active := False;
 
-  {  with APresupuesto.DataTable.Where do
+  // Filtrar los presupuestos actuales por empresa
+  with APresupuesto.DataTable.DynamicWhere do
   begin
-    if NotEmpty then
-      AddOperator(opAND);
-    AddCondition(fld_PresupuestosClienteID_EMPRESA, cEqual, dmUsuarios.IDEmpresaActual);
+    // (ID_EMPRESA >= ID)
+    Condicion := NewBinaryExpression(NewField('', fld_PresupuestosClienteID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual);
+
+    if IsEmpty then
+       Expression := Condicion
+    else
+       Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
   end;
-}  
 end;
 
 procedure TPresupuestosClienteController.SetClienteController(const Value: IClientesController);
diff --git a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas
index 52181b41..e4e86aa5 100644
--- a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas	
+++ b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas	
@@ -82,6 +82,9 @@ type
   private
     function ImporteTotalModificado(ARecibosCliente: IBizRecibosCliente;
       var ImporteRestante: Currency): Boolean;
+
+    procedure FiltrarEmpresa(ARecibo: IBizRecibosCliente);
+
   protected
     FDataModule : IDataModuleRecibosCliente;
     FPagosController : IPagosClienteController;
@@ -241,6 +244,7 @@ end;
 function TRecibosClienteController.BuscarTodos: IBizRecibosCliente;
 begin
   Result := FDataModule.GetItems;
+  FiltrarEmpresa(Result);
 end;
 
 function TRecibosClienteController.BuscarRecibosACompensar(const Recibo: IBizRecibosCliente): IBizRecibosCliente;
@@ -315,6 +319,7 @@ end;
 function TRecibosClienteController.Buscar(const ID: Integer): IBizRecibosCliente;
 begin
   Result := (FDataModule as IDataModuleRecibosCliente).GetItem(ID);
+  FiltrarEmpresa(Result);  
 end;
 
 function TRecibosClienteController.BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosCliente;
@@ -342,24 +347,33 @@ begin
 end;
 
 function TRecibosClienteController.BuscarRecibosARemesar: IBizRecibosCliente;
+var
+  Condicion: TDAWhereExpression;
 begin
   ShowHourglassCursor;
   try
     Result := BuscarTodos;
-    with Result.DataTable.Where do
-    begin
-      if NotEmpty then
-         AddOperator(opAND);
 
-      //Omitimos los recibos compensados
-      OpenBraket;
-      AddText(fld_RecibosClienteID_RECIBO_COMPENSADO + ' IS NULL ');
-      CloseBraket;
-      AddOperator(opAND);
+    with Result.DataTable.DynamicWhere do
+    begin
+      //No podrá compensarse un recibo ya compensado
+      Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteID_RECIBO_COMPENSADO), NewNull(), dboEqual);
+
+      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)
-      OpenBraket;
-      AddText(fld_RecibosClienteSITUACION + ' <> ''' + CTE_COBRADO + '''');
-      CloseBraket;
+      Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteSITUACION), NewConstant(CTE_COBRADO, datString), dboNotEqual);
+
+      if IsEmpty then
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
     end;
   finally
     HideHourglassCursor;
@@ -367,18 +381,25 @@ begin
 end;
 
 function TRecibosClienteController.BuscarRecibosRemesa(const ID_REMESA: Integer): IBizRecibosCliente;
+var
+  Condicion: TDAWhereExpression;
 begin
   ShowHourglassCursor;
   try
     Result := BuscarTodos;
-    with Result.DataTable.Where do
+
+    // Filtrar los recibos de una remesa determinada
+    with Result.DataTable.DynamicWhere do
     begin
-      if NotEmpty then
-         AddOperator(opAND);
-      OpenBraket;
-      AddText(fld_RecibosClienteID_REMESA + ' = ' + IntToStr(ID_REMESA));
-      CloseBraket;
+      // (ID_REMESA >= ID)
+      Condicion := NewBinaryExpression(NewField('', fld_RecibosClienteID_REMESA), NewConstant(ID_REMESA, datInteger), dboEqual);
+
+      if IsEmpty then
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
     end;
+
   finally
     HideHourglassCursor;
   end;
@@ -803,6 +824,26 @@ begin
   Result := ASeleccionados;
 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);
 var
   AReportController : IRecibosClienteReportController;
diff --git a/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.dproj b/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.dproj
index cdd8e9ed..e2ea6340 100644
--- a/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.dproj	
+++ b/Source/Modulos/Recibos de proveedor/Controller/RecibosProveedor_controller.dproj	
@@ -40,57 +40,17 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
-<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>
+<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>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>
     <DelphiCompile Include="RecibosProveedor_controller.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Lib\Base.dcp" />
-    <DCCReference Include="..\..\Lib\Contactos_controller.dcp" />
-    <DCCReference Include="..\..\Lib\RecibosProveedor_data.dcp" />
-    <DCCReference Include="..\..\Lib\RecibosProveedor_model.dcp" />
+    <DCCReference Include="..\Base.dcp" />
+    <DCCReference Include="..\Contactos_controller.dcp" />
+    <DCCReference Include="..\RecibosProveedor_data.dcp" />
+    <DCCReference Include="..\RecibosProveedor_model.dcp" />
     <DCCReference Include="uPagosProveedorController.pas" />
     <DCCReference Include="uRecibosProveedorController.pas" />
     <DCCReference Include="uRecibosProveedorReportController.pas" />
@@ -101,7 +61,6 @@
     <DCCReference Include="View\uIEditorRecibosProveedorPreview.pas" />
   </ItemGroup>
 </Project>
-
 <!-- EurekaLog First Line
 [Exception Log]
 EurekaLog Version=6006
diff --git a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas
index 49328ac0..eaca526f 100644
--- a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas	
+++ b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas	
@@ -77,6 +77,9 @@ type
   private
     function ImporteTotalModificado(ARecibosProveedor: IBizRecibosProveedor;
       var ImporteRestante: Currency): Boolean;
+
+    procedure FiltrarEmpresa(ARecibo: IBizRecibosProveedor);
+
   protected
     FDataModule : IDataModuleRecibosProveedor;
     FPagosController : IPagosProveedorController;
@@ -89,7 +92,6 @@ type
 
     function ValidarReciboProveedor(ARecibosProveedor: IBizRecibosProveedor): Boolean;
     procedure AsignarDataModule;
-    procedure AsignarID(ARecibosProveedor: IBizRecibosProveedor; const IDNuevo: Integer);
     function DarNuevaReferencia(ID_FACTURA : Integer; REFERENCIA: String): String;
 
   public
@@ -196,29 +198,6 @@ begin
   FDataModule := TDataModuleRecibosProveedor.Create(Nil);
 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);
 begin
   if Assigned(ARecibos) then
@@ -235,7 +214,6 @@ begin
           //para que asigne un ID nuevo para el pago, porque aqui si hay maestro-detalle
           AnadirPago(ARecibos, DateToStr(Date)); //->Ojo el orden es importante
           ARecibos.ID_REMESA := ID_REMESA;
-          AsignarID(ARecibos, ARecibos.ID);
         end;
         Next;
       end;
@@ -246,6 +224,7 @@ end;
 function TRecibosProveedorController.BuscarTodos: IBizRecibosProveedor;
 begin
   Result := FDataModule.GetItems;
+  FiltrarEmpresa(Result);
 end;
 
 constructor TRecibosProveedorController.Create;
@@ -260,20 +239,26 @@ end;
 function TRecibosProveedorController.Buscar(const ID: Integer): IBizRecibosProveedor;
 begin
   Result := (FDataModule as IDataModuleRecibosProveedor).GetItem(ID);
+  FiltrarEmpresa(Result);
 end;
 
 function TRecibosProveedorController.BuscarRecibosFactura(const ID_FACTURA: Integer): IBizRecibosProveedor;
+var
+  Condicion: TDAWhereExpression;
 begin
   ShowHourglassCursor;
   try
     Result := BuscarTodos;
-    with Result.DataTable.Where do
+    // Filtrar los recibos de una determinada factura
+    with Result.DataTable.DynamicWhere do
     begin
-      if NotEmpty then
-         AddOperator(opAND);
-      OpenBraket;
-      AddText(fld_RecibosProveedorID_FACTURA + ' = ' + IntToStr(ID_FACTURA));
-      CloseBraket;
+      // (ID_FACTURA = ID_FACTURA)
+      Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorID_FACTURA), NewConstant(ID_FACTURA, datInteger), dboEqual);
+
+      if IsEmpty then
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
     end;
   finally
     HideHourglassCursor;
@@ -281,6 +266,8 @@ begin
 end;
 
 function TRecibosProveedorController.BuscarRecibosACompensar(const Recibo: IBizRecibosProveedor): IBizRecibosProveedor;
+var
+  Condicion: TDAWhereExpression;
 begin
   if not Assigned(Recibo) then
      raise Exception.Create ('IBizReciboProveedor no asignado (BuscarRecibosACompensar)');
@@ -288,36 +275,49 @@ begin
   ShowHourglassCursor;
   try
     Result := BuscarTodos;
-    with Result.DataTable.Where do
+
+    with Result.DataTable.DynamicWhere do
     begin
-      if NotEmpty then
-         AddOperator(opAND);
-
       //No podrá compensarse un recibo a si mismo
-      OpenBraket;
-      AddText(fld_RecibosProveedorID + ' <> ' + IntToStr(Recibo.ID));
-      CloseBraket;
+      Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorID), NewConstant(Recibo.ID, datInteger), dboNotEqual);
 
-      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
-      OpenBraket;
-      AddText(fld_RecibosProveedorID_PROVEEDOR + ' = ' + IntToStr(Recibo.ID_PROVEEDOR));
-      CloseBraket;
+      Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorID_PROVEEDOR), NewConstant(Recibo.ID_PROVEEDOR, datInteger), dboEqual);
 
-      AddOperator(opAND);
+      if IsEmpty then
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
+    end;
 
+    with Result.DataTable.DynamicWhere do
+    begin
       //Omitimos los recibos compensados
-      OpenBraket;
-      AddText(fld_RecibosProveedorID_RECIBO_COMPENSADO + ' IS NULL ');
-      CloseBraket;
+      Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorID_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)
-      OpenBraket;
-      AddText(fld_RecibosProveedorSITUACION + ' <> ''' + CTE_PAGADO + '''');
-      CloseBraket;
+      Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorSITUACION), NewConstant(CTE_PAGADO, datString), dboNotEqual);
+
+      if IsEmpty then
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
     end;
   finally
     HideHourglassCursor;
@@ -325,23 +325,33 @@ begin
 end;
 
 function TRecibosProveedorController.BuscarRecibosARemesar: IBizRecibosProveedor;
+var
+  Condicion: TDAWhereExpression;
 begin
   ShowHourglassCursor;
   try
     Result := BuscarTodos;
-    with Result.DataTable.Where do
+
+    with Result.DataTable.DynamicWhere do
     begin
-      if NotEmpty then
-         AddOperator(opAND);
       //Omitimos los recibos compensados
-      OpenBraket;
-      AddText(fld_RecibosProveedorID_RECIBO_COMPENSADO + ' IS NULL ');
-      CloseBraket;
-      AddOperator(opAND);
+      Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorID_RECIBO_COMPENSADO), NewNull(), dboEqual);
+
+      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 pagados (Pendientes/Devueltos)
-      OpenBraket;
-      AddText(fld_RecibosProveedorSITUACION + ' <> ''' + CTE_PAGADO + '''');
-      CloseBraket;
+      Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorSITUACION), NewConstant(CTE_PAGADO, datString), dboNotEqual);
+
+      if IsEmpty then
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
     end;
   finally
     HideHourglassCursor;
@@ -349,18 +359,25 @@ begin
 end;
 
 function TRecibosProveedorController.BuscarRecibosRemesa(const ID_REMESA: Integer): IBizRecibosProveedor;
+var
+  Condicion: TDAWhereExpression;
 begin
   ShowHourglassCursor;
   try
     Result := BuscarTodos;
-    with Result.DataTable.Where do
+    
+    // Filtrar los recibos de una determinada remesa
+    with Result.DataTable.DynamicWhere do
     begin
-      if NotEmpty then
-         AddOperator(opAND);
-      OpenBraket;
-      AddText(fld_RecibosProveedorID_REMESA + ' = ' + IntToStr(ID_REMESA));
-      CloseBraket;
+      // (ID_REMESA = ID)
+      Condicion := NewBinaryExpression(NewField('', fld_RecibosProveedorID_REMESA), NewConstant(ID_REMESA, datInteger), dboEqual);
+
+      if IsEmpty then
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
     end;
+
   finally
     HideHourglassCursor;
   end;
@@ -748,6 +765,26 @@ begin
   Result := ASeleccionados;
 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);
 var
   AReportController : IRecibosProveedorReportController;
diff --git a/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas b/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas
index ea9d8c79..225d99bc 100644
--- a/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas	
+++ b/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas	
@@ -455,18 +455,22 @@ begin
 end;
 
 procedure TRemesasClienteController.FiltrarEmpresa(ARemesaCliente: IBizRemesaCliente);
+var
+  Condicion: TDAWhereExpression;
 begin
   if ARemesaCliente.DataTable.Active then
-    ARemesaCliente.DataTable.Active := False;
+     ARemesaCliente.DataTable.Active := False;
 
-  // Filtrar los contactos actuales por empresa
-  with ARemesaCliente.DataTable.Where do
+  // Filtrar las remesas actuales por empresa
+  with AAlbaran.DataTable.DynamicWhere do
   begin
-    if NotEmpty then
-      AddOperator(opAND);
-    // Para evitar ambigüedades en la SQL del servidor
-    AddText(fld_RemesasClienteID_EMPRESA + ' = ' + IntToStr(dmUsuarios.IDEmpresaActual));
-//    AddCondition('##' + fld_RemesasClienteID_EMPRESA, cEqual, dmUsuarios.IDEmpresaActual);
+    // (ID_EMPRESA >= ID)
+    Condicion := NewBinaryExpression(NewField('', fld_RemesasClienteID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual);
+
+    if IsEmpty then
+       Expression := Condicion
+    else
+       Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
   end;
 end;
 
diff --git a/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas b/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas
index 02ff0c17..25e35f46 100644
--- a/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas	
+++ b/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas	
@@ -455,18 +455,22 @@ begin
 end;
 
 procedure TRemesasProveedorController.FiltrarEmpresa(ARemesaProveedor: IBizRemesaProveedor);
+var
+  Condicion: TDAWhereExpression;
 begin
   if ARemesaProveedor.DataTable.Active then
     ARemesaProveedor.DataTable.Active := False;
 
-  // Filtrar los contactos actuales por empresa
-  with ARemesaProveedor.DataTable.Where do
+  // Filtrar las remesas actuales por empresa
+  with AAlbaran.DataTable.DynamicWhere do
   begin
-    if NotEmpty then
-      AddOperator(opAND);
-    // Para evitar ambigüedades en la SQL del servidor
-    AddText(fld_RemesasProveedorID_EMPRESA + ' = ' + IntToStr(dmUsuarios.IDEmpresaActual));
-//    AddCondition('##' + fld_RemesasProveedorID_EMPRESA, cEqual, dmUsuarios.IDEmpresaActual);
+    // (ID_EMPRESA >= ID)
+    Condicion := NewBinaryExpression(NewField('', fld_RemesasProveedorID_EMPRESA), NewConstant(AppFactuGES.EmpresaActiva.ID, datInteger), dboEqual);
+
+    if IsEmpty then
+       Expression := Condicion
+    else
+       Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
   end;
 end;
 
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index 16ae3e2fa379976df9fac7eda0939ce8637c5eb2..acc82c9153637b07d5ad325e0f200adc7a179572 100644
GIT binary patch
delta 77
zcmZ3nm2u5h#tnBO7&lD58zB!Q|3*YJ@=cD6RAziNxi+$zIgdeo^6yAl(G-S!hFpeB
fhCGIJAWMfqfx(c$VzPFWF{>ei2?N9A#3*+FW4#y@

delta 73
zcmZ3pm2t&Z#tnBO7}rd`8zB!Q|3*YJ@=T75RAziJxi+$zIfp@Q^6yAl;bMk|3`q=$
d3@Hrx3_1)742BHmlXatvnT;6?CZ|TZ0{{=47y$qP

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