campo-sirio/ba/bolivacf.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 7 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
JOIN 13 TO 7 ALIAS 413 INTO COM=COMCOST

END
DESCRIPTION
BEGIN
  %DEL->* "DEL"
  9->* "Ditte"
  6->* "Anagrafica persone fisiche e giuridiche"
  8->* "Anagrafica persone fisiche"
  113@->* "Comuni"
  213@->* "Comuni"
  14@->* "UCC"
END

GENERAL
BEGIN
  OFFSET 0 0
  FONT "Roman 17cpi"
  SIZE 12
  CARATTERE "X"
  INIZIALE 1 1
  FINALE   223  1
END

SECTION BODY ODD 24

GRUPPO 1
BEGIN
 KEY "Prima sezione"
END

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

NUMERO 3
BEGIN
 KEY "INTERESSI"
 PROMPT 17 12 ""
 MESSAGE ADD,10@
 PICTURE "###.###.###^^^"
END

NUMERO 4
BEGIN
 KEY "TOTALE (in basso)"
 PROMPT 36 12 ""
 GROUP  10
 PICTURE "###.###.###^^^"
END

NUMERO 5
BEGIN
 KEY "TOTALE (in alto)"
 PROMPT 37 1 ""
 GROUP  10
 PICTURE "(*)###.###.###^^^"
END

NUMERO 6 
BEGIN
 KEY "TOTALE (in lettere)"
 PROMPT 8 2 ""
 GROUP  10
 PICTURE "(*,*)LETTERE@44"
END

STRINGA 7
BEGIN
 KEY "sul C/C n."
 PROMPT 12 3 ""
 FIELD 14@->S5
END

STRINGA 8
BEGIN
 KEY "Concessione di"
 PROMPT 16 4 ""
 FIELD 14@->S0
END

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

STRINGA 9
BEGIN
 KEY "Eseguito da (PG)"
 PROMPT 12 5 ""
 GROUP  2
 FIELD 6->RAGSOC[1,38]
END

STRINGA 10
BEGIN
 KEY "Eseguito da (PF PRIMA PARTE)"
 GROUP  1
 MESSAGE COPY,527
 FIELD 6->RAGSOC[1,22]
END

STRINGA 11
BEGIN
 KEY "Eseguito da (PF SECONDA PARTE)"
 GROUP  1
 MESSAGE APPEND,527
 FIELD 6->RAGSOC[31,50]
END

STRINGA 527
BEGIN
 KEY "Eseguito da (PF COMPLETO)"
 PROMPT 12 5 ""
 GROUP  1
END

STRINGA 10
BEGIN
 KEY "Codice Concessione"
 PROMPT 17 8 ""
 FIELD 14@->CODTAB
END

STRINGA 11
BEGIN
 KEY "Codice fiscale"
 PROMPT 22 8 ""
 FIELD 6->COFI
END

STRINGA 12
BEGIN
 KEY "CODICE TRIBUTO"
 PROMPT 19 10 ""
 FIELD S6
END

STRINGA 13
BEGIN
 KEY "PERIODO DI RIFERIMENTO"
 PROMPT 38 10 ""
 FIELD CODTAB[6,9]
END

DATA 17
BEGIN
 KEY "Data del versamento"
 PROMPT 11 18 ""
 FIELD D0
 FORMAT "1444-"
END

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

STRINGA 19
BEGIN
 KEY "DOMICILIO FISCALE: Provincia"
 PROMPT 46 19 ""
 FIELD 213@->PROVCOM
END

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

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

GRUPPO 14
BEGIN
 KEY "Seconda sezione"
END

NUMERO 15
BEGIN
 KEY "IMPORTO TRIBUTO"
 PROMPT 60 12 ""
 PICTURE "###.###.###^^^"
 FIELD R0
END

NUMERO 16
BEGIN
 KEY "INTERESSI"
 PROMPT 73 12 ""
 PICTURE "###.###.###^^^"
END

NUMERO 17
BEGIN
 KEY "TOTALE (in basso)"
 PROMPT 91 12 ""
 GROUP  10
 PICTURE "###.###.###^^^"
END

NUMERO 18
BEGIN
 KEY "TOTALE (in alto)"
 PROMPT 92 1 ""
 GROUP  10
 PICTURE "(*)###.###.###^^^"
END

NUMERO 19 
BEGIN
 KEY "TOTALE (in lettere)"
 GROUP  10
 PROMPT 63 2 ""
 PICTURE "(*,*)LETTERE@44"
END

STRINGA 20
BEGIN
 KEY "sul C/C n."
 PROMPT 68 3 ""
 FIELD 14@->S5
END

STRINGA 21
BEGIN
 KEY "Concessione di"
 PROMPT 72 4 ""
 FIELD 14@->S0
END

STRINGA 22
BEGIN
 KEY "Eseguito da (PG)"
 PROMPT 67 5 ""
 GROUP  2
 FIELD 6->RAGSOC[1,38]
END

STRINGA 31
BEGIN
 KEY "Eseguito da (PF PRIMA PARTE)"
 GROUP  1
 MESSAGE COPY,528
 FIELD 6->RAGSOC[1,22]
END

STRINGA 32
BEGIN
 KEY "Eseguito da (PF SECONDA PARTE)"
 GROUP  1
 MESSAGE APPEND,528
 FIELD 6->RAGSOC[31,50]
END

STRINGA 528
BEGIN
 KEY "Eseguito da (PF COMPLETO)"
 PROMPT 67 5 ""
 GROUP  1
END

STRINGA 23
BEGIN
 KEY "Codice Concessione"
 PROMPT 71 8 ""
 FIELD 14@->CODTAB
END

STRINGA 24
BEGIN
 KEY "Codice fiscale"
 PROMPT 79 8 ""
 FIELD 6->COFI
END

STRINGA 25
BEGIN
 KEY "CODICE TRIBUTO"
 PROMPT 74 10 ""
 FIELD S6
END

STRINGA 26
BEGIN
 KEY "PERIODO DI RIFERIMENTO"
 PROMPT 95 10 ""
 PICTURE "^^@@"
 FIELD CODTAB[6,9]
END

DATA 38
BEGIN
 KEY "Data del versamento"
 PROMPT 67 18 ""
 FIELD D0
 FORMAT "1444-"
END

STRINGA 39
BEGIN
 KEY "DOMICILIO FISCALE: COMUNE"
 PROMPT 64 19 ""
 FIELD 213@->DENCOM
END

STRINGA 40
BEGIN
 KEY "DOMICILIO FISCALE: Provincia"
 PROMPT 102 19 ""
 FIELD 213@->PROVCOM
END

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

STRINGA 42
BEGIN
 KEY "DOMICILIO FISCALE: NUMERO CIVICO"
 PROMPT 102 21 ""
 FIELD 6->CIVRF
 FIELD 6->CIVRES
END

GRUPPO 27
BEGIN
 KEY "Terza sezione"
END

NUMERO 28
BEGIN
 KEY "TOTALE (in lettere)"
 GROUP  10
 PROMPT 120 2 ""
 PICTURE "(*,*)LETTERE@52"
END

NUMERO 29
BEGIN
 KEY "TOTALE (in alto)"
 PROMPT 184 2 ""
 GROUP  10
 PICTURE "(*  )#  #  #   #  #  #   #  #^^^"
END

STRINGA 30
BEGIN
 KEY "sul C/C n."
 PROMPT 123 3 ""
 FIELD 14@->S5
END

STRINGA 31
BEGIN
 KEY "Concessione di"
 PROMPT 130 4 ""
 FIELD 14@->S0
END

STRINGA 53
BEGIN
 KEY "Eseguito da (PG)"
 PROMPT 130 5 ""
 GROUP  2
 FIELD 6->RAGSOC
END

STRINGA 32
BEGIN
 KEY "Eseguito da (PF Prima parte)"
 PROMPT 130 5 ""
 GROUP 1
 FIELD 6->RAGSOC[1,30]
END

STRINGA 33
BEGIN
 KEY "Eseguito da (PF Seconda parte)"
 PROMPT 183 5 ""
 GROUP 1
 FIELD 6->RAGSOC[31,50]
END

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

DATA 50
BEGIN
 KEY "DATA DI COSTITUZIONE (PG)"
 PROMPT 115 7 ""
 GROUP  2
 FLAGS "D"
 PICTURE "#  #^  #  #^ ^   #  #  #"
 FIELD 7->DATACOST
 FORMAT "1444-"
END

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

STRINGA 51
BEGIN
 KEY "COMUNE DI COSTITUZIONE"
 PROMPT 151 7 ""
 GROUP  2
 FLAGS "D"
 FIELD 413@->DENCOM
END

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

STRINGA 52
BEGIN
 KEY "PROV. DI COSTITUZIONE (sigla)"
 PROMPT 208 7 ""
 GROUP  2
 FLAGS "D"
 PICTURE "#  #"
 FIELD 413@->PROVCOM
END

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

STRINGA 39
BEGIN
 KEY "DOMICILIO FISCALE: COMUNE"
 PROMPT 121 9 ""
 FIELD 213@->DENCOM
END

STRINGA 40
BEGIN
 KEY "DOMICILIO FISCALE: VIA"
 PROMPT 153 9 ""
 FIELD 6->INDRF
 FIELD 6->INDRES
END

STRINGA 41
BEGIN
 KEY "DOMICILIO FISCALE: NUMERO CIVICO"
 PROMPT 216 9 ""
 FIELD 6->CIVRF
 FIELD 6->CIVRES
END

STRINGA 42
BEGIN
 KEY "CODICE TRIBUTO"
 PROMPT 115 12 ""
 PICTURE "#  #   #  #"
 FIELD S6
END

STRINGA 43
BEGIN
 KEY "PERIODO DI RIFERIMENTO"
 PROMPT 143 12 ""
 PICTURE "^^#  @"
 FIELD CODTAB[6,9]
END

STRINGA 44
BEGIN
 KEY "Codice Concessione"
 PROMPT 157 12 ""
 PICTURE "@  @  @"
 FIELD 14@->CODTAB
END

STRINGA 45
BEGIN
 KEY "Codice fiscale"
 PROMPT 167 12 ""
 GROUP  1
 PICTURE "#  #  #   #  #   #  #   #  #   #  #  #   #  #   #  #"
 FIELD 6->COFI
END

STRINGA 62
BEGIN
 KEY "Codice fiscale (Persone GIURIDICHE)"
 PROMPT 167 12 ""
 GROUP  2
 FLAGS "D"
 PICTURE "#  #  #   #  #  #   #  #  #   #  #"
 FIELD 6->COFI
END

STRINGA 46
BEGIN
 KEY "Partita IVA"
 PROMPT 184 14 ""
 PICTURE "#  #   #  #   #  #  #  #   #  #   #"
 FIELD 6->PAIV
END

NUMERO 47
BEGIN
 KEY "IMPORTO TRIBUTO"
 PROMPT 184 16 ""
 PICTURE "#  #  #   #  #   #  #   #^^^"
 FIELD R0
END

NUMERO 48
BEGIN
 KEY "INTERESSI"
 PROMPT 184 18 ""
 PICTURE "#  #  #   #  #   #  #   #^^^"
END

END

END