From 05d00695f124eec738569392cdbb993a7881bacd Mon Sep 17 00:00:00 2001 From: roberto Date: Wed, 16 Jun 2010 10:49:41 +0000 Subject: [PATCH] =?UTF-8?q?Solo=20se=20generar=C3=A1=20un=20recibo=20nuevo?= =?UTF-8?q?=20si=20el=20recibo=20modificado=20est=C3=A1=20asociado=20a=20u?= =?UTF-8?q?na=20facturaa=20y=20se=20modifica=20su=20importe?= 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.Acana_FactuGES2/trunk@514 f4e31baf-9722-1c47-927c-6f952f962d4b --- .../Recibos de cliente/Controller/uPagosClienteController.pas | 4 ++-- .../Controller/uRecibosClienteController.pas | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/Source/Modulos/Recibos de cliente/Controller/uPagosClienteController.pas b/Source/Modulos/Recibos de cliente/Controller/uPagosClienteController.pas index f84b1cc2..af5e93b8 100644 --- a/Source/Modulos/Recibos de cliente/Controller/uPagosClienteController.pas +++ b/Source/Modulos/Recibos de cliente/Controller/uPagosClienteController.pas @@ -130,7 +130,7 @@ begin APagoCliente.Delete; //Todo lo haremos en memoria ya que los pagos no tienen entidad propia - //APagosCliente.DataTable.ApplyUpdates; + //APagoCliente.DataTable.ApplyUpdates; finally HideHourglassCursor; end; @@ -145,7 +145,7 @@ begin APagosCliente.DataTable.ClearRows; //Todo lo haremos en memoria ya que los pagos no tienen entidad propia //APagosCliente.DataTable.ApplyUpdates; - Result := True; + Result := True; end; end; diff --git a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas index b4f7e407..d069bbf8 100644 --- a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas +++ b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas @@ -835,8 +835,8 @@ begin begin ShowHourglassCursor; try - //Si el importe ha cambiado se debe hacer un recibo nuevo con el importe restante - if ImporteTotalModificado(ARecibosCliente, ImporteRestante) then + //Si el recibo está asociado a una factura y el importe ha cambiado se debe hacer un recibo nuevo con el importe restante + if (ARecibosCLiente.ID_FACTURA > 0) and (ImporteTotalModificado(ARecibosCliente, ImporteRestante)) then begin ANuevoReciboCliente := Duplicar(ARecibosCliente); ANuevoReciboCliente.Edit;