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à 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