campo-sirio/ba/boltitcf.frm

USE %DEL
JOIN 9 INTO CODDITTA=CODTAB[1,5]
JOIN 6 TO 9 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 9 INTO CODANAGR=CODANAGR
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
JOIN %UCC TO 213@ ALIAS 14 INTO CODTAB=UFFCONC

END

SECTION BODY ODD 24 0 0

GROUP
BEGIN
  KEY "Prima sezione"
END  

NUMERO
BEGIN
  KEY "IMPORTO TRIBUTO"
  PROMPT 2 13 ""
  MESSAGE COPY,10@
  PICTURE "###.###.###^^^"
  FIELD R0
END

NUMERO
BEGIN
  KEY "INTERESSI"
  PROMPT 12 13 ""
  MESSAGE ADD,10@
  PICTURE "###.###.###^^^"
  FIELD R1
END

NUMERO
BEGIN
  KEY "TOTALE (in basso)"
  PROMPT 19 13 ""
  GROUP  10
  PICTURE "###.###.###^^^"
END

NUMERO
BEGIN
  KEY "TOTALE (in alto)"
  PROMPT 19 2 ""
  GROUP  10
  PICTURE "###.###.###^^^"
END

NUMERO
BEGIN
  KEY "TOTALE (in lettere)"
  PROMPT 2 3 ""
  GROUP  10
  PICTURE "LETTERE"
END

STRINGA
BEGIN
  KEY "sul C/C n."
  PROMPT 6 4 ""
  FIELD 14@->S5
END

STRINGA
BEGIN
  KEY "Concessione di"
  PROMPT 10 5 ""
  FIELD 14@->S0
END

STRINGA 
BEGIN
  KEY "Eseguito da"
  PROMPT 7 6 ""
  FIELD 6->RAGSOC[1,22]
END

NUMERO
BEGIN
  KEY "Codice Concessione"
  PROMPT 8 9 ""
  FIELD 14@->CODTAB
END

STRINGA
BEGIN
  KEY "Codice fiscale"
  PROMPT 12 9 ""
  FIELD 6->COFI
END

STRING
BEGIN
  KEY "CODICE TRIBUTO"
  PROMPT 9 11 ""
  FIELD S6
END

STRING
BEGIN
  KEY "PERIODO DI RIFERIMENTO"
  PROMPT 20 11 ""
  FIELD CODTAB[6,9]
END

GROUP
BEGIN
  KEY "Seconda sezione"
END  

NUMERO
BEGIN
 KEY "IMPORTO TRIBUTO"
 PROMPT 2 47 ""
 PICTURE "###.###.###^^^"
 FIELD R0
END

NUMERO
BEGIN
 KEY "INTERESSI"
 PROMPT 12 47 ""
 PICTURE "###.###.###^^^"
 FIELD R1
END

NUMERO
BEGIN
 KEY "TOTALE (in basso)"
 PROMPT 19 47 ""
 GROUP  10
 PICTURE "###.###.###^^^"
END

NUMERO
BEGIN
 KEY "TOTALE (in alto)"
 PROMPT 19 45 ""
 GROUP  10
 PICTURE "###.###.###^^^"
END

NUMERO
BEGIN
 KEY "TOTALE (in lettere)"
 PROMPT 2 45 ""
 GROUP  10
 PICTURE "LETTERE"
END

STRINGA
BEGIN
  KEY "sul C/C n."
  PROMPT 6 38 ""
  FIELD 14@->S5
END

STRINGA
BEGIN
  KEY "Concessione di"
  PROMPT 10 39 ""
  FIELD 14@->S0
END

STRINGA 
BEGIN
 KEY "Eseguito da"
 PROMPT 7 40 ""
 FIELD 6->RAGSOC[1,22]
END

NUMERO
BEGIN
  KEY "Codice Concessione"
  PROMPT 8 43 ""
  FIELD 14@->CODTAB
END

STRINGA
BEGIN
 KEY "Codice fiscale"
 PROMPT 12 43 ""
 FIELD 6->COFI
END

STRING
BEGIN
  KEY "CODICE TRIBUTO"
  PROMPT 9 45 ""
  FIELD S6
END

STRING
BEGIN
  KEY "PERIODO DI RIFERIMENTO"
  PROMPT 20 56 ""
  FIELD CODTAB[6,9]
END

GROUP
BEGIN
  KEY "Terza sezione"
END  

NUMERO
BEGIN
 KEY "TOTALE (in lettere)"
 PROMPT 70 3 ""
 GROUP  10
 PICTURE "LETTERE"
END

NUMERO
BEGIN
 KEY "TOTALE (in alto)"
 PROMPT 110 3 ""
 GROUP  10
 PICTURE "###.###.###^^^"
END

STRINGA
BEGIN
  KEY "sul C/C n."
  PROMPT 70 4 ""
  FIELD 14@->S5
END

STRINGA
BEGIN
  KEY "Concessione di"
  PROMPT 74 5 ""
  FIELD 14@->S0
END

STRINGA 
BEGIN
 KEY "Eseguito da (1)"
 PROMPT 72 6 ""
 FIELD 6->RAGSOC[1,30]
END

STRINGA 
BEGIN
 KEY "Eseguito da (2)"
 PROMPT 102 6 ""
 FIELD 6->RAGSOC[31,50]
END

LISTA
BEGIN
 KEY "Tipo anagrafica"
 FIELD 6->TIPOA
 ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
 ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
END

DATA
BEGIN
 KEY "DATA DI NASCITA"
 PROMPT 68 7 ""
 GROUP  1
 FLAGS "D"
 PICTURE "# # ^ # # ^ ^ # # #"
 FIELD 8->DATANASC
END

STRINGA
BEGIN
 KEY "COMUNE (o Stato estero) DI NASCITA"
 PROMPT 84 7 ""
 GROUP  1
 FLAGS "D"
 FIELD 113@->DENCOM
END

STRINGA
BEGIN
 KEY "PROV. DI NASCITA (sigla)"
 PROMPT 123 7 ""
 GROUP  1
 FLAGS "D"
 FIELD 113@->PROVCOM
END

STRINGA
BEGIN
 KEY "SESSO (M o F)"
 PROMPT 127 7 ""
 GROUP  1
 FLAGS "D"
 FIELD 8->SESSO
END

STRINGA
BEGIN
 KEY "DOMICILIO FISCALE: COMUNE"
 PROMPT 65 8 ""
 FIELD 213@->DENCOM
END

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

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

STRING
BEGIN
  KEY "CODICE TRIBUTO"
  PROMPT 68 13 ""
  PICTURE "# # # #"
  FIELD S6
END

STRING
BEGIN
  KEY "PERIODO DI RIFERIMENTO"
  PROMPT 80 13 ""
  FIELD CODTAB[6,9]
END

NUMERO
BEGIN
  KEY "Codice Concessione"
  PROMPT 92 13 ""
  PICTURE "# # #"
  FIELD 14@->CODTAB
END

STRINGA
BEGIN
 KEY "Codice fiscale"
 PROMPT 100 13 "" 
 PICTURE "# # # # # # # # # # # # # # # #"
 FIELD 6->COFI
END

STRINGA
BEGIN
 KEY "Partita IVA"
 PROMPT 109 15 "" 
 PICTURE "# # # # # # # # # # #"
 FIELD 6->PAIV
END

NUMERO
BEGIN
 KEY "IMPORTO TRIBUTO"
 PROMPT 109 17 ""
 PICTURE "# # # # # # # #^^^"
 FIELD R0
END

NUMERO
BEGIN
 KEY "INTERESSI"
 PROMPT 109 19 ""
 PICTURE "# # # # # # # #^^^"
 FIELD R1
END

END