Reparti e stagioni

git-svn-id: svn://10.65.10.50/branches/R_10_00@23065 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2015-03-31 07:45:26 +00:00
parent 3c75f5d771
commit c983267dd8
2 changed files with 96 additions and 0 deletions

48
ve/vetbrpd.uml Normal file
View File

@ -0,0 +1,48 @@
#include "vetbrpd.h"
TOOLBAR "Toolbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Reparti" -1 -1 78 8
GROUPBOX DLG_NULL 75 5
BEGIN
PROMPT 1 1 ""
FLAGS "R"
END
STRING F_CODICE 3
BEGIN
PROMPT 4 2 "Codice "
HELP "Codice reparto"
FIELD CODTAB
FLAGS "UZ"
KEY 1
USE RPD
INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @70" S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_DESCR 70 50
BEGIN
PROMPT 4 4 "Descrizione "
HELP "Descrizione reparto"
FIELD S0
KEY 2
USE RPD KEY 2
INPUT S0 F_DESCR
DISPLAY "Descrizione @70" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_CODICE
CHECKTYPE REQUIRED
END
ENDPAGE
ENDMASK

48
ve/vetbstg.uml Normal file
View File

@ -0,0 +1,48 @@
#include "vetbstg.h"
TOOLBAR "Toolbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE
PAGE "Stagioni" -1 -1 78 8
GROUPBOX DLG_NULL 75 5
BEGIN
PROMPT 1 1 ""
FLAGS "R"
END
STRING F_CODICE 4
BEGIN
PROMPT 4 2 "Codice "
HELP "Codice stagione"
FIELD CODTAB
FLAGS "UZ"
KEY 1
USE STG
INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione @70" S0
OUTPUT F_CODICE CODTAB
OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
END
STRING F_DESCR 70 50
BEGIN
PROMPT 4 4 "Descrizione "
HELP "Descrizione stagione"
FIELD S0
KEY 2
USE STG KEY 2
INPUT S0 F_DESCR
DISPLAY "Descrizione @70" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_CODICE
CHECKTYPE REQUIRED
END
ENDPAGE
ENDMASK