campo-sirio/ba/del.frm

USE %DEL
JOIN %BAN ALIAS 1 INTO CODTAB=S7+S8
JOIN 13 TO 1@ ALIAS 11 INTO COM=S5
JOIN 9 INTO CODDITTA=CODTAB[1,5]
JOIN 6 TO 9 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 6 INTO CODANAGR=CODANAGR
JOIN 7 TO 6 INTO CODANAGR=CODANAGR
JOIN 13 TO 6 ALIAS 12 INTO COM=COMRF
JOIN 13 TO 8 ALIAS 13 INTO COM=COMNASC
END

SECTION BODY 0 66
STRINGA
BEGIN
KEY "Sede Azienda"
PROMPT 34 10 ""
FIELD 1@->S0
END

STRINGA
BEGIN
KEY "Sede Filiale"
PROMPT 34 12 ""
FIELD 1@->S1
END

STRINGA
BEGIN
KEY "Provicia Banca"
PROMPT 73 12 ""
FIELD 11@->PROVCOM
END

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

GRUPPO
BEGIN
KEY "Persone fisiche"
PROMPT 0 0 ""
GROUP  1
END

LISTA
BEGIN
KEY "Sesso"
PROMPT 19 20 "X  X"
GROUP  1
FIELD 8->SESSO
ITEM "M| " MESSAGE SHOW,3|HIDE,4
ITEM "F| " MESSAGE SHOW,4|HIDE,3
END

GRUPPO
BEGIN
KEY "Sesso maschile"
PROMPT 0 0 ""
GROUP  3
END

STRINGA
BEGIN
KEY "Il sottoscritto"
PROMPT 2 14 "I              o"
GROUP  1 3
END

GRUPPO
BEGIN
KEY "Sesso Femminile"
PROMPT 0 0 ""
GROUP  4
END

STRINGA
BEGIN
KEY "La sottoscritta"
PROMPT 2 14 "  a            a"
GROUP  1 4
END

STRINGA
BEGIN
KEY "Cognome"
PROMPT 5 17 ""
GROUP  1
FIELD 6->RAGSOC[1,30]
END

STRINGA
BEGIN
KEY "Nome"
PROMPT 35 17 ""
GROUP  1
FIELD 6->RAGSOC[31,-1]
END

NUMERO
BEGIN
KEY "Giorno di nascita"
PROMPT 1 20 ""
GROUP  1
PICTURE "@ @"
FIELD 8->DATANASC[1,2]
END

NUMERO
BEGIN
KEY "Mese di nascita"
PROMPT 5 20 ""
GROUP  1
PICTURE "@ @"
FIELD 8->DATANASC[4,5]
END

NUMERO
BEGIN
KEY "Anno di nascita"
PROMPT 9 20 ""
GROUP  1
PICTURE "@ @"
FIELD 8->DATANASC[9,10]
END

STRINGA
BEGIN
KEY "Comune di nascita"
PROMPT 30 20 ""
GROUP  1
FIELD 13@->DENCOM
END

STRINGA
BEGIN
KEY "Provincia di nascita"
PROMPT 78 20 ""
GROUP  1
FIELD 13@->PROVCOM
END

GRUPPO
BEGIN
KEY "Persone giuridiche"
PROMPT 0 0 ""
GROUP  2
END

STRINGA
BEGIN
KEY "Ragione Sociale"
PROMPT 3 24 ""
GROUP  2
FIELD 6->RAGSOC
END

STRINGA
BEGIN
KEY "Natura Giuridica"
PROMPT 77 24 ""
GROUP  2
FIELD 7->NATGIU
END

STRINGA
BEGIN
KEY "Via Indirizzo Fiscale"
FLAGS "H"
MESSAGE COPY,527
FIELD 6->INDRF
END

STRINGA
BEGIN
KEY "Numero Civico Indirizzo Fiscale"
FLAGS "H"
MESSAGE APPEND,527
FIELD 6->INDRF
END

STRINGA 527 35
BEGIN
KEY "Indirizzo Fiscale"
PROMPT 5 27 ""
END

STRINGA
BEGIN
KEY "CAP fiscale"
PROMPT 45 27 ""
FIELD 6->CAPRF
END

STRINGA
BEGIN
KEY "Comune di residenza fiscale"
PROMPT 56 27 ""
FIELD 12@->DENCOM
END

STRINGA
BEGIN
KEY "Provincia di residenza fiscale"
PROMPT 75 27 ""
FIELD 12@->PROVCOM
END

STRINGA
BEGIN
KEY "Partita IVA"
PROMPT 12 30 ""
PICTURE "# # # # # # # ^ ^ ^ #"
FIELD 6->PAIV
END

STRINGA
BEGIN
KEY "Codice fiscale"
PROMPT 42 30 ""
PICTURE "# # # # # # # # # # # # # # # #"
FIELD 6->COFI
END

NUMERO
BEGIN
KEY "Anno di versamento"
PROMPT 40 35 ""
PICTURE "^ ^ @ @"
FIELD CODTAB[6,9]
END

LISTA
BEGIN
KEY "Periodo di versamento"
PROMPT 50 35 ""
FIELD CODTAB[10,11]
ITEM "01|Gennaio"
ITEM "02|Febbraio"
ITEM "03|Marzo"
ITEM "04|Aprile"
ITEM "05|Maggio"
ITEM "06|Giugno"
ITEM "07|Luglio"
ITEM "08|Agosto"
ITEM "09|Settembre"
ITEM "10|Ottobre"
ITEM "11|Novembre"
ITEM "12|Dicembre"
ITEM "13|Annuale"
END

LISTA
BEGIN
KEY "X sul mese"
PROMPT 40 40 ""
GROUP  6
FIELD CODTAB[10,11]
ITEM "01|X"
ITEM "02|  X"
ITEM "03|    X"
ITEM "04|      X"
ITEM "05|        X"
ITEM "06|          X"
ITEM "07|            X"
ITEM "08|              X"
ITEM "09|                X"
ITEM "10|                  X"
ITEM "11|                    X"
ITEM "12|                      X"
ITEM "13|                        X"
END

LISTA
BEGIN
KEY "X sul trimestre"
PROMPT 4 33 ""
GROUP  6
FIELD CODTAB[10,11]
ITEM "01|X" 
ITEM "02|X"
ITEM "03|X" 
ITEM "04|  X"
ITEM "05|  X" 
ITEM "06|  X" 
ITEM "07|    X"
ITEM "08|    X" 
ITEM "09|    X" 
ITEM "10|      X"
ITEM "11|      X"
ITEM "12|      X"
ITEM "13|        X"
END

NUMERO
BEGIN
KEY "Importo in cifre"
PROMPT 20 52 ""
PICTURE "###.###.###^^^"
FIELD R0
END

NUMERO
BEGIN
KEY "Importo in lettere"
PROMPT 40 52 ""
PICTURE "LETTERE"
FIELD R0
END

NUMERO
BEGIN
KEY "Giorno del versamento"
PROMPT 30 60 ""
PICTURE "# #"
FIELD D0
END

NUMERO
BEGIN
KEY "Mese del versamento"
PROMPT 34 60 ""
PICTURE "# #"
FIELD D0
END

NUMERO
BEGIN
KEY "Anno del versamento"
PROMPT 38 60 ""
PICTURE "# #"
FIELD D0
END

STRINGA
BEGIN
KEY "Codice Azienda"
PROMPT 60 62 ""
PICTURE "@ @ @ @"
FIELD S8
END

STRINGA
BEGIN
KEY "Codice Filiale"
PROMPT 70 62 ""
PICTURE "^ ^ @ @"
FIELD S8
END

END

END