campo-sirio/ba/ba1400a.uml

#include "ba0100a.h"

TOOLBAR "" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Gestione utenti" -1 -1 35 7

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 0 "@bDati"
END

RADIO F_GROUP 1 18
BEGIN
  PROMPT 2 0 ""
  ITEM " |Utente"
    MESSAGE SHOW,3@
  ITEM "X|Gruppo"
    MESSAGE HIDE,3@
  FIELD ISGROUP
  GROUP G_SUPERUSER
  KEY 1 
  FLAGS "G"
END

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

STRING F_GROUPNAME 16
BEGIN
  PROMPT 20 2 ""
  FLAGS "U"
  USE LF_USER SELECT ISGROUP="X"
  INPUT USERNAME F_GROUP
  DISPLAY "Codice@32" USERNAME
  DISPLAY "Descrizione@50" USERDESC
  DISPLAY "Gruppo@32" GROUPNAME
  OUTPUT F_GROUP USERNAME
  CHECKTYPE NORMAL
  FIELD GROUPNAME
  GROUP G_SUPERUSER
END

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

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 5 "@bSicurezza"
END

STRING F_PASSWORD 16
BEGIN
  PROMPT 2 6 "Password           "
  FLAGS "*"   
  GROUP 3
END

STRING F_PROVA 16
BEGIN
  PROMPT 2 7 "Controllo password "
  FLAGS "*"
  STR_EXPR #F_PROVA=#F_PASSWORD
  WARNING "La password ed il suo controllo devono coincidere"
  GROUP 3
END

DATE F_DATAPWD
BEGIN
  PROMPT 55 6 "Inserimento "
  FIELD DATAPWD
  FLAGS "D"
  GROUP 3
END

DATE F_DATASCAD 
BEGIN
  PROMPT 55 7 "Scadenza    "
  FLAGS "D"
  GROUP 3
END

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

ENDPAGE

PAGE "Permessi" -1 -1 78 20

TREE F_PERMESSI -3 -8
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 "Permessi" -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 16
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
  ITEM "E|Eliminazione"
    MESSAGE DISABLE,102|ENABLE,103|"Eliminazione",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

ENDPAGE

TOOLBAR "" 0 0 0 2

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