#include "attbtdn.h"

TOOLBAR "" 0 0 0 2 
#include <relapbar.h>
ENDPAGE

PAGE "Tipi di donazione" -1 -1 78 7

STRING F_TABTDN_CODTAB 2
BEGIN
        PROMPT 2 1 "Codice      "
        FIELD CODTAB
	HELP "Inserire il codice del tipo di donazione"
	USE TDN
	CHECKTYPE REQUIRED
	INPUT CODTAB F_TABTDN_CODTAB
	DISPLAY "Codice" CODTAB
	DISPLAY "Descrizione@30" S0
	OUTPUT F_TABTDN_CODTAB CODTAB
	OUTPUT F_TABTDN_DESCR S0
	KEY 1
        FLAGS "U"
END

STRING F_TABTDN_DESCR 30
BEGIN
        PROMPT 2 3 "Descrizione "
        FIELD S0
	HELP "Inserire la descrizione del tipo di donazione"
	USE TDN KEY 2
	CHECKTYPE REQUIRED
	INPUT S0 F_TABTDN_DESCR
	DISPLAY "Descrizione@30" S0
	DISPLAY "Codice" CODTAB
	COPY OUTPUT F_TABTDN_CODTAB
	KEY 2
END

LISTBOX F_TABTDN_PROCDON 17
BEGIN
        PROMPT 2 5 "Procedura di donazione "
        FIELD S6
#include "procdon.h"
	HELP "Indicare la procedura di donazione"
END

STRING F_TABTDN_IDON1 2
BEGIN
        PROMPT 2 7 "Idoneità necessarie: 1 "
        FIELD S7
	USE IDO SELECT S6==#F_TABTDN_PROCDON
	INPUT CODTAB F_TABTDN_IDON1
	DISPLAY "Codice" CODTAB
	DISPLAY "Descrizione@30" S0
	OUTPUT F_TABTDN_IDON1 CODTAB
	OUTPUT F_DESC_I1 S0
	CHECKTYPE REQUIRED
        FLAGS "U"
END

STRING F_DESC_I1 30
BEGIN
        PROMPT 31 7 ""
	FLAGS "D"
END

STRING F_TABTDN_IDON2 2
BEGIN
        PROMPT 2 9 "                     2 "
        FIELD S8
	USE IDO SELECT S6==#F_TABTDN_PROCDON
	INPUT CODTAB F_TABTDN_IDON2
	DISPLAY "Codice" CODTAB
	DISPLAY "Descrizione@30" S0
	OUTPUT F_TABTDN_IDON2 CODTAB
	OUTPUT F_DESC_I2 S0
	CHECKTYPE NORMAL
        FLAGS "U"
END

STRING F_DESC_I2 30
BEGIN
        PROMPT 31 9 ""
	FLAGS "D"
END

ENDPAGE
ENDMASK