#include "bafrm.h" PAGE "Scelta profilo" -1 -1 75 6 STRING F_BASE 8 BEGIN PROMPT 2 1 "Profilo base " FIELD TIPOPROF FLAGS "U" HELP "Specificare il nome del profilo di base utilizzato" USE LF_FORM SELECT (CODPROF=="") && (TIPOPROF!="PEC") 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 SELECT TIPOPROF==#F_BASE 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" USE LF_FORM KEY 2 SELECT TIPOPROF!="PEC" INPUT TIPOPROF F_BASE INPUT DESC F_DESC DISPLAY "Descrizione@50" DESC DISPLAY "Profilo base" TIPOPROF DISPLAY "Codice" CODPROF COPY OUTPUT 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