campo-sirio/ba/dissd6.frm

USE %SD6
JOIN %UCC ALIAS 14 INTO CODTAB=S9
JOIN 6 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
JOIN 8 TO 6 INTO CODANAGR=CODANAGR
JOIN 13 TO 6 INTO COM=COMRF(COMRES)

END            

SECTION BODY 0 66 0 0

STRINGA
BEGIN
 KEY "CONCESSIONE DI"
 PROMPT 28 4 ""
 FIELD 14@->S0
END

STRINGA
BEGIN
 KEY "DENOMINAZIONE"
 PROMPT 2 10 ""
 FIELD 6->RAGSOC
END

STRINGA
BEGIN
 KEY "CODICE FISCALE"
 PROMPT 55 10 ""
 FIELD 6->COFI
END

STRINGA
BEGIN
 KEY "DOMICILIO FISCALE: COMUNE"
 PROMPT 16 12 ""
 FIELD 13->DENCOM
END

STRINGA
BEGIN
 KEY "DOMICILIO FISCALE: PROV. (sigla)"
 PROMPT 36 12 ""
 FIELD 13->PROVCOM
END

STRINGA
BEGIN
 KEY "DOMICILIO FISCALE: VIA"
 PROMPT 41 12 ""
 FIELD 6->INDRF
 FIELD 6->INDRES
END

STRINGA
BEGIN
 KEY "DOMICILIO FISCALE: NUMERO CIVICO"
 PROMPT 70 12 ""
 FIELD 6->CIVRF
 FIELD 6->CIVRES
END

GRUPPO
BEGIN
 KEY "DISTINTA VERSAMENTO IRPEG"
 PROMPT 0 0 ""
END

NUMERO
BEGIN
 KEY "IRPEG 2100 GRUPPO 4: DA ANNO"
 PROMPT 20 18 ""
 FIELD I0
END

NUMERO
BEGIN
 KEY "IRPEG 2100 GRUPPO 4: AD ANNO"
 PROMPT 27 18 ""
 FIELD I1
END

NUMERO
BEGIN
 KEY "IRPEG 2100 GRUPPO 4: IMPOSTA"
 PROMPT 32 18 ""
 MESSAGE COPY,1@
 PICTURE "###.###.###~~~"
 FIELD R0
END

NUMERO
BEGIN
 KEY "IRPEG 2100 GRUPPO 4: INTERESSI"
 PROMPT 48 18 ""
 MESSAGE ADD,1@
 PICTURE "###.###.###~~~"
 FIELD R4
END

NUMERO
BEGIN
 KEY "IRPEG 2100 GRUPPO 4: TOTALE"
 PROMPT 62 18 ""
 GROUP  1
 MESSAGE COPY,5@
 PICTURE "###.###.###~~~"
END

NUMERO
BEGIN
 KEY "IRPEG 2110 GRUPPO 10: DA ANNO"
 PROMPT 20 23 ""
 FIELD I2
END

NUMERO
BEGIN
 KEY "IRPEG 2110 GRUPPO 10: AD ANNO"
 PROMPT 27 23 ""
 FIELD I3
END

NUMERO
BEGIN
 KEY "IRPEG 2110 GRUPPO 10: IMPOSTA"
 PROMPT 32 23 ""
 MESSAGE COPY,2@
 PICTURE "###.###.###~~~"
 FIELD R1
END

NUMERO
BEGIN
 KEY "IRPEG 2110 GRUPPO 10: INTERESSI"
 PROMPT 48 23 ""
 MESSAGE ADD,2@
 PICTURE "###.###.###~~~"
 FIELD R5
END

NUMERO
BEGIN
 KEY "IRPEG 2110 GRUPPO 10: TOTALE"
 PROMPT 62 23 ""
 GROUP  2
 MESSAGE ADD,5@
 PICTURE "###.###.###~~~"
END

GRUPPO
BEGIN
 KEY "DISTINTA VERSAMENTO ILOR"
 PROMPT 0 0 ""
END

NUMERO
BEGIN
 KEY "ILOR 3000 GRUPPO 06: DA ANNO"
 PROMPT 20 33 ""
 FIELD I4
END

NUMERO
BEGIN
 KEY "ILOR 3000 GRUPPO 06: AD ANNO"
 PROMPT 27 33 ""
 FIELD I5
END

NUMERO
BEGIN
 KEY "ILOR 3000 GRUPPO 06: IMPOSTA"
 PROMPT 32 33 ""
 MESSAGE COPY,3@
 PICTURE "###.###.###~~~"
 FIELD R2
END

NUMERO
BEGIN
 KEY "ILOR 3000 GRUPPO 06: INTERESSI"
 PROMPT 48 33 ""
 MESSAGE ADD,3@
 PICTURE "###.###.###~~~"
 FIELD R6
END

NUMERO
BEGIN
 KEY "ILOR 3000 GRUPPO 06: TOTALE"
 PROMPT 62 33 ""
 GROUP  3
 MESSAGE ADD,5@
 PICTURE "###.###.###~~~"
END

NUMERO
BEGIN
 KEY "ILOR 3110 GRUPPO 11: DA ANNO"
 PROMPT 20 38 ""
 FIELD I6
END

NUMERO
BEGIN
 KEY "ILOR 3110 GRUPPO 11: AD ANNO"
 PROMPT 27 38 ""
 FIELD I7
END

NUMERO
BEGIN
 KEY "ILOR 3110 GRUPPO 11: IMPOSTA"
 PROMPT 32 38 ""
 MESSAGE COPY,4@
 PICTURE "###.###.###~~~"
 FIELD R3
END

NUMERO
BEGIN
 KEY "ILOR 3110 GRUPPO 11: INTERESSI"
 PROMPT 48 38 ""
 MESSAGE ADD,4@
 PICTURE "###.###.###~~~"
 FIELD R7
END

NUMERO
BEGIN
 KEY "ILOR 3110 GRUPPO 11: TOTALE"
 PROMPT 62 38 ""
 GROUP  4
 MESSAGE ADD,5@
 PICTURE "###.###.###~~~"
END

NUMERO
BEGIN
 KEY "TOTALE DA VERSARE"
 PROMPT 62 44 ""
 GROUP  5
 PICTURE "###.###.###~~~"
END

STRINGA
BEGIN
 KEY "CODICE CONTRIBUENTE"
 PROMPT 2 51 ""
 PICTURE "# # # # # # # # # # # # # # #"
 FIELD 6->CODCONTR
END

STRINGA
BEGIN
 KEY "CENTRO SERVIZI: Provincia e Denominazione"
 PROMPT 42 52 ""
 MESSAGE _CENSERoUFFIMP,6,13
END

DATA
BEGIN
 KEY "DATA: giorno - mese - anno"
 PROMPT 12 56 ""
 PICTURE "@@ ~ @@~~~@@"
 FIELD D0
END

END

END