b3b82d0138
invertiti, mentre delgen aveva 2 alias errati. git-svn-id: svn://10.65.10.50/trunk@1801 c028cbd2-c16b-5b4b-a496-9718f37d4682
296 lines
3.9 KiB
Plaintext
Executable File
296 lines
3.9 KiB
Plaintext
Executable File
USE %IRG
|
|
JOIN %UCC ALIAS 14 INTO CODTAB=S9
|
|
JOIN 6 ALIAS 16 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
|
|
JOIN 8 TO 6 INTO CODANAGR=CODANAGR
|
|
JOIN 13 TO 6 ALIAS 113 INTO COM=COMRF(COMRES)
|
|
|
|
END
|
|
DESCRIPTION
|
|
BEGIN
|
|
%IRG->* " "
|
|
14@->* "UCC"
|
|
6->* "Anagrafica persone fisiche e giuridiche"
|
|
8->* "Anagrafica persone fisiche"
|
|
13->* "Comuni"
|
|
END
|
|
|
|
GENERAL
|
|
BEGIN
|
|
OFFSET 0 0
|
|
FONT "Courier New"
|
|
SIZE 7
|
|
END
|
|
|
|
SECTION BODY ODD 66
|
|
|
|
STRINGA 1
|
|
BEGIN
|
|
KEY "CONCESSIONE DI"
|
|
PROMPT 63 4 ""
|
|
FIELD 14@->S0
|
|
END
|
|
|
|
STRINGA 2
|
|
BEGIN
|
|
KEY "DENOMINAZIONE"
|
|
PROMPT 4 10 ""
|
|
FIELD 6->RAGSOC
|
|
END
|
|
|
|
STRINGA 3
|
|
BEGIN
|
|
KEY "CODICE FISCALE"
|
|
PROMPT 97 10 ""
|
|
FIELD 6->COFI
|
|
END
|
|
|
|
STRINGA 4
|
|
BEGIN
|
|
KEY "DOMICILIO FISCALE: COMUNE"
|
|
PROMPT 24 12 ""
|
|
FIELD 13->DENCOM
|
|
END
|
|
|
|
STRINGA 5
|
|
BEGIN
|
|
KEY "DOMICILIO FISCALE: PROV. (sigla)"
|
|
PROMPT 64 12 ""
|
|
FIELD 13->PROVCOM
|
|
END
|
|
|
|
STRINGA 6
|
|
BEGIN
|
|
KEY "DOMICILIO FISCALE: VIA"
|
|
PROMPT 77 12 ""
|
|
FIELD 6->INDRF
|
|
FIELD 6->INDRES
|
|
END
|
|
|
|
STRINGA 7
|
|
BEGIN
|
|
KEY "DOMICILIO FISCALE: NUMERO CIVICO"
|
|
PROMPT 122 12 ""
|
|
FIELD 6->CIVRF
|
|
FIELD 6->CIVRES
|
|
END
|
|
|
|
GRUPPO 8
|
|
BEGIN
|
|
KEY "DISTINTA VERSAMENTO IRPEG"
|
|
PROMPT 0 0 ""
|
|
END
|
|
|
|
NUMERO 9
|
|
BEGIN
|
|
KEY "IRPEG 2100 GRUPPO 4: DA ANNO"
|
|
PROMPT 33 19 ""
|
|
PICTURE "# #"
|
|
FIELD I0
|
|
END
|
|
|
|
NUMERO 10
|
|
BEGIN
|
|
KEY "IRPEG 2100 GRUPPO 4: AD ANNO"
|
|
PROMPT 44 19 ""
|
|
PICTURE "# #"
|
|
FIELD I1
|
|
END
|
|
|
|
NUMERO 11
|
|
BEGIN
|
|
KEY "IRPEG 2100 GRUPPO 4: IMPOSTA"
|
|
PROMPT 62 19 ""
|
|
MESSAGE COPY,1@
|
|
PICTURE "###.###.###^^^"
|
|
FIELD R0
|
|
END
|
|
|
|
NUMERO 12
|
|
BEGIN
|
|
KEY "IRPEG 2100 GRUPPO 4: INTERESSI"
|
|
PROMPT 89 19 ""
|
|
MESSAGE ADD,1@
|
|
PICTURE "###.###.###^^^"
|
|
FIELD R4
|
|
END
|
|
|
|
NUMERO 13
|
|
BEGIN
|
|
KEY "IRPEG 2100 GRUPPO 4: TOTALE"
|
|
PROMPT 115 19 ""
|
|
GROUP 1
|
|
MESSAGE COPY,5@
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 14
|
|
BEGIN
|
|
KEY "IRPEG 2110 GRUPPO 10: DA ANNO"
|
|
PROMPT 33 23 ""
|
|
PICTURE "# #"
|
|
FIELD I2
|
|
END
|
|
|
|
NUMERO 15
|
|
BEGIN
|
|
KEY "IRPEG 2110 GRUPPO 10: AD ANNO"
|
|
PROMPT 44 23 ""
|
|
PICTURE "# #"
|
|
FIELD I3
|
|
END
|
|
|
|
NUMERO 16
|
|
BEGIN
|
|
KEY "IRPEG 2110 GRUPPO 10: IMPOSTA"
|
|
PROMPT 62 23 ""
|
|
MESSAGE COPY,2@
|
|
PICTURE "###.###.###^^^"
|
|
FIELD R1
|
|
END
|
|
|
|
NUMERO 17
|
|
BEGIN
|
|
KEY "IRPEG 2110 GRUPPO 10: INTERESSI"
|
|
PROMPT 89 23 ""
|
|
MESSAGE ADD,2@
|
|
PICTURE "###.###.###^^^"
|
|
FIELD R5
|
|
END
|
|
|
|
NUMERO 18
|
|
BEGIN
|
|
KEY "IRPEG 2110 GRUPPO 10: TOTALE"
|
|
PROMPT 115 23 ""
|
|
GROUP 2
|
|
MESSAGE ADD,5@
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
GRUPPO 19
|
|
BEGIN
|
|
KEY "DISTINTA VERSAMENTO ILOR"
|
|
PROMPT 0 0 ""
|
|
END
|
|
|
|
NUMERO 20
|
|
BEGIN
|
|
KEY "ILOR 3000 GRUPPO 06: DA ANNO"
|
|
PROMPT 33 34 ""
|
|
PICTURE "# #"
|
|
FIELD I4
|
|
END
|
|
|
|
NUMERO 21
|
|
BEGIN
|
|
KEY "ILOR 3000 GRUPPO 06: AD ANNO"
|
|
PROMPT 44 34 ""
|
|
PICTURE "# #"
|
|
FIELD I5
|
|
END
|
|
|
|
NUMERO 22
|
|
BEGIN
|
|
KEY "ILOR 3000 GRUPPO 06: IMPOSTA"
|
|
PROMPT 62 34 ""
|
|
MESSAGE COPY,3@
|
|
PICTURE "###.###.###^^^"
|
|
FIELD R2
|
|
END
|
|
|
|
NUMERO 23
|
|
BEGIN
|
|
KEY "ILOR 3000 GRUPPO 06: INTERESSI"
|
|
PROMPT 89 34 ""
|
|
MESSAGE ADD,3@
|
|
PICTURE "###.###.###^^^"
|
|
FIELD R6
|
|
END
|
|
|
|
NUMERO 24
|
|
BEGIN
|
|
KEY "ILOR 3000 GRUPPO 06: TOTALE"
|
|
PROMPT 115 34 ""
|
|
GROUP 3
|
|
MESSAGE ADD,5@
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 25
|
|
BEGIN
|
|
KEY "ILOR 3110 GRUPPO 11: DA ANNO"
|
|
PROMPT 33 38 ""
|
|
PICTURE "# #"
|
|
FIELD I6
|
|
END
|
|
|
|
NUMERO 26
|
|
BEGIN
|
|
KEY "ILOR 3110 GRUPPO 11: AD ANNO"
|
|
PROMPT 44 38 ""
|
|
PICTURE "# #"
|
|
FIELD I7
|
|
END
|
|
|
|
NUMERO 27
|
|
BEGIN
|
|
KEY "ILOR 3110 GRUPPO 11: IMPOSTA"
|
|
PROMPT 62 38 ""
|
|
MESSAGE COPY,4@
|
|
PICTURE "###.###.###^^^"
|
|
FIELD R3
|
|
END
|
|
|
|
NUMERO 28
|
|
BEGIN
|
|
KEY "ILOR 3110 GRUPPO 11: INTERESSI"
|
|
PROMPT 89 38 ""
|
|
MESSAGE ADD,4@
|
|
PICTURE "###.###.###^^^"
|
|
FIELD R7
|
|
END
|
|
|
|
NUMERO 29
|
|
BEGIN
|
|
KEY "ILOR 3110 GRUPPO 11: TOTALE"
|
|
PROMPT 115 38 ""
|
|
GROUP 4
|
|
MESSAGE ADD,5@
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 30
|
|
BEGIN
|
|
KEY "TOTALE DA VERSARE"
|
|
PROMPT 115 44 ""
|
|
GROUP 5
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
STRINGA 31
|
|
BEGIN
|
|
KEY "CODICE CONTRIBUENTE"
|
|
PROMPT 4 51 "# # # # # # # # # # # # # # # # # #"
|
|
PICTURE "# # # ##"
|
|
FIELD 6->CODCONTR
|
|
END
|
|
|
|
STRINGA 32
|
|
BEGIN
|
|
KEY "CENTRO SERVIZI: Provincia e Denominazione"
|
|
PROMPT 74 52 ""
|
|
MESSAGE _CENSERoUFFIMP,113@,16@
|
|
END
|
|
|
|
DATA 33
|
|
BEGIN
|
|
KEY "DATA: giorno - mese - anno"
|
|
PROMPT 20 57 ""
|
|
PICTURE "@@ ^ @@^^^@@"
|
|
FIELD D0
|
|
FORMAT "1444-"
|
|
END
|
|
|
|
END
|
|
|
|
END
|