diff --git a/ve/batbprv.uml b/ve/batbprv.uml new file mode 100755 index 000000000..5de4fa9ea --- /dev/null +++ b/ve/batbprv.uml @@ -0,0 +1,62 @@ +TOOLBAR "" 0 20 60 2 +#include +ENDPAGE + +PAGE "Province" -1 -1 78 18 + STRING 101 5 + BEGIN + PROMPT 1 2 "Codice provincia " + FI CODTAB + FL "U" + KE 1 + US %PRV + IN CODTAB 101 + DI "Codice" CODTAB + DI "Descrizione @50" S0 + OUTPUT 101 CODTAB + OUTPUT 102 S0 + CHECK REQUIRED + END + + STRING 102 50 + BEGIN + PROMPT 1 4 "Denominazione " + FIELD S0 + KEY 2 + USE %PRV KE 2 + INPUT S0 102 + DI "Descrizione @50" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT 101 + CHECK REQUIRED + WARNING "La dENDomonazione e' obbligatoria" + END + + NUMBER 103 2 + BEGIN + PROMPT 1 6 "Codice regione " + FIELD S6 + FLAGS "RZ" + USE %RGI + INPUT CODTAB 103 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione @50" S0 + OUTPUT 103 CODTAB + OUTPUT 104 S0 + CH REQUIRED + WARNING "Regione errata" + END + + STRING 104 50 + BEGIN + PROMPT 1 8 "Denominaz. reg. " + USE %RGI KE 2 + INPUT S0 104 + DISPLAY "Descrizione @50" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT 103 + CHECK NORMAL + WARNING "Regione errata" + END + END +ENDDMASK