Presupuestos de cliente -> En el informe, numerar los capítulos en el resumen.

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@596 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-09-18 15:59:29 +00:00
parent 6bffc04ea2
commit beff383d8d

View File

@ -3599,6 +3599,7 @@ begin
EXISTE = 1; EXISTE = 1;
end end
num_capitulos = 1;
if (existe = 1) then if (existe = 1) then
begin begin
contador = 0; contador = 0;
@ -3611,12 +3612,13 @@ begin
do do
begin begin
contador = contador + 1; contador = contador + 1;
num_capitulos = num_capitulos + 1;
if ((tipo_detalle <> 'Concepto') or (contador = num_filas)) then if ((tipo_detalle <> 'Concepto') or (contador = num_filas)) then
begin begin
total_acumulado = total_acumulado + importe_total; total_acumulado = total_acumulado + importe_total;
importe_total = total_acumulado; importe_total = total_acumulado;
tipo_detalle = 'Titulo'; tipo_detalle = 'Titulo';
concepto = 'General'; concepto = 'CAPÍTULO ' || num_capitulos ||'. General';
visible = 1; visible = 1;
ID = -1; ID = -1;
posicion = -1; posicion = -1;
@ -3649,8 +3651,9 @@ begin
end end
if (tipo_detalle = 'Subtotal') then if (tipo_detalle = 'Subtotal') then
begin begin
concepto = concepto_capitulo; concepto = 'CAPÍTULO ' || num_capitulos || '. ' || concepto_capitulo;
tipo_detalle = tipo; tipo_detalle = tipo;
num_capitulos = num_capitulos + 1;
suspend; suspend;
end end
end end