campo-sirio/m770/77qg1.frm
alex 3e0ee48a95 Riportata la R9702 sulla R9703
git-svn-id: svn://10.65.10.50/trunk@5411 c028cbd2-c16b-5b4b-a496-9718f37d4682
1997-10-22 10:59:30 +00:00

127 lines
1.6 KiB
Plaintext
Executable File

USE 71
JOIN 98 INTO CODDITTA=CODDITTA
JOIN 9 TO 71 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
END
DESCRIPTION
BEGIN
71->* "Quadro G1 770"
9->* "Ditte"
6->* "Anagrafica persone fisiche e giuridiche"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Roman 17cpi"
SIZE 10
CA "X"
IN 3 3
FI 130
END
SECTION GRAPHICS FIRST 66
FIGURA 1 129 43
BEGIN
PROMPT 3 5 "770_G1_1.BMP"
END
END
SECTION HEADER FIRST 18
STRINGA 1
BEGIN
KEY "CODICE FISCALE"
PROMPT 55 8 ""
FIELD 106@->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 BODY ODD 2
NUMBER 1
BEGIN
KEY "Utili primo semestre"
PROMPT 9 1 ""
PICTURE "###.###.###^^^"
FIELD UTILI1S
END
NUMBER 2
BEGIN
KEY "Utili secondo semestre"
PROMPT 28 1 ""
PICTURE "###.###.###^^^"
FIELD UTILI2S
END
NUMBER 3
BEGIN
KEY "ALIQUOTA"
PROMPT 45 1 ""
PICTURE "##@,@@"
FIELD ALIQUOTA
END
NUMBER 4
BEGIN
KEY "Ritenute anno prec 1 s"
PROMPT 63 1 ""
PICTURE "###.###.###^^^"
FIELD RACCVER1S
END
NUMBER 5
BEGIN
KEY "Ritenute anno prec 2 s"
PROMPT 82 1 ""
PICTURE "###.###.###^^^"
FIELD RACCVER2S
END
NUMBER 6
BEGIN
KEY "Ritenute primo semestre"
PROMPT 100 1 ""
PICTURE "###.###.###^^^"
FIELD RIMPVER1S
END
NUMBER 7
BEGIN
KEY "Ritenute secondo semestre"
PROMPT 119 1 ""
PICTURE "###.###.###^^^"
FIELD RIMPVER2S
END
END
SECTION FOOTER LAST 1
STRINGA 2
BEGIN
KEY "FIRMA"
PROMPT 83 1 ""
FIELD 106@->RAGSOC
END
END