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;