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
This commit is contained in:
parent
c0e8884303
commit
b11ba9df75
@ -186,10 +186,6 @@ procedure TBizRecibosCliente.SetRecibosCompensados(const Value: IBizRecibosCompe
|
|||||||
begin
|
begin
|
||||||
FRecibosCompensados := Value;
|
FRecibosCompensados := Value;
|
||||||
EnlazarMaestroDetalle(FRecibosCompensadosLink, FRecibosCompensados);
|
EnlazarMaestroDetalle(FRecibosCompensadosLink, FRecibosCompensados);
|
||||||
|
|
||||||
if Assigned(FRecibosCompensados) then
|
|
||||||
if not FRecibosCompensados.DataTable.Active then
|
|
||||||
FRecibosCompensados.DataTable.Active := True;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TBizRecibosCliente._GetCliente: IBizCliente;
|
function TBizRecibosCliente._GetCliente: IBizCliente;
|
||||||
|
|||||||
@ -187,10 +187,6 @@ procedure TBizRecibosProveedor.SetRecibosCompensados(const Value: IBizRecibosCom
|
|||||||
begin
|
begin
|
||||||
FRecibosCompensados := Value;
|
FRecibosCompensados := Value;
|
||||||
EnlazarMaestroDetalle(FRecibosCompensadosLink, FRecibosCompensados);
|
EnlazarMaestroDetalle(FRecibosCompensadosLink, FRecibosCompensados);
|
||||||
|
|
||||||
if Assigned(FRecibosCompensados) then
|
|
||||||
if not FRecibosCompensados.DataTable.Active then
|
|
||||||
FRecibosCompensados.DataTable.Active := True;
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
function TBizRecibosProveedor.SinFactura: Boolean;
|
function TBizRecibosProveedor.SinFactura: Boolean;
|
||||||
|
|||||||
@ -16,7 +16,7 @@ BEGIN
|
|||||||
VALUE "FileVersion", "2.4.4.0\0"
|
VALUE "FileVersion", "2.4.4.0\0"
|
||||||
VALUE "ProductName", "FactuGES (Servidor)\0"
|
VALUE "ProductName", "FactuGES (Servidor)\0"
|
||||||
VALUE "ProductVersion", "2.4.4.0\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
|
||||||
END
|
END
|
||||||
BLOCK "VarFileInfo"
|
BLOCK "VarFileInfo"
|
||||||
|
|||||||
Binary file not shown.
Loading…
Reference in New Issue
Block a user