campo-sirio/at/at5100a.uml

#include "at5100a.h"

/* toolbar */
TOOLBAR "" 0 20 0 2

BUTTON DLG_OK 10 2
BEGIN
   PROMPT -12 -1 ""
END

BUTTON DLG_QUIT 10 2 
BEGIN
   PROMPT -22 -1 ""
END

ENDPAGE

PAGE "Parametri 1" -1 -1 78 20

GROUPBOX DLG_NULL 77 5
BEGIN
   PROMPT 1 0 "Primo passaggio di categoria"
END

NUMBER AT_NUMDON1 3
BEGIN
   PROMPT 2 1 "Donazioni necessarie  "
   HELP "Numero donazioni necessarie per il passaggio"
   FIELD NumDon1
END

STRING AT_CATINI1 2
BEGIN
   PROMPT 2 2 "Categoria di partenza "
   HELP "Categoria di partenza per il passaggio (possibile vuota)"
   USE CTD
   INPUT CODTAB[1,2] AT_CATINI1
   DISPLAY "Cat." CODTAB[1,2]
   DISPLAY "Descrizione@50" S0
   OUTPUT AT_CATINI1 CODTAB[1,2]
   OUTPUT AT_D_CATINI1 S0
   FIELD CatIni1
   CHECKTYPE NORMAL
END

STRING AT_CATFIN1 2
BEGIN
   PROMPT 2 3 "Categoria di arrivo   "
   HELP "Categoria di arrivo per il passaggio (possibile vuota)"
   USE CTD
   INPUT CODTAB[1,2] AT_CATFIN1
   DISPLAY "Cat." CODTAB[1,2]
   DISPLAY "Descrizione@50" S0
   OUTPUT AT_CATFIN1 CODTAB[1,2]
   OUTPUT AT_D_CATFIN1 S0
   FIELD CatFin1
   CHECKTYPE NORMAL
END

GROUPBOX DLG_NULL 77 6
BEGIN
   PROMPT 1 5 "Secondo passaggio di categoria"
END

NUMBER AT_NUMDON2 3
BEGIN
   PROMPT 2 6 "Donazioni necessarie  "
   HELP "Numero donazioni necessarie per il passaggio"
   FIELD NumDon2
END

STRING AT_CATINI2 2
BEGIN
   PROMPT 2 7 "Categoria di partenza "
   HELP "Categoria di partenza per il passaggio (possibile vuota)"
   USE CTD
   INPUT CODTAB[1,2] AT_CATINI2
   DISPLAY "Cat." CODTAB[1,2]
   DISPLAY "Descrizione@50" S0
   OUTPUT AT_CATINI2 CODTAB[1,2]
   OUTPUT AT_D_CATINI2 S0
   FIELD CatIni2
   CHECKTYPE NORMAL
END

STRING AT_CATFIN2 2
BEGIN
   PROMPT 2 8 "Categoria di arrivo   "
   HELP "Categoria di arrivo per il passaggio (possibile vuota)"
   USE CTD
   INPUT CODTAB[1,2] AT_CATFIN2
   DISPLAY "Cat." CODTAB[1,2]
   DISPLAY "Descrizione@50" S0
   OUTPUT AT_CATFIN2 CODTAB[1,2]
   OUTPUT AT_D_CATFIN2 S0
   FIELD CatFin2
   CHECKTYPE NORMAL
END

BOOLEAN AT_STTESS2
BEGIN
   PROMPT 2 9 "Passaggio con stampa tessera"
   HELP "Eseguire il cambio di categoria al momento della stampa tessera"
   FIELD StTess2
END

GROUPBOX DLG_NULL 77 5
BEGIN
   PROMPT 1 11 "Intervalli di donazione nelle idoneita' automatiche"
END

NUMBER AT_ETADONNE 3
BEGIN
   PROMPT 2 12 "Eta' per la suddivisione delle donne in due fasce "
   FIELD EtaDonne
END

NUMBER AT_INTSI_F1 3
BEGIN
   PROMPT 2 13 "Intervallo SI per femmine 1<> fascia "
   FIELD IntSI_F1
END

NUMBER AT_INTSI_F2 3
BEGIN
   PROMPT 2 14 "Intervallo SI per femmine 2<> fascia "
   FIELD IntSI_F2
END


NUMBER AT_INTSI_M 3
BEGIN
   PROMPT 45 13 "Intervallo SI per maschi "
   FIELD IntSI_M
END

NUMBER AT_INTAF_M 3
BEGIN
   PROMPT 45 14 "Intervallo AF per tutti  "
   FIELD IntAF_M
END

BOOLEAN AT_DATAISC
BEGIN
   PROMPT 2 16 "Data iscrizione (se vuota) uguale a data prima donazione"
   HELP "Data iscrizione automaticamente uguale alla data prima donazione, se vuota"
   FIELD DataIsc
END

BOOLEAN AT_STAMPA80
BEGIN
   PROMPT 2 17 "Stampa 80 colonne dove prevista"
   HELP "Stampa gli elenchi con il formato 80 colonne dove previsto"
   FIELD Stampa80
END

BOOLEAN AT_NOMESSAGE
BEGIN
   PROMPT 2 18 "Disabilita messaggi in giornaliero donazioni"
   HELP "Disabilita i messaggi di attenzione in giornaliero donazioni"
   FIELD NoMessage
END

BOOLEAN AT_CTRLPASS
BEGIN
   PROMPT 2 19 "Accesso ai controlli sanitari con password"
   HELP "Permette l'inserimento ai controlli sanitari solo con password"
   FIELD CtrlPass
END

BOOLEAN AT_ETICTOT
BEGIN
   PROMPT 2 20 "Stampa totale etichette stampate"
   HELP "Stampa una riga di totale etichette stampate in fondo alla stampa"
   FIELD EticTot
END

STRING AT_D_CATINI1 40
BEGIN
   PROMPT 30 2 ""
   FLAGS "D"
END

STRING AT_D_CATFIN1 40
BEGIN
   PROMPT 30 3 ""
   FLAGS "D"
END

STRING AT_D_CATINI2 40
BEGIN
   PROMPT 30 7 ""
   FLAGS "D"
END

STRING AT_D_CATFIN2 40
BEGIN
   PROMPT 30 8 ""
   FLAGS "D"
END

ENDPAGE

PAGE "Parametri 2" -1 -1 78 20

GROUPBOX DLG_NULL 77 5
BEGIN
   PROMPT 1 0 "Etichette soggetti"
END

STRING AT_ETFORM 8
BEGIN
   PROMPT 2 1 "Formato   "
   FIELD EtFormato
   USE LF_FORM
   INPUT TIPOPROF AT_ETFORM
   DISPLAY "Formato@8" TIPOPROF
   DISPLAY "Descrizione@50" DESC
   OUTPUT AT_ETFORM TIPOPROF
   OUTPUT AT_D_ETFORM DESC
END

STRING AT_D_ETFORM 50
BEGIN
   PROMPT 23 1 ""
   FLAGS "D"
END

NUMBER AT_ETLARG  3
BEGIN
   PROMPT 2 2 "Larghezza "
   FIELD EtLarghezza
END

NUMBER AT_ETCOL 1
BEGIN
   PROMPT 2 3 "Colonne   "
   FIELD EtColonne
END

GROUPBOX DLG_NULL 77 4
BEGIN
   PROMPT 1 5 "Scheda soggetti"
END

STRING AT_SCHFORM 8
BEGIN
   PROMPT 2 6 "Formato   "
   FIELD SchFormato
   USE LF_FORM
   INPUT TIPOPROF AT_SCHFORM
   DISPLAY "Formato@8" TIPOPROF
   DISPLAY "Descrizione@50" DESC
   OUTPUT AT_SCHFORM TIPOPROF
   OUTPUT AT_D_SCHFORM DESC
END

STRING AT_D_SCHFORM 50
BEGIN
   PROMPT 23 6 ""
   FLAGS "D"
END

NUMBER AT_SCHXPAG 1
BEGIN
   PROMPT 2 7 "Numero schede per pagina "
   FIELD SchXPag
END

GROUPBOX DLG_NULL 77 3
BEGIN
   PROMPT 1 9 "Elenco personalizzato"
END

STRING AT_ELENCO 8
BEGIN
   PROMPT 2 10 "Formato   "
   FIELD ElencoFormato
   USE LF_FORM
   INPUT TIPOPROF AT_ELENCO
   DISPLAY "Formato@8" TIPOPROF
   DISPLAY "Descrizione@50" DESC
   OUTPUT AT_ELENCO TIPOPROF
   OUTPUT AT_D_ELENCO DESC
END

STRING AT_D_ELENCO 50
BEGIN
   PROMPT 23 10 ""
   FLAGS "D"
END

GROUPBOX DLG_NULL 77 5
BEGIN
   PROMPT 1 12 "Etichette sezioni"
END

STRING AT_ETSFORM 8
BEGIN
   PROMPT 2 13 "Formato   "
   FIELD EtSFormato
   USE LF_FORM
   INPUT TIPOPROF AT_ETSFORM
   DISPLAY "Formato@8" TIPOPROF
   DISPLAY "Descrizione@50" DESC
   OUTPUT AT_ETSFORM TIPOPROF
   OUTPUT AT_D_ETSFORM DESC
END

STRING AT_D_ETSFORM 50
BEGIN
   PROMPT 23 13 ""
   FLAGS "D"
END

NUMBER AT_ETSLARG  3
BEGIN
   PROMPT 2 14 "Larghezza "
   FIELD EtSLarghezza
END

NUMBER AT_ETSCOL 1
BEGIN
   PROMPT 2 15 "Colonne   "
   FIELD EtSColonne
END

ENDMASK