#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
   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"
   HELP "Inserire il codice del controllo sanitario"
END

STRING F_TABTCS_DESCR 30
BEGIN
   PROMPT 2 3 "Descrizione   "
   FIELD S0
   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
   HELP "Inserire la descrizione del controllo"
END

STRING F_TABTCS_CATCOLL 2
BEGIN
   PROMPT 2 5 "Cat.collegata "
   FIELD S7
   FLAGS "U"
   USE CTD
   INPUT CODTAB F_TABTCS_CATCOLL
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@30" S0
   OUTPUT F_TABTCS_CATCOLL CODTAB
   OUTPUT F_DESCR_CATCOLL S0
   CHECKTYPE NORMAL
   WARNING "Codice non presente"
END	

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

RADIOBUTTON F_TABTCS_MODSTATO 35
BEGIN
   PROMPT 2 7 "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 "B|Blocco (sosp. senza id. auto)"
   MESSAGE ENABLE, F_TABTCS_STATO
   ITEM "F|Fine sospensione"
   MESSAGE ENABLE, F_TABTCS_STATO
   HELP "Indicare se il controllo modifica lo stato e in che modo"
END

STRING F_TABTCS_STATO 20
BEGIN
   PROMPT 40 8 "Stato "
   FIELD S3
END
     
ENDPAGE
ENDMASK