102 lines
1.3 KiB
Plaintext
Executable File
102 lines
1.3 KiB
Plaintext
Executable File
USE 100
|
|
JOIN 9 TO 100 INTO CODDITTA=CODDITTA
|
|
JOIN 6 TO 9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
|
END
|
|
|
|
DESCRIPTION
|
|
BEGIN
|
|
100->* "Righe F2 770"
|
|
9->* "Ditte"
|
|
6->* "Anagrafica persone fisiche e giuridiche"
|
|
116@->* "Anagrafica persone fisiche e giuridiche"
|
|
END
|
|
|
|
GENERAL
|
|
BEGIN
|
|
OFFSET 0 0
|
|
FONT "Roman 17cpi"
|
|
SIZE 11
|
|
CA "X"
|
|
IN 3 3
|
|
FI 130
|
|
END
|
|
|
|
SECTION GRAPHICS FIRST 60
|
|
|
|
FIGURA 1 132 55
|
|
BEGIN
|
|
PROMPT 1 5 "770_F2_1.BMP"
|
|
END
|
|
|
|
END
|
|
|
|
SECTION HEADER FIRST 16
|
|
|
|
STRINGA 1
|
|
BEGIN
|
|
KEY "CODICE FISCALE DICHIARANTE"
|
|
PROMPT 54 8 ""
|
|
FIELD 116@->COFI
|
|
END
|
|
|
|
STRINGA 13
|
|
BEGIN
|
|
KEY "CODICE FISCALE DEL SOSTITUTO D'IMPOSTA"
|
|
PROMPT 88 8 ""
|
|
END
|
|
|
|
NUMBER 14
|
|
BEGIN
|
|
KEY "NUM. FOGLIO"
|
|
PROMPT 123 8 ""
|
|
END
|
|
|
|
END
|
|
|
|
SECTION BODY ODD 2
|
|
|
|
STRINGA 11
|
|
BEGIN
|
|
KEY "Denominazione del fondo"
|
|
PROMPT 10 1 ""
|
|
FIELD 100->DENCAUS
|
|
END
|
|
|
|
NUMBER 12
|
|
BEGIN
|
|
KEY "Somme soggette a ritenuta"
|
|
PROMPT 83 1 ""
|
|
PICTURE "###.###.###^^^"
|
|
FIELD 100->SOGRIT
|
|
END
|
|
|
|
NUMBER 13
|
|
BEGIN
|
|
KEY "Aliquota"
|
|
PROMPT 103 1 ""
|
|
PICTURE "##@,@@"
|
|
FIELD 100->ALIQUOTA
|
|
END
|
|
|
|
NUMBER 14
|
|
BEGIN
|
|
KEY "Ritenute operate"
|
|
PROMPT 120 1 ""
|
|
PICTURE "###.###.###^^^"
|
|
FIELD 100->ROPE
|
|
END
|
|
|
|
END
|
|
|
|
SECTION FOOTER LAST 8
|
|
|
|
STRINGA 2
|
|
BEGIN
|
|
KEY "FIRMA"
|
|
PROMPT 85 8 ""
|
|
FIELD 116@->RAGSOC
|
|
END
|
|
|
|
END
|
|
|