campo-sirio/src/at/atetlang.frm
bonazzi 9f90b0bf72 Patch level : 12.0 no patch
Files correlati     : 
Commento            :

Riaggiunto AVIS ai sorgenti

git-svn-id: svn://10.65.10.50/branches/R_10_00@23247 c028cbd2-c16b-5b4b-a496-9718f37d4682
2016-09-10 08:28:36 +00:00

102 lines
1.3 KiB
Plaintext
Executable File

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 2 2 // righe iniziali da saltare / righe finali da saltare
FONT ""
SIZE
GRID ""
END
SECTION BODY ODD 16
STRINGA 1 25
BEGIN
KEY "Cognome"
FIELD 90->COGNOME
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 2 25
BEGIN
KEY "Nome"
FIELD 90->NOME
PROMPT 0 0 ""
FLAGS "H"
END
STRINGA 3 45 2
BEGIN
KEY "Cognome e nome"
PROMPT 1 4 ""
END
STRINGA 4 30
BEGIN
KEY "Indirizzo"
FIELD 90->DOM_INDIR
PROMPT 1 8 ""
END
STRINGA 12 30
BEGIN
KEY "Presso"
FIELD 90->DOM_DISTRI
PROMPT 1 10 ""
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 90->DOM_CAP
PROMPT 1 12 ""
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 39 2
BEGIN
KEY "Loc./Com. e Prov."
PROMPT 7 12 ""
END
END
END