#include "ba2100.h"

PAGE "Scelta profilo" -1 -1 75 6

STRING F_BASE 8
BEGIN
  PROMPT 2 1 "Profilo base   "
  FIELD TIPOPROF
  HELP "Specificare il nome del profilo di base utilizzato"  
  USE LF_FORM SELECT CODPROF==""
  INPUT TIPOPROF F_BASE 
  DISPLAY "Profilo base" TIPOPROF   
  DISPLAY "Descrizione@50" DESC   
  OUTPUT F_BASE TIPOPROF
  OUTPUT F_DESC DESC
  CHECKTYPE REQUIRED
END
	     
NUMBER F_CODE 5
BEGIN 
  PROMPT 2 2 "Codice profilo "
  FLAGS "Z"
  FIELD CODPROF
  HELP "Codice del profilo utente"    
  USE LF_FORM
  INPUT TIPOPROF F_BASE 
  INPUT CODPROF F_CODE 
  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 50
BEGIN 
  PROMPT 2 3 "Descrizione    "
  HELP "Descrizione profilo utente"     
  COPY ALL F_CODE
  FIELD 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_QUIT 10 2
BEGIN
  PROMPT -33 -1 ""
END

ENDPAGE
ENDMASK