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