USE 90
JOIN 13 INTO COM==DOM_CODCOM
JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC
END
DESCRIPTION
BEGIN
90->* "Soggetti Sezioni AVIS"
13->* "COMUNI"
100@->* "Localita' postali"
END
GENERAL
BEGIN
OFFSET 0 0
FONT ""
SIZE 12
GRID ""
END
SECTION BODY ODD 6
STRINGA 1 25
BEGIN
KEY "Cognome"
FIELD 90->COGNOME
PROMPT 1 1 ""
END
STRINGA 2 25
BEGIN
KEY "Nome"
FIELD 90->NOME
PROMPT 1 2 ""
END
STRINGA 3 25
BEGIN
KEY "Cognomne da sposata"
FIELD 90->COGNOME_SP
PROMPT 1 3 ""
END
STRINGA 4 30
BEGIN
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 1 4 ""
END
STRINGA 5 4
BEGIN
KEY "Codice localita'"
FIELD 90->DOM_CODLOC
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 6 5
BEGIN
KEY "CAP"
FIELD 100@->S6
FIELD 13->CAPCOM
PROMPT 1 5 ""
END
STRINGA 7 30
BEGIN
KEY "Denominazione localita' o comune"
FIELD 100@->S0
FIELD 13->DENCOM
PROMPT 0 0 ""
FLAGS "H"
MESSAGE RESET,9|COPY,9
END
STRINGA 8 5
BEGIN
KEY "Provincia"
FIELD 13->PROVCOM
PROMPT 30 5 ""
END
STRINGA 9 50
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 7 5 ""
END
STRINGA 10 4
BEGIN
KEY "Gruppo aziendale"
PROMPT 27 2 ""
FIELD 90->GRUPPOAZIE
END
NUMERO 11 8
BEGIN
KEY "Codice"
PROMPT 27 1 ""
FIELD 90->CODICE
END
END
END