118 lines
1.4 KiB
Plaintext
118 lines
1.4 KiB
Plaintext
|
USE 90
|
|||
|
|
JOIN 13 INTO COM==COM
|
|||
|
|
JOIN LCP ALIAS 100 INTO CODTAB==LOCALITA
|
|||
|
|
|
|||
|
|
END
|
|||
|
|
DESCRIPTION
|
|||
|
|
BEGIN
|
|||
|
|
90->* "Soggetti Sezioni AVIS"
|
|||
|
|
13->* "COMUNI"
|
|||
|
|
LCP->* "Localit<69> postali"
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
GENERAL
|
|||
|
|
BEGIN
|
|||
|
|
OFFSET 0 0
|
|||
|
|
FONT "Arial"
|
|||
|
|
SIZE 12
|
|||
|
|
GRID ""
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
SECTION BODY ODD 9
|
|||
|
|
|
|||
|
|
STRINGA 1 25
|
|||
|
|
BEGIN
|
|||
|
|
KEY "Cognome"
|
|||
|
|
FIELD 90->COGNOME
|
|||
|
|
PROMPT 0 0 ""
|
|||
|
|
FLAGS "H"
|
|||
|
|
MESSAGE RESET,3|COPY,3
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRINGA 2 25
|
|||
|
|
BEGIN
|
|||
|
|
KEY "Nome"
|
|||
|
|
FIELD 90->NOME
|
|||
|
|
PROMPT 0 0 ""
|
|||
|
|
FLAGS "H"
|
|||
|
|
MESSAGE APPEND,3
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRINGA 3 33 2
|
|||
|
|
BEGIN
|
|||
|
|
KEY "Cognome e nome"
|
|||
|
|
PROMPT 1 1 ""
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRINGA 4 33 2
|
|||
|
|
BEGIN
|
|||
|
|
KEY "Indirizzo"
|
|||
|
|
PROMPT 1 3 ""
|
|||
|
|
FIELD 90->INDIRIZZO
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRINGA 5 4
|
|||
|
|
BEGIN
|
|||
|
|
KEY "Codice localita'"
|
|||
|
|
PROMPT 0 0 ""
|
|||
|
|
FLAG "H"
|
|||
|
|
FIELD 90->LOCALITA
|
|||
|
|
MESSAGE ENABLE,1@|DISABLE,2@
|
|||
|
|
MESSAGE EMPTY ENABLE,2@|DISABLE,1@
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRINGA 6 5
|
|||
|
|
BEGIN
|
|||
|
|
KEY "CAP loc."
|
|||
|
|
PROMPT 1 5 ""
|
|||
|
|
FIELD 100@->S6
|
|||
|
|
GROUP 1
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRINGA 7 30
|
|||
|
|
BEGIN
|
|||
|
|
KEY "Localita'"
|
|||
|
|
PROMPT 0 0 ""
|
|||
|
|
FIELD 100@->S0
|
|||
|
|
GROUP 1
|
|||
|
|
FLAG "H"
|
|||
|
|
MESSAGE RESET,11|COPY,11
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRINGA 8 5
|
|||
|
|
BEGIN
|
|||
|
|
KEY "CAP"
|
|||
|
|
PROMPT 1 5 ""
|
|||
|
|
FIELD 13->CAPCOM
|
|||
|
|
GROUP 2
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRINGA 9 50
|
|||
|
|
BEGIN
|
|||
|
|
KEY "Comune"
|
|||
|
|
PROMPT 0 0 ""
|
|||
|
|
FIELD 13->DENCOM
|
|||
|
|
GROUP 2
|
|||
|
|
FLAG "H"
|
|||
|
|
MESSAGE RESET,11|COPY,11
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRINGA 10 5
|
|||
|
|
BEGIN
|
|||
|
|
KEY "Provincia"
|
|||
|
|
PROMPT 0 0 ""
|
|||
|
|
FIELD 13->PROVCOM
|
|||
|
|
FLAG "H"
|
|||
|
|
MESSAGE APPEND,11
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
STRINGA 11 27 2
|
|||
|
|
BEGIN
|
|||
|
|
KEY "Loc./Com. e Prov."
|
|||
|
|
PROMPT 7 5 ""
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
END
|
|||
|
|
|
|||
|
|
END
|