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 "Courier New"
  SIZE 11
  CARATTERE "X"
  INIZIO_POS 3 2
  FINE_POS 131
  GRID "+++++++++-|"
END

SECTION BODY ODD 54

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 48 11 ""
 FIELD 106@->COFI
END

STRINGA 3
BEGIN
 KEY "RAGIONE SOCIALE"
 PROMPT 22 14 ""
 FIELD 106@->RAGSOC
END

STRINGA 6
BEGIN
 KEY "VIA di RES."
 PROMPT 22 17 ""
 FIELD 106@->INDRF
 FIELD 106@->INDRES
END

STRINGA 7
BEGIN
 KEY "NUM. CIVICO di RES."
 PROMPT 104 17 ""
 FIELD 106@->CIVRF
 FIELD 106@->CIVRES
END

STRINGA 8
BEGIN
 KEY "CAP"
 PROMPT 22 20 ""
 FIELD 106@->CAPRF
 FIELD 106@->CAPRES
END

STRINGA 9
BEGIN
 KEY "COMUNE DI RES.FISCALE"
 PROMPT 34 20 ""
 FIELD 113@->DENCOM
END

STRINGA 10
BEGIN
 KEY "PROV DI RES.FISCALE"
 PROMPT 116 20 ""
 FIELD 113@->PROVCOM
END

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

STRINGA 651
BEGIN
 KEY "Quadro A1" 
 PROMPT 100 24 ""
 FIELD 37->QCOMP[2,2]
END

STRINGA 652
BEGIN
 KEY "Quadro A2" 
 PROMPT 105 24 ""
 FIELD 37->QCOMP[3,3]
END

STRINGA 653
BEGIN
 KEY "Quadro A3" 
 PROMPT 110 24 ""
 FIELD 37->QCOMP[4,4]
END

STRINGA 660
BEGIN
 KEY "Quadro B" 
 PROMPT 116 24 ""
 FIELD 37->QCOMP[5,5]
END

STRINGA 661
BEGIN
 KEY "Quadro B1" 
 PROMPT 121 24 ""
 FIELD 37->QCOMP[6,6]
END

STRINGA 670
BEGIN
 KEY "Quadro C" 
 PROMPT 24 26 ""
 FIELD 37->QCOMP[7,7]
END

STRINGA 680
BEGIN
 KEY "Quadro D" 
 PROMPT 29 26 ""
 FIELD 37->QCOMP[8,8]
END

STRINGA 681
BEGIN
 KEY "Quadro D1" 
 PROMPT 34 26 ""
 FIELD 37->QCOMP[9,9]
END

STRINGA 690
BEGIN
 KEY "Quadro E" 
 PROMPT 39 26 ""
 FIELD 37->QCOMP[10,10]
END

STRINGA 691
BEGIN
 KEY "Quadro E1" 
 PROMPT 44 26 ""
 FIELD 37->QCOMP[11,11]
END

STRINGA 692
BEGIN
 KEY "Quadro E2" 
 PROMPT 49 26 ""
 FIELD 37->QCOMP[12,12]
END

STRINGA 700
BEGIN
 KEY "Quadro F" 
 PROMPT 54 26 ""
 FIELD 37->QCOMP[13,13]
END

STRINGA 701
BEGIN
 KEY "Quadro F1" 
 PROMPT 59 26 ""
 FIELD 37->QCOMP[14,14]
END

STRINGA 702
BEGIN
 KEY "Quadro F2" 
 PROMPT 64 26 ""
 FIELD 37->QCOMP[15,15]
END

STRINGA 710
BEGIN
 KEY "Quadro G" 
 PROMPT 70 26 ""
 FIELD 37->QCOMP[16,16]
END

STRINGA 711
BEGIN
 KEY "Quadro G1" 
 PROMPT 75 26 ""
 FIELD 37->QCOMP[17,17]
END

STRINGA 720
BEGIN
 KEY "Quadro H" 
 PROMPT 80 26 ""
 FIELD 37->QCOMP[18,18]
END

STRINGA 730
BEGIN
 KEY "Quadro I" 
 PROMPT 85 26 ""
 FIELD 37->QCOMP[19,19]
END

STRINGA 740
BEGIN
 KEY "Quadro L" 
 PROMPT 95 26 ""
END

STRINGA 760
BEGIN
 KEY "Quadro N" 
 PROMPT 100 26 ""
 FIELD 37->QCOMP[20,20]
END

STRINGA 780
BEGIN
 KEY "Quadro P" 
 PROMPT 105 26 ""
 FIELD 37->QCOMP[21,21]
END

STRINGA 790
BEGIN
 KEY "Quadro Q" 
 PROMPT 110 26 ""
 FIELD 37->QCOMP[22,22]
END

STRINGA 800
BEGIN
 KEY "Quadro R" 
 PROMPT 116 26 ""
 FIELD 37->QCOMP[23,23]
END

STRINGA 810
BEGIN
 KEY "Quadro S" 
 PROMPT 121 26 ""
 FIELD 37->QCOMP[24,24]
END

STRINGA 820
BEGIN
 KEY "Quadro T" 
 PROMPT 126 26 ""
 FIELD 37->QCOMP[25,25]
END

STRINGA 20
BEGIN
 KEY "Allegati mod.730" 
 PROMPT 116 28 ""
END

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

STRINGA 22
BEGIN
 KEY "Dischiarazione su supporto magnetico" 
 PROMPT 116 30 ""
END

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

STRINGA 31
BEGIN
 KEY "Centro servizio"
 PROMPT 142 41 "CENTRO SERVIZIO"
 GROUP 10
END

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

STRINGA 33
BEGIN
 KEY "Comune Centro servizio"
 PROMPT 170 46 ""
 FIELD 104@->S0
 GROUP 10
END

STRINGA 34
BEGIN
 KEY "Ufficio distrettuale"
 PROMPT 142 41 "UFFICIO DISTRETTUALE"
 GROUP 20
END

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

STRINGA 36
BEGIN
 KEY "Comune Ufficio distrettuale"
 PROMPT 170 46 ""
 FIELD 204@->S0
 GROUP 20
END

END

END