Correzioni alla tabella vecchi codici attivita'

git-svn-id: svn://10.65.10.50/trunk@1380 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1995-05-22 09:55:51 +00:00
parent 683c0c481e
commit 4d64f7d25c
2 changed files with 67 additions and 68 deletions

View File

@ -10,13 +10,12 @@ STRING FLD_TABOIS_CODTAB 4
BEGIN BEGIN
PROMPT 2 1 "Codice " PROMPT 2 1 "Codice "
FIELD %OIS->CODTAB[1,4] FIELD %OIS->CODTAB[1,4]
HELP "Codice del vecchio codice attivit…" HELP "Codice del vecchio codice attivit…"
USE %OIS USE %OIS
CHECKTYPE REQUIRED
INPUT CODTAB[1,4] FLD_TABOIS_CODTAB INPUT CODTAB[1,4] FLD_TABOIS_CODTAB
INPUT CODTAB[5,] FLD_TABOIS_ADD INPUT CODTAB[5,] FLD_TABOIS_ADD
DISPLAY "Codice" CODTAB[1,4] DISPLAY "Codice" CODTAB[1,4]
DISPLAY "Subcodice" CODTAB[5,] DISPLAY "Subcodice" CODTAB[5,]
DISPLAY "Descrizione@40" S0 DISPLAY "Descrizione@40" S0
OUTPUT FLD_TABOIS_CODTAB CODTAB[1,4] OUTPUT FLD_TABOIS_CODTAB CODTAB[1,4]
OUTPUT FLD_TABOIS_ADD CODTAB[5,] OUTPUT FLD_TABOIS_ADD CODTAB[5,]
@ -28,25 +27,25 @@ END
STRING FLD_TABOIS_ADD 1 STRING FLD_TABOIS_ADD 1
BEGIN BEGIN
PROMPT 22 1 "Subcodice " PROMPT 22 1 "Subcodice "
HELP "Subcodice del vecchio codice attivit…" HELP "Subcodice del vecchio codice attivit…"
FIELD %OIS->CODTAB[5,] FIELD %OIS->CODTAB[5,]
COPY ALL FLD_TABOIS_CODTAB COPY ALL FLD_TABOIS_CODTAB
CHECKTYPE REQUIRED
KEY 1 KEY 1
FLAGS "U" FLAGS "U"
VALIDATE AUTOEXIT_FUNC 1 FLD_TABOIS_CODTAB
END END
STRING FLD_TABOIS_S0 40 STRING FLD_TABOIS_S0 40
BEGIN BEGIN
PROMPT 2 3 "Descrizione " PROMPT 2 3 "Descrizione "
FIELD %OIS->S0 FIELD %OIS->S0
HELP "Descrizione del vecchio codice attivit… " HELP "Descrizione del vecchio codice attivit… "
USE %OIS KEY 2 USE %OIS KEY 2
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT S0 FLD_TABOIS_S0 INPUT S0 FLD_TABOIS_S0
DISPLAY "Descrizione@40" S0 DISPLAY "Descrizione@40" S0
DISPLAY "Codice" CODTAB[1,4] DISPLAY "Codice" CODTAB[1,4]
DISPLAY "Subcodice" CODTAB[5,] DISPLAY "Subcodice" CODTAB[5,]
OUTPUT FLD_TABOIS_CODTAB CODTAB[1,4] OUTPUT FLD_TABOIS_CODTAB CODTAB[1,4]
OUTPUT FLD_TABOIS_ADD CODTAB[5,] OUTPUT FLD_TABOIS_ADD CODTAB[5,]
OUTPUT FLD_TABOIS_S0 S0 OUTPUT FLD_TABOIS_S0 S0