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 ""
   SIZE
   GRID ""
END

SECTION BODY ODD 23

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 35 2
BEGIN
   KEY "Cognome e nome"
   PROMPT 57 13 ""
END

STRINGA 4 35 2
BEGIN
   KEY "Indirizzo"
   FIELD 90->DOM_INDIR
   PROMPT 57 15 ""
END

STRINGA 23 35 2
BEGIN
   KEY "Presso indirizzo"
   FIELD 90->DOM_DISTRI
   PROMPT 57 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 57 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 30 2
BEGIN
   KEY "Loc./Com. e Prov."
   PROMPT 63 19 ""
END

STRINGA 10 25
BEGIN
 KEY "Invito per"
 PROMPT 20 8 ""
END

STRINGA 11 25
BEGIN
 KEY "Data convocazione"
 PROMPT 20 10 ""
END

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

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

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

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

STRINGA 16 14
BEGIN
 KEY "Orario"
 PROMPT 20 18 ""
END

STRINGA 17 10
BEGIN
 KEY "Data cartolina"
 PROMPT 20 20 ""
END

STRINGA 18 25
BEGIN
 KEY "Note"
 PROMPT 20 22 ""
END

STRINGA 19 20
BEGIN
 KEY "Intestazione 1"
 PROMPT 20 3 ""
END

STRINGA 20 20
BEGIN
 KEY "Intestazione 2"
 PROMPT 20 4 ""
END

STRINGA 21 20
BEGIN
 KEY "Intestazione 3"
 PROMPT 20 5 ""
END

STRINGA 22 20
BEGIN
 KEY "Intestazione 4"
 PROMPT 20 6 ""
END

END

END