Quando fazemos uma consulta no formulario onde são retornados todos os registros, Abaixo (rodapé) no Forms Runtime é apresentado um contador,no qual a cada mundança de linha(next_record) e acrescido um número.
Ex.: Registros: 1/?, 2/?, 3/?, 4/? etc...
Estou querendo fazer o mesmo, só que dentro do meu Canvas.
Criei 2 campos e 1 Botão:
O 1° Campo vai receber o contador.
O 2° Campo vai receber o total das linhas recuperadas no BD.
E o Botão vai ser responsável pela troca de linhas, ao mesmo tempo em
que conta + 1 no campo1.
Abaixo segue o código do botão (trigger When-Button-Pressed):
IF :SYSTEM.LAST_RECORD <> 'TRUE' THEN
NEXT_RECORD;
:TABELA.CAMPO1 := :TABELA.CAMPO1 + 1;
END IF;
a procedure NEXT_RECORD funciona.
Se alguém puder me dar uma solução para este problema, ou melhor, tiver uma outra solução...
Desde já, Agradeço!
Obs.: Criei um Trigger(Post-Query) a nível de bloco para preencher o Campo2:
BEGIN
SELECT COUNT(*) INTO CAMPO2
FROM TABELA;
:TABELA.CAMPO1 := 1;
END;