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;