USE 36
JOIN 37 TO 36 INTO TIPOQUA=TIPOQUA CODDITTA=CODDITTA
JOIN  9 TO 36 INTO CODDITTA=CODDITTA
JOIN  6 TO  9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN  7 TO  9 INTO CODANAGR=CODANAGR
JOIN  8 TO  6 ALIAS 118 INTO CODANAGR=CODANAGR
JOIN 13 TO  8 ALIAS 113 INTO COM=COMNASC
JOIN 13 TO  6 ALIAS 213 INTO COM=COMRF(COMRES)

JOIN  6 TO 36 ALIAS 216 INTO CODANAGR=RAPPR   
JOIN  8 TO  6 ALIAS 218 INTO CODANAGR=CODANAGR
JOIN 13 TO 218@ ALIAS 313 INTO COM=COMNASC
JOIN 13 TO 216@ ALIAS 413 INTO COM=COMRF(COMRES)
JOIN 10 TO   9 INTO CODDITTA=CODDITTA CODATT=CODATTPREV
JOIN  6 TO  10 ALIAS 316 INTO TIPOA=TIPOADS CODANAGR=CODANGRDS
JOIN 13 TO  10 ALIAS 513 INTO COM==COMCS
END

DESCRIPTION
BEGIN
  36->* "Base 770"
  37->* "Basebis 770"
  9->* "Ditte"
  6->* "LF_ANAG Anagrafica persone fisiche e giuridiche"
  8->* "Anagrafica persone fisiche"
  10->* "ATTIV"  
  116@->* "Comuni"
  118@->* "Comuni"
END

GENERAL
BEGIN
  OFFSET 0 0
  FONT "Courier 17cpi"
  SIZE 10
  CA "X"           
  IN 3 2
  FI 131
END

SECTION BODY FIRST 67

LISTA 1
BEGIN
 KEY "Tipo anagrafica: ABILITA PERSONE FISICHE/ALTRI SOGGETTI"
 FIELD 9->TIPOA
 ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
 ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
 FLAGS "H"
END

STRINGA 2
BEGIN
  KEY "GRUPPO 1 - PERSONE FISICHE - CODICE FISCALE"
  PROMPT 25 1  ""
  FIELD 116@->COFI
  GROUP 1
END

LISTA 3
BEGIN
  KEY "REG.A.STATUTO.SPECIALE VA - SA -SI"
  PROMPT 94 1 ""
  ITEM "|"    
  ITEM "1|X"
  ITEM "2|"
  ITEM "3|"
  FIELD 36->RSS
  GROUP 1
END      

LISTA 4
BEGIN
  KEY "REG.A.STATUTO.SPECIALE VA - SA -SI"
  PROMPT 102 1 ""
  ITEM "|"    
  ITEM "1|"
  ITEM "2|X"
  ITEM "3|"
  FIELD 36->RSS
  GROUP 1
END

LISTA 5
BEGIN
  KEY "REG.A.STATUTO.SPECIALE VA - SA -SI"
  PROMPT 111 1 ""
  ITEM "|"    
  ITEM "1|"
  ITEM "2|"
  ITEM "3|X"
  FIELD 36->RSS
  GROUP 1
END

STRINGA 6
BEGIN
  KEY "CODICE ATTIVITA"
  PROMPT 122 1 ""
  FIELD 9->CODATTPREV
  GROUP 1
END

STRINGA 7
BEGIN
  KEY "COGNOME"
  PROMPT 25 3 ""
  FIELD 116@->RAGSOC[1,30]
  GROUP 1
END  

STRINGA 8
BEGIN
  KEY "NOME"
  PROMPT 82 3 ""
  FIELD 116@->RAGSOC[31,50]
  GROUP 1
END  

LISTA 9
BEGIN
  KEY "SESSO M"
  PROMPT 122 3 ""
  ITEM "M|X"
  ITEM "F|"
  FIELD 118@->SESSO
  GROUP 1
END  

LISTA 10
BEGIN
  KEY "SESSO F"
  PROMPT 130 3 ""
  ITEM "M|"
  ITEM "F|X"
  FIELD 118@->SESSO
  GROUP 1
END  
  
STRINGA 11
BEGIN
  KEY "DATA DI NASCITA"
  PROMPT 25 5 ""
  FIELD 118@->DATANASC
  PICTURE "## ^ ##  ^^###" 
  GROUP 1
END  
  
STRINGA 12
BEGIN
  KEY "COMUNE DI NASCITA"
  PROMPT 47 5 ""
  FIELD 113@->DENCOM
  GROUP 1
END  
  
STRINGA 13
BEGIN
  KEY "PROV. DI NASCITA"
  PROMPT 103 5 ""
  FIELD 113@->PROVCOM
  GROUP 1
END  

STRINGA 14
BEGIN
  KEY "EVENTI ECCEZIONALI"
  PROMPT 130 5 ""
  FIELD 116@->EVECC
  GROUP 1
END
  
STRINGA 15
BEGIN
  KEY "COMUNE DI RES.FISCALE"
  PROMPT 44 7 ""
  FIELD 213@->DENCOM
  GROUP 1  
END  
  
STRINGA 16
BEGIN
  KEY "PROV DI RES.FISCALE"
  PROMPT 102 7 ""
  FIELD 213@->PROVCOM
  GROUP 1  
END  

STRINGA 17
BEGIN
  KEY "CAP"
  PROMPT 122 7 ""
  FIELD 116@->CAPRF
  FIELD 116@->CAPRES
  GROUP 1  
END  
  
STRINGA 18
BEGIN
  KEY "VIA di RES."
  PROMPT 44 9  ""
  FIELD 116@->INDRF
  FIELD 116@->INDRES
  GROUP 1  
END  
  
STRINGA 19
BEGIN
  KEY "NUM. CIVICO di RES."
  PROMPT 82 9 ""
  FIELD 116@->CIVRF
  FIELD 116@->CIVRES
END  
  
STRINGA 20
BEGIN
  KEY "TELEFONO - PREFISSO"
  PROMPT 100 9 ""
  FIELD 116@->PTELRF
END
  
STRINGA 21
BEGIN
  KEY "TELEFONO - NUMERO"  
  PROMPT 112 9 ""
  FIELD 116@->TELRF   
END

STRINGA 22 
BEGIN
  KEY "GRUPPO 2 - ALTRI SOGGETTI - CODICE FISCALE"
  PROMPT 25 11  ""
  FIELD 116@->COFI
  GROUP 2
END

LISTA 23
BEGIN
  KEY "REG.A.STATUTO.SPECIALE VA - SA -SI"
  PROMPT 95 11 ""   
  ITEM "|"
  ITEM "1|X"
  ITEM "2|"
  ITEM "3|"
  FIELD 36->RSS
  GROUP 2
END      

LISTA 24
BEGIN
  KEY "REG.A.STATUTO.SPECIALE VA - SA -SI"
  PROMPT 103 11 ""
  ITEM "|"  
  ITEM "1|"
  ITEM "2|X"
  ITEM "3|"
  FIELD 36->RSS
  GROUP 2
END

LISTA 25
BEGIN
  KEY "REG.A.STATUTO.SPECIALE VA - SA -SI"
  PROMPT 112 11 ""
  ITEM "|"  
  ITEM "1|"
  ITEM "2|"
  ITEM "3|X"
  FIELD 36->RSS
  GROUP 2
END

STRINGA 26
BEGIN
  KEY "CODICE ATTIVITA"
  PROMPT 121 11 ""
  FIELD 9->CODATTPREV
  GROUP 2
END

STRINGA 27
BEGIN
  KEY "RAGIONE SOCIALE"
  PROMPT 25 13  ""
  FIELD 116@->RAGSOC
  GROUP 2
END

STRINGA 28
BEGIN
  KEY "EVENTI ECCEZIONALI"
  PROMPT 128 13 ""
  FIELD 116@->EVECC
  GROUP 2
END

STRINGA 29
BEGIN
  KEY "FLAG SEDE LEGALE"
  GROUP 2
END

STRING 30
BEGIN
  KEY "COMUNE SEDE LEGALE "
  PROMPT 39 15 ""
  FIELD 413@->DENCOM
  GROUP 2
END

STRING 31
BEGIN
  KEY "PROV. SEDE LEGALE"
  PROMPT 119 15 ""
  FIELD 413@->PROVCOM
  GROUP 2
END

STRING 32
BEGIN
  KEY "VIA SEDE LEGALE"
  PROMPT 39 17 ""
  FIELD 216@->INDRES[1,18]
  FLAGS "H"
END

STRING 33
BEGIN
  KEY "NUM.CIV"
  PROMPT 93 4 ""
  FLAGS "H"
  FIELD 216@->CIVRES
  MESSAGE APPEND,12
END

STRING 34
BEGIN
  KEY "VIA SEDE LEGALE"
  PROMPT 39 17 ""
  GROUP 2
END

STRINGA 35
BEGIN
  KEY "CAP"
  PROMPT 119 17 ""
  FIELD 116@->CAPRF 
  FIELD 116@->CAPRES  
  GROUP 2  
END  
  
STRING 36
BEGIN
  KEY "COMUNE DI RESIDENZA FISCALE"
  PROMPT 39 19 ""
  FIELD 413@->DENCOM
  GROUP 2
END

STRING 37
BEGIN
  KEY "PROV. RESIDENZA FISCALE"
  PROMPT 119 19 ""
  FIELD 413@->PROVCOM
  GROUP 2
END

STRING 38
BEGIN
  KEY "VIA RESIDENZA FISCALE"
  PROMPT 39 21 ""
  FIELD 216@->INDRES[1,18]
  FLAGS "H"
  MESSAGE COPY,12
END

STRING 39
BEGIN
  KEY "NUM.CIV"
  PROMPT 93 4 ""
  FLAGS "H"
  FIELD 216@->CIVRES
  MESSAGE APPEND,12
END

STRING 40
BEGIN
  KEY "VIA RES FISCALE"
  PROMPT 39 21 ""
  GROUP 2
END

STRINGA 41
BEGIN
  KEY "CAP"
  PROMPT 119 21 ""
  FIELD 116@->CAPRF
  GROUP 2
END  

STRINGA 42
BEGIN
  KEY "DATA APP.BILANCIO gg-mm-aaa"
  PROMPT 29 23 ""
  PICTURE "## ^ ##^^###"
  GROUP 2
END

STRINGA 43
BEGIN
  KEY "Termine per APP.BILANCIO gg-mm-aaa"
  PROMPT 88 23 ""
  PICTURE "## ^ ##^^###"
  GROUP 2
END

STRINGA 48
BEGIN    
  KEY "STATO"
  PROMPT 29 25 ""
  FIELD 7->STATOSOC
  GROUP 2
END

STRINGA 49
BEGIN    
  KEY "NAT.GIURIDICA"
  PROMPT 49 25 ""
  FIELD 7->NATGIU
  GROUP 2
END

STRINGA 50
BEGIN    
  KEY "SITUAZIONE"
  PROMPT 73 25 ""     
  FIELD 7->SITSOC  
  GROUP 2
END

STRINGA 51
BEGIN
  KEY "TELEFONO - PREF"
  PROMPT 99 25 ""
  GROUP 2
END

STRINGA 52
BEGIN
  KEY "TELEFONO - NUMERO"
  PROMPT 110 25 ""
  GROUP 2
END

NUMBER 53
BEGIN
  KEY "NUMERO ESTINTI"
  PROMPT 66 27 ""
END

STRINGA 54
BEGIN
  KEY "Dati RAPP. - COFI"
  PROMPT 25 29 ""  
  FIELD 216@->COFI
END

LISTA 55
BEGIN
  KEY "CODICE CARICA 1"
  PROMPT 85 29 ""
  ITEM " | "
  ITEM "1|X"
  ITEM "2|"
  ITEM "3|"
  ITEM "4|"
  ITEM "5|"
  ITEM "6|"
  FIELD 36->CARRAPP
END
LISTA 56
BEGIN
  KEY "CODICE CARICA 2"
  PROMPT 94 29 ""
  ITEM " | "  
  ITEM "1|"
  ITEM "2|X"
  ITEM "3|"
  ITEM "4|"
  ITEM "5|"
  ITEM "6|"
  FIELD 36->CARRAPP
END
LISTA 57
BEGIN
  KEY "CODICE CARICA 3"
  PROMPT 102 29 ""
  ITEM " |"  
  ITEM "1|"
  ITEM "2|"
  ITEM "3|X"
  ITEM "4|"
  ITEM "5|"
  ITEM "6|"
  FIELD 36->CARRAPP
END
LISTA 58
BEGIN
  KEY "CODICE CARICA 4"
  PROMPT 110 29 ""
  ITEM " |"  
  ITEM "1|"
  ITEM "2|"
  ITEM "3|"
  ITEM "4|X"
  ITEM "5|"
  ITEM "6|"
  FIELD 36->CARRAPP
END
LISTA 59
BEGIN
  KEY "CODICE CARICA 5"
  PROMPT 119 29 ""
  ITEM " |"  
  ITEM "1|"
  ITEM "2|"
  ITEM "3|"
  ITEM "4|"
  ITEM "5|X"
  ITEM "6|"
  FIELD 36->CARRAPP
END
LISTA 60
BEGIN
  KEY "CODICE CARICA 6"
  PROMPT 127 29 ""
  ITEM " |"    
  ITEM "1|"
  ITEM "2|"
  ITEM "3|"
  ITEM "4|"
  ITEM "5|"
  ITEM "6|X"
  FIELD 36->CARRAPP
END

STRINGA 61
BEGIN
  KEY "RAPP.COGNOME"
  PROMPT 25 31 ""
  FIELD 216@->RAGSOC[1,30]
END

STRINGA 62
BEGIN
  KEY "RAPP.NOME"
  PROMPT 82 31 ""         
  FIELD 216@->RAGSOC[31,50]  
END              

LISTA 63
BEGIN
  KEY "RAPP.SESSO"
  PROMPT 121 31 ""
  ITEM " |"    
  ITEM "M|X"
  ITEM "F|"
  FIELD 218@->SESSO
END

LISTA 64
BEGIN
  KEY "RAPP.SESSO"
  PROMPT 129 31 ""
  ITEM " |"    
  ITEM "M|"
  ITEM "F|X"
  FIELD 218@->SESSO  
END

STRINGA 65
BEGIN
  KEY "RAPP.DATANASC"
  PROMPT 25 33 ""
  PICTURE "## ^ ##  ^^###"
  FIELD 218@->DATANASC  
END

STRINGA 68
BEGIN
  KEY "COMUNE NA"
  PROMPT 46 33 ""
  FIELD 313@->DENCOM
END              

STRINGA 69
BEGIN
  KEY "PROV NA"
  PROMPT 121 33 ""
  FIELD 313@->PROVCOM  
END
  
STRINGA 70
BEGIN
  KEY "COMUNE RES"
  PROMPT 42 35 "" 
  FIELD 413@->DENCOM  
END

STRINGA 71
BEGIN
  KEY "PROV RES"
  PROMPT 101 35 ""
  FIELD 413@->PROVCOM  
END       

STRINGA 72
BEGIN
  KEY "CAP RES"  
  PROMPT 121 35 ""  
  FIELD 216@->CAPRF  
  FIELD 216@->CAPRES
END       

STRINGA 73
BEGIN
  KEY "IND RES"   
  PROMPT 42 37 ""  
  FIELD 216@->INDRF   
  FIELD 216@->INDRES
END

STRINGA 74
BEGIN
 KEY "TELEFONO PREFISSO"
 PROMPT 99 37 ""  
 FIELD 216@->PTELRF
END

STRINGA 75
BEGIN
 KEY "TELEFONO NUMERO"
 PROMPT 111 37 ""
 FIELD 216@->TELRF   
END

STRINGA 76
BEGIN
  KEY "LUOGO CONSERVAZIONE S.C. - NOME"
  PROMPT 25 38 ""
  FIELD 316@->RAGSOC
END

STRINGA 77
BEGIN
  KEY "LUOGO CONSERVAZIONE S.C. - COM"
  PROMPT 25 39 ""
  FIELD 513@->DENCOM
END

STRINGA 78
BEGIN
  KEY "LUOGO CONSERVAZIONE S.C. - PROV"
  PROMPT 92 39 ""
  FIELD 513@->PROVCOM
END
  
STRINGA 79
BEGIN
  KEY "LUOGO CONSERVAZIONE S.C. - VIA"
  PROMPT 25 40 ""
  FIELD 10->INDCS
END

STRINGA 80
BEGIN
  KEY "LUOGO CONSERVAZIONE S.C. - CIV"
  PROMPT 82 40 ""
  FIELD 10->CIVCS
END

STRINGA 81
BEGIN
  KEY "LUOGO CONSERVAZIONE S.C. - CAP"
  PROMPT 112 40 ""
  FIELD 10->CAPCS
END

END

SECTION FOOTER FIRST 4

STRINGA 82
BEGIN
  KEY "AMMIN. 1 NOME"
  PROMPT 25 54 ""
END

STRINGA 83
BEGIN
  KEY "AMMIN. 1 SESSO"
  PROMPT 52 54 ""
END
  
STRINGA 84
BEGIN
  KEY "AMMIN. 1 COMUNENA"
  PROMPT 56 54 ""
END

STRINGA 85
BEGIN
  KEY "AMMIN. 1 PROVNA"
  PROMPT 81 54 ""
END
  
STRINGA 86
BEGIN
  KEY "AMMIN. 1 DATANA"
  PROMPT 87 54 ""
END

STRINGA 87
BEGIN
  KEY "AMMIN. 1 CODFIS"
  PROMPT 100 54 ""
END

STRINGA 88
BEGIN
  KEY "AMMIN. 1 QUALIFICA"
  PROMPT 127 54 ""
END
  
END

END