From 054d7c5424b40932408a4dea3dc2068655b8e401 Mon Sep 17 00:00:00 2001 From: roberto Date: Thu, 29 Jan 2009 09:03:17 +0000 Subject: [PATCH] =?UTF-8?q?Cuando=20se=20modifica=20el=20recibo=20se=20reh?= =?UTF-8?q?ace=20la=20descripci=C3=B3n=20por=20si=20ha=20cambiado=20el=20i?= =?UTF-8?q?mporte?= 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@389 f4e31baf-9722-1c47-927c-6f952f962d4b --- .../Controller/uRecibosClienteController.pas | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas index fcb57c6f..0f440b17 100644 --- a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas +++ b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas @@ -812,6 +812,10 @@ begin ANuevoReciboCliente.IMPORTE := ImporteRestante; ANuevoReciboCliente.DESCRIPCION := 'RECIBO ' + ANuevoReciboCliente.REFERENCIA + ' - ' + CifraToLetras(ImporteRestante); ANuevoReciboCliente.Post; + + ARecibosCliente.Edit; + ARecibosCliente.DESCRIPCION := 'RECIBO ' + ARecibosCliente.REFERENCIA + ' - ' + CifraToLetras(ARecibosCliente.IMPORTE); + ARecibosCliente.Post; end; //Primero debemos hacer el ApplyUpdates del recibo inicial por si fallase