Corretta ricerca sui libri

git-svn-id: svn://10.65.10.50/trunk@1035 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1995-02-24 15:36:32 +00:00
parent ca0cd6f769
commit 20e08fcce7

View File

@ -16,8 +16,8 @@ BEGIN
USE %LBU USE %LBU
INPUT CODTAB[1,4] F_ANNO INPUT CODTAB[1,4] F_ANNO
INPUT CODTAB[5,7] F_CODLIB INPUT CODTAB[5,7] F_CODLIB
DISPLAY "Anno" ANNO DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Libro" CODLIB DISPLAY "Libro" CODTAB[5,7]
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_ANNO CODTAB[1,4] OUTPUT F_ANNO CODTAB[1,4]
OUTPUT F_CODLIB CODTAB[5,7] OUTPUT F_CODLIB CODTAB[5,7]
@ -117,24 +117,23 @@ STRING F_CODREG 3
BEGIN BEGIN
PROMPT 1 8 "Codice registro " PROMPT 1 8 "Codice registro "
FIELD CODREG FIELD CODREG
USE REG
FLAGS "UZ" FLAGS "UZ"
USE REG SELECT CODTAB[1,4]=#F_ANNO
INPUT CODTAB[1,4] F_ANNOREG INPUT CODTAB[1,4] F_ANNOREG
INPUT CODTAB[5,7] F_CODREG INPUT CODTAB[5,7] F_CODREG
DISPLAY "Anno" ANNO DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Codice" CODLIB DISPLAY "Codice" CODTAB[5,7]
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_ANNOREG CODTAB[1,4]
OUTPUT F_CODREG CODTAB[5,7] OUTPUT F_CODREG CODTAB[5,7]
OUTPUT F_DESCREG S0 OUTPUT F_DESCREG S0
CHECKTYPE REQUIRED
VALIDATE NOT_EMPTY_CHECK_FIELD VALIDATE NOT_EMPTY_CHECK_FIELD
CHECKTYPE REQUIRED
END END
STRING F_DESCREG 50 STRING F_DESCREG 50
BEGIN BEGIN
PROMPT 1 9 "Descrizione " PROMPT 1 9 "Descrizione "
USE REG KEY 2 SELECT ANNO=#F_ANNO USE REG KEY 2 SELECT CODTAB[1,4]=#F_ANNO
INPUT S0 F_DESCREG INPUT S0 F_DESCREG
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Codice registro" CODLIB DISPLAY "Codice registro" CODLIB