campo-sirio/at/at_etsez.frm

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

END
DESCRIPTION
BEGIN
  96->* "Sezioni"
  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 "Sezione"
 FIELD 96->DENSEZ
 PROMPT 0 0 ""
 FLAGS "H"
 MESSAGE RESET,4|COPY,4|"/",2
END

STRINGA 13 25
BEGIN
   KEY "/"
   FIELD 96->DENSOT
   PROMPT 0 0 ""
   FLAGS "H"
   MESSAGE EMPTY RESET,2
END

STRINGA 2 1
BEGIN
   KEY "/"
   PROMPT 0 0 ""
   FLAGS "H"
   MESSAGE APPEND,4
END

STRINGA 3 25
BEGIN
 KEY "Sottogruppo"
 FIELD 96->DENSOT
 PROMPT 0 0 ""
 FLAGS "H"
 MESSAGE APPEND,4
END

STRINGA 4 33 3
BEGIN
 KEY "Denominazione"
 PROMPT 1 1 "Spett.le AVIS "
END

STRINGA 5 33 2
BEGIN
 KEY "Indirizzo"
 PROMPT 1 4 ""
 FIELD 96->INDIRIZZO
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 6 ""
   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 6 ""
   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 6 ""
END

END

END