campo-sirio/at/at6100a.uml

#include "at6100a.h"

PAGE "Stampa di controllo tabella medici" -1 -1 70 17

RADIOBUTTON F_SORT 25
BEGIN
	PROMPT 3 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 Cognome e nome"
	MESSAGE DISABLE,4@|ENABLE,5@|RESET,4@
END

GROUPBOX DLG_NULL 65 4
BEGIN
        PROMPT 3 5 "Selezione "
END

NUMBER F_CODFR 6
BEGIN
        PROMPT 4 6 "da Codice "
        USE LF_MEDICI KEY 1
        INPUT CODMED F_CODFR
        DISPLAY "Codice" CODMED
        DISPLAY "Cognome@25" COGNOME
        DISPLAY "Nome@25" NOME
        OUTPUT F_CODFR CODMED
	FLAGS "R"
        HELP "Codice medico da cui iniziare la stampa: vuoto = inizio"
	GROUP 1 4
END

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

STRING F_COGFR 25
BEGIN
        PROMPT 27 6 "da Cognome "
        USE LF_MEDICI KEY 2
        INPUT COGNOME F_COGFR
        DISPLAY "Cognome@25" COGNOME
        DISPLAY "Nome@25" NOME
        DISPLAY "Codice" CODMED
        OUTPUT F_COGFR COGNOME
        HELP "Cognome da cui iniziare stampa: vuoto = inizio archivio"
	GROUP 1 5
END

STRING F_COGTO 25
BEGIN
        PROMPT 27 7 " a Cognome "
        COPY USE F_COGFR
        INPUT COGNOME F_COGTO
        COPY DISPLAY F_COGFR
        OUTPUT F_COGTO COGNOME
        HELP "Cognome finale per la stampa: vuoto = fine archivio"
	GROUP 1 5
END

GROUPBOX DLG_NULL 50 4
BEGIN
        PROMPT 3 11 "Stampa"
END

BUTTON F_ELENCO 9 2
BEGIN
        PROMPT 4 12 "Elenco"
        MESSAGE EXIT,F_ELENCO
END

BUTTON F_ETICHETTE 9 2
BEGIN
        PROMPT 16 12 "Etichette"
        MESSAGE EXIT,F_ETICHETTE
END

BUTTON DLG_QUIT 9 2
BEGIN
        PROMPT 32 12 ""
END

ENDPAGE
ENDMASK