194 lines
2.4 KiB
Plaintext
Executable File
194 lines
2.4 KiB
Plaintext
Executable File
USE 58
|
|
JOIN 45 INTO CODDITTA=CODDITTA CODDIP=CODDIP
|
|
JOIN 9 INTO CODDITTA=CODDITTA
|
|
JOIN 6 TO 9 ALIAS 206 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
|
JOIN 37 INTO CODDITTA=CODDITTA
|
|
END
|
|
|
|
DESCRIPTION
|
|
BEGIN
|
|
58->* "Quadro A3 770"
|
|
45->* "Anagrafica dei dipendenti"
|
|
9->* "Ditte"
|
|
206@->* "Anagrafica persone fisiche e giuridiche (ditta)"
|
|
END
|
|
|
|
GENERAL
|
|
BEGIN
|
|
OFFSET 0 0
|
|
FONT "Courier New"
|
|
SIZE 11
|
|
CARATTERE "X"
|
|
INIZIO_POS 3 3
|
|
FINE_POS 130
|
|
GRID "+++++++++-|"
|
|
END
|
|
|
|
SECTION HEADER FIRST 23
|
|
|
|
STRINGA 1
|
|
BEGIN
|
|
KEY "CODICE FISCALE"
|
|
PROMPT 55 8 ""
|
|
FIELD 206@->COFI
|
|
END
|
|
|
|
STRINGA 13
|
|
BEGIN
|
|
KEY "CODICE FISCALE DEL SOGGETTO DICHIARANTE"
|
|
PROMPT 88 8 ""
|
|
END
|
|
|
|
NUMERO 14
|
|
BEGIN
|
|
KEY "NUM. FOGLIO"
|
|
PROMPT 123 8 ""
|
|
END
|
|
|
|
NUMERO 15
|
|
BEGIN
|
|
KEY "CONSISTENZA BASE OCCUPAZIONALE AL 12/06/94"
|
|
PROMPT 55 13 ""
|
|
PICTURE "###.###"
|
|
FIELD 37->CONSBASOCC
|
|
END
|
|
|
|
NUMERO 16
|
|
BEGIN
|
|
KEY "LAVORATORI DIPENDENTI IN MOBILITA'"
|
|
PROMPT 55 14 ""
|
|
PICTURE "###.###"
|
|
FIELD 37->LAVDIPCIN
|
|
END
|
|
|
|
DATA 17
|
|
BEGIN
|
|
KEY "PERIODO D'IMPOSTA (DAL)"
|
|
PROMPT 95 14 ""
|
|
FORMAT "1442 "
|
|
FIELD 37->PIMPINI
|
|
END
|
|
|
|
DATA 18
|
|
BEGIN
|
|
KEY "PERIODO D'IMPOSTA (AL)"
|
|
PROMPT 115 14 ""
|
|
FORMAT "1442 "
|
|
FIELD 37->PIMPFINE
|
|
END
|
|
|
|
END
|
|
|
|
SECTION HEADER ODD 5
|
|
// Header pagine successive
|
|
END
|
|
|
|
|
|
SECTION BODY ODD 6
|
|
|
|
STRINGA 1
|
|
BEGIN
|
|
KEY "COD.FIS"
|
|
PROMPT 10 1 ""
|
|
FIELD 45->CODFI
|
|
END
|
|
|
|
STRINGA 2
|
|
BEGIN
|
|
KEY "COGNOME"
|
|
PROMPT 42 1 ""
|
|
FIELD 45->COGNOME
|
|
END
|
|
|
|
STRINGA 3
|
|
BEGIN
|
|
KEY "NOME"
|
|
PROMPT 79 1 ""
|
|
FIELD 45->NOME
|
|
END
|
|
|
|
DATA 4
|
|
BEGIN
|
|
KEY "DATA NASCITA"
|
|
PROMPT 114 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 10 3 ""
|
|
FIELD 45->COMUNENA
|
|
END
|
|
|
|
STRINGA 7
|
|
BEGIN
|
|
KEY "PROV DI NASCITA"
|
|
PROMPT 47 3 ""
|
|
FIELD 45->PROVNA
|
|
END
|
|
|
|
DATA 8
|
|
BEGIN
|
|
KEY "INIZIO RAPPORTO A TEMPO INDETERMINATO"
|
|
PROMPT 10 5 ""
|
|
FIELD 58->DIRAPTI
|
|
FORMAT "1444-"
|
|
PICTURE "## ^ ##^^^##"
|
|
END
|
|
|
|
NUMERO 9
|
|
BEGIN
|
|
KEY "NUMERO GIORNI IN INCREMENTO"
|
|
PROMPT 34 5 ""
|
|
PICTURE "######"
|
|
FIELD 58->NGINC15
|
|
END
|
|
|
|
NUMERO 10
|
|
BEGIN
|
|
KEY "REDDITO CORRISPOSTO"
|
|
PROMPT 42 5 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 58->REDCOR16
|
|
END
|
|
|
|
NUMERO 11
|
|
BEGIN
|
|
KEY "NUMERO GIORNI IN INCREMENTO"
|
|
PROMPT 68 5 ""
|
|
PICTURE "######"
|
|
FIELD 58->NGINC17
|
|
END
|
|
|
|
NUMERO 12
|
|
BEGIN
|
|
KEY "REDDITO CORRISPOSTO"
|
|
PROMPT 76 5 ""
|
|
PICTURE "###.###.###.###^^^"
|
|
FIELD 58->REDCOR18
|
|
END
|
|
|
|
END
|
|
|
|
SECTION FOOTER LAST 4
|
|
|
|
STRINGA 2
|
|
BEGIN
|
|
KEY "FIRMA"
|
|
PROMPT 83 4 ""
|
|
FIELD 206@->RAGSOC
|
|
END
|
|
|
|
END
|
|
|
|
END
|