Aggiunti i FLAG "U" per rendere upper il codice lingua immesso;

aggiunte le warning per i campi obbligatori.


git-svn-id: svn://10.65.10.50/trunk@2348 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1995-12-22 16:15:04 +00:00
parent c01366115c
commit 86c2ec4ef7

View File

@ -46,6 +46,7 @@ END
STRING F_CCODELS 1
BEGIN
PROMPT 40 3 "Codice lingua "
FLAGS "U"
HELP "Codice lingua del profilo"
USE %LNG
INPUT CODTAB F_CCODELS
@ -72,11 +73,13 @@ BEGIN
PROMPT 2 7 "Codice profilo "
FLAGS "Z"
VALIDATE NOT_EMPTY_FUNC
WARNING "Il codice profilo di destinazione e' obbligatorio"
END
STRING F_CCODELD 1
BEGIN
PROMPT 40 7 "Codice lingua "
FLAGS "U"
COPY USE F_CCODELS
INPUT CODTAB F_CCODELD
COPY DISPLAY F_CCODELS
@ -88,6 +91,7 @@ STRING F_CDESCD 50
BEGIN
PROMPT 2 8 "Descrizione "
VALIDATE NOT_EMPTY_FUNC
WARNING "La descrizione del profilo di destinazione e' obbligatoria"
END
BUTTON DLG_OK 9 2