476 lines
6.0 KiB
Plaintext
Executable File
476 lines
6.0 KiB
Plaintext
Executable File
USE 44
|
|
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
|
|
JOIN %CAF ALIAS 104 INTO CODTAB==CODCAAF
|
|
JOIN 9 INTO CODDITTA=CODDITTA
|
|
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
|
JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
|
|
JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
|
|
JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
|
|
JOIN 36 INTO CODDITTA=CODDITTA
|
|
|
|
END
|
|
DESCRIPTION
|
|
BEGIN
|
|
44->* "Quadro A 770"
|
|
45->* "Anagrafica dei dipendenti"
|
|
104@->* "Tabella CAAF"
|
|
9->* "Ditte"
|
|
106@->* "Anagrafica persone fisiche e giuridiche (ditta)"
|
|
108@->* "Anagrafica persone fisiche (ditta)"
|
|
113@->* "Comuni DITTA (nascita)"
|
|
213@->* "Comuni DITTA (residenza)"
|
|
END
|
|
|
|
GENERAL
|
|
BEGIN
|
|
OFFSET 0 0
|
|
FONT "Roman 17cpi"
|
|
SIZE 12
|
|
CA "X"
|
|
IN 3 1
|
|
FI 129
|
|
END
|
|
|
|
SECTION HEADER FIRST 21
|
|
|
|
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 2
|
|
BEGIN
|
|
KEY "CODICE FISCALE DEL DICHIARANTE"
|
|
PROMPT 53 5 ""
|
|
FIELD 106@->COFI
|
|
END
|
|
|
|
STRINGA 3
|
|
BEGIN
|
|
KEY "CODICE FISCALE DEL SOSTITUTO D'IMPOSTA"
|
|
PROMPT 85 5 ""
|
|
END
|
|
|
|
NUMERO 4
|
|
BEGIN
|
|
KEY "NUM. FOGLIO"
|
|
PROMPT 126 5 ""
|
|
END
|
|
|
|
END
|
|
|
|
SECTION BODY ODD 14
|
|
|
|
STRINGA 1
|
|
BEGIN
|
|
KEY "Casella 1"
|
|
PROMPT 9 2 ""
|
|
FIELD 45->CODFI
|
|
END
|
|
|
|
STRINGA 2
|
|
BEGIN
|
|
KEY "Casella 2"
|
|
PROMPT 41 2 ""
|
|
FIELD 45->COGNOME
|
|
END
|
|
|
|
STRINGA 3
|
|
BEGIN
|
|
KEY "Casella 3"
|
|
PROMPT 79 2 ""
|
|
FIELD 45->NOME
|
|
END
|
|
|
|
DATA 4
|
|
BEGIN
|
|
KEY "Casella 4"
|
|
PROMPT 111 2 ""
|
|
FIELD 45->DATANA
|
|
FORMAT "1444-"
|
|
END
|
|
|
|
STRINGA 5
|
|
BEGIN
|
|
KEY "Casella 5"
|
|
PROMPT 127 2 ""
|
|
FIELD 45->SESSO
|
|
END
|
|
|
|
STRINGA 6
|
|
BEGIN
|
|
KEY "Casella 6"
|
|
PROMPT 9 4 ""
|
|
FIELD 45->COMUNENA
|
|
END
|
|
|
|
STRINGA 7
|
|
BEGIN
|
|
KEY "Casella 7"
|
|
PROMPT 46 4 ""
|
|
FIELD 45->PROVNA
|
|
END
|
|
|
|
STRINGA 8
|
|
BEGIN
|
|
KEY "Casella 8"
|
|
PROMPT 51 4 ""
|
|
FIELD 45->COMRES
|
|
END
|
|
|
|
STRINGA 9
|
|
BEGIN
|
|
KEY "Casella 9"
|
|
PROMPT 89 4 ""
|
|
FIELD 45->PROVRES
|
|
END
|
|
|
|
STRINGA 10
|
|
BEGIN
|
|
KEY "Casella 10"
|
|
PROMPT 94 4 ""
|
|
FIELD 45->INDRES
|
|
END
|
|
|
|
STRINGA 11
|
|
BEGIN
|
|
KEY "Casella 11"
|
|
PROMPT 10 6 ""
|
|
FIELD 45->QUALIFICA
|
|
END
|
|
|
|
STRINGA 12
|
|
BEGIN
|
|
KEY "Casella 12"
|
|
PROMPT 17 6 ""
|
|
FIELD 44->AREAATT
|
|
END
|
|
|
|
STRINGA 13
|
|
BEGIN
|
|
KEY "Casella 13"
|
|
PROMPT 22 6 ""
|
|
FIELD 44->TIPO
|
|
END
|
|
|
|
NUMERO 14
|
|
BEGIN
|
|
KEY "Casella 14"
|
|
PROMPT 29 6 ""
|
|
FIELD 44->NUMGIO
|
|
PICTURE "###"
|
|
END
|
|
|
|
DATA 15
|
|
BEGIN
|
|
KEY "Casella 15"
|
|
PROMPT 37 6 ""
|
|
FORMAT "1444-"
|
|
PICTURE "## ^ ##^^^^^"
|
|
FIELD 44->DATAFR
|
|
END
|
|
|
|
NUMERO 16
|
|
BEGIN
|
|
KEY "Casella 16"
|
|
PROMPT 55 6 ""
|
|
FIELD 44->NUMGIODET
|
|
PICTURE "###"
|
|
END
|
|
|
|
STRINGA 17
|
|
BEGIN
|
|
KEY "Casella 17"
|
|
PROMPT 62 6 ""
|
|
FIELD 44->CFDLPREC
|
|
END
|
|
|
|
NUMERO 18
|
|
BEGIN
|
|
KEY "Casella 18"
|
|
PROMPT 96 6 ""
|
|
FIELD 44->CAUSA
|
|
END
|
|
|
|
NUMERO 19
|
|
BEGIN
|
|
KEY "Casella 19"
|
|
PROMPT 99 6 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 44->QASACTRPA
|
|
END
|
|
|
|
NUMERO 20
|
|
BEGIN
|
|
KEY "Casella 20"
|
|
PROMPT 114 6 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 44->AIFCSSN
|
|
END
|
|
|
|
NUMERO 21
|
|
BEGIN
|
|
KEY "Casella 21"
|
|
PROMPT 7 8 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 44->COBBDIP
|
|
END
|
|
|
|
NUMERO 22
|
|
BEGIN
|
|
KEY "Casella 22"
|
|
PROMPT 22 8 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 44->QAEXCTRPC
|
|
END
|
|
|
|
NUMERO 23
|
|
BEGIN
|
|
KEY "Casella 23"
|
|
PROMPT 38 8 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 44->QAEXCTRLD
|
|
END
|
|
|
|
NUMERO 24
|
|
BEGIN
|
|
KEY "Casella 24"
|
|
PROMPT 53 8 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 44->NORIT
|
|
END
|
|
|
|
NUMERO 25
|
|
BEGIN
|
|
KEY "Casella 25"
|
|
PROMPT 68 8 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 44->QAERGSAN
|
|
END
|
|
|
|
NUMERO 26
|
|
BEGIN
|
|
KEY "Casella 26"
|
|
PROMPT 84 8 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 44->ERSPSAN
|
|
END
|
|
|
|
NUMERO 27
|
|
BEGIN
|
|
KEY "Casella 27"
|
|
PROMPT 99 8 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 44->PRASSVI
|
|
END
|
|
|
|
NUMERO 28
|
|
BEGIN
|
|
KEY "Casella 28"
|
|
PROMPT 114 8 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 44->CONPRECO
|
|
END
|
|
|
|
NUMERO 29
|
|
BEGIN
|
|
KEY "Casella 29"
|
|
PROMPT 7 10 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 44->DENARO
|
|
END
|
|
|
|
NUMERO 30
|
|
BEGIN
|
|
KEY "Casella 30"
|
|
PROMPT 22 10 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 44->AIENTIPREV
|
|
END
|
|
|
|
NUMERO 31
|
|
BEGIN
|
|
KEY "Casella 31"
|
|
PROMPT 38 10 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 44->CCTAMMCONT
|
|
END
|
|
|
|
NUMERO 32
|
|
BEGIN
|
|
KEY "Casella 32"
|
|
PROMPT 53 10 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 44->QAIMPON
|
|
END
|
|
|
|
NUMERO 33
|
|
BEGIN
|
|
KEY "Casella 33"
|
|
PROMPT 68 10 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 44->ICTOTIMP
|
|
END
|
|
|
|
NUMERO 34
|
|
BEGIN
|
|
KEY "Casella 34"
|
|
PROMPT 84 10 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 44->DETCC
|
|
END
|
|
|
|
NUMERO 35
|
|
BEGIN
|
|
KEY "Casella 35"
|
|
PROMPT 99 10 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 44->DETFC
|
|
END
|
|
|
|
NUMERO 36
|
|
BEGIN
|
|
KEY "Casella 36"
|
|
PROMPT 114 10 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 44->DETAF
|
|
END
|
|
|
|
NUMERO 37
|
|
BEGIN
|
|
KEY "Casella 37"
|
|
PROMPT 7 12 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 44->DETLD
|
|
END
|
|
|
|
NUMERO 38
|
|
BEGIN
|
|
KEY "Casella 38"
|
|
PROMPT 22 12 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 44->DETO
|
|
END
|
|
|
|
NUMERO 39
|
|
BEGIN
|
|
KEY "Casella 39"
|
|
PROMPT 38 12 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 44->TOTDET
|
|
END
|
|
|
|
NUMERO 40
|
|
BEGIN
|
|
KEY "Casella 40"
|
|
PROMPT 53 12 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 44->AMMRITDOV
|
|
END
|
|
|
|
NUMERO 41
|
|
BEGIN
|
|
KEY "Casella 41"
|
|
PROMPT 68 12 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 44->AMRIOT
|
|
END
|
|
|
|
NUMERO 42
|
|
BEGIN
|
|
KEY "Casella 42"
|
|
PROMPT 84 12 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 44->AMRIODL
|
|
END
|
|
|
|
NUMERO 43
|
|
BEGIN
|
|
KEY "Casella 43"
|
|
PROMPT 99 12 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 44->ECCRITRIMB
|
|
END
|
|
|
|
NUMERO 44
|
|
BEGIN
|
|
KEY "Casella 44"
|
|
PROMPT 114 12 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 44->QACTREURO
|
|
END
|
|
|
|
NUMERO 45
|
|
BEGIN
|
|
KEY "Casella 45"
|
|
PROMPT 7 14 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 44->COBBDIP2
|
|
END
|
|
|
|
NUMERO 46
|
|
BEGIN
|
|
KEY "Casella 46"
|
|
PROMPT 22 14 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 44->AMMIMP
|
|
END
|
|
|
|
NUMERO 47
|
|
BEGIN
|
|
KEY "Casella 47"
|
|
PROMPT 38 14 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 44->DETIMPOS
|
|
END
|
|
|
|
NUMERO 48
|
|
BEGIN
|
|
KEY "Casella 48"
|
|
PROMPT 53 14 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 44->RITESEG
|
|
END
|
|
|
|
NUMERO 49
|
|
BEGIN
|
|
KEY "Casella 49"
|
|
PROMPT 71 14 ""
|
|
PICTURE "#"
|
|
FIELD 44->QATITOLO
|
|
END
|
|
|
|
NUMERO 50
|
|
BEGIN
|
|
KEY "Casella 50"
|
|
PROMPT 82 14 ""
|
|
PICTURE "# #"
|
|
FIELD 44->QAPEIMP
|
|
END
|
|
|
|
STRINGA 51
|
|
BEGIN
|
|
KEY "Casella 51"
|
|
PROMPT 91 14 ""
|
|
FIELD 44->QAARRETR
|
|
END
|
|
|
|
END
|
|
|
|
SECTION FOOTER LAST 11
|
|
|
|
STRINGA 1
|
|
BEGIN
|
|
KEY "FIRMA"
|
|
PROMPT 84 4 ""
|
|
FIELD 106@->RAGSOC
|
|
END
|
|
|
|
END
|
|
|
|
END
|