#include "ba0100a.h"

TOOLBAR "" 0 20 0 2 
#include <toolbar.h>
ENDPAGE

PAGE "Gestione utenti" -1 -1 35 7

LIST F_GROUP 1 8
BEGIN
  PROMPT 1 1 ""
  ITEM " |Utente"
    MESSAGE SHOW,3@
  ITEM "X|Gruppo"
    MESSAGE HIDE,3@
  FIELD ISGROUP
  GROUP G_SUPERUSER
  KEY 1 
END

STRING F_USER 8
BEGIN
  PROMPT 15 1 ""
  FLAGS "U"
  USE LF_USER
  INPUT USERNAME F_USER
  DISPLAY "Utente@8" USERNAME
  DISPLAY "Gruppo@8" GROUPNAME
  DISPLAY "Descrizione@50" USERDESC
  OUTPUT F_USER USERNAME
  KEY 1 
  CHECKTYPE REQUIRED
  FIELD USERNAME
END

STRING F_GROUPNAME 8
BEGIN
  PROMPT 32 1 "Gruppo di appartenenza "
  FLAGS "U"
  USE LF_USER SELECT ISGROUP="X"
  INPUT USERNAME F_GROUP
  DISPLAY "Gruppo@8" USERNAME
  DISPLAY "Descrizione@50" USERDESC
  OUTPUT F_GROUP USERNAME
  CHECKTYPE NORMAL
  FIELD GROUPNAME
  GROUP G_SUPERUSER
END

STRING F_USERDESC 50
BEGIN
  PROMPT 1 2 "Descrizione   "
  FIELD USERDESC
  GROUP G_SUPERUSER
END

STRING F_PASSWORD 8
BEGIN
  PROMPT 1 3 "Password      "
  FLAGS "*"   
  GROUP 3
END

STRING F_TEST 8
BEGIN
  PROMPT 32 3 "Prova "
  FLAGS "*"
  STR_EXPR #F_TEST=#F_PASSWORD
  WARNING "La password ed la sua prova devono coincidere"
  GROUP 3
END

SPREADSHEET F_MODULI 78
BEGIN
  PROMPT 0 5 "Moduli"
  ITEM "Modulo@40"
  ITEM "Abilitato"
  ITEM "Codice"
  GROUP G_SUPERUSER
END

ENDPAGE

PAGE "Permessi" -1 -1 78 20

TREE F_PERMESSI -3 -9
BEGIN
  PROMPT 0 1 ""
END

STRING F_APPLICAT 80 16
BEGIN
  PROMPT 1 -7 "Programma "
  FLAGS "D"
END

BOOLEAN F_NOWRITE
BEGIN
  PROMPT 32 -7 "Disabilita registrazioni nell'intero modulo"
  GROUP G_SUPERUSER
END

SPREADSHEET F_PROPERTIES
BEGIN
  PROMPT 1 -6 ""
  FLAGS "|"
  ITEM "Uso"
  ITEM "Azione"
  ITEM "Espressione"
  GROUP G_SUPERUSER
END

ENDPAGE

ENDMASK

PAGE "Campo" -1 -1 60 11

STRING F_NOMEMOD 40
BEGIN
  PROMPT 1 3 "Modulo    "
  FLAGS "D"
END

BOOLEAN F_ENABLE
BEGIN
  PROMPT 11 5 "Abilitato "
END

NUMBER F_CODE 3
BEGIN
  PROMPT 1 7 "Codice    "
  FLAGS "D"
END

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

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

ENDPAGE

ENDMASK

PAGE "Proprieta'" -1 -1 70 10

LIST 101 1 10
BEGIN  
  PROMPT 1 1 ""
  ITEM " |Azione" 
    MESSAGE ENABLE,102|ENABLE,103
  ITEM "N|Negato"
    MESSAGE DISABLE,102|DISABLE,103|"Negato",102|"1",103
  ITEM "L|Lettura"
    MESSAGE DISABLE,102|ENABLE,103|"Lettura",102
  ITEM "S|Scrittura"
    MESSAGE DISABLE,102|ENABLE,103|"Scrittura",102
END

STRING 102 16
BEGIN
  PROMPT 21 1 "Azione "
  CHECKTYPE REQUIRED
END

MEMO 103 0 -3
BEGIN
  PROMPT 1 2 "Espressione"
  CHECKTYPE REQUIRED
END

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

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -23 -1 ""
END

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

ENDPAGE

ENDMASK