campo-sirio/at/at6200a.uml

#include "at6200a.h"

TOOLBAR "" 0 20 0 2

BUTTON F_ELENCO 9 2
BEGIN
        PROMPT -13 -11 "Elenco"
        MESSAGE EXIT,F_ELENCO
END

BUTTON F_ETICHETTE 9 2
BEGIN
        PROMPT -23 -11 "Etichette"
        MESSAGE EXIT,F_ETICHETTE
END

BUTTON DLG_QUIT 9 2
BEGIN
        PROMPT -33 -11 ""
END

ENDPAGE

PAGE "Stampa di controllo tabella sezioni" -1 -1 78 20

RADIOBUTTON F_SORT 25
BEGIN
        PROMPT 1 1 "Ordinamento"
        HELP "Selezionare il tipo di ordinamento per la stampa"
	ITEM "1|per Codice"
	MESSAGE DISABLE,5@|ENABLE,4@|RESET,5@
        ITEM "2|per Sezione"
	MESSAGE DISABLE,4@|ENABLE,5@|RESET,4@
END

GROUPBOX DLG_NULL 65 5
BEGIN
        PROMPT 1 5 "Opzioni per la stampa"
END

STRING F_CODFR 6
BEGIN
        PROMPT 2 6 "da Codice "
        USE LF_SEZIONI KEY 1
        INPUT CODSEZ F_CODFR
        DISPLAY "Codice" CODSEZ
        DISPLAY "Sezione@25" DENSEZ
        DISPLAY "Sottogruppo@25" DENSOT
        OUTPUT F_CODFR CODSEZ
	FLAGS "R"
        HELP "Codice sezione da cui iniziare la stampa: vuoto = inizio"
	GROUP 1 4
END

STRING F_CODTO 6
BEGIN
        PROMPT 2 7 " a Codice "
        COPY USE F_CODFR
        INPUT CODSEZ F_CODTO
        COPY DISPLAY F_CODFR
        OUTPUT F_CODTO CODSEZ
	FLAGS "R"
        HELP "Codice sezione finale per la stampa: vuoto = fine archivio"
	GROUP 1 4
END

STRING F_DENFR 25
BEGIN
        PROMPT 27 6 "da Sezione "
        USE LF_SEZIONI KEY 2
        INPUT DENSEZ F_DENFR
        DISPLAY "Sezione@25" DENSEZ
        DISPLAY "Sottogruppo@25" DENSOT
        DISPLAY "Codice" CODSEZ
        OUTPUT F_DENFR DENSEZ
        HELP "Sezione da cui iniziare stampa: vuoto = inizio archivio"
	GROUP 1 5
END

STRING F_DENTO 25
BEGIN
        PROMPT 27 7 " a Sezione "
        COPY USE F_DENFR
        INPUT DENSEZ F_DENTO
        COPY DISPLAY F_DENFR
        OUTPUT F_DENTO DENSEZ
        HELP "Sezione finale per la stampa: vuoto = fine archivio"
	GROUP 1 5
END

BOOLEAN F_ESTINTE
BEGIN
   PROMPT 2 8 "Stampa anche sezioni estinte"
END

ENDPAGE
ENDMASK