#include "batbctd.h"

TOOLBAR "" 0 20 0 2 
#include <toolbar.h>
ENDPAGE

PAGE "Categorie donatori" -1 -1 78 7

STRING F_TABCTD_CODTAB 2
BEGIN
	PROMPT 2 1 "Codice        "
        FIELD CODTAB
	HELP "Inserire il codice della categoria"
	USE CTD
	CHECKTYPE REQUIRED
	INPUT CODTAB F_TABCTD_CODTAB
	DISPLAY "Codice" CODTAB
	DISPLAY "Descrizione@30" S0
	OUTPUT F_TABCTD_CODTAB CODTAB
	OUTPUT F_TABCTD_DESCR S0
	KEY 1
	FLAGS "URZ"
END

STRING F_TABCTD_DESCR 30
BEGIN
	PROMPT 2 3 "Descrizione   "
        FIELD S0
	HELP "Inserire la descrizione della categoria"
	USE CTD KEY 2
	CHECKTYPE REQUIRED
	INPUT S0 F_TABCTD_DESCR
	DISPLAY "Descrizione@30" S0
	DISPLAY "Codice" CODTAB
	COPY OUTPUT F_TABCTD_CODTAB
	KEY 2
END

BOOLEAN F_TABCTD_DIMESSI
BEGIN
	PROMPT 2 5 "Categoria di dimissione"
        FIELD B0
	HELP "Indicare se la categoria è di dimissione"
END

STRING F_TABCTD_CATCOLL 2
BEGIN
        PROMPT 2 7  "Cat. collegata "
        FIELD S6
	FLAGS "U"
	USE CTD SELECT B0!=#F_TABCTD_DIMESSI
	INPUT CODTAB F_TABCTD_CATCOLL
	DISPLAY "Codice" CODTAB
	DISPLAY "Descrizione@30" S0
	OUTPUT F_TABCTD_CATCOLL CODTAB
	OUTPUT F_DESCR_CATCOLL S0
	CHECKTYPE NORMAL
        WARNING "Codice non presente"
END	

STRING F_DESCR_CATCOLL 30
BEGIN
        PROMPT 23 7 ""
	FLAGS "D"
END

ENDPAGE
ENDMASK
