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

Correzione AGA n.133

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@148 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1994-09-05 10:05:46 +00:00
parent 74a05e5648
commit be8ec5069e
1 changed files with 60 additions and 60 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
ba/bast%ivd.uml
View File

@ -7,21 +7,21 @@ BEGIN
PROMPT 2 1 "Da sezione "
FLAGS "U"
HELP "Inserire il codice d'inizio "
FIELD LF_TABCOM->CODTAB[1,1]
FIELD CODTAB[1,1]
USE %IVD
INPUT CODTAB[1,1] F_INIZIO1
INPUT CODTAB[2,2] F_INIZIO2
INPUT CODTAB[3,10] F_INIZIO3
INPUT CODTAB[11,12] F_INIZIO4
INPUT CODTAB[3,6] F_INIZIO3
INPUT CODTAB[7,8] F_INIZIO4
DISPLAY "Sezione" CODTAB[1,1]
DISPLAY "Lettera" CODTAB[2,2]
DISPLAY "Classe " CODTAB[3,10]
DISPLAY "Numero" CODTAB[11,12]
DISPLAY "Classe " CODTAB[3,6]
DISPLAY "Numero" CODTAB[7,8]
DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB[1,1]
OUTPUT F_INIZIO2 CODTAB[2,2]
OUTPUT F_INIZIO3 CODTAB[3,10]
OUTPUT F_INIZIO4 CODTAB[11,12]
OUTPUT F_INIZIO3 CODTAB[3,6]
OUTPUT F_INIZIO4 CODTAB[7,8]
GROUP 1
END
@ -30,17 +30,17 @@ BEGIN
PROMPT 17 1 "Da lettera "
FLAGS "U"
HELP "Inserire il codice d'inizio "
FIELD LF_TABCOM->CODTAB[2,2]
FIELD CODTAB[2,2]
COPY ALL F_INIZIO1
GROUP 1
END
NUMBER F_INIZIO3 8
NUMBER F_INIZIO3 8 4
BEGIN
PROMPT 32 1 "Da classe "
FLAGS "UM"
HELP "Inserire il codice d'inizio "
FIELD LF_TABCOM->CODTAB[3,10]
FIELD CODTAB[3,6]
COPY ALL F_INIZIO1
GROUP 1
END
@ -50,7 +50,7 @@ BEGIN
PROMPT 53 1 "Da numero "
FLAGS "RZ"
HELP "Inserire il codice d'inizio "
FIELD LF_TABCOM->CODTAB[11,12]
FIELD CODTAB[7,8]
COPY ALL F_INIZIO1
GROUP 1
END
@ -59,18 +59,18 @@ STRING F_FINE1 1
BEGIN
PROMPT 2 3 "A sezione "
HELP "Inserire il codice di fine "
FIELD LF_TABCOM->CODTAB[1,1]
FIELD CODTAB[1,1]
FLAGS "U"
COPY USE F_INIZIO1
INPUT CODTAB[1,1] F_FINE1
INPUT CODTAB[2,2] F_FINE2
INPUT CODTAB[3,10] F_FINE3
INPUT CODTAB[11,12] F_FINE4
INPUT CODTAB[3,6] F_FINE3
INPUT CODTAB[7,8] F_FINE4
COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB[1,1]
OUTPUT F_FINE2 CODTAB[2,2]
OUTPUT F_FINE3 CODTAB[3,10]
OUTPUT F_FINE4 CODTAB[11,12]
OUTPUT F_FINE3 CODTAB[3,6]
OUTPUT F_FINE4 CODTAB[7,8]
GROUP 2
END
@ -80,16 +80,16 @@ BEGIN
FLAGS "U"
COPY ALL F_FINE1
HELP "Inserire il codice di fine "
FIELD LF_TABCOM->CODTAB[2,2]
FIELD CODTAB[2,2]
GROUP 2
END
NUMBER F_FINE3 8
NUMBER F_FINE3 8 4
BEGIN
PROMPT 32 3 "A classe "
FLAGS "UM"
HELP "Inserire il codice di fine "
FIELD LF_TABCOM->CODTAB[3,10]
FIELD CODTAB[3,6]
COPY ALL F_FINE1
GROUP 2
END
@ -99,7 +99,7 @@ BEGIN
PROMPT 53 3 "A numero "
FLAGS "RZ"
HELP "Inserire il codice di fine "
FIELD LF_TABCOM->CODTAB[11,12]
FIELD CODTAB[7,8]
COPY ALL F_FINE1
GROUP 2
END