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 "Automatismi" -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 5
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

BOOLEAN AT_STTESS2
BEGIN
   PROMPT 30 6 "Passaggio con stampa tessera"
   HELP "Eseguire il cambio di categoria al momento della stampa tessera"
   FIELD StTess2
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

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

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

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

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


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

NUMBER AT_INTAF_M 3
BEGIN
   PROMPT 45 13 "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_NOMESSAGE
BEGIN
   PROMPT 2 17 "Disabilita messaggi in giornaliero donazioni"
   HELP "Disabilita i messaggi di attenzione in giornaliero donazioni"
   FIELD NoMessage
END

BOOLEAN AT_AUTOID
BEGIN
   PROMPT 2 18 "Idoneita' automatica"
   HELP "Idoneita' automatica in giornaliero donazioni"
   FIELD AutoId
   MESSAGE TRUE ENABLE,AT_MOTIVOID
   MESSAGE FALSE RESET,AT_MOTIVOID|DISABLE,AT_MOTIVOID
END

STRING AT_MOTIVOID 4
BEGIN
   PROMPT 30 18 "Motivo "
   FIELD MotivoId
   FLAGS "U"
   USE MTC
   INPUT CODTAB AT_MOTIVOID
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT AT_MOTIVOID CODTAB
   OUTPUT AT_D_MOTIVOID S0
   CHECKTYPE NORMAL
   WARNING "Codice motivo non presente"
   HELP "Motivo del controllo sanitario"
END

STRING AT_D_MOTIVOID 25
BEGIN
  PROMPT 45 18 ""
  FLAGS "D"
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

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 "Etichette" -1 -1 78 20

GROUPBOX DLG_NULL 77 4
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
   CHECKTYPE SEARCH
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 20 2 "Colonne   "
   FIELD EtColonne
END

GROUPBOX DLG_NULL 77 4
BEGIN
   PROMPT 1 4 "Etichette per notiziario"
END

STRING AT_NETFORM 8
BEGIN
   PROMPT 2 5 "Formato   "
   FIELD EtNFormato
   USE LF_FORM
   INPUT TIPOPROF AT_NETFORM
   DISPLAY "Formato@8" TIPOPROF
   DISPLAY "Descrizione@50" DESC
   OUTPUT AT_NETFORM TIPOPROF
   OUTPUT AT_D_NETFORM DESC
   CHECKTYPE SEARCH
END

STRING AT_D_NETFORM 50
BEGIN
   PROMPT 23 5 ""
   FLAGS "D"
END

NUMBER AT_NETLARG  3
BEGIN
   PROMPT 2 6 "Larghezza "
   FIELD EtNLarghezza
END

NUMBER AT_NETCOL 1
BEGIN
   PROMPT 20 6 "Colonne   "
   FIELD EtNColonne
END

GROUPBOX DLG_NULL 77 4
BEGIN
   PROMPT 1 8 "Etichette sezioni"
END

STRING AT_ETSFORM 8
BEGIN
   PROMPT 2 9 "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
   CHECKTYPE SEARCH
END

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

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

NUMBER AT_ETSCOL 1
BEGIN
   PROMPT 20 10 "Colonne   "
   FIELD EtSColonne
END

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

ENDPAGE

PAGE "Altre stampe" -1 -1 78 20

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

STRING AT_SCHFORM 8
BEGIN
   PROMPT 2 1 "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
   CHECKTYPE SEARCH
END

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

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

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

STRING AT_ELENCO 8
BEGIN
   PROMPT 2 5 "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
   CHECKTYPE SEARCH
END

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

GROUPBOX DLG_NULL 77 4
BEGIN
   PROMPT 1 7 "Cartoline"
END

STRING AT_CAFORM 8
BEGIN
   PROMPT 2 8 "Formato   "
   FIELD CaFormato
   USE LF_FORM
   INPUT TIPOPROF AT_CAFORM
   DISPLAY "Formato@8" TIPOPROF
   DISPLAY "Descrizione@50" DESC
   OUTPUT AT_CAFORM TIPOPROF
   OUTPUT AT_D_CAFORM DESC
   CHECKTYPE SEARCH
END

BOOLEAN AT_CAPARAM
BEGIN
   PROMPT 2 9 "Richiesta parametri per stampa cartolina "
   HELP "Chiede all'utente i dati da stampare sulla cartolina di convocazione"
   FIELD CaParametri
END

STRING AT_D_CAFORM 50
BEGIN
   PROMPT 23 8 ""
   FLAGS "D"
END

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


ENDPAGE

ENDMASK