From 0eab5451b208f082e234e02af24c731007d58832 Mon Sep 17 00:00:00 2001 From: alex Date: Mon, 5 Sep 1994 16:04:08 +0000 Subject: [PATCH] Corretta ricerca. git-svn-id: svn://10.65.10.50/trunk@167 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- ba/batb%ban.uml | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/ba/batb%ban.uml b/ba/batb%ban.uml index 0f91ceb6b..3a0e00baf 100755 --- a/ba/batb%ban.uml +++ b/ba/batb%ban.uml @@ -34,9 +34,9 @@ BEGIN INPUT CODTAB[1,5] F_CODICEABI INPUT CODTAB[6,10] F_CODICECAB COPY DISPLAY F_CODICEABI - OUTPUT F_CODICEABI CODTAB[1,5] OUTPUT F_CODICECAB CODTAB[6,10] OUTPUT F_DENOM S0 + OUTPUT F_CODICEABI CODTAB[1,5] MESSAGE SHOW,F_ISTIT MESSAGE EMPTY HIDE,F_ISTIT VALIDATE AUTOEXIT_FUNC 2 F_CODICEABI F_CODICECAB @@ -68,13 +68,14 @@ END STRING F_DENOM 50 BEGIN - PROMPT 6 5 "Denominazione " + PROMPT 6 5 "Denominazione " FIELD %BAN->S0 KEY 2 USE %BAN KEY 2 INPUT S0 F_DENOM - DISPLAY "Istituto@50" S0 - DISPLAY "Dipendenza@35" S1 + DISPLAY "Denominazione@50" S0 + INPUT CODTAB[1,5] F_CODICEABI + INPUT CODTAB[6,10] F_CODICECAB DISPLAY "Codice ABI" CODTAB[1,5] DISPLAY "Codice CAB" CODTAB[6,10] COPY OUTPUT F_CODICECAB