#include "ba2100.h"

PAGE "Scelta profilo" -1 -1 67 6

STRING F_BASE 8
BEGIN
	PROMPT 2 1 "Profilo base   "
	HELP "Specificare il nome del profilo di base utilizzato"  
	CHECKTYPE REQUIRED
END
             
NUMBER F_CODE 5
BEGIN 
	PROMPT 2 2 "Codice profilo "
	FLAGS "Z"
	HELP "Codice del profilo utente"    
    USE LF_FORM
//	CHECKTYPE REQUIRED
    INPUT TIPOPROF F_BASE 
    INPUT CODPROF F_CODE 
    FIELD CODPROF
    DISPLAY "Profilo base" TIPOPROF   
    DISPLAY "Codice" CODPROF   
    DISPLAY "Descrizione@50" DESC   
	OUTPUT F_BASE TIPOPROF
	OUTPUT F_CODE CODPROF
	OUTPUT F_DESC DESC
END             
                      
STRING F_DESC 40
BEGIN 
	PROMPT 2 3 "Descrizione    "
	HELP "Descrizione profilo utente"     
	COPY USE F_CODE
	INPUT TIPOPROF F_BASE
	INPUT CODPROF F_CODE
    FIELD DESC
    DISPLAY "Profilo base" TIPOPROF   
    DISPLAY "Codice" CODPROF   
    DISPLAY "Descrizione@50" DESC             
	OUTPUT F_BASE TIPOPROF
	OUTPUT F_CODE CODPROF
	OUTPUT F_DESC DESC
END             

BUTTON DLG_OK 10 2
BEGIN
	PROMPT -13 -1 ""
END

BUTTON DLG_DELREC 10 2
BEGIN   
	PROMPT -23 -1 ""
	MESSAGE EXIT,K_DEL
END


BUTTON DLG_CANCEL 10 2
BEGIN
	PROMPT -33 -1 ""
END

ENDPAGE
ENDMASK