root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Modificate ricerche della maschera di selezione form

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1494 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1995-06-22 14:44:25 +00:00
parent b28b209af4
commit a333ab9f04
1 changed files with 33 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
ba/ba2100b.uml
View File

@ -4,60 +4,58 @@ PAGE "Scelta profilo" -1 -1 67 6
STRING F_BASE 8
BEGIN
PROMPT 2 1 "Profilo base "
HELP "Specificare il nome del profilo di base utilizzato"
CHECKTYPE REQUIRED
PROMPT 2 1 "Profilo base "
FIELD TIPOPROF
HELP "Specificare il nome del profilo di base utilizzato"
USE LF_FORM SELECT CODPROF==""
INPUT TIPOPROF F_BASE
DISPLAY "Profilo base" TIPOPROF
DISPLAY "Descrizione@50" DESC
OUTPUT F_BASE TIPOPROF
OUTPUT F_DESC DESC
VALIDATE NOTEMPTY_FUNC
END
NUMBER F_CODE 5
BEGIN
PROMPT 2 2 "Codice profilo "
FLAGS "Z"
HELP "Codice del profilo utente"
USE LF_FORM
// CHECKTYPE REQUIRED
INPUT TIPOPROF F_BASE
INPUT CODPROF F_CODE
FIELD CODPROF
DISPLAY "Profilo base" TIPOPROF
DISPLAY "Codice" CODPROF
DISPLAY "Descrizione@50" DESC
OUTPUT F_BASE TIPOPROF
OUTPUT F_CODE CODPROF
OUTPUT F_DESC DESC
PROMPT 2 2 "Codice profilo "
FLAGS "Z"
FIELD CODPROF
HELP "Codice del profilo utente"
USE LF_FORM
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 40
BEGIN
PROMPT 2 3 "Descrizione "
HELP "Descrizione profilo utente"
COPY USE F_CODE
INPUT TIPOPROF F_BASE
INPUT CODPROF F_CODE
FIELD DESC
DISPLAY "Profilo base" TIPOPROF
DISPLAY "Codice" CODPROF
DISPLAY "Descrizione@50" DESC
OUTPUT F_BASE TIPOPROF
OUTPUT F_CODE CODPROF
OUTPUT F_DESC DESC
PROMPT 2 3 "Descrizione "
HELP "Descrizione profilo utente"
COPY ALL F_CODE
FIELD DESC
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -13 -1 ""
PROMPT -13 -1 ""
END
BUTTON DLG_DELREC 10 2
BEGIN
PROMPT -23 -1 ""
MESSAGE EXIT,K_DEL
PROMPT -23 -1 ""
MESSAGE EXIT,K_DEL
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -33 -1 ""
PROMPT -33 -1 ""
END
ENDPAGE