Corretti forms deleghe
git-svn-id: svn://10.65.10.50/trunk@1304 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
d256cab0f6
commit
313fbade7d
458
ba/dissd6.frm
458
ba/dissd6.frm
@ -1,268 +1,270 @@
|
|||||||
// Distinta di versamento: IRPEG/ILOR (PERSONE GIURIDICHE)
|
USE %SD6
|
||||||
|
|
||||||
USE %SDI
|
|
||||||
JOIN %UCC ALIAS 14 INTO CODTAB=S9
|
JOIN %UCC ALIAS 14 INTO CODTAB=S9
|
||||||
JOIN 6 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
|
JOIN 6 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
|
||||||
JOIN 8 TO 6 INTO CODANAGR=CODANAGR
|
JOIN 8 TO 6 INTO CODANAGR=CODANAGR
|
||||||
JOIN 13 TO 6 INTO COM=COMRF(COMRES)
|
JOIN 13 TO 6 INTO COM=COMRF(COMRES)
|
||||||
|
|
||||||
END
|
END
|
||||||
|
SECTION BODY 0 66 0 0
|
||||||
|
|
||||||
SECTION BODY 0 66 0 0
|
STRINGA
|
||||||
|
BEGIN
|
||||||
|
KEY "CONCESSIONE DI"
|
||||||
|
PROMPT 28 4 ""
|
||||||
|
FIELD 14@->S0
|
||||||
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "CONCESSIONE DI"
|
KEY "DENOMINAZIONE"
|
||||||
PROMPT 28 4 ""
|
PROMPT 2 10 ""
|
||||||
FIELD 14@->S0
|
FIELD 6->RAGSOC
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "DENOMINAZIONE"
|
KEY "CODICE FISCALE"
|
||||||
PROMPT 2 10 ""
|
PROMPT 55 10 ""
|
||||||
FIELD 6->RAGSOC
|
FIELD 6->COFI
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "CODICE FISCALE"
|
KEY "DOMICILIO FISCALE: COMUNE"
|
||||||
PROMPT 55 10 ""
|
PROMPT 16 12 ""
|
||||||
FIELD 6->COFI
|
FIELD 13->DENCOM
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "DOMICILIO FISCALE: COMUNE"
|
KEY "DOMICILIO FISCALE: PROV. (sigla)"
|
||||||
PROMPT 16 12 ""
|
PROMPT 36 12 ""
|
||||||
FIELD 213@->DENCOM
|
FIELD 13->PROVCOM
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "DOMICILIO FISCALE: PROV. (sigla)"
|
KEY "DOMICILIO FISCALE: VIA"
|
||||||
PROMPT 36 12 ""
|
PROMPT 41 12 ""
|
||||||
FIELD 213@->PROVCOM
|
FIELD 6->INDRF
|
||||||
END
|
FIELD 6->INDRES
|
||||||
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "DOMICILIO FISCALE: VIA"
|
KEY "DOMICILIO FISCALE: NUMERO CIVICO"
|
||||||
PROMPT 41 21 ""
|
PROMPT 70 12 ""
|
||||||
FIELD 6->INDRF
|
FIELD 6->CIVRF
|
||||||
FIELD 6->INDRES
|
FIELD 6->CIVRES
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
GRUPPO
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "DOMICILIO FISCALE: NUMERO CIVICO"
|
KEY "DISTINTA VERSAMENTO IRPEG"
|
||||||
PROMPT 70 21 ""
|
PROMPT 0 0 ""
|
||||||
FIELD 6->CIVRF
|
END
|
||||||
FIELD 6->CIVRES
|
|
||||||
END
|
|
||||||
|
|
||||||
|
NUMERO
|
||||||
|
BEGIN
|
||||||
|
KEY "IRPEG 2100 GRUPPO 4: DA ANNO"
|
||||||
|
PROMPT 20 18 ""
|
||||||
|
FIELD I0
|
||||||
|
END
|
||||||
|
|
||||||
GRUPPO
|
NUMERO
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "DISTINTA VERSAMENTO IRPEG"
|
KEY "IRPEG 2100 GRUPPO 4: AD ANNO"
|
||||||
PROMPT 0 0 ""
|
PROMPT 27 18 ""
|
||||||
END
|
FIELD I1
|
||||||
|
END
|
||||||
|
|
||||||
NUMERO
|
NUMERO
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "IRPEG 2100 GRUPPO 4: DA ANNO"
|
KEY "IRPEG 2100 GRUPPO 4: IMPOSTA"
|
||||||
PROMPT 20 18 ""
|
PROMPT 32 18 ""
|
||||||
FIELD I0
|
MESSAGE COPY,1@
|
||||||
END
|
PICTURE "###.###.###~~~"
|
||||||
|
FIELD R0
|
||||||
|
END
|
||||||
|
|
||||||
NUMERO
|
NUMERO
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "IRPEG 2100 GRUPPO 4: AD ANNO"
|
KEY "IRPEG 2100 GRUPPO 4: INTERESSI"
|
||||||
PROMPT 27 18 ""
|
PROMPT 48 18 ""
|
||||||
FIELD I1
|
MESSAGE ADD,1@
|
||||||
END
|
PICTURE "###.###.###~~~"
|
||||||
|
FIELD R4
|
||||||
|
END
|
||||||
|
|
||||||
NUMERO
|
NUMERO
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "IRPEG 2100 GRUPPO 4: IMPOSTA"
|
KEY "IRPEG 2100 GRUPPO 4: TOTALE"
|
||||||
PROMPT 32 18 ""
|
PROMPT 62 18 ""
|
||||||
MESSAGE COPY,1@
|
GROUP 1
|
||||||
PICTURE "###.###.###~~~"
|
MESSAGE COPY,5@
|
||||||
FIELD R0
|
PICTURE "###.###.###~~~"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO
|
NUMERO
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "IRPEG 2100 GRUPPO 4: INTERESSI"
|
KEY "IRPEG 2110 GRUPPO 10: DA ANNO"
|
||||||
PROMPT 48 18 ""
|
PROMPT 20 23 ""
|
||||||
MESSAGE ADD,1@
|
FIELD I2
|
||||||
PICTURE "###.###.###~~~"
|
END
|
||||||
FIELD R4
|
|
||||||
END
|
|
||||||
|
|
||||||
NUMERO
|
NUMERO
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "IRPEG 2100 GRUPPO 4: TOTALE"
|
KEY "IRPEG 2110 GRUPPO 10: AD ANNO"
|
||||||
PROMPT 62 18 ""
|
PROMPT 27 23 ""
|
||||||
PICTURE "###.###.###~~~"
|
FIELD I3
|
||||||
GROUP 1
|
END
|
||||||
MESSAGE COPY,5@
|
|
||||||
END
|
|
||||||
|
|
||||||
|
NUMERO
|
||||||
|
BEGIN
|
||||||
|
KEY "IRPEG 2110 GRUPPO 10: IMPOSTA"
|
||||||
|
PROMPT 32 23 ""
|
||||||
|
MESSAGE COPY,2@
|
||||||
|
PICTURE "###.###.###~~~"
|
||||||
|
FIELD R1
|
||||||
|
END
|
||||||
|
|
||||||
NUMERO
|
NUMERO
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "IRPEG 2110 GRUPPO 10: DA ANNO"
|
KEY "IRPEG 2110 GRUPPO 10: INTERESSI"
|
||||||
PROMPT 20 23 ""
|
PROMPT 48 23 ""
|
||||||
FIELD I2
|
MESSAGE ADD,2@
|
||||||
END
|
PICTURE "###.###.###~~~"
|
||||||
|
FIELD R5
|
||||||
|
END
|
||||||
|
|
||||||
NUMERO
|
NUMERO
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "IRPEG 2110 GRUPPO 10: AD ANNO"
|
KEY "IRPEG 2110 GRUPPO 10: TOTALE"
|
||||||
PROMPT 27 23 ""
|
PROMPT 62 23 ""
|
||||||
FIELD I3
|
GROUP 2
|
||||||
END
|
MESSAGE ADD,5@
|
||||||
|
PICTURE "###.###.###~~~"
|
||||||
|
END
|
||||||
|
|
||||||
NUMERO
|
GRUPPO
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "IRPEG 2110 GRUPPO 10: IMPOSTA"
|
KEY "DISTINTA VERSAMENTO ILOR"
|
||||||
PROMPT 32 23 ""
|
PROMPT 0 0 ""
|
||||||
MESSAGE COPY,2@
|
END
|
||||||
PICTURE "###.###.###~~~"
|
|
||||||
FIELD R1
|
|
||||||
END
|
|
||||||
|
|
||||||
NUMERO
|
NUMERO
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "IRPEG 2110 GRUPPO 10: INTERESSI"
|
KEY "ILOR 3000 GRUPPO 06: DA ANNO"
|
||||||
PROMPT 48 23 ""
|
PROMPT 20 33 ""
|
||||||
MESSAGE ADD,2@
|
FIELD I4
|
||||||
PICTURE "###.###.###~~~"
|
END
|
||||||
FIELD R5
|
|
||||||
END
|
|
||||||
|
|
||||||
NUMERO
|
NUMERO
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "IRPEG 2110 GRUPPO 10: TOTALE"
|
KEY "ILOR 3000 GRUPPO 06: AD ANNO"
|
||||||
PROMPT 62 23 ""
|
PROMPT 27 33 ""
|
||||||
PICTURE "###.###.###~~~"
|
FIELD I5
|
||||||
GROUP 2
|
END
|
||||||
MESSAGE ADD,5@
|
|
||||||
END
|
|
||||||
|
|
||||||
NUMERO
|
NUMERO
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "ILOR 3000 GRUPPO 06: DA ANNO"
|
KEY "ILOR 3000 GRUPPO 06: IMPOSTA"
|
||||||
PROMPT 20 33 ""
|
PROMPT 32 33 ""
|
||||||
FIELD I4
|
MESSAGE COPY,3@
|
||||||
END
|
PICTURE "###.###.###~~~"
|
||||||
|
FIELD R2
|
||||||
|
END
|
||||||
|
|
||||||
NUMERO
|
NUMERO
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "ILOR 3000 GRUPPO 06: AD ANNO"
|
KEY "ILOR 3000 GRUPPO 06: INTERESSI"
|
||||||
PROMPT 27 33 ""
|
PROMPT 48 33 ""
|
||||||
FIELD I5
|
MESSAGE ADD,3@
|
||||||
END
|
PICTURE "###.###.###~~~"
|
||||||
|
FIELD R6
|
||||||
|
END
|
||||||
|
|
||||||
NUMERO
|
NUMERO
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "ILOR 3000 GRUPPO 06: IMPOSTA"
|
KEY "ILOR 3000 GRUPPO 06: TOTALE"
|
||||||
PROMPT 32 33 ""
|
PROMPT 62 33 ""
|
||||||
MESSAGE COPY,3@
|
GROUP 3
|
||||||
PICTURE "###.###.###~~~"
|
MESSAGE ADD,5@
|
||||||
FIELD R2
|
PICTURE "###.###.###~~~"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO
|
NUMERO
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "ILOR 3000 GRUPPO 06: INTERESSI"
|
KEY "ILOR 3110 GRUPPO 11: DA ANNO"
|
||||||
PROMPT 48 33 ""
|
PROMPT 20 38 ""
|
||||||
MESSAGE ADD,3@
|
FIELD I6
|
||||||
PICTURE "###.###.###~~~"
|
END
|
||||||
FIELD R6
|
|
||||||
END
|
|
||||||
|
|
||||||
NUMERO
|
NUMERO
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "ILOR 3000 GRUPPO 06: TOTALE"
|
KEY "ILOR 3110 GRUPPO 11: AD ANNO"
|
||||||
PROMPT 62 33 ""
|
PROMPT 27 38 ""
|
||||||
PICTURE "###.###.###~~~"
|
FIELD I7
|
||||||
GROUP 3
|
END
|
||||||
MESSAGE ADD,5@
|
|
||||||
END
|
|
||||||
|
|
||||||
NUMERO
|
NUMERO
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "ILOR 3110 GRUPPO 11: DA ANNO"
|
KEY "ILOR 3110 GRUPPO 11: IMPOSTA"
|
||||||
PROMPT 20 38 ""
|
PROMPT 32 38 ""
|
||||||
FIELD I6
|
MESSAGE COPY,4@
|
||||||
END
|
PICTURE "###.###.###~~~"
|
||||||
|
FIELD R3
|
||||||
|
END
|
||||||
|
|
||||||
NUMERO
|
NUMERO
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "ILOR 3110 GRUPPO 11: AD ANNO"
|
KEY "ILOR 3110 GRUPPO 11: INTERESSI"
|
||||||
PROMPT 27 38 ""
|
PROMPT 48 38 ""
|
||||||
FIELD I7
|
MESSAGE ADD,4@
|
||||||
END
|
PICTURE "###.###.###~~~"
|
||||||
|
FIELD R7
|
||||||
|
END
|
||||||
|
|
||||||
NUMERO
|
NUMERO
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "ILOR 3110 GRUPPO 11: IMPOSTA"
|
KEY "ILOR 3110 GRUPPO 11: TOTALE"
|
||||||
PROMPT 32 38 ""
|
PROMPT 62 38 ""
|
||||||
MESSAGE COPY,4@
|
GROUP 4
|
||||||
PICTURE "###.###.###~~~"
|
MESSAGE ADD,5@
|
||||||
FIELD R3
|
PICTURE "###.###.###~~~"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO
|
NUMERO
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "ILOR 3110 GRUPPO 11: INTERESSI"
|
KEY "TOTALE DA VERSARE"
|
||||||
PROMPT 48 38 ""
|
PROMPT 62 44 ""
|
||||||
MESSAGE ADD,4@
|
GROUP 5
|
||||||
PICTURE "###.###.###~~~"
|
PICTURE "###.###.###~~~"
|
||||||
FIELD R7
|
END
|
||||||
END
|
|
||||||
|
|
||||||
NUMERO
|
STRINGA
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "ILOR 3110 GRUPPO 11: TOTALE"
|
KEY "CODICE CONTRIBUENTE"
|
||||||
PROMPT 62 38 ""
|
PROMPT 2 51 ""
|
||||||
PICTURE "###.###.###~~~"
|
PICTURE "# # # # # # # # # # # # # # #"
|
||||||
GROUP 4
|
FIELD 6->CODCONTR
|
||||||
MESSAGE ADD,5@
|
END
|
||||||
END
|
|
||||||
|
|
||||||
NUMERO
|
STRINGA
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "TOTALE DA VERSARE"
|
KEY "CENTRO SERVIZI: Provincia e Denominazione"
|
||||||
PROMPT 62 44 ""
|
PROMPT 42 52 ""
|
||||||
PICTURE "###.###.###~~~"
|
MESSAGE _CENSERoUFFIMP,6,13
|
||||||
GROUP 5
|
END
|
||||||
END
|
|
||||||
|
|
||||||
STRINGA
|
DATA
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "CODICE CONTRIBUENTE"
|
KEY "DATA: giorno - mese - anno"
|
||||||
PROMPT 2 51 "# # # # # # # # # # # # # # #"
|
PROMPT 12 56 ""
|
||||||
FIELD 6@->CODCONTR
|
PICTURE "@@ ~ @@~~~@@"
|
||||||
END
|
FIELD D0
|
||||||
|
END
|
||||||
|
|
||||||
STRINGA
|
END
|
||||||
BEGIN
|
|
||||||
KEY "CENTRO SERVIZI: Provincia e Denominazione"
|
|
||||||
PROMPT 42 52 ""
|
|
||||||
MESSAGE _CENSERoUFFIMP,6@,13@
|
|
||||||
END
|
|
||||||
|
|
||||||
DATA
|
END
|
||||||
BEGIN
|
|
||||||
KEY "DATA: giorno - mese - anno"
|
|
||||||
PROMPT 12 56 ""
|
|
||||||
PICTURE "@@ ~ @@~~~@@"
|
|
||||||
FIELD D0
|
|
||||||
END
|
|
||||||
|
|
||||||
END
|
|
||||||
|
|
||||||
END
|
|
||||||
|
|||||||
@ -1,6 +1,6 @@
|
|||||||
// Distinte di versamento Quadro K 7xx
|
// Distinte di versamento Quadro K 7xx
|
||||||
|
|
||||||
USE %SII
|
USE %SKX
|
||||||
|
|
||||||
JOIN 6 ALIAS 16 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
|
JOIN 6 ALIAS 16 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
|
||||||
JOIN 8 TO 6 ALIAS 18 INTO CODANAGR=CODANAGR
|
JOIN 8 TO 6 ALIAS 18 INTO CODANAGR=CODANAGR
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user