11be8f4e18
Files correlati : 777.exe Ricompilazione Demo : [ ] Commento : Aggiunto programma di trasferimento dati 770 per la Dylog git-svn-id: svn://10.65.10.50/trunk@7218 c028cbd2-c16b-5b4b-a496-9718f37d4682
115 lines
1.6 KiB
Plaintext
Executable File
115 lines
1.6 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
|
|
SPECIAL STRINGA DYLOG "AN,3,16" ""
|
|
END
|
|
|
|
STRINGA 13
|
|
BEGIN
|
|
KEY "CODICE FISCALE DEL SOSTITUTO D'IMPOSTA"
|
|
PROMPT 88 8 ""
|
|
SPECIAL STRINGA DYLOG "AN,19,16" ""
|
|
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
|
|
SPECIAL STRINGA DYLOG "AN,35,60" ""
|
|
END
|
|
|
|
NUMBER 12
|
|
BEGIN
|
|
KEY "CONTR.OBB. CARICO DATORE LAVORO"
|
|
PROMPT 86 1 ""
|
|
PICTURE "###.###.###^^^"
|
|
FIELD 43->H1DAT
|
|
SPECIAL STRINGA DYLOG "NU,95,11" ""
|
|
END
|
|
|
|
NUMBER 13
|
|
BEGIN
|
|
KEY "CONTR.OBB. CARICO DIPENDENTE"
|
|
PROMPT 119 1 ""
|
|
PICTURE "###.###.###^^^"
|
|
FIELD 43->H1LAV
|
|
SPECIAL STRINGA DYLOG "NU,106,11" ""
|
|
END
|
|
|
|
END
|
|
|
|
SECTION FOOTER LAST 5
|
|
|
|
STRINGA 2
|
|
BEGIN
|
|
KEY "FIRMA"
|
|
PROMPT 85 5 ""
|
|
FIELD 116@->RAGSOC
|
|
END
|
|
|
|
END
|
|
|