Correzione agli indici

git-svn-id: svn://10.65.10.50/trunk@1036 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
pirro 1995-02-24 19:33:37 +00:00
parent 20e08fcce7
commit de370fba05

View File

@ -42,11 +42,14 @@ BEGIN
FLAGS "U"
FIELD NUMREG
USE LF_INDLIB
JOIN %LBU INTO CODTAB=ANNO+CODLIB
INPUT ANNO F_ANNO
INPUT CODLIB F_CODLIB
INPUT NUMREG F_INDEX
COPY DISPLAY F_ANNO
DISPLAY "Anno" ANNO
DISPLAY "Libro" CODLIB
DISPLAY "Indice@7" NUMREG
DISPLAY "Descrizione@50" %LBU->S0
OUTPUT F_ANNO ANNO
OUTPUT F_CODLIB CODLIB
OUTPUT F_INDEX NUMREG