110 lines
1.4 KiB
Plaintext
Executable File
110 lines
1.4 KiB
Plaintext
Executable File
USE 43
|
|
JOIN 9 TO 43 INTO CODDITTA=CODDITTA
|
|
JOIN 6 TO 9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
|
JOIN %ENT TO 43 ALIAS 214 INTO CODTAB=H1ENTE
|
|
END
|
|
|
|
DESCRIPTION
|
|
BEGIN
|
|
43->* "Quadro H 770"
|
|
9->* "Ditte"
|
|
6->* "Anagrafica persone fisiche e giuridiche"
|
|
8->* "Anagrafica persone fisiche"
|
|
116@->* "Anagrafica persone fisiche e giuridiche"
|
|
214@->* "Tabella Enti previdenziali"
|
|
END
|
|
|
|
GENERAL
|
|
BEGIN
|
|
OFFSET 0 0
|
|
FONT "Roman 17cpi"
|
|
SIZE 12
|
|
CA "X"
|
|
IN 3 3
|
|
FI 130
|
|
END
|
|
|
|
SECTION GRAPHICS FIRST 66
|
|
|
|
FIGURA 1 130 63
|
|
BEGIN
|
|
PROMPT 1 5 "770_H_1.BMP"
|
|
END
|
|
|
|
END
|
|
|
|
SECTION GRAPHICS LAST 66
|
|
|
|
FIGURA 1 130 56
|
|
BEGIN
|
|
PROMPT 1 3 "770_H_2.BMP"
|
|
END
|
|
|
|
END
|
|
|
|
SECTION HEADER FIRST 17
|
|
|
|
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 HEADER ODD 9
|
|
// Header pagina 2
|
|
END
|
|
|
|
SECTION BODY ODD 2
|
|
|
|
STRINGA 11
|
|
BEGIN
|
|
KEY "ENTE PREVIDENZIALE"
|
|
PROMPT 10 1 ""
|
|
FIELD 214@->S0
|
|
END
|
|
|
|
NUMBER 12
|
|
BEGIN
|
|
KEY "CONTR.OBB. CARICO DATORE LAVORO"
|
|
PROMPT 86 1 ""
|
|
PICTURE "###.###.###^^^"
|
|
FIELD 43->H1DAT
|
|
END
|
|
|
|
NUMBER 13
|
|
BEGIN
|
|
KEY "CONTR.OBB. CARICO DIPENDENTE"
|
|
PROMPT 119 1 ""
|
|
PICTURE "###.###.###^^^"
|
|
FIELD 43->H1LAV
|
|
END
|
|
|
|
END
|
|
|
|
SECTION FOOTER LAST 5
|
|
|
|
STRINGA 2
|
|
BEGIN
|
|
KEY "FIRMA"
|
|
PROMPT 85 5 ""
|
|
FIELD 116@->RAGSOC
|
|
END
|
|
|
|
END
|
|
|