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
PROMPT 19 3 ""
FLAGS "U"
/*
USE %LNG
INPUT CODTAB F_LINPROF
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_LINPROF CODTAB
CHECKTYPE NORMAL
WARNING "Codice lingua errato"
*/
COPY ALL F_CODPROF
USE LF_FORM
INPUT TIPOPROF BASE_EC_PROFILE
INPUT CODPROF[1,4] F_CODPROF
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
WARNING "Codice profilo o lingua errato"
END

18
sc/sc2400a.uml
View File

@ -46,13 +46,19 @@ END
STRING F_LINPROF 1
BEGIN
PROMPT 19 3 ""
USE %LNG
INPUT CODTAB F_LINPROF
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_LINPROF CODTAB
FLAGS "U"
USE LF_FORM
INPUT TIPOPROF BASE_EC_PROFILE
INPUT CODPROF[1,4] F_CODPROF
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
WARNING "Codice lingua errato"
WARNING "Codice profilo o lingua errato"
END
STRING F_DESPROF 50 40