USE 96
JOIN 13 INTO COM==COM
JOIN LCP INTO CODTAB==LOCALITA

END
DESCRIPTION
BEGIN
  96->* "Sezioni"
  13->* "COMUNI"
  LCP->* "Località postali"
END

GENERAL
BEGIN
  OFFSET 0 0
  FONT ""
  SIZE 12
  GRID ""
END

SECTION BODY ODD 6

STRINGA 1 15
BEGIN
  PROMPT 0 0 ""
  FLAG "H"
  MESSAGE RESET,3|"Spett.le AVIS",3
END

STRINGA 2 50
BEGIN
 KEY "Denominazione"
 PROMPT 0 0 ""
 FIELD 96->DENOMINAZ
 FLAG "H"
 MESSAGE APPEND,3
END

STRINGA 3 40 2
BEGIN
  PROMPT 1 1 ""
END

STRINGA 4 40 2
BEGIN
 KEY "Indirizzo"
 PROMPT 1 3 ""
 FIELD 96->INDIRIZZO
END

STRINGA 5 1
BEGIN
  PROMPT 0 0 ""
  FLAG "H"
END

STRINGA 6 4
BEGIN
   KEY "Codice localita'"
   PROMPT 0 0 ""
   FLAG "H"
   FIELD 96->LOCALITA
   MESSAGE ENABLE,1@|DISABLE,2@
   MESSAGE EMPTY ENABLE,2@|DISABLE,1@
END

STRINGA 7 5
BEGIN
   KEY "CAP loc."
   PROMPT 1 4 ""
   FIELD LCP->S6
   GROUP 1
END

STRINGA 8 30
BEGIN
   KEY "Localita'"
   PROMPT 0 0 ""
   FIELD LCP->S0
   GROUP 1
   FLAG "H"
   MESSAGE RESET,12|COPY,12
END

STRINGA 9 5
BEGIN
   KEY "CAP"
   PROMPT 1 4 ""
   FIELD 13->CAPCOM
   GROUP 2
END

STRINGA 10 50
BEGIN
   KEY "Comune"
   PROMPT 0 0 ""
   FIELD 13->DENCOM
   GROUP 2
   FLAG "H"
   MESSAGE RESET,12|COPY,12
END

STRINGA 11 5
BEGIN
   KEY "Provincia"
   PROMPT 0 0 ""
   FIELD 13->PROVCOM
   FLAG "H"
   MESSAGE APPEND,12
END

STRINGA 12 27 2
BEGIN
   KEY "Loc./Com. e Prov."
   PROMPT 7 4 ""
END

END

END