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

Correzione MI6211 (riportata anche sulla stampa solleciti), relativa

Browse Source 
alla ricerca sul codice lingua.


git-svn-id: svn://10.65.10.50/trunk@4379 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1997-05-23 08:43:20 +00:00
parent 1b6b4d4cfb
commit 1dd375f098
2 changed files with 22 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
sc/sc2100a.uml
View File

@ -47,16 +47,16 @@ STRING F_LINPROF 1
BEGIN BEGIN
PROMPT 19 3 "" PROMPT 19 3 ""
FLAGS "U" FLAGS "U"
/* USE LF_FORM
USE %LNG INPUT TIPOPROF BASE_EC_PROFILE
INPUT CODTAB F_LINPROF INPUT CODPROF[1,4] F_CODPROF
DISPLAY "Codice" CODTAB INPUT CODPROF[5,5] F_LINPROF
DISPLAY "Descrizione@50" S0 DISPLAY "Codice" CODPROF[1,4]
OUTPUT F_LINPROF CODTAB DISPLAY "Lingua" CODPROF[5,5]
CHECKTYPE NORMAL DISPLAY "Descrizione@50" DESC
WARNING "Codice lingua errato" OUTPUT F_CODPROF CODPROF[1,4]
*/ OUTPUT F_LINPROF CODPROF[5,5]
COPY ALL F_CODPROF OUTPUT F_DESPROF DESC
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Codice profilo o lingua errato" WARNING "Codice profilo o lingua errato"
END END

18
sc/sc2400a.uml
View File

@ -46,13 +46,19 @@ END
STRING F_LINPROF 1 STRING F_LINPROF 1
BEGIN BEGIN
PROMPT 19 3 "" PROMPT 19 3 ""
USE %LNG FLAGS "U"
INPUT CODTAB F_LINPROF USE LF_FORM
DISPLAY "Codice" CODTAB INPUT TIPOPROF BASE_EC_PROFILE
DISPLAY "Descrizione@50" S0 INPUT CODPROF[1,4] F_CODPROF
OUTPUT F_LINPROF CODTAB INPUT CODPROF[5,5] F_LINPROF
DISPLAY "Codice" CODPROF[1,4]
DISPLAY "Lingua" CODPROF[5,5]
DISPLAY "Descrizione@50" DESC
OUTPUT F_CODPROF CODPROF[1,4]
OUTPUT F_LINPROF CODPROF[5,5]
OUTPUT F_DESPROF DESC
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Codice lingua errato" WARNING "Codice profilo o lingua errato"
END END
STRING F_DESPROF 50 40 STRING F_DESPROF 50 40