158 lines
2.5 KiB
Plaintext
Executable File
158 lines
2.5 KiB
Plaintext
Executable File
#include "at0800.h"
|
|
#include "lf.h"
|
|
|
|
TOOLBAR "" 0 20 0 2
|
|
#include <toolbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Tabella Medici 1/1" -1 -1 78 20
|
|
|
|
GROUPBOX DLG_NULL 77 5
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER F_CODMED 6
|
|
BEGIN
|
|
PROMPT 2 2 "Cod. medico "
|
|
FIELD CODMED
|
|
FLAGS "U"
|
|
KEY 1
|
|
USE LF_MEDICI
|
|
INPUT CODMED F_CODMED
|
|
DISPLAY "Codice " CODMED
|
|
DISPLAY "Cognome@25" COGNOME
|
|
DISPLAY "Nome@25" NOME
|
|
OUTPUT F_CODMED CODMED
|
|
OUTPUT F_COGNOME COGNOME
|
|
OUTPUT F_NOME NOME
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_COGNOME 25
|
|
BEGIN
|
|
PROMPT 2 3 "Cognome "
|
|
FIELD COGNOME
|
|
KEY 2
|
|
USE LF_MEDICI KEY 2
|
|
INPUT COGNOME F_COGNOME
|
|
INPUT NOME F_NOME
|
|
DISPLAY "Cognome@25" COGNOME
|
|
DISPLAY "Nome@25" NOME
|
|
DISPLAY "Codice " CODMED
|
|
COPY OUTPUT F_CODMED
|
|
CHECKTYPE REQUIRED
|
|
WARNING "Inserire il cognome del medico"
|
|
END
|
|
|
|
STRING F_NOME 25
|
|
BEGIN
|
|
PROMPT 2 4 "Nome "
|
|
FIELD NOME
|
|
KEY 2
|
|
COPY ALL F_COGNOME
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 77 5
|
|
BEGIN
|
|
PROMPT 1 6 "Indirizzo"
|
|
END
|
|
|
|
STRING F_INDIRIZZO 50
|
|
BEGIN
|
|
PROMPT 2 7 "Indirizzo "
|
|
FIELD INDIRIZZO
|
|
END
|
|
|
|
STRING F_COM 4
|
|
BEGIN
|
|
PROMPT 2 8 "Comune "
|
|
FIELD COM
|
|
FLAGS "U"
|
|
USE LF_COMUNI
|
|
INPUT STATO ""
|
|
INPUT COM F_COM
|
|
#include <comdcod.h>
|
|
OUTPUT F_COM COM
|
|
OUTPUT F_DENCOM DENCOM
|
|
OUTPUT F_PROVCOM PROVCOM
|
|
OUTPUT F_CAPCOM CAPCOM
|
|
CHECKTYPE NORMAL
|
|
WARNING "Comune assente"
|
|
END
|
|
|
|
STRING F_DENCOM 48
|
|
BEGIN
|
|
PROMPT 19 8 ""
|
|
USE LF_COMUNI KEY 2
|
|
INPUT DENCOM F_DENCOM
|
|
#include <comdden.h>
|
|
COPY OUTPUT F_COM
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_LOCALITA 4
|
|
BEGIN
|
|
PROMPT 2 9 "Località "
|
|
FIELD LOCALITA
|
|
FLAGS "U"
|
|
USE LCP SELECT S7=#F_COM
|
|
INPUT CODTAB F_LOCALITA
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Località@30" S0
|
|
DISPLAY "CAP@5" S6
|
|
OUTPUT F_LOCALITA CODTAB
|
|
OUTPUT F_DENLOC S0
|
|
OUTPUT F_CAPCOM S6
|
|
OUTPUT F_COM S7
|
|
CHECKTYPE NORMAL
|
|
HELP "Codice localit… postale se diversa dal comune"
|
|
END
|
|
|
|
STRING F_DENLOC 30
|
|
BEGIN
|
|
PROMPT 19 9 ""
|
|
COPY USE F_LOCALITA
|
|
INPUT S0 F_DENLOC
|
|
DISPLAY "Località@30" S0
|
|
DISPLAY "CAP@5" S6
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT F_LOCALITA
|
|
CHECKTYPE NORMAL
|
|
HELP "Localit… postale se diversa dal comune"
|
|
END
|
|
|
|
STRING F_PROVCOM 5
|
|
BEGIN
|
|
PROMPT 71 8 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CAPCOM 5
|
|
BEGIN
|
|
PROMPT 67 9 "CAP "
|
|
FLAGS "D"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 77 3
|
|
BEGIN
|
|
PROMPT 1 11 "Telefoni"
|
|
END
|
|
|
|
STRING F_TELAMB 15
|
|
BEGIN
|
|
PROMPT 2 12 "Ambulatorio "
|
|
FIELD TELAMB
|
|
END
|
|
|
|
STRING F_TELABI 15
|
|
BEGIN
|
|
PROMPT 40 12 "Abitazione "
|
|
FIELD TELABI
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|