f2185ee347
Files correlati : un casino Ricompilazione Demo : [ ] Commento : allineato versione git-svn-id: svn://10.65.10.50/trunk@13415 c028cbd2-c16b-5b4b-a496-9718f37d4682
134 lines
1.7 KiB
Plaintext
Executable File
134 lines
1.7 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 17
|
|
|
|
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 30 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 16
|
|
BEGIN
|
|
KEY "Denominazione localita' o comune"
|
|
FIELD 100@->S0[1,16]
|
|
FIELD 13->DENCOM[1,16]
|
|
PROMPT 0 0 ""
|
|
FLAGS "H"
|
|
MESSAGE RESET,9|COPY,9
|
|
END
|
|
|
|
STRINGA 8 14
|
|
BEGIN
|
|
KEY "Denominazione localita' o comune"
|
|
FIELD 100@->S0[17,30]
|
|
FIELD 13->DENCOM[17,30]
|
|
PROMPT 0 0 ""
|
|
FLAGS "H"
|
|
MESSAGE RESET,10|COPY,10
|
|
END
|
|
|
|
STRINGA 13 5
|
|
BEGIN
|
|
KEY "Provincia"
|
|
FIELD 13->PROVCOM
|
|
PROMPT 0 0 ""
|
|
FLAGS "H"
|
|
MESSAGE APPEND,10
|
|
END
|
|
|
|
STRINGA 9 16
|
|
BEGIN
|
|
KEY "Loc./Com. e Prov."
|
|
PROMPT 7 12 ""
|
|
END
|
|
|
|
STRINGA 10 14
|
|
BEGIN
|
|
KEY "Loc./Com. e Prov."
|
|
PROMPT 7 14 ""
|
|
END
|
|
|
|
STRINGA 11 2
|
|
BEGIN
|
|
KEY "Sezione"
|
|
FIELD 90->CODSEZ
|
|
PROMPT 30 16 ""
|
|
END
|
|
|
|
STRINGA 12 2
|
|
BEGIN
|
|
KEY "Sezione"
|
|
FIELD 90->CODSOT
|
|
PROMPT 32 16 "/"
|
|
END
|
|
|
|
END
|
|
|
|
END
|