From ce7767ac18c98c6d75368faeda666e5997518f89 Mon Sep 17 00:00:00 2001 From: augusto Date: Thu, 13 Nov 1997 14:24:25 +0000 Subject: [PATCH] Tabella province di origine git-svn-id: svn://10.65.10.50/trunk@5611 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- ve/batbprv.uml | 62 ++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 62 insertions(+) create mode 100755 ve/batbprv.uml 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