#include "batbtcs.h"

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

PAGE "Tipi/Esiti controlli sanitari" -1 -1 78 18

STRING F_TABTCS_CODTAB 2
BEGIN
	PROMPT 2 1 "Codice        "
        FIELD CODTAB
	HELP "Inserire il codice del controllo"
	USE TCS
	CHECKTYPE REQUIRED
	INPUT CODTAB F_TABTCS_CODTAB
	DISPLAY "Codice" CODTAB
	DISPLAY "Descrizione@30" S0
	OUTPUT F_TABTCS_CODTAB CODTAB
	OUTPUT F_TABTCS_DESCR S0
	KEY 1
        FLAGS "U"
END

STRING F_TABTCS_DESCR 30
BEGIN
	PROMPT 2 3 "Descrizione   "
        FIELD S0
	HELP "Inserire la descrizione del controllo"
	USE TCS KEY 2
	CHECKTYPE REQUIRED
	INPUT S0 F_TABTCS_DESCR
	DISPLAY "Descrizione@30" S0
	DISPLAY "Codice" CODTAB
	COPY OUTPUT F_TABTCS_CODTAB
	KEY 2
END

RADIOBUTTON F_TABTCS_MODSTATO 25
BEGIN
	PROMPT 2 5 "Modifica stato"
        FIELD S6
	ITEM "N|Non modifica"
	MESSAGE CLEAR, F_TABTCS_STATO
	MESSAGE DISABLE, F_TABTCS_STATO
        ITEM "I|Idoneita'"
	MESSAGE ENABLE, F_TABTCS_STATO
	ITEM "S|Sospensione"
	MESSAGE ENABLE, F_TABTCS_STATO
	ITEM "F|Fine sospensione"
	MESSAGE ENABLE, F_TABTCS_STATO
        ITEM "1|Sospeso per SI"
	MESSAGE ENABLE, F_TABTCS_STATO
        ITEM "2|Sospeso per AF"
	MESSAGE ENABLE, F_TABTCS_STATO
        ITEM "M|Modifica id. pr."
        MESSAGE CLEAR, F_TABTCS_STATO
        MESSAGE DISABLE, F_TABTCS_STATO
        HELP "Indicare se il controllo modifica lo stato e in che modo"
END

STRING F_TABTCS_STATO 20
BEGIN
        PROMPT 30 6  "Stato "
        FIELD S3
END	

ENDPAGE
ENDMASK