352 lines
4.8 KiB
Plaintext
Executable File
352 lines
4.8 KiB
Plaintext
Executable File
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 |