campo-sirio/at/batbido.uml

#include "batbido.h"

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

PAGE "Idoneita' alla donazione" -1 -1 78 7

STRING F_TABIDO_CODTAB 2
BEGIN
        PROMPT 2 1 "Codice            "
        FIELD CODTAB
	HELP "Inserire il codice della idoneit<69>"
	USE IDO
	CHECKTYPE REQUIRED
	INPUT CODTAB F_TABIDO_CODTAB
	DISPLAY "Codice" CODTAB
	DISPLAY "Descrizione@30" S0
	OUTPUT F_TABIDO_CODTAB CODTAB
	OUTPUT F_TABIDO_DESCR S0
	KEY 1
        FLAGS "U"
END

STRING F_TABIDO_DESCR 30
BEGIN
        PROMPT 2 3 "Descrizione       "
        FIELD S0
        HELP "Inserire la descrizione della idoneita'"
	USE IDO KEY 2
	CHECKTYPE REQUIRED
	INPUT S0 F_TABIDO_DESCR
	DISPLAY "Descrizione@30" S0
	DISPLAY "Codice" CODTAB
	COPY OUTPUT F_TABIDO_CODTAB
	KEY 2
END

LISTBOX F_TABIDO_PROCDON 17
BEGIN
        PROMPT 2 5 "Procedura di don. "
        FIELD S6
#include "procdon.h"
        HELP "Indicare la procedura di donazione collegata alla idoneita'"
END

ENDPAGE
ENDMASK