diff --git a/ba/batb%ban.uml b/ba/batb%ban.uml index 520d31778..0f91ceb6b 100755 --- a/ba/batb%ban.uml +++ b/ba/batb%ban.uml @@ -15,17 +15,13 @@ BEGIN FIELD %BAN->CODTAB[1,5] FLAGS "RZ" KEY 1 - USE %BAN - INPUT CODTAB[1,5] F_CODICEABI - INPUT CODTAB[6,10] F_CODICECAB + USE %BAN KEY 1 SELECT CODTAB ?= "?????" + INPUT CODTAB F_CODICEABI DISPLAY "Codice ABI" CODTAB[1,5] DISPLAY "Codice CAB" CODTAB[6,10] DISPLAY "Denominazione@50" S0 OUTPUT F_CODICEABI CODTAB[1,5] - OUTPUT F_CODICECAB CODTAB[6,10] - OUTPUT F_DENOM S0 MESSAGE COPY,H_CODICEABI - GROUP GR_SEARCH END NUMBER F_CODICECAB 5 @@ -34,10 +30,17 @@ BEGIN FIELD %BAN->CODTAB[6,10] FLAGS "RZ" KEY 1 - COPY ALL F_CODICEABI + USE %BAN + 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 MESSAGE SHOW,F_ISTIT MESSAGE EMPTY HIDE,F_ISTIT VALIDATE AUTOEXIT_FUNC 2 F_CODICEABI F_CODICECAB + GROUP GR_SEARCH END NUMBER F_CODICEDIP 4 @@ -74,7 +77,7 @@ BEGIN DISPLAY "Dipendenza@35" S1 DISPLAY "Codice ABI" CODTAB[1,5] DISPLAY "Codice CAB" CODTAB[6,10] - COPY OUTPUT F_CODICEABI + COPY OUTPUT F_CODICECAB CHECKTYPE REQUIRED END