campo-sirio/at/atcarto2.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 "Roman"
   SIZE 12
   GRID ""
END

SECTION BODY ODD 24

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 25 2
BEGIN
   KEY "Cognome e nome"
   PROMPT 56 16 ""
END

STRINGA 4 20 2
BEGIN
   KEY "Indirizzo"
   FIELD 90->DOM_INDIR
   PROMPT 56 17 ""
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 56 19 ""
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 0 0 ""
   FLAGS "H"
   MESSAGE APPEND,9
END

STRINGA 9 22 3
BEGIN
   KEY "Loc./Com. e Prov."
   PROMPT 62 19 ""
END

STRINGA 10 25
BEGIN
 KEY "Invito per"
 PROMPT 11 4 ""
END

STRINGA 11 25
BEGIN
 KEY "Data convocazione"
 PROMPT 37 2 ""
END

STRINGA 12 25
BEGIN
 KEY "Presso: riga 1"
 PROMPT 11 5 ""
END

STRINGA 13 25
BEGIN
 KEY "Presso: riga 2"
 PROMPT 11 6 ""
END

STRINGA 14 25
BEGIN
 KEY "Presso: riga 3"
 PROMPT 11 7 ""
END

STRINGA 15 25
BEGIN
 KEY "Presso: riga 4"
 PROMPT 11 8 ""
END

STRINGA 16 14
BEGIN
 KEY "Orario"
 PROMPT 11 9 ""
END

STRINGA 17 10
BEGIN
 KEY "Data cartolina"
 PROMPT 18 21 ""
END

STRINGA 18 25
BEGIN
 KEY "Note"
 PROMPT 3 23 ""
END

STRINGA 19 20
BEGIN
 KEY "Intestazione 1"
 PROMPT 15 5 ""
END

STRINGA 20 20
BEGIN
 KEY "Intestazione 2"
 PROMPT 15 6 ""
END

STRINGA 21 20
BEGIN
 KEY "Intestazione 3"
 PROMPT 15 7 ""
END

STRINGA 22 20
BEGIN
 KEY "Intestazione 4"
 PROMPT 15 8 ""
END

END

END