82 lines
1.5 KiB
Plaintext
82 lines
1.5 KiB
Plaintext
|
#include "vetbctm.h"
|
||
|
|
|
||
|
|
PAGE "Tabella Categorie Magic" -1 -1 78 6
|
||
|
|
|
||
|
|
STRING F_CATEGORIA1 5
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 1 "Categoria "
|
||
|
|
FLAGS "UZ"
|
||
|
|
USE &CTM
|
||
|
|
INPUT CODTAB[1,5] F_CATEGORIA1
|
||
|
|
INPUT CODTAB[6,10] F_CATEGORIA2
|
||
|
|
INPUT CODTAB[11,15] F_CATEGORIA3
|
||
|
|
INPUT CODTAB[16,20] F_CATEGORIA4
|
||
|
|
DISPLAY "Categoria 1" CODTAB[1,5]
|
||
|
|
DISPLAY "Categoria 2" CODTAB[6,10]
|
||
|
|
DISPLAY "Categoria 3" CODTAB[11,15]
|
||
|
|
DISPLAY "Categoria 4" CODTAB[16,20]
|
||
|
|
DISPLAY "Descrizione@50" S0
|
||
|
|
OUTPUT F_CATEGORIA1 CODTAB[1,5]
|
||
|
|
OUTPUT F_CATEGORIA2 CODTAB[6,10]
|
||
|
|
OUTPUT F_CATEGORIA3 CODTAB[11,15]
|
||
|
|
OUTPUT F_CATEGORIA4 CODTAB[16,20]
|
||
|
|
CHECKTYPE REQUIRED
|
||
|
|
FIELD CODTAB[1,5]
|
||
|
|
KEY 1
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_CATEGORIA2 5
|
||
|
|
BEGIN
|
||
|
|
PROMPT 22 1 ""
|
||
|
|
FLAGS "UZ"
|
||
|
|
COPY ALL F_CATEGORIA1
|
||
|
|
CHECKTYPE NORMAL
|
||
|
|
VALIDATE REQIF_FUNC 1 F_CATEGORIA3
|
||
|
|
FIELD CODTAB[6,10]
|
||
|
|
KEY 1
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_CATEGORIA3 5
|
||
|
|
BEGIN
|
||
|
|
PROMPT 31 1 ""
|
||
|
|
FLAGS "UZ"
|
||
|
|
COPY ALL F_CATEGORIA1
|
||
|
|
CHECKTYPE NORMAL
|
||
|
|
VALIDATE REQIF_FUNC 1 F_CATEGORIA4
|
||
|
|
FIELD CODTAB[11,15]
|
||
|
|
KEY 1
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_CATEGORIA4 5
|
||
|
|
BEGIN
|
||
|
|
PROMPT 40 1 ""
|
||
|
|
FLAGS "UZ"
|
||
|
|
COPY ALL F_CATEGORIA1
|
||
|
|
CHECKTYPE NORMAL
|
||
|
|
FIELD CODTAB[16,20]
|
||
|
|
KEY 1
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_CATEGORIA_DESCR 50
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 3 ""
|
||
|
|
USE &GMC KEY 2
|
||
|
|
INPUT S0 F_CATEGORIA_DESCR
|
||
|
|
DISPLAY "Descrizione@50" S0
|
||
|
|
DISPLAY "Categoria 1" CODTAB[1,5]
|
||
|
|
DISPLAY "Categoria 2" CODTAB[6,10]
|
||
|
|
DISPLAY "Categoria 3" CODTAB[11,15]
|
||
|
|
DISPLAY "Categoria 4" CODTAB[16,20]
|
||
|
|
COPY OUTPUT F_CATEGORIA1
|
||
|
|
CHECKTYPE NORMAL
|
||
|
|
KEY 2
|
||
|
|
FIELD S0
|
||
|
|
END
|
||
|
|
|
||
|
|
ENDPAGE
|
||
|
|
|
||
|
|
TOOLBAR "" 0 0 0 2
|
||
|
|
#include "relapbar.h"
|
||
|
|
ENDPAGE
|
||
|
|
|
||
|
|
ENDMASK
|