Bucle para items POST-TEXT-ITEM

[itbmf]

Buenos dias a todos:

Vereis, estoy intentando hacer un bucle para un bloque tabular en el que me vaya sumando los contenidos, y necesito hacerlo cada vez que salga de un item, por eso uso POST-TEXT-ITEM. El codigo es este

DECLARE
V_TOTAL_CERT NUMBER;
BEGIN
GO_BLOCK('BL_DESGLOSE');
FIRST_RECORD;
LOOP
EXIT WHEN :BL_DESGLOSE.IMPORTE IS NULL;
V_TOTAL_CERT := V_TOTAL_CERT + :BL_DESGLOSE.IMPORTE;
NEXT_RECORD;
IF (:SYSTEM.LAST_RECORD = 'TRUE') THEN
EXIT;
END IF;
END LOOP;
IF V_TOTAL_CERT > :BL_DESGLOSE.TOTAL_JUST THEN
MSGBOX('El importe certifcado no puede ser mayor que el importe justificado.');
END IF;
END;

El problema es que me da fallos con el GO_BLOCK y con todo lo que haga referencia a _RECORD, (NEXT, FIRST, etc...)

que puedo hacer?

Gracias de antemano.

P.D: por si os sirve de más ayuda lo que pretendo hacer es como el CURRENT_CELL_CHANGED de VB.NET.

[jc3000]

La navegacion está prohibida en los POST, PRE, en algún WHEN y creo que en alguno mas.

Prueba con un KEY ENTER, KEY-NEXT-ITEM, WHEN NEW ITEM INSTANCE, etc etc etc .

Seguro que alguno cuela.

[itbmf]

Bueno, gracias por la aclaración de que no se puede navegar en POST, PRE y el otro que es WHEN VALIDATE ITEM, pero ahora cuando pongo el codigo en alguno de los que me dijiste, no me salta nada, ni error ni lo que tiene que hacer...puede ser que el codigo esté mal???

Saludos y gracias

[jc3000]

No sé, de entrada esto está mal :

LOOP
EXIT WHEN :BL_DESGLOSE.IMPORTE IS NULL;
V_TOTAL_CERT := V_TOTAL_CERT + :BL_DESGLOSE.IMPORTE;
NEXT_RECORD;
IF (:SYSTEM.LAST_RECORD = 'TRUE') THEN
EXIT;
END IF;
END LOOP;

Cambialo por

LOOP
EXIT WHEN :BL_DESGLOSE.IMPORTE IS NULL;
V_TOTAL_CERT := V_TOTAL_CERT + :BL_DESGLOSE.IMPORTE;
IF (:SYSTEM.LAST_RECORD = 'TRUE') THEN
EXIT;
else
NEXT_RECORD;
END IF;
END LOOP;

Como tu lo tienes, no te sumará el importe del ultimo registro. EL resto parece que está bien, pon mensajes en cada paso del código a ver si realmente se ejecuta ese codigo o es que no se dispara el trigger

[kikolice]

o de forma mas eficiente

exit when :SYSTEM.LAST_RECORD = 'TRUE';
NEXT_RECORD;