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

Correzioni alla tabella vecchi codici attivita'

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ba/batbois.uml
View File

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