From b11ba9df753c6ae06878cbbd608c4731ed7e61b2 Mon Sep 17 00:00:00 2001 From: roberto Date: Mon, 19 Jul 2010 17:08:27 +0000 Subject: [PATCH] Se arregla fallo en la clase de negocio de recibos de cliente y proveedor, ya que se hacia apertura de la tabla de recibis compensados, antes de asignar la clausula where que nos permitiria no hacer fech de todos los elementos. git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@530 f4e31baf-9722-1c47-927c-6f952f962d4b --- .../Model/uBizRecibosCliente.pas | 4 ---- .../Model/uBizRecibosProveedor.pas | 4 ---- Source/Servidor/FactuGES_Server.rc | 2 +- Source/Servidor/FactuGES_Server.res | Bin 23344 -> 23348 bytes 4 files changed, 1 insertion(+), 9 deletions(-) diff --git a/Source/Modulos/Recibos de cliente/Model/uBizRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Model/uBizRecibosCliente.pas index ca8ea065..cf22bb5b 100644 --- a/Source/Modulos/Recibos de cliente/Model/uBizRecibosCliente.pas +++ b/Source/Modulos/Recibos de cliente/Model/uBizRecibosCliente.pas @@ -186,10 +186,6 @@ procedure TBizRecibosCliente.SetRecibosCompensados(const Value: IBizRecibosCompe begin FRecibosCompensados := Value; EnlazarMaestroDetalle(FRecibosCompensadosLink, FRecibosCompensados); - - if Assigned(FRecibosCompensados) then - if not FRecibosCompensados.DataTable.Active then - FRecibosCompensados.DataTable.Active := True; end; function TBizRecibosCliente._GetCliente: IBizCliente; diff --git a/Source/Modulos/Recibos de proveedor/Model/uBizRecibosProveedor.pas b/Source/Modulos/Recibos de proveedor/Model/uBizRecibosProveedor.pas index a0eda6a2..6d1cd021 100644 --- a/Source/Modulos/Recibos de proveedor/Model/uBizRecibosProveedor.pas +++ b/Source/Modulos/Recibos de proveedor/Model/uBizRecibosProveedor.pas @@ -187,10 +187,6 @@ procedure TBizRecibosProveedor.SetRecibosCompensados(const Value: IBizRecibosCom begin FRecibosCompensados := Value; EnlazarMaestroDetalle(FRecibosCompensadosLink, FRecibosCompensados); - - if Assigned(FRecibosCompensados) then - if not FRecibosCompensados.DataTable.Active then - FRecibosCompensados.DataTable.Active := True; end; function TBizRecibosProveedor.SinFactura: Boolean; diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index 061bc54c..4d8ce0a3 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -16,7 +16,7 @@ BEGIN VALUE "FileVersion", "2.4.4.0\0" VALUE "ProductName", "FactuGES (Servidor)\0" VALUE "ProductVersion", "2.4.4.0\0" - VALUE "CompileDate", "martes, 22 de junio de 2010 21:37\0" + VALUE "CompileDate", "viernes, 16 de julio de 2010 13:56\0" END END BLOCK "VarFileInfo" diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res index f34b02c662d3f7954416d5be54cb20f1bb2a3a3f..19019c1f25228015928831f27909b8d8daa8e69a 100644 GIT binary patch delta 116 zcmdn6jd9C1#tnBO7%e8>jgSYDef@m;uQYAYXwYi=mVu2dE++E@H%B090WBR%gs$#b63l%`o|8lsf>s CP#diP delta 112 zcmdn8jd24I-HBi{nS3`w9!UO;h-REJIWkh2v0!s;BsU{-3WL(*?kHKuT!uu3B8C!% zREA;(9R>vkBOp{@NCEN{7_t~j8S)r18S>#GMhpfFhCmEbXUJg1V9a1X`E8Ut07AeU AD*ylh