340 lines
4.5 KiB
Plaintext
Executable File
340 lines
4.5 KiB
Plaintext
Executable File
USE 57
|
|
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
|
|
JOIN %CAF ALIAS 104 INTO CODTAB==CODCAAF
|
|
JOIN 9 INTO CODDITTA=CODDITTA
|
|
JOIN 6 TO 9 ALIAS 206 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
|
JOIN 36 INTO CODDITTA=CODDITTA
|
|
|
|
END
|
|
DESCRIPTION
|
|
BEGIN
|
|
57->* "Quadro A2 770"
|
|
45->* "Anagrafica dei dipendenti"
|
|
104@->* "Tabella CAAF"
|
|
9->* "Ditte"
|
|
206@->* "Anagrafica persone fisiche e giuridiche (ditta)"
|
|
END
|
|
|
|
GENERAL
|
|
BEGIN
|
|
OFFSET 0 0
|
|
FONT "Roman 17cpi"
|
|
SIZE 11
|
|
CARATTERE "X"
|
|
INIZIO_POS 3 3
|
|
FINE_POS 130
|
|
GRID "+++++++++-|"
|
|
END
|
|
|
|
SECTION HEADER FIRST 22
|
|
|
|
STRINGA 1
|
|
BEGIN
|
|
KEY "CODICE FISCALE"
|
|
PROMPT 55 8 ""
|
|
FIELD 206@->COFI
|
|
END
|
|
|
|
STRINGA 13
|
|
BEGIN
|
|
KEY "CODICE FISCALE DICHIARANTE"
|
|
PROMPT 88 8 ""
|
|
END
|
|
|
|
NUMBER 14
|
|
BEGIN
|
|
KEY "NUM. FOGLIO"
|
|
PROMPT 123 8 ""
|
|
END
|
|
|
|
END
|
|
|
|
SECTION HEADER ODD 5
|
|
// Header pagine successive
|
|
END
|
|
|
|
|
|
SECTION BODY ODD 10
|
|
|
|
STRINGA 1
|
|
BEGIN
|
|
KEY "COD.FIS"
|
|
PROMPT 11 1 ""
|
|
FIELD 45->CODFI
|
|
END
|
|
|
|
STRINGA 2
|
|
BEGIN
|
|
KEY "COGNOME"
|
|
PROMPT 43 1 ""
|
|
FIELD 45->COGNOME
|
|
END
|
|
|
|
STRINGA 3
|
|
BEGIN
|
|
KEY "NOME"
|
|
PROMPT 80 1 ""
|
|
FIELD 45->NOME
|
|
END
|
|
|
|
DATA 4
|
|
BEGIN
|
|
KEY "DATA NASCITA"
|
|
PROMPT 112 1 ""
|
|
FIELD 45->DATANA
|
|
FORMAT "1444-"
|
|
END
|
|
|
|
STRINGA 5
|
|
BEGIN
|
|
KEY "SESSO"
|
|
PROMPT 128 1 ""
|
|
FIELD 45->SESSO
|
|
END
|
|
|
|
STRINGA 6
|
|
BEGIN
|
|
KEY "COMUNE DI NASCITA"
|
|
PROMPT 11 3 ""
|
|
FIELD 45->COMUNENA
|
|
END
|
|
|
|
STRINGA 7
|
|
BEGIN
|
|
KEY "PROV. DI NASCITA"
|
|
PROMPT 48 3 ""
|
|
FIELD 45->PROVNA
|
|
END
|
|
|
|
STRINGA 8
|
|
BEGIN
|
|
KEY "CONGUAGLI NON EFFETTUATI"
|
|
PROMPT 16 5 ""
|
|
FIELD 57->CONEFF
|
|
END
|
|
|
|
STRINGA 9
|
|
BEGIN
|
|
KEY "RETTIFICA CONGUAGLIO"
|
|
PROMPT 31 5 ""
|
|
FIELD 57->RETCON
|
|
END
|
|
|
|
NUMERO 10
|
|
BEGIN
|
|
KEY "IMPOSTA RIMBORSATA"
|
|
PROMPT 39 5 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 57->SIRPEFRIMB
|
|
END
|
|
|
|
NUMERO 11
|
|
BEGIN
|
|
KEY "IMPOSTA VERSATA"
|
|
PROMPT 54 5 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 57->VIRPEF
|
|
END
|
|
|
|
NUMERO 12
|
|
BEGIN
|
|
KEY "INTERESSI"
|
|
PROMPT 69 5 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 57->INTIRPEF
|
|
END
|
|
|
|
NUMERO 13
|
|
BEGIN
|
|
KEY "IMPOSTA VERSATA"
|
|
PROMPT 85 5 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 57->AIRPEFIV
|
|
END
|
|
|
|
NUMERO 14
|
|
BEGIN
|
|
KEY "INTERESSI"
|
|
PROMPT 100 5 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 57->AIRPEFINT
|
|
END
|
|
|
|
NUMERO 15
|
|
BEGIN
|
|
KEY "SOPRATTASSA SU IRPEF"
|
|
PROMPT 115 5 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 57->STASSA15
|
|
END
|
|
|
|
NUMERO 16
|
|
BEGIN
|
|
KEY "CONTRIBUTO A RIMBORSO"
|
|
PROMPT 8 7 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 57->CONTR16
|
|
END
|
|
|
|
NUMERO 17
|
|
BEGIN
|
|
KEY "CONTRIBUTO VERSATO"
|
|
PROMPT 23 7 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 57->CONTRVER
|
|
END
|
|
|
|
NUMERO 18
|
|
BEGIN
|
|
KEY "INTERESSI"
|
|
PROMPT 39 7 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 57->INTER18
|
|
END
|
|
|
|
NUMERO 19
|
|
BEGIN
|
|
KEY "CONTRIBUTO VERSATO"
|
|
PROMPT 54 7 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 57->CONTV19
|
|
END
|
|
|
|
NUMERO 20
|
|
BEGIN
|
|
KEY "INTERESSI"
|
|
PROMPT 69 7 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 57->INTE20
|
|
END
|
|
|
|
NUMERO 21
|
|
BEGIN
|
|
KEY "SOPRATTASSA SU CSSN"
|
|
PROMPT 85 7 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 57->SOPRAT21
|
|
END
|
|
|
|
NUMERO 22
|
|
BEGIN
|
|
KEY "MOD. 730/95 NON LIQUIDABILE"
|
|
PROMPT 108 7 ""
|
|
FIELD 57->M730NLIQ
|
|
END
|
|
|
|
STRINGA 23
|
|
BEGIN
|
|
KEY "CODICE FISCALE CAAF"
|
|
PROMPT 11 9 ""
|
|
FIELD 104@->S1
|
|
END
|
|
|
|
STRINGA 24
|
|
BEGIN
|
|
KEY "DENOMINAZIONE CAAF"
|
|
PROMPT 44 9 ""
|
|
FIELD 104@->S0
|
|
END
|
|
|
|
NUMERO 25
|
|
BEGIN
|
|
KEY "NUMERO ISCRIZIONE ALBO"
|
|
PROMPT 125 9 ""
|
|
PICTURE "#####"
|
|
FIELD 104@->I1
|
|
END
|
|
|
|
STRINGA 101
|
|
BEGIN
|
|
KEY "9 - RETTIFICA CONGUAGLIO (B FISSA)"
|
|
PROMPT 31 5 "B"
|
|
END
|
|
|
|
NUMERO 102
|
|
BEGIN
|
|
KEY "10 - IMPOSTA RIMBORSATA (CONGUAGLIO)"
|
|
PROMPT 39 5 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 57->QA2RCB10
|
|
END
|
|
|
|
NUMERO 103
|
|
BEGIN
|
|
KEY "11 - IMPOSTA VERSATA (CONGUAGLIO)"
|
|
PROMPT 54 5 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 57->QA2RCB11
|
|
END
|
|
|
|
NUMERO 104
|
|
BEGIN
|
|
KEY "12 - INTERESSI (CONGUAGLIO)"
|
|
PROMPT 70 5 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 57->QA2RCB12
|
|
END
|
|
|
|
NUMERO 105
|
|
BEGIN
|
|
KEY "13 - IMPOSTA VERSATA (CONGUAGLIO)"
|
|
PROMPT 85 5 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 57->QA2RCB13
|
|
END
|
|
|
|
NUMERO 106
|
|
BEGIN
|
|
KEY "14 - INTERESSI (CONGUAGLIO)"
|
|
PROMPT 100 5 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 57->QA2RCB14
|
|
END
|
|
|
|
NUMERO 107
|
|
BEGIN
|
|
KEY "15 - SOPRATTASSA SU IRPEF (CONGUAGLIO)"
|
|
PROMPT 115 5 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 57->QA2RCB15
|
|
END
|
|
|
|
NUMERO 108
|
|
BEGIN
|
|
KEY "16 - CONTRIBUTO A RIMBORSO (CONGUAGLIO)"
|
|
PROMPT 8 7 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 57->QA2RCB16
|
|
END
|
|
|
|
NUMERO 109
|
|
BEGIN
|
|
KEY "17 - CONTRIBUTO VERSATO (CONGUAGLIO)"
|
|
PROMPT 23 7 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 57->QA2RCB17
|
|
END
|
|
|
|
END
|
|
|
|
SECTION FOOTER LAST 9
|
|
|
|
NUMERO 730
|
|
BEGIN
|
|
KEY "NUMERO MOD.730"
|
|
PROMPT 22 5 ""
|
|
PICTURE "######"
|
|
FIELD 36->N730ALLA2
|
|
END
|
|
|
|
STRINGA 2
|
|
BEGIN
|
|
KEY "FIRMA"
|
|
PROMPT 83 9 ""
|
|
FIELD 206@->RAGSOC
|
|
END
|
|
|
|
END
|
|
|
|
END
|