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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

STRINGA 740
BEGIN
 KEY "Quadro L" 
 PROMPT 90 25 ""
END

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

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

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

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

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

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

STRINGA 20
BEGIN
 KEY "Allegati mod.730" 
 PROMPT 111 27 ""
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 "Dichiarazione su supporto magnetico" 
 PROMPT 111 29 ""
END

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

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

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

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

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

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

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

END

END