campo-sirio/cg/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 "Provincia 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