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

Tabella province di origine

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@5611 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto 1997-11-13 14:24:25 +00:00
parent c27498f6a3
commit ce7767ac18
1 changed files with 62 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

62
ve/batbprv.uml Executable file
View File

@ -0,0 +1,62 @@
TOOLBAR "" 0 20 60 2
#include <toolbar.h>
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