campo-sirio/vd/vd0700b.uml

39 lines
574 B
Plaintext
Raw Normal View History

#include "vdmask.h"
PAGE "Permessi" -1 -1 50 6
STRING F_USERNAME 8
BEGIN
PROMPT 2 1 "Utente "
FLAGS "UT"
USE OPD
JOIN LF_USER INTO USERNAME==CODTAB
INPUT CODTAB F_USERNAME
DISPLAY "Utente@8" CODTAB
DISPLAY "Gruppo@8" LF_USER->GROUPNAME
DISPLAY "Descrizione@50" LF_USER->USERDESC
OUTPUT F_USERNAME CODTAB
CHECKTYPE REQUIRED
END
STRING F_PASSWORD 8 10
BEGIN
PROMPT 2 3 "Password "
FLAGS "*"
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
FLAGS "D"
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK