campo-sirio/ba/disirg.frm

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 73

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

STRINGA 2
BEGIN
 KEY "DENOMINAZIONE"
 PROMPT 6 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 45 19 ""
 PICTURE "#  #"
 FIELD I1
END

NUMERO 11
BEGIN
 KEY "IRPEG 2100 GRUPPO 4: IMPOSTA"
 PROMPT 63 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 45 23 ""
 PICTURE "#  #"
 FIELD I3
END

NUMERO 16
BEGIN
 KEY "IRPEG 2110 GRUPPO 10: IMPOSTA"
 PROMPT 63 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 45 34 ""
 PICTURE "#  #"
 FIELD I5
END

NUMERO 22
BEGIN
 KEY "ILOR 3000 GRUPPO 06: IMPOSTA"
 PROMPT 63 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 45 38 ""
 PICTURE "#  #"
 FIELD I7
END

NUMERO 27
BEGIN
 KEY "ILOR 3110 GRUPPO 11: IMPOSTA"
 PROMPT 63 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 (Esattoria Prov.)"
 PROMPT 4 51 ""
 FIELD 6->CODCONTR[1,2]
END

STRINGA 34
BEGIN
 KEY "CODICE CONTRIBUENTE (Esattoria Com.)"
 PROMPT 14 51 ""
 FIELD 6->CODCONTR[3,5]
END

STRINGA 35
BEGIN
 KEY "CODICE CONTRIBUENTE"
 PROMPT 30 51 ""
 FIELD 6->CODCONTR[6,13]
END

STRINGA 36
BEGIN
 KEY "CODICE CONTRIBUENTE (C.c.)"
 PROMPT 47 51 ""
 FIELD 6->CODCONTR[14,15]
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 22 57 ""
 PICTURE "@@ ^ @@^^^@@"
 FIELD D0
 FORMAT "1444-"
END

END

END