Yo lo intentaría con un bucle (algo así):
var: val_gjahr like ACCIT_GLX-GJAHR.
var: ano_ref like referencia.
** (Referencia) sería el campo o variable que contiene el valor en tu programa del año a buscar.
ano_ref = referencia
do while val_gjahr is not initial or ano_ref = 1900.
select GJAHR into val_gjahr from ACCIT_GLX where GJAHR = ano_ref.
if val_gjahr is initial.
ano_ref = ano_ref - 1.
endif.
enddo.
En este caso he puesto un valor de año mínimo (1900) a buscar para que el bucle no sea infinito y no tarde tanto en caso de no encontrar datos.
|