424 lines
6.0 KiB
Plaintext
Executable File
424 lines
6.0 KiB
Plaintext
Executable File
USE %DEL
|
|
JOIN %BAN ALIAS 2 INTO CODTAB==S7
|
|
JOIN %BAN ALIAS 1 INTO CODTAB==S7+S8
|
|
JOIN 13 TO 1@ ALIAS 11 INTO COM==S5
|
|
JOIN 9 INTO CODDITTA=CODTAB[1,5]
|
|
JOIN 6 TO 9 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
|
JOIN 8 TO 6 ALIAS 18 INTO CODANAGR=CODANAGR
|
|
JOIN 7 TO 6 INTO CODANAGR=CODANAGR
|
|
JOIN 13 TO 6 ALIAS 12 INTO COM==COMRF
|
|
JOIN 13 TO 8 ALIAS 13 INTO COM=COMNASC
|
|
|
|
END
|
|
DESCRIPTION
|
|
BEGIN
|
|
%DEL->* "DEL"
|
|
2@->* "BAN"
|
|
1@->* "BAN"
|
|
11@->* "Comuni"
|
|
9->* "Ditte"
|
|
6->* "Anagrafica persone fisiche e giuridiche"
|
|
8->* "Anagrafica persone fisiche"
|
|
7->* "Anagrafica persone giuridiche"
|
|
12@->* "Comuni"
|
|
13@->* "Comuni"
|
|
END
|
|
|
|
GENERAL
|
|
BEGIN
|
|
OFFSET 0 0
|
|
FONT "Roman 17cpi"
|
|
SIZE 12
|
|
CARATTERE "X"
|
|
INIZIALE 1 1
|
|
END
|
|
|
|
SECTION BODY ODD 72
|
|
|
|
STRINGA 1
|
|
BEGIN
|
|
KEY "Sede Azienda"
|
|
PROMPT 54 9 ""
|
|
FIELD 2@->S0
|
|
END
|
|
|
|
STRINGA 2
|
|
BEGIN
|
|
KEY "Sede Filiale"
|
|
PROMPT 54 11 ""
|
|
FIELD 1@->S0
|
|
END
|
|
|
|
STRINGA 3
|
|
BEGIN
|
|
KEY "Provincia Banca"
|
|
PROMPT 129 11 ""
|
|
FIELD 11@->PROVCOM
|
|
END
|
|
|
|
LISTA 4
|
|
BEGIN
|
|
KEY "Tipo anagrafica"
|
|
FIELD 6->TIPOA
|
|
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
|
|
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
|
|
END
|
|
|
|
GRUPPO 5
|
|
BEGIN
|
|
KEY "Persone fisiche"
|
|
PROMPT 0 0 ""
|
|
GROUP 1
|
|
END
|
|
|
|
LISTA 6
|
|
BEGIN
|
|
KEY "Sesso"
|
|
PROMPT 34 18 ""
|
|
GROUP 1
|
|
FIELD 18@->SESSO
|
|
ITEM "M|X " MESSAGE SHOW,3@|HIDE,4@
|
|
ITEM "F| X" MESSAGE SHOW,4@|HIDE,3@
|
|
END
|
|
|
|
GRUPPO 7
|
|
BEGIN
|
|
KEY "Sesso maschile"
|
|
PROMPT 0 0 ""
|
|
GROUP 3
|
|
END
|
|
|
|
STRINGA 8
|
|
BEGIN
|
|
KEY "Il sottoscritto"
|
|
PROMPT 10 13 "I o"
|
|
GROUP 1 3
|
|
END
|
|
|
|
GRUPPO 9
|
|
BEGIN
|
|
KEY "Sesso Femminile"
|
|
PROMPT 0 0 ""
|
|
GROUP 4
|
|
END
|
|
|
|
STRINGA 10
|
|
BEGIN
|
|
KEY "La sottoscritta"
|
|
PROMPT 10 13 " a a"
|
|
GROUP 1 4
|
|
END
|
|
|
|
STRINGA 11
|
|
BEGIN
|
|
KEY "Cognome"
|
|
PROMPT 9 16 ""
|
|
GROUP 1
|
|
FIELD 6->RAGSOC[1,30]
|
|
END
|
|
|
|
STRINGA 12
|
|
BEGIN
|
|
KEY "Nome"
|
|
PROMPT 77 16 ""
|
|
GROUP 1
|
|
FIELD 6->RAGSOC[31,-1]
|
|
END
|
|
|
|
NUMERO 13
|
|
BEGIN
|
|
KEY "Giorno di nascita"
|
|
PROMPT 9 19 ""
|
|
GROUP 1
|
|
PICTURE "@ @"
|
|
FIELD 18@->DATANASC[1,2]
|
|
END
|
|
|
|
NUMERO 14
|
|
BEGIN
|
|
KEY "Mese di nascita"
|
|
PROMPT 16 19 ""
|
|
GROUP 1
|
|
PICTURE "@ @"
|
|
FIELD 18@->DATANASC[4,5]
|
|
END
|
|
|
|
NUMERO 15
|
|
BEGIN
|
|
KEY "Anno di nascita"
|
|
PROMPT 23 19 ""
|
|
GROUP 1
|
|
PICTURE "@ @"
|
|
FIELD 18@->DATANASC[9,10]
|
|
END
|
|
|
|
STRINGA 16
|
|
BEGIN
|
|
KEY "Comune di nascita"
|
|
PROMPT 50 19 ""
|
|
GROUP 1
|
|
FIELD 13@->DENCOM
|
|
END
|
|
|
|
STRINGA 17
|
|
BEGIN
|
|
KEY "Provincia di nascita"
|
|
PROMPT 130 19 ""
|
|
GROUP 1
|
|
PICTURE "# #"
|
|
FIELD 13@->PROVCOM
|
|
END
|
|
|
|
GRUPPO 18
|
|
BEGIN
|
|
KEY "Persone giuridiche"
|
|
PROMPT 0 0 ""
|
|
GROUP 2
|
|
END
|
|
|
|
STRINGA 19
|
|
BEGIN
|
|
KEY "Ragione Sociale"
|
|
PROMPT 9 23 ""
|
|
GROUP 2
|
|
FIELD 6->RAGSOC
|
|
END
|
|
|
|
STRINGA 20
|
|
BEGIN
|
|
KEY "Natura Giuridica"
|
|
PROMPT 130 23 ""
|
|
GROUP 2
|
|
PICTURE "# #"
|
|
FIELD 7->NATGIU
|
|
END
|
|
|
|
STRINGA 21
|
|
BEGIN
|
|
KEY "Via Indirizzo Fiscale"
|
|
FLAGS "H"
|
|
MESSAGE COPY,527
|
|
FIELD 6->INDRF
|
|
FIELD 6->INDRES
|
|
END
|
|
|
|
STRINGA 22
|
|
BEGIN
|
|
KEY "Numero Civico Indirizzo Fiscale"
|
|
FLAGS "H"
|
|
MESSAGE APPEND,527
|
|
FIELD 6->CIVRF
|
|
FIELD 6->CIVRES
|
|
END
|
|
|
|
STRINGA 527 35
|
|
BEGIN
|
|
KEY "Indirizzo Fiscale"
|
|
PROMPT 9 27 ""
|
|
END
|
|
|
|
STRINGA 24
|
|
BEGIN
|
|
KEY "CAP fiscale"
|
|
PROMPT 76 27 ""
|
|
PICTURE "# # # # #"
|
|
FIELD 6->CAPRF
|
|
FIELD 6->CAPRES
|
|
END
|
|
|
|
STRINGA 25
|
|
BEGIN
|
|
KEY "Comune di residenza fiscale"
|
|
PROMPT 96 27 ""
|
|
FIELD 12@->DENCOM
|
|
END
|
|
|
|
STRINGA 26
|
|
BEGIN
|
|
KEY "Provincia di residenza fiscale"
|
|
PROMPT 130 27 ""
|
|
PICTURE "# #"
|
|
FIELD 12@->PROVCOM
|
|
END
|
|
|
|
STRINGA 27
|
|
BEGIN
|
|
KEY "Partita IVA"
|
|
PROMPT 28 32 ""
|
|
PICTURE "# # # # # # # # # # #"
|
|
FIELD 6->PAIV
|
|
END
|
|
|
|
STRINGA 28
|
|
BEGIN
|
|
KEY "Codice fiscale (P.IVA Persone giuridiche)"
|
|
PROMPT 81 32 ""
|
|
GROUP 2
|
|
PICTURE "# # # # # # # # # # #"
|
|
FIELD 6->COFI
|
|
END
|
|
|
|
STRINGA 29
|
|
BEGIN
|
|
KEY "Codice fiscale (Persone fisiche)"
|
|
PROMPT 81 32 ""
|
|
GROUP 1
|
|
PICTURE "# # # # # # # # # # # # # # # #"
|
|
FIELD 6->COFI
|
|
END
|
|
|
|
STRINGA 45
|
|
BEGIN
|
|
KEY "Anno di versamento"
|
|
PROMPT 80 39 ""
|
|
PICTURE "^ ^ @ @"
|
|
FIELD CODTAB[6,9]
|
|
END
|
|
|
|
LISTA 30
|
|
BEGIN
|
|
KEY "Periodo di versamento"
|
|
PROMPT 114 39 ""
|
|
FIELD CODTAB[10,11]
|
|
ITEM "01|Gennaio"
|
|
ITEM "02|Febbraio"
|
|
ITEM "03|Marzo"
|
|
ITEM "04|Aprile"
|
|
ITEM "05|Maggio"
|
|
ITEM "06|Giugno"
|
|
ITEM "07|Luglio"
|
|
ITEM "08|Agosto"
|
|
ITEM "09|Settembre"
|
|
ITEM "10|Ottobre"
|
|
ITEM "11|Novembre"
|
|
ITEM "12|Dicembre"
|
|
ITEM "13|Annuale"
|
|
END
|
|
|
|
LISTA 31
|
|
BEGIN
|
|
KEY "X sul mese"
|
|
PROMPT 68 45 ""
|
|
GROUP 6
|
|
FIELD S6
|
|
ITEM "6001|X"
|
|
ITEM "6002| X"
|
|
ITEM "6003| X"
|
|
ITEM "6004| X"
|
|
ITEM "6005| X"
|
|
ITEM "6006| X"
|
|
ITEM "6007| X"
|
|
ITEM "6008| X"
|
|
ITEM "6009| X"
|
|
ITEM "6010| X"
|
|
ITEM "6011| X"
|
|
ITEM "6012| X"
|
|
ITEM "6013| X"
|
|
ITEM "6031|"
|
|
ITEM "6032|"
|
|
ITEM "6033|"
|
|
ITEM "6099|"
|
|
ITEM "6034|"
|
|
END
|
|
|
|
LISTA 32
|
|
BEGIN
|
|
KEY "X sul trimestre"
|
|
PROMPT 13 45 ""
|
|
GROUP 6
|
|
FIELD S6
|
|
ITEM "6031|X"
|
|
ITEM "6032| X"
|
|
ITEM "6033| X"
|
|
ITEM "6099| X"
|
|
ITEM "6034| X"
|
|
ITEM "6001|"
|
|
ITEM "6002|"
|
|
ITEM "6003|"
|
|
ITEM "6004|"
|
|
ITEM "6005|"
|
|
ITEM "6006|"
|
|
ITEM "6007|"
|
|
ITEM "6008|"
|
|
ITEM "6009|"
|
|
ITEM "6010|"
|
|
ITEM "6011|"
|
|
ITEM "6012|"
|
|
ITEM "6013|"
|
|
END
|
|
|
|
NUMERO 33
|
|
BEGIN
|
|
KEY "Importo in cifre"
|
|
PROMPT 33 50 ""
|
|
PICTURE "###.###.###^^^"
|
|
FIELD R0
|
|
END
|
|
|
|
NUMERO 34
|
|
BEGIN
|
|
KEY "Importo in lettere"
|
|
PROMPT 64 50 ""
|
|
PICTURE "LETTERE"
|
|
FIELD R0
|
|
END
|
|
|
|
DATA 36
|
|
BEGIN
|
|
KEY "Data del versamento"
|
|
PROMPT 89 57 ""
|
|
PICTURE "@ @^ @ @^ @ @"
|
|
FIELD D0
|
|
FORMAT "1442-"
|
|
END
|
|
|
|
STRINGA 38
|
|
BEGIN
|
|
KEY "Codice Azienda"
|
|
PROMPT 114 57 ""
|
|
PICTURE "@ @ @ @"
|
|
FIELD S7[2,5]
|
|
END
|
|
|
|
STRINGA 39
|
|
BEGIN
|
|
KEY "Codice Dipendenza"
|
|
PROMPT 128 57 ""
|
|
PICTURE "@ @ @ @"
|
|
FIELD S8[2,5]
|
|
END
|
|
|
|
STRINGA 40 40 1
|
|
BEGIN
|
|
KEY "Testo Fisso (1)"
|
|
PROMPT 0 0 ""
|
|
END
|
|
|
|
STRINGA 41 40 1
|
|
BEGIN
|
|
KEY "Testo Fisso (2)"
|
|
PROMPT 0 0 ""
|
|
END
|
|
|
|
STRINGA 42 40 1
|
|
BEGIN
|
|
KEY "Testo Fisso (3)"
|
|
PROMPT 0 0 ""
|
|
END
|
|
|
|
STRINGA 43 40 1
|
|
BEGIN
|
|
KEY "Testo Fisso (4)"
|
|
PROMPT 0 0 ""
|
|
END
|
|
|
|
STRINGA 44 40 1
|
|
BEGIN
|
|
KEY "Testo Fisso (5)"
|
|
PROMPT 0 0 ""
|
|
END
|
|
|
|
END
|
|
|
|
END
|