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

120
ba/bast%ivd.uml
View File

@ -4,114 +4,114 @@ PAGE "Stampa Tabella IV direttiva CEE" -1 -1 69 8
STRING F_INIZIO1 1
BEGIN
PROMPT 2 1 "Da sezione "
FLAGS "U"
HELP "Inserire il codice d'inizio "
FIELD LF_TABCOM->CODTAB[1,1]
PROMPT 2 1 "Da sezione "
FLAGS "U"
HELP "Inserire il codice d'inizio "
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 "Descrizione@50" S0
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]
GROUP 1
OUTPUT F_INIZIO3 CODTAB[3,6]
OUTPUT F_INIZIO4 CODTAB[7,8]
GROUP 1
END
STRING F_INIZIO2 1
BEGIN
PROMPT 17 1 "Da lettera "
FLAGS "U"
HELP "Inserire il codice d'inizio "
FIELD LF_TABCOM->CODTAB[2,2]
COPY ALL F_INIZIO1
GROUP 1
PROMPT 17 1 "Da lettera "
FLAGS "U"
HELP "Inserire il codice d'inizio "
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 "
PROMPT 32 1 "Da classe "
FLAGS "UM"
HELP "Inserire il codice d'inizio "
FIELD LF_TABCOM->CODTAB[3,10]
COPY ALL F_INIZIO1
GROUP 1
HELP "Inserire il codice d'inizio "
FIELD CODTAB[3,6]
COPY ALL F_INIZIO1
GROUP 1
END
NUMBER F_INIZIO4 2
BEGIN
PROMPT 53 1 "Da numero "
FLAGS "RZ"
HELP "Inserire il codice d'inizio "
FIELD LF_TABCOM->CODTAB[11,12]
COPY ALL F_INIZIO1
GROUP 1
PROMPT 53 1 "Da numero "
FLAGS "RZ"
HELP "Inserire il codice d'inizio "
FIELD CODTAB[7,8]
COPY ALL F_INIZIO1
GROUP 1
END
STRING F_FINE1 1
BEGIN
PROMPT 2 3 "A sezione "
HELP "Inserire il codice di fine "
FIELD LF_TABCOM->CODTAB[1,1]
PROMPT 2 3 "A sezione "
HELP "Inserire il codice di fine "
FIELD CODTAB[1,1]
FLAGS "U"
COPY USE F_INIZIO1
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
COPY DISPLAY F_INIZIO1
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]
GROUP 2
OUTPUT F_FINE3 CODTAB[3,6]
OUTPUT F_FINE4 CODTAB[7,8]
GROUP 2
END
STRING F_FINE2 1
BEGIN
PROMPT 17 3 "A lettera "
FLAGS "U"
COPY ALL F_FINE1
HELP "Inserire il codice di fine "
FIELD LF_TABCOM->CODTAB[2,2]
GROUP 2
PROMPT 17 3 "A lettera "
FLAGS "U"
COPY ALL F_FINE1
HELP "Inserire il codice di fine "
FIELD CODTAB[2,2]
GROUP 2
END
NUMBER F_FINE3 8
NUMBER F_FINE3 8 4
BEGIN
PROMPT 32 3 "A classe "
PROMPT 32 3 "A classe "
FLAGS "UM"
HELP "Inserire il codice di fine "
FIELD LF_TABCOM->CODTAB[3,10]
COPY ALL F_FINE1
GROUP 2
HELP "Inserire il codice di fine "
FIELD CODTAB[3,6]
COPY ALL F_FINE1
GROUP 2
END
NUMBER F_FINE4 2
BEGIN
PROMPT 53 3 "A numero "
FLAGS "RZ"
HELP "Inserire il codice di fine "
FIELD LF_TABCOM->CODTAB[11,12]
COPY ALL F_FINE1
GROUP 2
PROMPT 53 3 "A numero "
FLAGS "RZ"
HELP "Inserire il codice di fine "
FIELD CODTAB[7,8]
COPY ALL F_FINE1
GROUP 2
END
BUTTON DLG_OK 8 2
BEGIN
PROMPT -12 -1 ""
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -22 -1 ""
PROMPT -22 -1 ""
END
ENDPAGE