From be8ec5069eed02775f9d80653fd40a2aa843bbe5 Mon Sep 17 00:00:00 2001 From: alex Date: Mon, 5 Sep 1994 10:05:46 +0000 Subject: [PATCH] Correzione AGA n.133 git-svn-id: svn://10.65.10.50/trunk@148 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- ba/bast%ivd.uml | 120 ++++++++++++++++++++++++------------------------ 1 file changed, 60 insertions(+), 60 deletions(-) diff --git a/ba/bast%ivd.uml b/ba/bast%ivd.uml index 1e9da9387..29a7b435b 100755 --- a/ba/bast%ivd.uml +++ b/ba/bast%ivd.uml @@ -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