From d94bcb955d86475b33ebcb961738d9a2e380a7c1 Mon Sep 17 00:00:00 2001 From: angelo Date: Mon, 24 Jul 1995 15:19:04 +0000 Subject: [PATCH] Rinominati i forms DEL e DELTITCF in DELIVA e DELIVACF. git-svn-id: svn://10.65.10.50/trunk@1638 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- cg/deliva.frm | 356 ++++++++++++++++++++++++++++++++++++++++++++++++ cg/delivacf.frm | 190 ++++++++++++++++++++++++++ 2 files changed, 546 insertions(+) create mode 100755 cg/deliva.frm create mode 100755 cg/delivacf.frm diff --git a/cg/deliva.frm b/cg/deliva.frm new file mode 100755 index 000000000..b6f11f97d --- /dev/null +++ b/cg/deliva.frm @@ -0,0 +1,356 @@ +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 diff --git a/cg/delivacf.frm b/cg/delivacf.frm new file mode 100755 index 000000000..b2887152f --- /dev/null +++ b/cg/delivacf.frm @@ -0,0 +1,190 @@ +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 + +SECTION BODY 0 66 0 0 +STRINGA +BEGIN + KEY "CONCESSIONE DI" + PROMPT 36 5 "" + FIELD 14@->S0 +END + +STRINGA +BEGIN + KEY "COD. CONCESS." + PROMPT 9 11 "" + FIELD 14@->CODTAB +END + +STRINGA +BEGIN + KEY "CODICE FISCALE" + PROMPT 15 11 "" + FIELD 6->COFI +END + +STRINGA +BEGIN + KEY "COGNOME, DENOMINAZIONE O RAGIONE SOCIALE" + PROMPT 2 15 "" + FIELD 6->RAGSOC[1,30] +END + +STRINGA +BEGIN + KEY "NOME" + PROMPT 54 15 "" + FIELD 6->RAGSOC[31,-1] +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 + +DATA +BEGIN + KEY "DATA DI NASCITA" + PROMPT 2 17 "" + GROUP 1 + PICTURE "# # ~ # # ~ ~ # # #" + FIELD 8->DATANASC +END + +STRINGA +BEGIN + KEY "SESSO (M o F)" + PROMPT 19 17 "" + GROUP 1 + FIELD 8->SESSO +END + +STRINGA +BEGIN + KEY "COMUNE (o Stato estero) DI NASCITA" + PROMPT 24 17 "" + GROUP 1 + FIELD 113@->DENCOM +END + +STRINGA +BEGIN + KEY "PROV. DI NASCITA (sigla)" + PROMPT 68 17 "" + GROUP 1 + FIELD 113@->PROVCOM +END + +STRINGA +BEGIN + KEY "DOMICILIO FISCALE: COMUNE" + PROMPT 8 19 "" + FIELD 213@->DENCOM +END + +STRINGA +BEGIN + KEY "DOMICILIO FISCALE: PROV. (sigla)" + PROMPT 36 19 "" + FIELD 213@->PROVCOM +END + +STRINGA +BEGIN + KEY "DOMICILIO FISCALE: VIA" + PROMPT 41 19 "" + FIELD 6->INDRF + FIELD 6->INDRES +END + +STRINGA +BEGIN + KEY "DOMICILIO FISCALE: NUMERO CIVICO" + PROMPT 70 19 "" + FIELD 6->CIVRF + FIELD 6->CIVRES +END + +STRINGA +BEGIN + KEY "PARTITA IVA" + PROMPT 12 47 "" + FIELD 6->PAIV +END + +NUMERO +BEGIN + KEY "ANNO" + PROMPT 14 51 "" + PICTURE "~~@@" + FIELD CODTAB[6,9] +END + +NUMERO +BEGIN + KEY "IMPORTO TRIBUTO" + PROMPT 20 51 "" + MESSAGE COPY,10@ + PICTURE "###.###.###~~~" + FIELD R0 +END + +NUMERO +BEGIN + KEY "INTERESSI" + PROMPT 40 51 "" + MESSAGE ADD,10@ + PICTURE "###.###.###~~~" + FIELD R1 +END + +NUMERO +BEGIN + KEY "TOTALE" + PROMPT 54 51 "" + GROUP 10 + PICTURE "###.###.###~~~" +END + +NUMERO +BEGIN + KEY "TOTALE (in lettere)" + PROMPT 5 55 "" + GROUP 10 + PICTURE "LETTERE" +END + +NUMERO +BEGIN + KEY "TOTALE (in cifre)" + PROMPT 54 55 "" + GROUP 10 + PICTURE "###.###.###~~~" +END + +DATA +BEGIN + KEY "DATA: giorno - mese - anno" + PROMPT 12 60 "" + PICTURE "@@ ~ @@~~~@@" + FIELD D0 +END + +END + +END