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

Allungata descrizione

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@488 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1994-10-28 17:36:13 +00:00
parent 9c17a9fc56
commit 91709b3849
1 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
ba/batb%ivd.uml
View File

@ -31,7 +31,7 @@ BEGIN
INPUT CODTAB[2,2] F_LETT
DISPLAY "Sezione" CODTAB[1,1]
DISPLAY "Lettera" CODTAB[2,2]
DISPLAY "Descrizione@50" S0
DISPLAY "Descrizione@70" S0
OUTPUT F_SEZ CODTAB[1,1]
OUTPUT F_LETT CODTAB[2,2]
OUTPUT F_DESCR_LETT S0
@ -40,7 +40,7 @@ BEGIN
GROUP GR_SEARCH
END
STRING F_DESCR_LETT 50
STRING F_DESCR_LETT 70 50
BEGIN
PROMPT 22 3 ""
FLAGS "D"
@ -58,7 +58,7 @@ BEGIN
DISPLAY "Sezione" CODTAB[1,1]
DISPLAY "Lettera" CODTAB[2,2]
DISPLAY "Classe @M" CODTAB[3,6]
DISPLAY "Descrizione@50" S0
DISPLAY "Descrizione@70" S0
OUTPUT F_SEZ CODTAB[1,1]
OUTPUT F_LETT CODTAB[2,2]
OUTPUT F_CLASSE CODTAB[3,6]
@ -67,7 +67,7 @@ BEGIN
HELP "Classe secondo la IV dir. CEE (numero romano)"
END
STRING F_DESCR_CLAS 50
STRING F_DESCR_CLAS 70 50
BEGIN
PROMPT 22 5 ""
FLAGS "D"
@ -86,7 +86,7 @@ BEGIN
DISPLAY "Lettera" CODTAB[2,2]
DISPLAY "Classe @M" CODTAB[3,6]
DISPLAY "Numero" CODTAB[7,8]
DISPLAY "Descrizione@50" S0
DISPLAY "Descrizione@70" S0
OUTPUT F_NUM CODTAB[7,8]
OUTPUT F_SEZ CODTAB[1,1]
OUTPUT F_LETT CODTAB[2,2]
@ -96,14 +96,19 @@ BEGIN
VALIDATE AUTOEXIT_FUNC 2 F_LETT F_NUM
END
STRING F_DESCR 70 50
TEXT DLG_NULL
BEGIN
PROMPT 22 7 ""
PROMPT 1 9 "Descrizione"
END
STRING F_DESCR 70
BEGIN
PROMPT 2 11 ""
FIELD %IVD->S0
KEY 2
USE %IVD KEY 2
INPUT S0 F_DESCR
DISPLAY "Descrizione@50" S0
DISPLAY "Descrizione@70" S0
DISPLAY "Sezione" CODTAB[1,1]
DISPLAY "Lettera" CODTAB[2,2]
DISPLAY "Classe @M" CODTAB[3,6]