campo-sirio/ba/disgen.frm

USE %GEN
JOIN 6 ALIAS 16 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
JOIN 8 TO 16@ ALIAS 18 INTO CODANAGR=CODANAGR
JOIN 7 TO 16@ ALIAS 17 INTO CODANAGR=CODANAGR
JOIN 13 TO 18@ ALIAS 113 INTO COM==COMNASC
JOIN 13 TO 16@ ALIAS 213 INTO COM==COMRF(COMRES)
JOIN 13 TO 17@ ALIAS 413 INTO COM==COMCOST
JOIN 6 ALIAS 26 INTO TIPOA=S1[1,1] CODANAGR=S1[2,6]
JOIN 8 TO 16@ ALIAS 28 INTO CODANAGR=CODANAGR
JOIN 13 TO 18@ ALIAS 313 INTO COM==COMNASC
JOIN %UCC ALIAS 14 INTO CODTAB=S9

END
DESCRIPTION
BEGIN
  %GEN->* "GEN"
  16@->* "Anagrafica persone fisiche e giuridiche"
  18@->* "Anagrafica persone fisiche"
  113@->* "Comuni"
  213@->* "Comuni"
  26@->* "Anagrafica persone fisiche e giuridiche"
  28@->* "Anagrafica persone fisiche"
  313@->* "Comuni"
  14@->* "UCC"
END

GENERAL
BEGIN
  OFFSET 0 0
  FONT "Roman 17cpi"
  SIZE 12
  CARTATTERE "X"
  INIZIALE 6 5
  FINALE 131 5
END

SECTION BODY ODD 72

STRINGA 1
BEGIN
 KEY "CONCESSIONE DI"
 PROMPT 71 3 ""
 FIELD 14@->S0
END

GRUPPO 2
BEGIN
 KEY "DATI DICHIARANTE (ALIAS 16 e 18)"
END

LISTA 
BEGIN
 KEY "Tipo anagrafica"
 FIELD 16@->TIPOA
 ITEM "F| " MESSAGE ENABLE,3@|DISABLE,4@
 ITEM "G| " MESSAGE ENABLE,4@|DISABLE,3@
END

STRINGA 3
BEGIN
 KEY "RAGIONE SOCIALE PERSONA GIURIDICA"
 PROMPT 12 9 ""
 GROUP 4
 FIELD 16@->RAGSOC[1,58]
END

STRINGA 3
BEGIN
 KEY "COGNOME"
 PROMPT 12 9 ""
 GROUP 3
 FIELD 16@->RAGSOC[1,30]
END

STRINGA 4
BEGIN
 KEY "NOME"
 PROMPT 64 9 ""
 GROUP 3
 FIELD 16@->RAGSOC[31,0]
END

DATA 5
BEGIN
 KEY "DATA DI NASCITA"
 PROMPT 97 9 ""
 GROUP 3
 PICTURE "# #^ # #^^ # # #"
 FIELD 18@->DATANASC
 FORMAT "1444-"
END

DATA 
BEGIN
 KEY "DATA DI COSTITUZIONE"
 PROMPT 97 9 ""
 GROUP 4
 PICTURE "# #^ # #^^ # # #"
 FIELD 17@->DATACOST
 FORMAT "1444-"
END

STRINGA 6
BEGIN
 KEY "SESSO (M o F)"
 PROMPT 122 9 ""
 GROUP 3
 FIELD 18@->SESSO
END

STRINGA 7
BEGIN
 KEY "STATO CIVILE"
 PROMPT 131 9 ""
 GROUP 3
 FIELD 18@->STATCIV
END

STRINGA 8
BEGIN
 KEY "COMUNE (o Stato estero) DI NASCITA"
 PROMPT 12 11 ""
 GROUP 3
 FIELD 113@->DENCOM
END

STRINGA 
BEGIN
 KEY "COMUNE (o Stato estero) DI COSTITUZIONE"
 PROMPT 12 11 ""
 GROUP 4
 FIELD 413@->DENCOM
END

STRINGA 9
BEGIN
 KEY "PROV. DI NASCITA (sigla)"
 PROMPT 72 11 ""
 GROUP 3
 FIELD 113@->PROVCOM
END

STRINGA 
BEGIN
 KEY "PROV. DI COSTITUZIONE (sigla)"
 PROMPT 72 11 ""
 GROUP 4
 FIELD 413@->PROVCOM
END

STRINGA 10
BEGIN
 KEY "CODICE FISCALE"
 PROMPT 81 11 ""
 PICTURE "# # # # # # # # # # # # # # # #"
 FIELD 16@->COFI
END

STRINGA 11
BEGIN
 KEY "RESIDENTE IN: COMUNE"
 PROMPT 28 13 ""
 FIELD 213@->DENCOM
END

STRINGA 12
BEGIN
 KEY "RESIDENTE IN: PROV. (sigla)"
 PROMPT 72 13 ""
 FIELD 213@->PROVCOM
END

STRINGA 13
BEGIN
 KEY "RESIDENTE IN: VIA"
 PROMPT 81 13 ""
 FIELD 16@->INDRF
 FIELD 16@->INDRES
END

STRINGA 14
BEGIN
 KEY "RESIDENTE IN: NUMERO CIVICO"
 PROMPT 127 13 ""
 FIELD 16@->CIVRF
 FIELD 16@->CIVRES
END

GRUPPO 15
BEGIN
 KEY "DATI CONIUGE (ALIAS 26 e 28)"
END

STRINGA 16
BEGIN
 KEY "COGNOME"
 PROMPT 12 16 ""
 GROUP 3
 FIELD 26@->RAGSOC[1,30]
END

STRINGA 17
BEGIN
 KEY "NOME"
 PROMPT 64 16 ""
 GROUP 3
 FIELD 26@->RAGSOC[31,0]
END

DATA 18
BEGIN
 KEY "DATA DI NASCITA"
 PROMPT 105 16 ""
 GROUP 3
 PICTURE "# #^ # #^^ # # #"
 FIELD 28@->DATANASC
 FORMAT "1444-"
END

STRINGA 19
BEGIN
 KEY "SESSO (M o F)"
 PROMPT 131 16 ""
 GROUP 3
 FIELD 28@->SESSO
END

STRINGA 21
BEGIN
 KEY "COMUNE (o Stato estero) DI NASCITA"
 PROMPT 12 18 ""
 GROUP 3
 FIELD 313@->DENCOM
END

STRINGA 22
BEGIN
 KEY "PROV. DI NASCITA (sigla)"
 PROMPT 72 18 ""
 GROUP 3
 FIELD 313@->PROVCOM
END

STRINGA 23
BEGIN
 KEY "CODICE FISCALE"
 PROMPT 81 18 ""
 GROUP 3
 PICTURE "# # # # # # # # # # # # # # # #"
 FIELD 26@->COFI
END

NUMERO 24
BEGIN
 KEY "PERIODO DI RIFERIMENTO 1"
 PROMPT 77 24 ""
 PICTURE "# #"
 FIELD I0
END

NUMERO 25
BEGIN
 KEY "PERIODO DI RIFERIMENTO 2"
 PROMPT 94 24 ""
 PICTURE "# #"
 FIELD I1
END

STRINGA 26
BEGIN
 KEY "CODICE TRIBUTO"
 PROMPT 9 28 ""
 FIELD S2
END

NUMERO 27
BEGIN
 KEY "GRUPPO"
 PROMPT 32 28 ""
 FIELD I2
END

NUMERO 28
BEGIN
 KEY "IMPORTO TRIBUTO"
 PROMPT 57 28 ""
 MESSAGE COPY,1@
 PICTURE "###.###.###.###^^^"
 FIELD R0
END

NUMERO 29
BEGIN
 KEY "INTERESSI"
 PROMPT 86 28 ""
 MESSAGE ADD,1@
 PICTURE "###.###.###.###^^^"
 FIELD R1
END

NUMERO 30
BEGIN
 KEY "TOTALE (a)"
 PROMPT 115 28 ""
 GROUP  1
 MESSAGE COPY,2@
 PICTURE "###.###.###.###^^^"
END

STRINGA 31
BEGIN
 KEY "CODICE TRIBUTO SOPRATASSA"
 PROMPT 9 34 ""
 FIELD S3
END

NUMERO 32
BEGIN
 KEY "GRUPPO SOPRATASSA"
 PROMPT 21 34 ""
 FIELD I3
END

NUMERO 33
BEGIN
 KEY "IMPORTO (b)"
 PROMPT 41 34 ""
 MESSAGE ADD,2@
 PICTURE "###.###.###.###^^^"
 FIELD R2
END

NUMERO 34
BEGIN
 KEY "TOTALE DA VERSARE (a+b)"
 PROMPT 115 38 ""
 GROUP  2
 PICTURE "###.###.###.###^^^"
END

STRINGA 35
BEGIN
 KEY "COD. CONTR. Dichiarante (Esattoria Prov.)"
 PROMPT 6 52 ""
 FIELD 16@->CODCONTR[1,2]
END

STRINGA 39
BEGIN
 KEY "COD. CONTR. Dichiarante (Esattoria Com.)"
 PROMPT 14 52 ""
 FIELD 16@->CODCONTR[3,5]
END

STRINGA 40
BEGIN
 KEY "COD. CONTR. Dichiarante"
 PROMPT 30 52 ""
 FIELD 16@->CODCONTR[6,13]
END

STRINGA 41
BEGIN
 KEY "COD. CONTR. Dichiarante (C.c.)"
 PROMPT 50 52 ""
 FIELD 16@->CODCONTR[14,15]
END

STRINGA 36
BEGIN
 KEY "COD. CONTR. Coniuge (Esattoria Prov.)"
 PROMPT 6 55 ""
 GROUP 3
 FIELD 26@->CODCONTR[1,2]
END

STRINGA 42
BEGIN
 KEY "COD. CONTR. Coniuge (Esattoria Com.)"
 PROMPT 14 55 ""
 GROUP 3
 FIELD 26@->CODCONTR[3,5]
END

STRINGA 43
BEGIN
 KEY "COD. CONTR. Coniuge"
 PROMPT 30 55 ""
 GROUP 3
 FIELD 26@->CODCONTR[6,13]
END

STRINGA 44
BEGIN
 KEY "COD. CONTR. Coniuge (C.c.)"
 PROMPT 50 55 ""
 GROUP 3
 FIELD 26@->CODCONTR[14,15]
END

STRINGA 37
BEGIN
 KEY "CAMPO PER MESSAGGIO"
 MESSAGE _CENSERoUFFIMP,213@,16@,501,502
END

STRINGA 501
BEGIN
 KEY "CENTRO SERVIZI: Provincia e Denominazione"
 PROMPT 75 56 ""
END

STRINGA 502
BEGIN
 KEY "CENTRO SERVIZI: Codice"
 PROMPT 122 56 ""
 PICTURE "#  #  #"
END

DATA 38
BEGIN
 KEY "DATA: giorno - mese - anno"
 PROMPT 22 61 ""
 PICTURE "@ @^   @ @^ ^^@ @"
 FIELD D0
 FORMAT "1444-"
END

END

END