Files correlati : un casino Ricompilazione Demo : [ ] Commento : allineato versione git-svn-id: svn://10.65.10.50/trunk@13415 c028cbd2-c16b-5b4b-a496-9718f37d4682
		
			
				
	
	
		
			91 lines
		
	
	
		
			1.1 KiB
		
	
	
	
		
			Plaintext
		
	
	
		
			Executable File
		
	
	
	
	
			
		
		
	
	
			91 lines
		
	
	
		
			1.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 12
 | |
| GRID ""
 | |
| END
 | |
| SECTION BODY ODD 6
 | |
| STRINGA 1 25
 | |
| BEGIN
 | |
| KEY "Cognome"
 | |
| FIELD 90->COGNOME
 | |
| PROMPT 1 1 ""
 | |
| END
 | |
| STRINGA 2 25
 | |
| BEGIN
 | |
| KEY "Nome"
 | |
| FIELD 90->NOME
 | |
| PROMPT 1 2 ""
 | |
| END
 | |
| STRINGA 3 25
 | |
| BEGIN
 | |
| KEY "Cognomne da sposata"
 | |
| FIELD 90->COGNOME_SP
 | |
| PROMPT 1 3 ""
 | |
| END
 | |
| STRINGA 4 30
 | |
| BEGIN
 | |
| KEY "Indirizzo"
 | |
| FIELD 90->DOM_INDIR
 | |
| PROMPT 1 4 ""
 | |
| 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 1 5 ""
 | |
| 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 30 5 ""
 | |
| END
 | |
| STRINGA 9 50
 | |
| BEGIN
 | |
| KEY "Loc./Com. e Prov."
 | |
| PROMPT 7 5 ""
 | |
| END
 | |
| STRINGA 10 4
 | |
| BEGIN
 | |
| KEY "Gruppo aziendale"
 | |
| PROMPT 27 2 ""
 | |
| FIELD 90->GRUPPOAZIE
 | |
| END
 | |
| NUMERO 11 8
 | |
| BEGIN
 | |
| KEY "Codice"
 | |
| PROMPT 27 1 ""
 | |
| FIELD 90->CODICE
 | |
| END
 | |
| END
 | |
| END
 |