From a4b08ded75396ad640ee0aad4ee387f84bc782b4 Mon Sep 17 00:00:00 2001 From: cris Date: Fri, 6 Feb 1998 10:33:38 +0000 Subject: [PATCH] Aggiornamento dei form all versione del 06/02/98 git-svn-id: svn://10.65.10.50/trunk@6138 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- at/at_pagin.frm | 2 +- at/at_pagpr.frm | 547 ++++++++++++++++++++++++++++++++++++++++++++++++ at/atcarto1.frm | 175 ++++++++++++++++ at/atconvoc.frm | 224 ++++++++++++++++++++ at/atddonaz.frm | 354 +++++++++++++++++++++++++++++++ at/ate10x36.frm | 111 ++++++++++ at/ate70x37.frm | 97 +++++++++ at/ate90x24.frm | 97 +++++++++ at/ateticbz.frm | 111 ++++++++++ at/attesser.frm | 233 +++++++++++++++++++++ 10 files changed, 1950 insertions(+), 1 deletion(-) create mode 100755 at/at_pagpr.frm create mode 100755 at/atcarto1.frm create mode 100755 at/atconvoc.frm create mode 100755 at/atddonaz.frm create mode 100755 at/ate10x36.frm create mode 100755 at/ate70x37.frm create mode 100755 at/ate90x24.frm create mode 100755 at/ateticbz.frm create mode 100755 at/attesser.frm diff --git a/at/at_pagin.frm b/at/at_pagin.frm index d12db9b46..7a4fc45ae 100755 --- a/at/at_pagin.frm +++ b/at/at_pagin.frm @@ -35,7 +35,7 @@ BEGIN GRID "" END -SECTION BODY ODD 30 +SECTION BODY ODD 60 STRINGA 1 50 BEGIN diff --git a/at/at_pagpr.frm b/at/at_pagpr.frm new file mode 100755 index 000000000..deb12c722 --- /dev/null +++ b/at/at_pagpr.frm @@ -0,0 +1,547 @@ +USE 90 +JOIN 13 ALIAS 500 INTO COM==COMNASC +JOIN 13 ALIAS 501 INTO COM==DOM_CODCOM +JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC +JOIN 96 INTO CODSEZ==CODSEZ|CODSOT=CODSOT +JOIN 97 INTO CODMED==CODMED +JOIN CTD ALIAS 700 INTO CODTAB==CATDON +JOIN TCS ALIAS 200 INTO CODTAB==STATO +JOIN LDN ALIAS 400 INTO CODTAB==PUNTORACC +JOIN GAZ ALIAS 300 INTO CODTAB==GRUPPOAZIE +JOIN 94 INTO CODICE==CODICE +JOIN BNZ TO 94 ALIAS 600 INTO CODTAB==TIPOBEN + +END +DESCRIPTION +BEGIN + 90->* "Soggetti Sezioni AVIS" + 100@->* "Localita' postali" + 200@->* "TCS" + 300@->* "GAZ" + 100@->* "LCP" + 500@->* "Comune di nascita" + 501@->* "Comuni di domicilio" + 600@->* "Tabella benemerenze" + 96->* "Sezioni AVIS" + 97->* "Medici" + 94->* "Benemerenze" +END + +GENERAL +BEGIN + OFFSET 0 0 + FONT "Courier New" + SIZE 12 + GRID "" +END + +SECTION BODY ODD 26 + +STRINGA 1 50 +BEGIN + KEY "Intestazione della scheda + data del giorno" + PROMPT 1 1 "SCHEDA ANAGRAFICA SOGGETTO stampata il " + MESSAGE _TODAY +END + +STRINGA 2 35 +BEGIN + KEY "Denominazione sezione" + PROMPT 1 2 "Sezione " + FIELD 96->DENSEZ +END + +STRINGA 3 35 +BEGIN + KEY "Denominazione sottogruppo" + PROMPT 40 2 "Sottog. " + FIELD 96->DENSOT +END + +STRINGA 4 25 +BEGIN + KEY "Cognome" + PROMPT 0 0 "" + FLAGS "H" + MESSAGE RESET,6|COPY,6 + FIELD 90->COGNOME +END + +STRINGA 5 25 +BEGIN + KEY "Nome" + PROMPT 0 0 "" + FLAGS "H" + MESSAGE APPEND,6 + FIELD 90->NOME +END + +STRINGA 6 51 1 +BEGIN + KEY "Cognome e nome" + PROMPT 1 4 "" +END + +STRINGA 7 30 1 +BEGIN + KEY "Indirizzo" + PROMPT 1 6 "" + FIELD 90->DOM_INDIR +END + +STRINGA 8 4 +BEGIN + KEY "Codice localita'" + PROMPT 0 0 "" + FLAGS "H" + FIELD 90->DOM_CODLOC +END + +STRINGA 9 5 +BEGIN + KEY "CAP" + PROMPT 1 7 "" + FIELD 100@->S6 + FIELD 501@->CAPCOM +END + +STRINGA 10 30 +BEGIN + KEY "Denominazione localita' o comune" + PROMPT 0 0 "" + FLAGS "H" + MESSAGE RESET,12|COPY,12 + FIELD 100@->S0 + FIELD 501@->DENCOM +END + +STRINGA 11 5 +BEGIN + KEY "Provincia" + PROMPT 0 0 "" + FLAGS "H" + MESSAGE APPEND,12 + FIELD 501@->PROVCOM +END + +STRINGA 12 44 2 +BEGIN + KEY "Loc./Com. e Prov." + PROMPT 7 7 "" +END + +STRINGA 12 50 +BEGIN + KEY "Comune di nascita" + PROMPT 0 0 "" + FLAGS "H" + MESSAGE RESET,14|COPY,14 + FIELD 500@->DENCOM +END + +STRINGA 13 5 +BEGIN + KEY "Provincia di nascita" + PROMPT 0 0 "" + FLAGS "H" + MESSAGE APPEND,14 + FIELD 500@->PROVCOM +END + +STRINGA 14 55 +BEGIN + KEY "Comune e provincia di nascita" + PROMPT 1 9 "Nato a " +END + +DATA 15 18 +BEGIN + KEY "Data nascita" + PROMPT 55 4 "Nato il " + FIELD 90->DATANASC + FORMAT "1444-" +END + +LISTA 16 +BEGIN + KEY "Sesso" + PROMPT 55 6 "Sesso " + FIELD 90->SESSO + ITEM "0|Sesso ?" + ITEM "1|Maschio" + ITEM "2|Femmina" + ITEM "9|Sesso ?" +END + +STRINGA 17 25 +BEGIN + KEY "Telefono abitazione" + PROMPT 55 7 "Tel.abi. " + FIELD 90->TELABI +END + +STRINGA 18 25 +BEGIN + KEY "Telefono lavoro" + PROMPT 55 8 "Tel.lav. " + FIELD 90->TELLAV +END + +STRINGA 19 25 +BEGIN + KEY "Telefono altri" + PROMPT 55 9 "Altro " + FIELD 90->TELALT +END + +NUMERO 20 20 +BEGIN + KEY "Codice soggetto" + PROMPT 1 11 "Codice " + FIELD 90->CODICE +END + +STRINGA 21 20 +BEGIN + KEY "Cartella clinica" + PROMPT 1 12 "Cart.clin. " + FIELD 90->CODCL +END + +STRINGA 22 20 +BEGIN + KEY "Tessera AVIS" + PROMPT 1 13 "Tessera " + FIELD 90->TESSAVIS +END + +STRINGA 23 31 +BEGIN + KEY "Documento identita'" + PROMPT 1 14 "Doc.ident. " + FIELD 90->DOCID +END + +STRINGA 24 25 +BEGIN + KEY "Codice fiscale" + PROMPT 1 15 "Cod. fisc. " + FIELD 90->CF +END + +STRINGA 25 15 +BEGIN + KEY "Gruppo sanguigno" + PROMPT 35 11 "Gruppo " + FIELD 90->GRUPPOAB0 +END + +STRINGA 26 15 +BEGIN + KEY "Rh/AntiD" + PROMPT 35 12 "Rh/AntiD " + FIELD 90->RHANTID +END + +STRINGA 27 15 +BEGIN + KEY "Fenotipo Rh" + PROMPT 35 13 "Fenotipo " + FIELD 90->FENOTIPORH +END + +STRINGA 28 15 +BEGIN + KEY "Kell" + PROMPT 35 14 "Kell " + FIELD 90->KELL +END + +STRINGA 29 15 +BEGIN + KEY "Du" + PROMPT 35 15 "Du " + FIELD 90->DU +END + + +STRINGA 30 25 +BEGIN + KEY "Stato " + PROMPT 55 11 "Stato att. " + FIELD 200@->S0[1,15] +END + +DATA 31 25 +BEGIN + KEY "Data stato" + PROMPT 55 12 "Data stato " + FIELD 90->DATASTATO +END + +DATA 31 25 +BEGIN + KEY "Data fine sospensione" + PROMPT 55 13 "Data fine " + FIELD 90->DATA_PROS +END + +DATA 32 25 +BEGIN + KEY "Data iscrizione" + PROMPT 55 14 "Data iscr. " + FIELD 90->DATAISC +END + +DATA 33 25 +BEGIN + KEY "Data ult. agg. " + PROMPT 55 15 "Ultimo agg. " + FIELD 90->DATAULTAGG +END + +STRINGA 34 25 +BEGIN + KEY "Cognome medico" + PROMPT 0 0 "" + FLAGS "H" + MESSAGE RESET,36|COPY,36 + FIELD 97->COGNOME +END + +STRINGA 35 25 +BEGIN + KEY "Nome medico" + PROMPT 0 0 "" + FLAGS "H" + MESSAGE APPEND,36 + FIELD 97->NOME +END + +STRINGA 36 51 1 +BEGIN + KEY "Cognome e nome medico" + PROMPT 1 17 "Medico " +END + +STRINGA 37 25 +BEGIN + KEY "Telefono ambulatorio" + PROMPT 1 18 "Tel.amb. " + FIELD 97->TELAMB +END + +STRINGA 38 25 +BEGIN + KEY "Numero libretto sanitario" + PROMPT 1 19 "Tess.SSN " +END + +NUMERO 39 15 +BEGIN + KEY "Numero cartolina" + PROMPT 55 17 "Num. convoc. " + FIELD 90->NUMCONV +END + +DATA 40 25 +BEGIN + KEY "Data ultima cartolina " + PROMPT 55 18 "Data ultima " + FIELD 90->DATACONV +END + +DATA 41 25 +BEGIN + KEY "Data ultima donazione" + PROMPT 1 21 "Ultima don. " + FIELD 90->DATAULTDON +END + +STRINGA 42 2 +BEGIN + KEY "Tipo ultima donazione" + PROMPT 24 21 "" + FIELD 90->TIPOULTDON +END + +NUMERO 43 15 +BEGIN + KEY "Totale donazioni" + PROMPT 1 22 "Totale don. " + FIELD 90->TOTDON +END + +STRINGA 44 15 +BEGIN + KEY "Idoneita' 1" + PROMPT 35 21 "Idoneita' " + FIELD 90->IDON1 +END + +STRINGA 45 2 +BEGIN + KEY "Idoneita' 2" + PROMPT 48 21 "" + FIELD 90->IDON2 +END + +STRINGA 46 2 +BEGIN + KEY "Idoneita' 3" + PROMPT 51 21 "" + FIELD 90->IDON3 +END + +STRINGA 47 2 +BEGIN + KEY "Idoneita' 4" + PROMPT 54 21 "" + FIELD 90->IDON4 +END + +NUMERO 48 15 +BEGIN + KEY "Intervallo SI" + PROMPT 35 22 "Interv. SI " + FIELD 90->INTSI +END + +NUMERO 49 15 +BEGIN + KEY "Intervallo AF" + PROMPT 35 23 "Interv. AF " + FIELD 90->INTAF +END + +DATA 49 +BEGIN + KEY "Data prossima SI" + PROMPT 1 23 "Prossima SI " + FIELD 90->DATAPROSSI +END + +DATA 49 +BEGIN + KEY "Data prossima AF" + PROMPT 1 24 "Prossima AF " + FIELD 90->DATAPROSAF +END + +STRINGA 50 12 +BEGIN + KEY "Testo" + PROMPT 55 19 "Mod.convoc. " +END + +LISTA 51 12 +BEGIN + KEY "Modalita' di convocazione" + PROMPT 67 19 "" + FIELD 90->MODCONV + ITEM " | " + ITEM "PO|Postale" + ITEM "T1|Tel. abitaz." + ITEM "T2|Tel. lavoro" + ITEM "T3|Tel. altro" + ITEM "TE|Telefonica" + ITEM "IN|Indifferente" +END + +STRINGA 52 19 +BEGIN + KEY "Codice punto di racolta" + PROMPT 0 0 "" + FLAGS "H" + FIELD 90->PUNTORACC +END + +STRINGA 53 25 +BEGIN + KEY "Descrizione punto di raccolta" + PROMPT 55 20 "Punto prel. " + FIELD 400@->S0 +END + +STRINGA 54 25 +BEGIN + KEY "Testo" + PROMPT 55 21 "Giorni pr.: L M M G V S D" +END + +STRINGA 55 2 +BEGIN + KEY "Lu" + PROMPT 67 22 "" + FIELD 90->GIOPREDON[1,1] +END + +STRINGA 56 2 +BEGIN + KEY "Ma" + PROMPT 69 22 "" + FIELD 90->GIOPREDON[2,2] +END + +STRINGA 57 2 +BEGIN + KEY "Me" + PROMPT 71 22 "" + FIELD 90->GIOPREDON[3,3] +END + +STRINGA 58 2 +BEGIN + KEY "Gi" + PROMPT 73 22 "" + FIELD 90->GIOPREDON[4,4] +END + +STRINGA 59 2 +BEGIN + KEY "Ve" + PROMPT 75 22 "" + FIELD 90->GIOPREDON[5,5] +END + +STRINGA 60 2 +BEGIN + KEY "Sa" + PROMPT 77 22 "" + FIELD 90->GIOPREDON[6,6] +END + +STRINGA 61 2 +BEGIN + KEY "Do" + PROMPT 79 22 "" + FIELD 90->GIOPREDON[7,7] +END + +STRINGA 62 25 +BEGIN + KEY "Testo" + PROMPT 35 24 "B E N E M E R E N Z E" +END + +SECTION BENEMERENZE 25 1 1 FILE 94 + +STRINGA 1 25 +BEGIN + KEY "Benemerenza " + PROMPT 35 1 "" + FIELD 600@->S0[1,25] +END + +DATA 2 10 +BEGIN + KEY "Data attribuzione" + PROMPT 62 1 "" + FIELD 94->DATABEN +END + +END // FINE SECTION BENEMERENZE + +END // FINE SECTION BODY + +END // END FORM diff --git a/at/atcarto1.frm b/at/atcarto1.frm new file mode 100755 index 000000000..c70cec747 --- /dev/null +++ b/at/atcarto1.frm @@ -0,0 +1,175 @@ +USE 90 +JOIN 13 INTO COM==DOM_CODCOM +JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC + +END +DESCRIPTION +BEGIN + 90->* "Soggetti Sezioni AVIS" + 13->* "COMUNI" + 100@->* "Localita' postali" +END + +GENERAL +BEGIN + OFFSET 0 0 + FONT "Roman" + SIZE 12 + GRID "" +END + +SECTION BODY ODD 24 + +STRINGA 1 25 +BEGIN + KEY "Cognome" + FIELD 90->COGNOME + PROMPT 0 0 "" + FLAGS "H" + MESSAGE RESET,3|COPY,3 +END + +STRINGA 2 25 +BEGIN + KEY "Nome" + FIELD 90->NOME + PROMPT 0 0 "" + FLAGS "H" + MESSAGE APPEND,3 +END + +STRINGA 3 25 2 +BEGIN + KEY "Cognome e nome" + PROMPT 32 13 "" +END + +STRINGA 4 20 2 +BEGIN + KEY "Indirizzo" + FIELD 90->DOM_INDIR + PROMPT 32 15 "" +END + +STRINGA 5 4 +BEGIN + KEY "Codice localita'" + FIELD 90->DOM_CODLOC + PROMPT 0 0 "" + FLAGS "H" +END + +STRINGA 6 5 +BEGIN + KEY "CAP" + FIELD 100@->S6 + FIELD 13->CAPCOM + PROMPT 32 17 "" +END + +STRINGA 7 30 +BEGIN + KEY "Denominazione localita' o comune" + FIELD 100@->S0 + FIELD 13->DENCOM + PROMPT 0 0 "" + FLAGS "H" + MESSAGE RESET,9|COPY,9 +END + +STRINGA 8 5 +BEGIN + KEY "Provincia" + FIELD 13->PROVCOM + PROMPT 0 0 "" + FLAGS "H" + MESSAGE APPEND,9 +END + +STRINGA 9 22 3 +BEGIN + KEY "Loc./Com. e Prov." + PROMPT 38 17 "" +END + +STRINGA 10 25 +BEGIN + KEY "Invito per" + PROMPT 3 9 "" +END + +STRINGA 11 25 +BEGIN + KEY "Data convocazione" + PROMPT 3 12 "" +END + +STRINGA 12 25 +BEGIN + KEY "Presso: riga 1" + PROMPT 3 14 "" +END + +STRINGA 13 25 +BEGIN + KEY "Presso: riga 2" + PROMPT 3 15 "" +END + +STRINGA 14 25 +BEGIN + KEY "Presso: riga 3" + PROMPT 3 16 "" +END + +STRINGA 15 25 +BEGIN + KEY "Presso: riga 4" + PROMPT 3 17 "" +END + +STRINGA 16 14 +BEGIN + KEY "Orario" + PROMPT 14 19 "" +END + +STRINGA 17 10 +BEGIN + KEY "Data cartolina" + PROMPT 18 21 "" +END + +STRINGA 18 25 +BEGIN + KEY "Note" + PROMPT 3 23 "" +END + +STRINGA 19 20 +BEGIN + KEY "Intestazione 1" + PROMPT 15 5 "" +END + +STRINGA 20 20 +BEGIN + KEY "Intestazione 2" + PROMPT 15 6 "" +END + +STRINGA 21 20 +BEGIN + KEY "Intestazione 3" + PROMPT 15 7 "" +END + +STRINGA 22 20 +BEGIN + KEY "Intestazione 4" + PROMPT 15 8 "" +END + +END + +END diff --git a/at/atconvoc.frm b/at/atconvoc.frm new file mode 100755 index 000000000..a44e52dbe --- /dev/null +++ b/at/atconvoc.frm @@ -0,0 +1,224 @@ +USE 115 +JOIN 116 INTO NUMERO==NUMERO +JOIN 90 TO 116 INTO CODICE==CODICE +END + +DESCRIPTION +BEGIN + 115->* "Convocazioni AVIS" + 116->* "Righe di convocazione AVIS" + 90->* "Soggetti sezioni AVIS" +END + +GENERAL +BEGIN + OFFSET 0 0 + FONT "Courier New" + SIZE 12 + GRID "" +END + +SECTION BODY ODD + +SECTION CONVOCAZIONE 1 1 9 FLAG "N" + +STRINGA 1 70 +BEGIN + KEY "Testo" + PROMPT 1 1 "STAMPA DI CONTROLLO CONVOCAZIONE stampata il " + MESSAGE _TODAY +END + +DATA 2 +BEGIN + KEY "Data convocazione" + PROMPT 1 3 "Data convocazione " + FIELD DATA +END + +STRINGA 3 25 +BEGIN + KEY "Punto" + PROMPT 40 3 "Punto di prelievo " + FIELD PUNTO +END + +STRINGA 4 25 +BEGIN + KEY "Tipo" + PROMPT 1 4 "Tipo donazione " + FIELD TIPO +END + +STRINGA 5 25 +BEGIN + KEY "Sezione" + PROMPT 40 4 "Sezione/Sottog. " + FIELD CODSEZ +END + +STRINGA 6 2 +BEGIN + KEY "Sottog" + PROMPT 61 4 "" + FIELD CODSOT +END + +DATA 7 +BEGIN + KEY "Data iniziale" + PROMPT 1 5 "Data inizio conv. " + FIELD DATAINI +END + +NUMERO 8 25 +BEGIN + KEY "Numero convocati" + PROMPT 1 6 "Num. convocati " + FIELD NUMCONV +END + +NUMERO 9 25 +BEGIN + KEY "Numero sollecitati" + PROMPT 25 6 "Num. sollecitati " + FIELD NUMSOLL +END + +NUMERO 10 25 +BEGIN + KEY "Numero ritardatari" + PROMPT 50 6 "Num. ritardatari " + FIELD NUMRIT +END + +STRINGA 11 70 2 +BEGIN + KEY "Note" + PROMPT 1 7 "Note " + FIELD NOTE +END + +STRINGA 12 20 +BEGIN + KEY "Intestazione" + PROMPT 1 9 "Cognome e nome" +END + +STRINGA 13 20 +BEGIN + KEY "Intestazione" + PROMPT 32 9 "C." +END + +STRINGA 14 20 +BEGIN + KEY "Intestazione" + PROMPT 35 9 "Se/So" +END + +STRINGA 15 20 +BEGIN + KEY "Intestazione" + PROMPT 41 9 "Tessera" +END + +STRINGA 17 20 +BEGIN + KEY "Intestazione" + PROMPT 49 9 "Ult. don." +END + +STRINGA 18 20 +BEGIN + KEY "Intestazione" + PROMPT 60 9 "Data conv." +END + +STRINGA 19 20 +BEGIN + KEY "Intestazione" + PROMPT 71 9 "Tipo" +END + +END + +SECTION CONVOCATI 1 1 1 FILE 116 + +STRINGA 1 25 +BEGIN + KEY "Cognome" + PROMPT 0 0 "" + FLAGS "H" + MESSAGE RESET,3|COPY,3 + FIELD 90->COGNOME +END + +STRINGA 2 25 +BEGIN + KEY "Nome" + PROMPT 0 0 "" + FLAGS "H" + MESSAGE APPEND,3 + FIELD 90->NOME +END + +STRINGA 3 30 2 +BEGIN + KEY "Cognome e nome" + PROMPT 1 1 "" +END + +STRINGA 4 2 +BEGIN + KEY "Categoria" + PROMPT 32 1 "" + FIELD 90->CATDON +END + +STRINGA 5 2 +BEGIN + KEY "Sezione" + PROMPT 35 1 "" + FIELD 90->CODSEZ +END + +STRINGA 6 2 +BEGIN + KEY "Sottog." + PROMPT 38 1 "" + FIELD 90->CODSOT +END + +STRINGA 7 6 +BEGIN + KEY "Tessera" + PROMPT 41 1 "" + FIELD 90->TESSAVIS +END + +DATA 8 +BEGIN + KEY "Data ultima donazione" + PROMPT 49 1 "" + FIELD 90->DATAULTDON +END + +DATA 9 +BEGIN + KEY "Data convocazione" + PROMPT 60 1 "" + FIELD 116->DATACONV +END + +STRINGA 10 1 +BEGIN + KEY "Tipo convocazione" + PROMPT 71 1 "" + FIELD 116->CHIAMATA +END + +END + +END +END diff --git a/at/atddonaz.frm b/at/atddonaz.frm new file mode 100755 index 000000000..2fb331692 --- /dev/null +++ b/at/atddonaz.frm @@ -0,0 +1,354 @@ +USE 90 +JOIN 13 ALIAS 500 INTO COM==COMNASC +JOIN 13 ALIAS 501 INTO COM==DOM_CODCOM +JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC +JOIN 96 INTO CODSEZ==CODSEZ|CODSOT=CODSOT +JOIN 97 INTO CODMED==CODMED +JOIN CTD ALIAS 700 INTO CODTAB==CATDON +JOIN TCS ALIAS 200 INTO CODTAB==STATO +JOIN LDN ALIAS 400 INTO CODTAB==PUNTORACC +JOIN GAZ ALIAS 300 INTO CODTAB==GRUPPOAZIE +JOIN 92 INTO CODICE==CODICE +JOIN LDN TO 92 ALIAS 401 INTO CODTAB==LUOGODON + +END +DESCRIPTION +BEGIN + 90->* "Soggetti Sezioni AVIS" + 100@->* "Localita' postali" + 200@->* "TCS" + 300@->* "GAZ" + 400@->* "LDN preferito" + 401@->* "LDN per donazione" + 500@->* "Comune di nascita" + 501@->* "Comuni di domicilio" + 600@->* "Tabella benemerenze" + 96->* "Sezioni AVIS" + 97->* "Medici" + 92->* "Donazioni" +END + +GENERAL +BEGIN + OFFSET 0 0 + FONT "Courier New" + SIZE 12 + GRID "" +END + +SECTION BODY ODD + +SECTION INIZIO 1 1 17 FLAG "N" + +STRINGA 1 50 +BEGIN + KEY "Intestazione della scheda + data del giorno" + PROMPT 1 1 "DETTAGLIO DONAZIONI PER SOGGETTO stampato il " + MESSAGE _TODAY +END + +STRINGA 1 35 +BEGIN + KEY "Denominazione sezione" + PROMPT 1 2 "Sezione " + FIELD 96->DENSEZ +END + +STRINGA 3 35 +BEGIN + KEY "Denominazione sottogruppo" + PROMPT 40 2 "Sottog. " + FIELD 96->DENSOT +END + +STRINGA 4 25 +BEGIN + KEY "Cognome" + PROMPT 0 0 "" + FLAGS "H" + MESSAGE RESET,6|COPY,6 + FIELD 90->COGNOME +END + +STRINGA 5 25 +BEGIN + KEY "Nome" + PROMPT 0 0 "" + FLAGS "H" + MESSAGE APPEND,6 + FIELD 90->NOME +END + +STRINGA 6 51 1 +BEGIN + KEY "Cognome e nome" + PROMPT 1 4 "" +END + +STRINGA 7 30 1 +BEGIN + KEY "Indirizzo" + PROMPT 1 6 "" + FIELD 90->DOM_INDIR +END + +STRINGA 8 4 +BEGIN + KEY "Codice localita'" + PROMPT 0 0 "" + FLAGS "H" + FIELD 90->DOM_CODLOC +END + +STRINGA 9 5 +BEGIN + KEY "CAP" + PROMPT 1 7 "" + FIELD 100@->S6 + FIELD 501@->CAPCOM +END + +STRINGA 10 30 +BEGIN + KEY "Denominazione localita' o comune" + PROMPT 0 0 "" + FLAGS "H" + MESSAGE RESET,12|COPY,12 + FIELD 100@->S0 + FIELD 501@->DENCOM +END + +STRINGA 11 5 +BEGIN + KEY "Provincia" + PROMPT 0 0 "" + FLAGS "H" + MESSAGE APPEND,12 + FIELD 501@->PROVCOM +END + +STRINGA 12 44 2 +BEGIN + KEY "Loc./Com. e Prov." + PROMPT 7 7 "" +END + +STRINGA 12 50 +BEGIN + KEY "Comune di nascita" + PROMPT 0 0 "" + FLAGS "H" + MESSAGE RESET,14|COPY,14 + FIELD 500@->DENCOM +END + +STRINGA 13 5 +BEGIN + KEY "Provincia di nascita" + PROMPT 0 0 "" + FLAGS "H" + MESSAGE APPEND,14 + FIELD 500@->PROVCOM +END + +STRINGA 14 55 +BEGIN + KEY "Comune e provincia di nascita" + PROMPT 1 9 "Nato a " +END + +DATA 15 18 +BEGIN + KEY "Data nascita" + PROMPT 55 4 "Nato il " + FIELD 90->DATANASC + FORMAT "1444-" +END + +LISTA 16 +BEGIN + KEY "Sesso" + PROMPT 55 6 "Sesso " + FIELD 90->SESSO + ITEM "0|Sesso ?" + ITEM "1|Maschio" + ITEM "2|Femmina" + ITEM "9|Sesso ?" +END + +STRINGA 17 25 +BEGIN + KEY "Telefono abitazione" + PROMPT 55 7 "Tel.abi. " + FIELD 90->TELABI +END + +STRINGA 18 25 +BEGIN + KEY "Telefono lavoro" + PROMPT 55 8 "Tel.lav. " + FIELD 90->TELLAV +END + +STRINGA 19 25 +BEGIN + KEY "Telefono altri" + PROMPT 55 9 "Altro " + FIELD 90->TELALT +END + +NUMERO 20 20 +BEGIN + KEY "Codice soggetto" + PROMPT 1 11 "Codice " + FIELD 90->CODICE +END + +STRINGA 22 20 +BEGIN + KEY "Tessera AVIS" + PROMPT 1 12 "Tessera " + FIELD 90->TESSAVIS +END + +STRINGA 23 30 +BEGIN + KEY "Categoria" + PROMPT 1 13 "Categoria " + FIELD 700@->S0 +END + +STRINGA 25 15 +BEGIN + KEY "Gruppo sanguigno" + PROMPT 35 11 "Gruppo " + FIELD 90->GRUPPOAB0 +END + +STRINGA 26 15 +BEGIN + KEY "Rh/AntiD" + PROMPT 35 12 "Rh/AntiD " + FIELD 90->RHANTID +END + +STRINGA 27 15 +BEGIN + KEY "Fenotipo Rh" + PROMPT 35 13 "Fenotipo " + FIELD 90->FENOTIPORH +END + +STRINGA 28 15 +BEGIN + KEY "Kell" + PROMPT 35 14 "Kell " + FIELD 90->KELL +END + +STRINGA 29 15 +BEGIN + KEY "Du" + PROMPT 35 15 "Du " + FIELD 90->DU +END + + +STRINGA 30 25 +BEGIN + KEY "Stato " + PROMPT 55 11 "Stato att. " + FIELD 200@->S0[1,15] +END + +DATA 31 25 +BEGIN + KEY "Data stato" + PROMPT 55 12 "Data stato " + FIELD 90->DATASTATO +END + +DATA 31 25 +BEGIN + KEY "Data fine sospensione" + PROMPT 55 13 "Data fine " + FIELD 90->DATA_PROS +END + +DATA 32 25 +BEGIN + KEY "Data iscrizione" + PROMPT 55 14 "Data iscr. " + FIELD 90->DATAISC +END + +DATA 33 25 +BEGIN + KEY "Data ult. agg. " + PROMPT 55 15 "Ultimo agg. " + FIELD 90->DATAULTAGG +END + +DATA 41 25 +BEGIN + KEY "Data ultima donazione" + PROMPT 1 14 "Ultima don. " + FIELD 90->DATAULTDON +END + +STRINGA 42 2 +BEGIN + KEY "Tipo ultima donazione" + PROMPT 24 14 "" + FIELD 90->TIPOULTDON +END + +NUMERO 43 15 +BEGIN + KEY "Totale donazioni" + PROMPT 1 15 "Totale don. " + FIELD 90->TOTDON +END + +STRINGA 44 25 +BEGIN + KEY "TEsto" + PROMPT 1 17 "DETTAGLIO DONAZIONI" +END + +STRINGA 45 50 +BEGIN + KEY "Testo" + PROMPT 1 17 "Data Tipo Punto di Prelievo" +END + +END // SECTION INIZIO + +SECTION DONAZIONI 1 1 1 FILE 92 + +DATA 1 +BEGIN + KEY "Data donazione " + PROMPT 1 1 "" + FIELD 92->DATADON +END + +STRINGA 2 10 +BEGIN + KEY "Tipo donazione" + PROMPT 13 1 "" + FIELD 92->TIPODON +END + +STRINGA 3 25 +BEGIN + KEY "Punto di prelievo" + PROMPT 18 1 "" + FIELD 401@->S0 +END + +END // FINE SECTION DONAZIONI + +END // FINE SECTION BODY + +END // END FORM diff --git a/at/ate10x36.frm b/at/ate10x36.frm new file mode 100755 index 000000000..5e73d9111 --- /dev/null +++ b/at/ate10x36.frm @@ -0,0 +1,111 @@ +USE 90 +JOIN 13 INTO COM==DOM_CODCOM +JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC + +END +DESCRIPTION +BEGIN + 90->* "Soggetti Sezioni AVIS" + 13->* "COMUNI" + 100@->* "Localita' postali" +END + +GENERAL +BEGIN + OFFSET 0 0 + FONT "" + SIZE 12 + GRID "" +END + +SECTION BODY ODD 9 + +STRINGA 1 25 +BEGIN + KEY "Cognome" + FIELD 90->COGNOME + PROMPT 0 0 "" + FLAGS "H" + MESSAGE RESET,3|COPY,3 +END + +STRINGA 2 25 +BEGIN + KEY "Nome" + FIELD 90->NOME + PROMPT 0 0 "" + FLAGS "H" + MESSAGE APPEND,3 +END + +STRINGA 3 33 2 +BEGIN + KEY "Cognome e nome" + PROMPT 1 1 "" +END + +STRINGA 4 30 +BEGIN + KEY "Indirizzo" + FIELD 90->DOM_INDIR + PROMPT 1 3 "" +END + +STRINGA 5 4 +BEGIN + KEY "Codice localita'" + FIELD 90->DOM_CODLOC + PROMPT 0 0 "" + FLAGS "H" +END + +STRINGA 6 5 +BEGIN + KEY "CAP" + FIELD 100@->S6 + FIELD 13->CAPCOM + PROMPT 1 5 "" +END + +STRINGA 7 30 +BEGIN + KEY "Denominazione localita' o comune" + FIELD 100@->S0 + FIELD 13->DENCOM + PROMPT 0 0 "" + FLAGS "H" + MESSAGE RESET,9|COPY,9 +END + +STRINGA 8 5 +BEGIN + KEY "Provincia" + FIELD 13->PROVCOM + PROMPT 0 0 "" + FLAGS "H" + MESSAGE APPEND,9 +END + +STRINGA 9 27 2 +BEGIN + KEY "Loc./Com. e Prov." + PROMPT 7 5 "" +END + +STRINGA 10 2 +BEGIN + KEY "Sezione" + FIELD 90->CODSEZ + PROMPT 30 7 "" +END + +STRINGA 11 2 +BEGIN + KEY "Sezione" + FIELD 90->CODSOT + PROMPT 32 7 "/" +END + +END + +END diff --git a/at/ate70x37.frm b/at/ate70x37.frm new file mode 100755 index 000000000..ff78066af --- /dev/null +++ b/at/ate70x37.frm @@ -0,0 +1,97 @@ +USE 90 +JOIN 13 INTO COM==DOM_CODCOM +JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC + +END +DESCRIPTION +BEGIN + 90->* "Soggetti Sezioni AVIS" + 13->* "COMUNI" + 100@->* "Localita' postali" +END + +GENERAL +BEGIN + OFFSET 0 0 + FONT "" + SIZE 12 + GRID "" +END + +SECTION BODY ODD 9 + +STRINGA 1 25 +BEGIN + KEY "Cognome" + FIELD 90->COGNOME + PROMPT 0 0 "" + FLAGS "H" + MESSAGE RESET,3|COPY,3 +END + +STRINGA 2 25 +BEGIN + KEY "Nome" + FIELD 90->NOME + PROMPT 0 0 "" + FLAGS "H" + MESSAGE APPEND,3 +END + +STRINGA 3 25 2 +BEGIN + KEY "Cognome e nome" + PROMPT 1 1 "" +END + +STRINGA 4 25 2 +BEGIN + KEY "Indirizzo" + FIELD 90->DOM_INDIR + PROMPT 1 3 "" +END + +STRINGA 5 4 +BEGIN + KEY "Codice localita'" + FIELD 90->DOM_CODLOC + PROMPT 0 0 "" + FLAGS "H" +END + +STRINGA 6 5 +BEGIN + KEY "CAP" + FIELD 100@->S6 + FIELD 13->CAPCOM + PROMPT 1 5 "" +END + +STRINGA 7 30 +BEGIN + KEY "Denominazione localita' o comune" + FIELD 100@->S0 + FIELD 13->DENCOM + PROMPT 0 0 "" + FLAGS "H" + MESSAGE RESET,9|COPY,9 +END + +STRINGA 8 5 +BEGIN + KEY "Provincia" + FIELD 13->PROVCOM + PROMPT 0 0 " - " + FLAGS "H" + MESSAGE APPEND,9 +END + +STRINGA 9 19 3 +BEGIN + KEY "Loc./Com. e Prov." + PROMPT 7 5 "" +END + +END + +END diff --git a/at/ate90x24.frm b/at/ate90x24.frm new file mode 100755 index 000000000..3cf9096b0 --- /dev/null +++ b/at/ate90x24.frm @@ -0,0 +1,97 @@ +USE 90 +JOIN 13 INTO COM==DOM_CODCOM +JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC + +END +DESCRIPTION +BEGIN + 90->* "Soggetti Sezioni AVIS" + 13->* "COMUNI" + 100@->* "Localita' postali" +END + +GENERAL +BEGIN + OFFSET 0 0 + FONT "" + SIZE 12 + GRID "" +END + +SECTION BODY ODD 6 + +STRINGA 1 25 +BEGIN + KEY "Cognome" + FIELD 90->COGNOME + PROMPT 0 0 "" + FLAGS "H" + MESSAGE RESET,3|COPY,3 +END + +STRINGA 2 25 +BEGIN + KEY "Nome" + FIELD 90->NOME + PROMPT 0 0 "" + FLAGS "H" + MESSAGE APPEND,3 +END + +STRINGA 3 33 2 +BEGIN + KEY "Cognome e nome" + PROMPT 1 1 "" +END + +STRINGA 4 33 2 +BEGIN + KEY "Indirizzo" + FIELD 90->DOM_INDIR + PROMPT 1 3 "" +END + +STRINGA 5 4 +BEGIN + KEY "Codice localita'" + FIELD 90->DOM_CODLOC + PROMPT 0 0 "" + FLAGS "H" +END + +STRINGA 6 5 +BEGIN + KEY "CAP" + FIELD 100@->S6 + FIELD 13->CAPCOM + PROMPT 1 4 "" +END + +STRINGA 7 30 +BEGIN + KEY "Denominazione localita' o comune" + FIELD 100@->S0 + FIELD 13->DENCOM + PROMPT 0 0 "" + FLAGS "H" + MESSAGE RESET,9|COPY,9 +END + +STRINGA 8 5 +BEGIN + KEY "Provincia" + FIELD 13->PROVCOM + PROMPT 0 0 " - " + FLAGS "H" + MESSAGE APPEND,9 +END + +STRINGA 9 27 2 +BEGIN + KEY "Loc./Com. e Prov." + PROMPT 7 4 "" +END + +END + +END diff --git a/at/ateticbz.frm b/at/ateticbz.frm new file mode 100755 index 000000000..2afba2a9c --- /dev/null +++ b/at/ateticbz.frm @@ -0,0 +1,111 @@ +USE 90 +JOIN 13 INTO COM==DOM_CODCOM +JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC + +END +DESCRIPTION +BEGIN + 90->* "Soggetti Sezioni AVIS" + 13->* "COMUNI" + 100@->* "Localita' postali" +END + +GENERAL +BEGIN + OFFSET 0 0 + FONT "" + SIZE 12 + GRID "" +END + +SECTION BODY ODD 6 + +STRINGA 1 25 +BEGIN + KEY "Cognome" + FIELD 90->COGNOME + PROMPT 0 0 "" + FLAGS "H" + MESSAGE RESET,3|COPY,3 +END + +STRINGA 2 25 +BEGIN + KEY "Nome" + FIELD 90->NOME + PROMPT 0 0 "" + FLAGS "H" + MESSAGE APPEND,3 +END + +STRINGA 3 51 +BEGIN + KEY "Cognome e nome" + PROMPT 1 2 "" +END + +STRINGA 4 30 +BEGIN + KEY "Indirizzo" + FIELD 90->DOM_INDIR + PROMPT 1 4 "" +END + +STRINGA 5 4 +BEGIN + KEY "Codice localita'" + FIELD 90->DOM_CODLOC + PROMPT 0 0 "" + FLAGS "H" +END + +STRINGA 6 5 +BEGIN + KEY "CAP" + FIELD 100@->S6 + FIELD 13->CAPCOM + PROMPT 1 5 "" +END + +STRINGA 7 30 +BEGIN + KEY "Denominazione localita' o comune" + FIELD 100@->S0 + FIELD 13->DENCOM + PROMPT 0 0 "" + FLAGS "H" + MESSAGE RESET,9|COPY,9 +END + +STRINGA 8 5 +BEGIN + KEY "Provincia" + FIELD 13->PROVCOM + PROMPT 0 0 " - " + FLAGS "H" + MESSAGE APPEND,9 +END + +STRINGA 9 50 +BEGIN + KEY "Loc./Com. e Prov." + PROMPT 7 5 "" +END + +STRINGA 10 4 +BEGIN + KEY "Gruppo aziendale" + PROMPT 40 1 "" + FIELD 90->GRUPPOAZIE +END + +NUMERO 11 8 +BEGIN + KEY "Codice" + PROMPT 45 1 "" + FIELD 90->CODICE +END + +END + +END diff --git a/at/attesser.frm b/at/attesser.frm new file mode 100755 index 000000000..d0a23ed36 --- /dev/null +++ b/at/attesser.frm @@ -0,0 +1,233 @@ +USE 90 +JOIN 13 ALIAS 501 INTO COM==DOM_CODCOM +JOIN 13 ALIAS 500 INTO COM==COMNASC +JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC +JOIN 96 INTO CODSEZ==CODSEZ + +END +DESCRIPTION +BEGIN + 90->* "Soggetti Sezioni AVIS" + 96->* "Sezioni AVIS" + 13->* "COMUNI" + 100@->* "Localita' postali" + 501@->* "Comune di domicilio" + 500@->* "Comune di nascita" +END + +GENERAL +BEGIN + OFFSET 0 0 + FONT "" + SIZE 12 + GRID "" +END + +SECTION BODY ODD 72 + +STRINGA 1 20 +BEGIN + KEY "Intestazione 1" + FIELD 96->INTESTAZ1 + PROMPT 16 3 "" +END + +STRINGA 2 20 +BEGIN + KEY "Intestazione 2" + FIELD 96->INTESTAZ2 + PROMPT 16 4 "" +END + +STRINGA 3 20 +BEGIN + KEY "Intestazione 3" + FIELD 96->INTESTAZ3 + PROMPT 16 5 "" +END + +STRINGA 4 20 +BEGIN + KEY "Intestazione 4" + FIELD 96->INTESTAZ4 + PROMPT 16 6 "" +END + +NUMERO 5 8 +BEGIN + KEY "Codice soggetto" + FIELD 90->CODICE + PROMPT 20 8 "Codice " +END + +STRINGA 6 6 +BEGIN + KEY "Tessera" + FIELD 90->TESSAVIS + PROMPT 22 12 "" +END + +DATA 7 +BEGIN + KEY "Data rilascio " + MESSAGE _TODAY + PROMPT 25 14 "" +END + +STRINGA 8 25 +BEGIN + KEY "Cognome" + FIELD 90->COGNOME + PROMPT 0 0 "" + FLAGS "H" + MESSAGE RESET,10|COPY,10 +END + +STRINGA 9 25 +BEGIN + KEY "Nome" + FIELD 90->NOME + PROMPT 0 0 "" + FLAGS "H" + MESSAGE APPEND,10 +END + +STRINGA 10 33 2 +BEGIN + KEY "Cognome e nome" + PROMPT 4 16 "" +END + +STRINGA 11 33 2 +BEGIN + KEY "Comune di nascita" + PROMPT 0 0 "" +END + +STRINGA 12 19 2 +BEGIN + KEY "Comune di nascita" + FIELD 500@->DENCOM + PROMPT 6 18 "" +END + +DATA 13 +BEGIN + KEY "Data di nascita" + FIELD 90->DATANASC + PROMPT 27 18 "" +END + +STRINGA 14 4 +BEGIN + KEY "Codice localita'" + FIELD 90->DOM_CODLOC + PROMPT 0 0 "" + FLAGS "H" +END + +STRINGA 15 30 +BEGIN + KEY "Denominazione localita' o comune" + FIELD 100@->S0 + FIELD 501@->DENCOM + PROMPT 0 0 "" + FLAGS "H" + MESSAGE RESET,17|COPY,17 +END + +STRINGA 16 5 +BEGIN + KEY "Provincia" + FIELD 501@->PROVCOM + PROMPT 0 0 "" + FLAGS "H" + MESSAGE APPEND,17 +END + +STRINGA 17 18 2 +BEGIN + KEY "Loc./Com. e Prov." + PROMPT 7 20 "" +END + +STRINGA 18 11 2 +BEGIN + KEY "Telefono abitazione" + FIELD 90->TELABI + PROMPT 27 20 "" +END + +STRINGA 19 30 +BEGIN + KEY "Indirizzo" + FIELD 90->DOM_INDIR + PROMPT 1 22 "" +END + +STRINGA 20 16 +BEGIN + KEY "Codice fiscale" + FIELD 90->CF + PROMPT 6 24 "" +END + +STRINGA 21 3 +BEGIN + KEY "Gruppo AB0" + FIELD 90->GRUPPOAB0 + PROMPT 3 28 "" +END + +STRINGA 22 3 +BEGIN + KEY "RhAntiD" + FIELD 90->RHANTID + PROMPT 10 28 "" +END + +STRINGA 23 6 +BEGIN + KEY "FenotipoRh" + FIELD 90->FENOTIPORH + PROMPT 17 28 "" +END + +STRINGA 24 3 +BEGIN + KEY "Kell" + FIELD 90->KELL + PROMPT 28 28 "" +END + +STRINGA 25 3 +BEGIN + KEY "Du" + FIELD 90->DU + PROMPT 34 28 "" +END + +STRINGA 26 20 +BEGIN + KEY "Documento di riconoscimento" + FIELD 90->DOCID + PROMPT 3 32 "" +END + +DATA 27 30 +BEGIN + KEY "Data ultima donazione" + FIELD 90->DATAULTDON + PROMPT 2 42 "Donazioni fino al " +END + +NUMERO 28 3 +BEGIN + KEY "Totale donazioni" + FIELD 90->TOTDON + PROMPT 31 42 "n. " +END + +END + +END