root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Maschera province

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@5504 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto 1997-10-31 15:11:02 +00:00
parent 4f9f5a5d23
commit fb516bc58a
1 changed files with 57 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
mg/batbprv.uml Executable file
View File

@ -0,0 +1,57 @@
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
WA "Regione errata"
END
STRING 104 50
BEGIN
PROMPT 1 8 "Denominaz. reg. "
US %RGI KE 2
IN S0 104
DISPLAY "Descrizione @50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT 103
CH NORMAL
WA "Regione errata"
END
END
ENDDMASK