#include "at6100a.h" TOOLBAR "" 0 0 0 2 BUTTON F_ELENCO 2 2 BEGIN PROMPT 1 1 "E~lenco" MESSAGE EXIT,F_ELENCO PICTURE TOOL_PRINTELENCO END BUTTON F_ETICHETTE 2 2 BEGIN PROMPT 2 1 "~Etichette" MESSAGE EXIT,F_ETICHETTE PICTURE TOOL_PRINTETICH END #include ENDPAGE PAGE "Stampa di controllo tabella medici" 0 2 0 0 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 ENDPAGE ENDMASK