campo-sirio/sc/sc3100b.uml

#include "sc3100b.h"


PAGE "Scelta profilo da copiare" -1 -1 75 12

STRING F_CBASE 8
BEGIN
PROMPT 2 1 "Profilo base   "
FLAGS "D"
END

GROUPBOX DLG_NULL 73 4
BEGIN
PROMPT 1 2 "Profilo sorgente"
END

NUMBER F_CCODES 4
BEGIN 
PROMPT 2 3 "Codice profilo "
FLAGS "Z"
HELP "Codice del profilo"    
USE LF_FORM  SELECT (TIPOPROF==BASE_EC_PROFILE)
JOIN %LNG TO LF_FORM ALIAS 200 INTO CODTAB==CODPROF[5,5]
INPUT TIPOPROF F_CBASE
INPUT CODPROF[1,4] F_CCODES 
INPUT CODPROF[5,5] F_CCODELS
DISPLAY "Profilo base" TIPOPROF   
DISPLAY "Codice" CODPROF[1,4]
DISPLAY "Lingua" CODPROF[5,5]
DISPLAY "Descrizione@50" DESC   
DISPLAY "Desc. Lingua@50" -200->S0   
OUTPUT F_CBASE TIPOPROF
OUTPUT F_CCODES CODPROF[1,4]
OUTPUT F_CCODELS  CODPROF[5,5]
OUTPUT F_CDESCS DESC
END             

STRING F_CCODELS 1
BEGIN 
PROMPT 40 3 "Codice lingua "
FLAGS "U"
HELP "Codice lingua del profilo"    
USE %LNG
INPUT CODTAB F_CCODELS
DISPLAY "Codice lingua" CODTAB
DISPLAY "Decrizione@50" S0
OUTPUT F_CCODELS CODTAB
CHECKTYPE NORMAL
END             

STRING F_CDESCS 50
BEGIN          
PROMPT 2 4 "Descrizione    "
HELP "Descrizione profilo utente"     
COPY ALL F_CCODES
END             

GROUPBOX DLG_NULL 73 4
BEGIN
PROMPT 1 6 "Profilo destinazione"
END

NUMBER F_CCODED 4
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
OUTPUT F_CCODELD CODTAB
CHECKTYPE NORMAL
END

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
BEGIN
PROMPT -12 -1 ""
END

BUTTON DLG_CANCEL 8 2
BEGIN
PROMPT -22 -1 ""
END

ENDPAGE
ENDMASK