campo-sirio/ba/ba2100b.uml

#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