From ad7d3bf77917900d380d07a40b16c98a096244d6 Mon Sep 17 00:00:00 2001 From: roberto Date: Thu, 22 Jan 2009 08:59:18 +0000 Subject: [PATCH] =?UTF-8?q?Se=20arregla=20la=20llamada=20de=20duplicar=20r?= =?UTF-8?q?egistros=20para=20que=20permita=20a=C3=B1adir=20registros=20rep?= =?UTF-8?q?etidos=20a=20la=20lista=20de=20recibos=20de=20la=20remesa.=20(s?= =?UTF-8?q?i=20no=20le=20dejamos=20el=20duplicar=20falla=20y=20no=20a?= =?UTF-8?q?=C3=B1ade=20mas=20recibos=20que=20los=20primeros=20elegidos.?= 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.Tecsitel_FactuGES2/trunk@855 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- .../Remesas de cliente/Controller/uRemesasClienteController.pas | 2 +- .../Controller/uRemesasProveedorController.pas | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas b/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas index 34ce6b24..697b3e4a 100644 --- a/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas +++ b/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas @@ -294,7 +294,7 @@ begin ARecibosRemesa := ARemesaCliente.Recibos; //Copia los recibos seleccionados a los recibos de la remesa sin que el servidor se entere de //las inserciones - DuplicarRegistros(ARecibosSeleccionados.DataTable,ARecibosRemesa.DataTable, mdrTodos, False, False, True); + DuplicarRegistros(ARecibosSeleccionados.DataTable,ARecibosRemesa.DataTable, mdrTodos, True, False, True); FRecibosClienteController.SetSituacionCobrados(ARecibosRemesa); Result := True; finally diff --git a/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas b/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas index bba02c43..df306448 100644 --- a/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas +++ b/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas @@ -296,7 +296,7 @@ begin ARecibosRemesa := ARemesaProveedor.Recibos; //Copia los recibos seleccionados a los recibos de la remesa sin que el servidor se entere de //las inserciones - DuplicarRegistros(ARecibosSeleccionados.DataTable,ARecibosRemesa.DataTable, mdrTodos, False, False, True); + DuplicarRegistros(ARecibosSeleccionados.DataTable,ARecibosRemesa.DataTable, mdrTodos, True, False, True); FRecibosProveedorController.SetSituacionCobrados(ARecibosRemesa); Result := True; finally