campo-sirio/at/ateticbz.frm

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