diff --git a/ba/batbinl.uml b/ba/batbinl.uml index 63f2049c1..13bb2cc7d 100755 --- a/ba/batbinl.uml +++ b/ba/batbinl.uml @@ -121,7 +121,7 @@ BEGIN PROMPT 1 8 "Codice registro " FIELD CODREG FLAGS "UZ" - USE REG SELECT CODTAB[1,4]=#F_ANNO + USE REG INPUT CODTAB[1,4] F_ANNO INPUT CODTAB[5,7] F_CODREG DISPLAY "Anno" CODTAB[1,4] @@ -129,14 +129,13 @@ BEGIN DISPLAY "Descrizione@50" S0 OUTPUT F_CODREG CODTAB[5,7] OUTPUT F_DESCREG S0 - VALIDATE NOT_EMPTY_CHECK_FIELD CHECKTYPE REQUIRED END STRING F_DESCREG 50 BEGIN PROMPT 1 9 "Descrizione " - USE REG KEY 2 SELECT CODTAB[1,4]=#F_ANNO + USE REG KEY 2 INPUT S0 F_DESCREG DISPLAY "Descrizione@50" S0 DISPLAY "Codice registro" CODLIB @@ -193,8 +192,10 @@ BOOLEAN F_PANN_LU BEGIN PROMPT 36 16 "Pagine libro unico annullate" FIELD ANNULLATE - MESSAGE FALSE REQUIRED,F_DITTA|REQUIRED,F_CODREG - MESSAGE TRUE NORMAL,F_DITTA|NORMAL,F_CODREG + MESSAGE FALSE ENABLE,F_DITTA|ENABLE,F_RAGSOC + MESSAGE FALSE ENABLE,F_CODREG|ENABLE,F_DESCREG + MESSAGE TRUE CLEAR,F_DITTA|DISABLE,F_RAGSOC + MESSAGE TRUE CLEAR,F_CODREG|CLEAR,F_DESCREG|"Pagine annullate",F_DESCREG END ENDPAGE