USE 36
JOIN 37 INTO CODDITTA=CODDITTA
JOIN 9 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 13 TO 106@ ALIAS 113 INTO COM==COMRF(COMRES)
JOIN %UCS TO 113@ ALIAS 104 INTO CODTAB=UFFCSERV
JOIN %UID TO 106@ ALIAS 204 INTO CODTAB=UFFIIDD
JOIN 13 TO 204@ ALIAS 213 INTO COM==S6
END

DESCRIPTION
BEGIN
  58->* "Busta 770"
  9->* "Ditte"
  106@->* "Anagrafica persone fisiche e giuridiche (ditta)"
END

GENERAL
BEGIN
  OFFSET 0 0
  FONT "Roman 17cpi"
  SIZE 12
  CA "X"           
  IN 29 1
  FI 206
END

SECTION BODY ODD 51

LISTA 1
BEGIN
 KEY "Tipo anagrafica"
 FLAGS "H"
 FIELD 106@->TIPOA
 ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
 ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
END

STRINGA 1
BEGIN
 KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
 PROMPT 46 9 ""
 FIELD 106@->COFI
END

STRINGA 2
BEGIN
 KEY "RAGIONE SOCIALE"
 PROMPT 30 12 ""
 FIELD 106@->RAGSOC
END

STRINGA 3
BEGIN
 KEY "VIA di RES."
 PROMPT 30 15 ""
 FIELD 106@->INDRF
 FIELD 106@->INDRES
END

STRINGA 4
BEGIN
 KEY "NUM. CIVICO di RES."
 PROMPT 118 15 ""
 FIELD 106@->CIVRF
 FIELD 106@->CIVRES
END

STRINGA 5
BEGIN
 KEY "CAP"
 PROMPT 30 18 ""
 FIELD 106@->CAPRF
 FIELD 106@->CAPRES
END

STRINGA 6
BEGIN
 KEY "COMUNE DI RES.FISCALE"
 PROMPT 42 18 ""
 FIELD 113@->DENCOM
END

STRINGA 7
BEGIN
 KEY "PROV DI RES.FISCALE"
 PROMPT 125 18 ""
 FIELD 113@->PROVCOM
END

STRINGA 650
BEGIN
 KEY "Quadro A" 
 PROMPT 71 22 ""
 FIELD 37->QCOMP[1,1]
END

STRINGA 651
BEGIN
 KEY "Quadro Abis" 
 PROMPT 76 22 ""
 FIELD 37->QCOMP[27,27]
END

STRINGA 652
BEGIN
 KEY "Quadro A1" 
 PROMPT 81 22 ""
 FIELD 37->QCOMP[2,2]
END

STRINGA 653
BEGIN
 KEY "Quadro A2" 
 PROMPT 86 22 ""
 FIELD 37->QCOMP[3,3]
END

STRINGA 654
BEGIN
 KEY "Quadro A3" 
 PROMPT 92 22 ""
 FIELD 37->QCOMP[4,4]
END

STRINGA 655
BEGIN
 KEY "Quadro B" 
 PROMPT 97 22 ""
 FIELD 37->QCOMP[5,5]
END

STRINGA 656
BEGIN
 KEY "Quadro B1" 
 PROMPT 102 22 ""
 FIELD 37->QCOMP[6,6]
END

STRINGA 657
BEGIN
 KEY "Quadro C" 
 PROMPT 107 22 ""
 FIELD 37->QCOMP[7,7]
END

STRINGA 658
BEGIN
 KEY "Quadro D" 
 PROMPT 112 22 ""
 FIELD 37->QCOMP[8,8]
END        

STRINGA 659
BEGIN
 KEY "Quadro Dbis" 
 PROMPT 117 22 ""
 FIELD 37->QCOMP[28,28]
END

STRINGA 660
BEGIN
 KEY "Quadro D1" 
 PROMPT 122 22 ""
 FIELD 37->QCOMP[9,9]
END

STRINGA 661
BEGIN
 KEY "Quadro E" 
 PROMPT 127 22 ""
 FIELD 37->QCOMP[10,10]
END

STRINGA 662
BEGIN
 KEY "Quadro E1" 
 PROMPT 46 24 ""
 FIELD 37->QCOMP[11,11]
END

STRINGA 663
BEGIN
 KEY "Quadro E2" 
 PROMPT 51 24 ""
 FIELD 37->QCOMP[12,12]
END

STRINGA 664
BEGIN
 KEY "Quadro F" 
 PROMPT 56 24 ""
 FIELD 37->QCOMP[13,13]
END

STRINGA 665
BEGIN
 KEY "Quadro F1" 
 PROMPT 61 24 ""
 FIELD 37->QCOMP[14,14]
END

STRINGA 666
BEGIN
 KEY "Quadro F2" 
 PROMPT 66 24 ""
 FIELD 37->QCOMP[15,15]
END

STRINGA 667
BEGIN
 KEY "Quadro G" 
 PROMPT 71 24 ""
 FIELD 37->QCOMP[16,16]
END

STRINGA 668
BEGIN
 KEY "Quadro G1" 
 PROMPT 76 24 ""
 FIELD 37->QCOMP[17,17]
END

STRINGA 669
BEGIN
 KEY "Quadro H" 
 PROMPT 81 24 ""
 FIELD 37->QCOMP[18,18]
END

STRINGA 670
BEGIN
 KEY "Quadro I" 
 PROMPT 86 24 ""
 FIELD 37->QCOMP[19,19]
END        

STRINGA 671
BEGIN
 KEY "Quadro L" 
 PROMPT 92 24 ""
 FIELD 37->QCOMP[20,20]
END

STRINGA 672
BEGIN
 KEY "Quadro N" 
 PROMPT 97 24 ""
 FIELD 37->QCOMP[21,21]
END

STRINGA 673
BEGIN
 KEY "Quadro P" 
 PROMPT 102 24 ""
 FIELD 37->QCOMP[22,22]
END

STRINGA 674
BEGIN
 KEY "Quadro Q" 
 PROMPT 107 24 ""
 FIELD 37->QCOMP[23,23]
END

STRINGA 675
BEGIN
 KEY "Quadro R" 
 PROMPT 112 24 ""
 FIELD 37->QCOMP[24,24]
END

STRINGA 676
BEGIN
 KEY "Quadro S" 
 PROMPT 117 24 ""
 FIELD 37->QCOMP[25,25]
END

STRINGA 677
BEGIN
 KEY "Quadro T" 
 PROMPT 122 24 ""
 FIELD 37->QCOMP[26,26]
END        

STRINGA 678
BEGIN
 KEY "Quadro U" 
 PROMPT 127 24 ""
 FIELD 37->QCOMP[29,29]
END

STRINGA 8
BEGIN
 KEY "Allegati mod.730" 
 PROMPT 117 26 ""
END

STRINGA 9
BEGIN
 KEY "Numero quadri su supporto magnetico"
 FLAGS "H"
 FIELD 37->NSUPPM
 MESSAGE EMPTY RESET,10
 MESSAGE "X",10
END

STRINGA 10
BEGIN
 KEY "Dichiarazione su supporto magnetico" 
 PROMPT 117 28 ""
END

STRINGA 11
BEGIN
 KEY "Codice centro di servizio"
 FLAGS "H"
 FIELD 113@->UFFCSERV
 MESSAGE EMPTY DISABLE,10@|ENABLE,20@
 MESSAGE DISABLE,20@|ENABLE,10@
END

STRINGA 12
BEGIN
 KEY "Centro servizio"
 PROMPT 142 39 "CENTRO SERVIZIO"
 GROUP 10
END

STRINGA 13
BEGIN
 KEY "C.A.P. Centro servizio"
 PROMPT 138 44 ""
 FIELD 104@->S7
 GROUP 10
END

STRINGA 14
BEGIN
 KEY "Comune Centro servizio"
 PROMPT 172 44 ""
 FIELD 104@->S0
 GROUP 10
END

STRINGA 15
BEGIN
 KEY "Ufficio distrettuale"
 PROMPT 142 39 "UFFICIO DISTRETTUALE"
 GROUP 20
END

STRINGA 16
BEGIN
 KEY "C.A.P. Ufficio distrettuale"
 PROMPT 138 44 ""
 FIELD 204@->S7
 FIELD 213@->CAPCOM
 GROUP 20
END

STRINGA 17
BEGIN
 KEY "Comune Ufficio distrettuale"
 PROMPT 172 44 ""
 FIELD 204@->S0
 GROUP 20
END

END

END