From 32b78b5fa8c7f92bead68e4ae07d6a9098e3d98a Mon Sep 17 00:00:00 2001 From: david Date: Mon, 22 Dec 2008 16:20:07 +0000 Subject: [PATCH] =?UTF-8?q?Ticket=20#162=20->=20Si=20se=20cambia=20una=20l?= =?UTF-8?q?inea=20de=20concepto=20a=20tipo=20titulo=20no=20me=20cambia=20e?= =?UTF-8?q?l=20estilo=20del=20concepto=20ni=20me=20borra=20la=20informaci?= =?UTF-8?q?=C3=B3n=20de=20las=20otras=20columnas?= 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@812 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- .../Controladores/uControllerDetallesBase.pas | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) diff --git a/Source/Base/Controladores/uControllerDetallesBase.pas b/Source/Base/Controladores/uControllerDetallesBase.pas index c608254c..8d4fff2f 100644 --- a/Source/Base/Controladores/uControllerDetallesBase.pas +++ b/Source/Base/Controladores/uControllerDetallesBase.pas @@ -732,6 +732,23 @@ begin if ((ATipoCampo = TIPO_DETALLE_TITULO) or (ATipoCampo = TIPO_DETALLE_TITULO_OPCIONAL)) then begin + // Borramos cualquier valor que haya en las columnas de cantidad, importe, etc. + with ADataTable.DataTable do + begin + if not ADataTable.DataTable.Editing then + ADataTable.DataTable.Edit; + FieldByName(CAMPO_CANTIDAD).AsVariant := Null; + FieldByName(CAMPO_IMPORTE_UNIDAD).AsVariant := Null; + FieldByName(CAMPO_IMPORTE_TOTAL).AsVariant := Null; + FieldByName(CAMPO_DESCUENTO).AsVariant := Null; + FieldByName(CAMPO_IMPORTE_PORTE).AsVariant := Null; + + if Assigned(FindField('UNIDAD_MEDIDA')) then + FieldByName('UNIDAD_MEDIDA').AsVariant := Null; + + ADataTable.DataTable.Post; + end; + if bEnCapitulo then begin ADataTable.DataTable.First;