Files correlati : un casino Ricompilazione Demo : [ ] Commento : allineato versione git-svn-id: svn://10.65.10.50/trunk@13415 c028cbd2-c16b-5b4b-a496-9718f37d4682
		
			
				
	
	
		
			184 lines
		
	
	
		
			2.1 KiB
		
	
	
	
		
			Plaintext
		
	
	
		
			Executable File
		
	
	
	
	
			
		
		
	
	
			184 lines
		
	
	
		
			2.1 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 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
 |