685e766f6a
Files correlati : Ricompilazione Demo : [ ] Commento : git-svn-id: svn://10.65.10.50/trunk@18936 c028cbd2-c16b-5b4b-a496-9718f37d4682
93 lines
1.8 KiB
Plaintext
Executable File
93 lines
1.8 KiB
Plaintext
Executable File
#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 <helpbar.h>
|
|
|
|
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
|