From 43ba94b6921ccebfd51f47a0643e6d8b049f61dc Mon Sep 17 00:00:00 2001 From: cris Date: Mon, 22 May 2000 08:00:55 +0000 Subject: [PATCH] Patch level : Files correlati : Ricompilazione Demo : [ ] Commento : Aggiunti nuovi form per etichette, lettere, stampe varie git-svn-id: svn://10.65.10.50/trunk@9002 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- at/atcartbo.frm | 257 ++++++++++++++++++++++++++++++++++++++++ at/atcarto2.frm | 175 +++++++++++++++++++++++++++ at/atesezio.frm | 140 ++++++++++++++++++++++ at/atesezpr.frm | 120 +++++++++++++++++++ at/atet10bo.frm | 128 ++++++++++++++++++++ at/atet90bo.frm | 128 ++++++++++++++++++++ at/atetirn1.frm | 97 +++++++++++++++ at/atlecobo.frm | 257 ++++++++++++++++++++++++++++++++++++++++ at/atletter.frm | 132 +++++++++++++++++++++ at/atrubrsa.frm | 169 ++++++++++++++++++++++++++ at/atscadbo.frm | 307 ++++++++++++++++++++++++++++++++++++++++++++++++ 11 files changed, 1910 insertions(+) create mode 100755 at/atcartbo.frm create mode 100755 at/atcarto2.frm create mode 100755 at/atesezio.frm create mode 100755 at/atesezpr.frm create mode 100755 at/atet10bo.frm create mode 100755 at/atet90bo.frm create mode 100755 at/atetirn1.frm create mode 100755 at/atlecobo.frm create mode 100755 at/atletter.frm create mode 100755 at/atrubrsa.frm create mode 100755 at/atscadbo.frm diff --git a/at/atcartbo.frm b/at/atcartbo.frm new file mode 100755 index 000000000..8853ee9e1 --- /dev/null +++ b/at/atcartbo.frm @@ -0,0 +1,257 @@ +USE 116 +JOIN 90 INTO CODICE==CODICE +JOIN 115 INTO NUMERO==NUMERO +JOIN LCP TO 90 ALIAS 100 INTO CODTAB==DOM_CODLOC +JOIN LDN TO 90 ALIAS 400 INTO CODTAB==PUNTORACC +JOIN 13 TO 90 ALIAS 501 INTO COM==DOM_CODCOM +JOIN 96 TO 90 INTO CODSEZ==CODSEZ|CODSOT==CODSOT +JOIN LCP TO 400@ ALIAS 102 INTO CODTAB==S7 +JOIN 13 TO 400@ ALIAS 503 INTO COM==S6 + +END +DESCRIPTION +BEGIN + 116->* "Righe convocazioni" + 115->* "Convocazioni" + 90->* "Soggetti Sezioni AVIS" + 13->* "COMUNI" + 100@->* "Localita' postali" + 400@->* "Punti di prelievo" + 96->* "Sezioni associative" +END + +GENERAL +BEGIN + OFFSET 0 0 + FONT "Roman 12cpi" + 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 51 +BEGIN + KEY "Cognome e nome" + PROMPT 56 16 "" +END + +STRINGA 4 30 +BEGIN + KEY "Indirizzo" + FIELD 90->DOM_INDIR + PROMPT 56 17 "" +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 501@->CAPCOM + FIELD 90->DOM_CAP + PROMPT 56 19 "" +END + +STRINGA 7 30 +BEGIN + KEY "Denominazione localita' o comune" + FIELD 100@->S0 + FIELD 501@->DENCOM + PROMPT 0 0 "" + FLAGS "H" + MESSAGE RESET,9|COPY,9 +END + +STRINGA 8 5 +BEGIN + KEY "Provincia" + FIELD 501@->PROVCOM + PROMPT 0 0 "" + FLAGS "H" + MESSAGE APPEND,9 +END + +STRINGA 9 50 2 +BEGIN + KEY "Loc./Com. e Prov." + PROMPT 62 19 "" +END + +STRINGA 10 25 +BEGIN + KEY "Invito per" + PROMPT 11 4 "per DONAZIONE SANGUE" + //FIELD 115->TIPO +END + +STRINGA 11 25 +BEGIN + KEY "Data convocazione" + PROMPT 37 2 "" + FIELD 116->DATACONV +END + +STRINGA 12 10 +BEGIN + KEY "TESTO" + PROMPT 11 5 "Presso" +END + +STRINGA 13 50 +BEGIN + KEY "Presso: denominazione punto di prelievo" + PROMPT 11 6 "" + FIELD 400@->S0 +END + +STRINGA 14 50 +BEGIN + KEY "Presso: indirizzo punto di prelievo" + PROMPT 11 7 "" + FIELD 400@->S1 +END + +STRINGA 15 4 +BEGIN + KEY "Codice localita'" + FIELD 400@->S7 + PROMPT 0 0 "" + FLAGS "H" +END + +STRINGA 16 5 +BEGIN + KEY "CAP" + //FIELD 102@->S6 + //FIELD 503@->CAPCOM + FIELD 400@->S8 + PROMPT 11 8 "" +END + +STRINGA 17 30 +BEGIN + KEY "Denominazione localita' o comune" + FIELD 102@->S0 + FIELD 503@->DENCOM + PROMPT 0 0 "" + FLAGS "H" + MESSAGE RESET,20|COPY,20 +END + +STRINGA 18 5 +BEGIN + KEY "Provincia" + FIELD 503@->PROVCOM + PROMPT 0 0 "" + FLAGS "H" + MESSAGE APPEND,20 +END + +STRINGA 19 20 +BEGIN + KEY "telefoni" + PROMPT 0 0 "-" + FIELD 400@->S4 + FLAGS "H" + MESSAGE APPEND,20 +END + + +STRINGA 20 50 2 +BEGIN + KEY "Loc./Com. e Prov." + PROMPT 17 8 "" +END + +STRINGA 21 50 +BEGIN + KEY "orario" + PROMPT 11 9 "" + FIELD 400@->S2 +END + +STRING 22 2 +BEGIN + KEY "Sezione" + PROMPT 20 16 "" + FIELD 90->CODSEZ +END + +STRING 23 2 +BEGIN + KEY "Sottogruppo" + FIELD 90->CODSOT + PROMPT 22 16 "" +END + +STRING 24 2 +BEGIN + KEY "Categoria" + FIELD 90->CATDON + PROMPT 30 16 "" +END + +STRINGA 25 2 +BEGIN + KEY "Cartella clinica" + FIELD 90->CODCL + PROMPT 35 16 "" +END + +STRINGA 26 6 +BEGIN + KEY "Tessera" + FIELD 90->TESSAVIS + PROMPT 37 16 "" +END + +STRINGA 27 25 +BEGIN + KEY "" + PROMPT 20 19 "Presentarsi a digiuno" +END + +STRING 28 4 +BEGIN + KEY "Gruppo az." + PROMPT 15 16 "" + FIELD 90->GRUPPOAZIE +END + +STRING 29 30 +BEGIN + KEY "Gruppo az." + PROMPT 56 18 "" + FIELD 90->DOM_DISTRI +END + + +END + +END diff --git a/at/atcarto2.frm b/at/atcarto2.frm new file mode 100755 index 000000000..b6209102c --- /dev/null +++ b/at/atcarto2.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 56 16 "" +END + +STRINGA 4 20 2 +BEGIN + KEY "Indirizzo" + FIELD 90->DOM_INDIR + PROMPT 56 17 "" +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 56 19 "" +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 62 19 "" +END + +STRINGA 10 25 +BEGIN + KEY "Invito per" + PROMPT 11 4 "" +END + +STRINGA 11 25 +BEGIN + KEY "Data convocazione" + PROMPT 37 2 "" +END + +STRINGA 12 25 +BEGIN + KEY "Presso: riga 1" + PROMPT 11 5 "" +END + +STRINGA 13 25 +BEGIN + KEY "Presso: riga 2" + PROMPT 11 6 "" +END + +STRINGA 14 25 +BEGIN + KEY "Presso: riga 3" + PROMPT 11 7 "" +END + +STRINGA 15 25 +BEGIN + KEY "Presso: riga 4" + PROMPT 11 8 "" +END + +STRINGA 16 14 +BEGIN + KEY "Orario" + PROMPT 11 9 "" +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/atesezio.frm b/at/atesezio.frm new file mode 100755 index 000000000..eb6f7744e --- /dev/null +++ b/at/atesezio.frm @@ -0,0 +1,140 @@ +USE 96 +JOIN 13 INTO COM==COM +JOIN LCP INTO CODTAB==LOCALITA + +END +DESCRIPTION +BEGIN + 96->* "Sezioni" + 13->* "COMUNI" + LCP->* "Località postali" +END + +GENERAL +BEGIN + OFFSET 0 0 + FONT "Arial" + SIZE 12 + GRID "" +END + +SECTION BODY ODD 9 + +STRINGA 1 25 +BEGIN + KEY "Sezione" + FIELD 96->DENSEZ + PROMPT 0 0 "" + FLAGS "H" + MESSAGE RESET,4|COPY,4|"/",2 +END + +STRINGA 13 25 +BEGIN + KEY "/" + FIELD 96->DENSOT + PROMPT 0 0 "" + FLAGS "H" + MESSAGE EMPTY RESET,2 +END + +STRINGA 2 1 +BEGIN + KEY "/" + PROMPT 0 0 "" + FLAGS "H" + MESSAGE APPEND,4 +END + +STRINGA 3 25 +BEGIN + KEY "Sottogruppo" + FIELD 96->DENSOT + PROMPT 0 0 "" + FLAGS "H" + MESSAGE APPEND,4 +END + +STRINGA 4 33 3 +BEGIN + KEY "Denominazione" + PROMPT 1 2 "" +END + +STRINGA 5 33 2 +BEGIN + KEY "Indirizzo" + PROMPT 1 5 "" + FIELD 96->INDIRIZZO +END + +STRINGA 6 4 +BEGIN + KEY "Codice localita'" + PROMPT 0 0 "" + FLAG "H" + FIELD 96->LOCALITA + MESSAGE ENABLE,1@|DISABLE,2@ + MESSAGE EMPTY ENABLE,2@|DISABLE,1@ +END + +STRINGA 7 5 +BEGIN + KEY "CAP loc." + PROMPT 1 7 "" + FIELD LCP->S6 + GROUP 1 +END + +STRINGA 8 30 +BEGIN + KEY "Localita'" + PROMPT 0 0 "" + FIELD LCP->S0 + GROUP 1 + FLAG "H" + MESSAGE RESET,12|COPY,12 +END + +STRINGA 9 5 +BEGIN + KEY "CAP" + PROMPT 1 7 "" + FIELD 13->CAPCOM + GROUP 2 +END + +STRINGA 10 50 +BEGIN + KEY "Comune" + PROMPT 0 0 "" + FIELD 13->DENCOM + GROUP 2 + FLAG "H" + MESSAGE RESET,12|COPY,12 +END + +STRINGA 11 5 +BEGIN + KEY "Provincia" + PROMPT 0 0 "" + FIELD 13->PROVCOM + FLAG "H" + MESSAGE APPEND,12 +END + +STRINGA 12 27 2 +BEGIN + KEY "Loc./Com. e Prov." + PROMPT 7 7 "" +END + +STRINGA 13 15 +BEGIN + KEY "Spett.le" + PROMPT 1 1 "Spett.le AVIS " +END + +END + +END diff --git a/at/atesezpr.frm b/at/atesezpr.frm new file mode 100755 index 000000000..ffedeb39c --- /dev/null +++ b/at/atesezpr.frm @@ -0,0 +1,120 @@ +USE 96 +JOIN 13 INTO COM==COM +JOIN LCP INTO CODTAB==LOCALITA + +END +DESCRIPTION +BEGIN + 96->* "Sezioni" + 13->* "COMUNI" + LCP->* "Località postali" +END + +GENERAL +BEGIN + OFFSET 0 0 + FONT "" + SIZE 12 + GRID "" +END + +SECTION BODY ODD 6 + +STRINGA 1 15 +BEGIN + PROMPT 0 0 "" + FLAG "H" + MESSAGE RESET,3|"Spett.le AVIS",3 +END + +STRINGA 2 50 +BEGIN + KEY "Denominazione" + PROMPT 0 0 "" + FIELD 96->DENOMINAZ + FLAG "H" + MESSAGE APPEND,3 +END + +STRINGA 3 40 2 +BEGIN + PROMPT 1 1 "" +END + +STRINGA 4 40 2 +BEGIN + KEY "Indirizzo" + PROMPT 1 3 "" + FIELD 96->INDIRIZZO +END + +STRINGA 5 1 +BEGIN + PROMPT 0 0 "" + FLAG "H" +END + +STRINGA 6 4 +BEGIN + KEY "Codice localita'" + PROMPT 0 0 "" + FLAG "H" + FIELD 96->LOCALITA + MESSAGE ENABLE,1@|DISABLE,2@ + MESSAGE EMPTY ENABLE,2@|DISABLE,1@ +END + +STRINGA 7 5 +BEGIN + KEY "CAP loc." + PROMPT 1 4 "" + FIELD LCP->S6 + GROUP 1 +END + +STRINGA 8 30 +BEGIN + KEY "Localita'" + PROMPT 0 0 "" + FIELD LCP->S0 + GROUP 1 + FLAG "H" + MESSAGE RESET,12|COPY,12 +END + +STRINGA 9 5 +BEGIN + KEY "CAP" + PROMPT 1 4 "" + FIELD 13->CAPCOM + GROUP 2 +END + +STRINGA 10 50 +BEGIN + KEY "Comune" + PROMPT 0 0 "" + FIELD 13->DENCOM + GROUP 2 + FLAG "H" + MESSAGE RESET,12|COPY,12 +END + +STRINGA 11 5 +BEGIN + KEY "Provincia" + PROMPT 0 0 "" + FIELD 13->PROVCOM + FLAG "H" + MESSAGE APPEND,12 +END + +STRINGA 12 27 2 +BEGIN + KEY "Loc./Com. e Prov." + PROMPT 7 4 "" +END + +END + +END diff --git a/at/atet10bo.frm b/at/atet10bo.frm new file mode 100755 index 000000000..bf3f93c34 --- /dev/null +++ b/at/atet10bo.frm @@ -0,0 +1,128 @@ +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 40 1 +BEGIN + KEY "Cognome e nome" + PROMPT 1 2 "" +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 + FIELD 90->DOM_CAP + 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 33 1 +BEGIN + KEY "Loc./Com. e Prov." + PROMPT 7 5 "" +END + +STRINGA 10 2 +BEGIN + KEY "Categoria" + FIELD 90->CATDON + FIELD 90->CATNOND1 + PROMPT 1 1 "" +END + +STRINGA 11 2 +BEGIN + KEY "Cartella clinica" + FIELD 90->CODCL + PROMPT 7 1 "" +END + +STRINGA 12 10 +BEGIN + KEY "Tessera" + FIELD 90->TESSAVIS + PROMPT 9 1 "" +END + +STRINGA 13 30 +BEGIN + KEY "Presso" + FIELD 90->DOM_DISTRI + PROMPT 1 4 "" +END + + +END + +END diff --git a/at/atet90bo.frm b/at/atet90bo.frm new file mode 100755 index 000000000..926b1254a --- /dev/null +++ b/at/atet90bo.frm @@ -0,0 +1,128 @@ +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 1 +BEGIN + KEY "Cognome e nome" + PROMPT 1 2 "" +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 + FIELD 90->DOM_CAP + 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 45 1 +BEGIN + KEY "Loc./Com. e Prov." + PROMPT 7 5 "" +END + +STRINGA 10 2 +BEGIN + KEY "Categoria" + FIELD 90->CATDON + FIELD 90->CATNOND1 + PROMPT 1 1 "" +END + +STRINGA 11 2 +BEGIN + KEY "Cartella clinica" + FIELD 90->CODCL + PROMPT 7 1 "" +END + +STRINGA 12 10 +BEGIN + KEY "Tessera" + FIELD 90->TESSAVIS + PROMPT 9 1 "" +END + +STRINGA 13 30 +BEGIN + KEY "Presso" + FIELD 90->DOM_DISTRI + PROMPT 1 4 "" +END + + +END + +END diff --git a/at/atetirn1.frm b/at/atetirn1.frm new file mode 100755 index 000000000..516e39ac6 --- /dev/null +++ b/at/atetirn1.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 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 + +END + +END diff --git a/at/atlecobo.frm b/at/atlecobo.frm new file mode 100755 index 000000000..60a0b78c6 --- /dev/null +++ b/at/atlecobo.frm @@ -0,0 +1,257 @@ +USE 116 +JOIN 90 INTO CODICE==CODICE +JOIN 115 INTO NUMERO==NUMERO +JOIN LCP TO 90 ALIAS 100 INTO CODTAB==DOM_CODLOC +JOIN LDN TO 90 ALIAS 400 INTO CODTAB==PUNTORACC +JOIN 13 TO 90 ALIAS 501 INTO COM==DOM_CODCOM +JOIN 96 TO 90 INTO CODSEZ==CODSEZ|CODSOT==CODSOT +JOIN LCP TO 400@ ALIAS 102 INTO CODTAB==S7 +JOIN 13 TO 400@ ALIAS 503 INTO COM==S6 + +END +DESCRIPTION +BEGIN + 116->* "Righe convocazioni" + 115->* "Convocazioni" + 90->* "Soggetti Sezioni AVIS" + 13->* "COMUNI" + 100@->* "Localita' postali" + 400@->* "Punti di prelievo" + 96->* "Sezioni associative" +END + +GENERAL +BEGIN + OFFSET 0 0 + FONT "Roman 12cpi" + SIZE 12 + GRID "" +END + +SECTION BODY ODD 70 + +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 56 16 "" +END + +STRINGA 4 30 +BEGIN + KEY "Indirizzo" + FIELD 90->DOM_INDIR + PROMPT 56 17 "" +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 501@->CAPCOM + FIELD 90->DOM_CAP + PROMPT 56 19 "" +END + +STRINGA 7 30 +BEGIN + KEY "Denominazione localita' o comune" + FIELD 100@->S0 + FIELD 501@->DENCOM + PROMPT 0 0 "" + FLAGS "H" + MESSAGE RESET,9|COPY,9 +END + +STRINGA 8 5 +BEGIN + KEY "Provincia" + FIELD 501@->PROVCOM + PROMPT 0 0 "" + FLAGS "H" + MESSAGE APPEND,9 +END + +STRINGA 9 50 2 +BEGIN + KEY "Loc./Com. e Prov." + PROMPT 62 19 "" +END + +STRINGA 10 25 +BEGIN + KEY "Invito per" + PROMPT 11 4 "per DONAZIONE SANGUE" + //FIELD 115->TIPO +END + +STRINGA 11 25 +BEGIN + KEY "Data convocazione" + PROMPT 37 2 "" + FIELD 116->DATACONV +END + +STRINGA 12 10 +BEGIN + KEY "TESTO" + PROMPT 11 5 "Presso" +END + +STRINGA 13 50 +BEGIN + KEY "Presso: denominazione punto di prelievo" + PROMPT 11 6 "" + FIELD 400@->S0 +END + +STRINGA 14 50 +BEGIN + KEY "Presso: indirizzo punto di prelievo" + PROMPT 11 7 "" + FIELD 400@->S1 +END + +STRINGA 15 4 +BEGIN + KEY "Codice localita'" + FIELD 400@->S7 + PROMPT 0 0 "" + FLAGS "H" +END + +STRINGA 16 5 +BEGIN + KEY "CAP" + //FIELD 102@->S6 + //FIELD 503@->CAPCOM + FIELD 400@->S8 + PROMPT 11 8 "" +END + +STRINGA 17 30 +BEGIN + KEY "Denominazione localita' o comune" + FIELD 102@->S0 + FIELD 503@->DENCOM + PROMPT 0 0 "" + FLAGS "H" + MESSAGE RESET,20|COPY,20 +END + +STRINGA 18 5 +BEGIN + KEY "Provincia" + FIELD 503@->PROVCOM + PROMPT 0 0 "" + FLAGS "H" + MESSAGE APPEND,20 +END + +STRINGA 19 20 +BEGIN + KEY "telefoni" + PROMPT 0 0 "-" + FIELD 400@->S4 + FLAGS "H" + MESSAGE APPEND,20 +END + + +STRINGA 20 50 2 +BEGIN + KEY "Loc./Com. e Prov." + PROMPT 17 8 "" +END + +STRINGA 21 50 +BEGIN + KEY "orario" + PROMPT 11 9 "" + FIELD 400@->S2 +END + +STRING 22 2 +BEGIN + KEY "Sezione" + PROMPT 20 16 "" + FIELD 90->CODSEZ +END + +STRING 23 2 +BEGIN + KEY "Sottogruppo" + FIELD 90->CODSOT + PROMPT 22 16 "" +END + +STRING 24 2 +BEGIN + KEY "Categoria" + FIELD 90->CATDON + PROMPT 30 16 "" +END + +STRINGA 25 2 +BEGIN + KEY "Cartella clinica" + FIELD 90->CODCL + PROMPT 35 16 "" +END + +STRINGA 26 6 +BEGIN + KEY "Tessera" + FIELD 90->TESSAVIS + PROMPT 37 16 "" +END + +STRINGA 27 25 +BEGIN + KEY "" + PROMPT 20 19 "Presentarsi a digiuno" +END + +STRING 28 4 +BEGIN + KEY "Gruppo az." + PROMPT 15 16 "" + FIELD 90->GRUPPOAZIE +END + +STRING 29 30 +BEGIN + KEY "Gruppo az." + PROMPT 56 18 "" + FIELD 90->DOM_DISTRI +END + + +END + +END diff --git a/at/atletter.frm b/at/atletter.frm new file mode 100755 index 000000000..69f07b029 --- /dev/null +++ b/at/atletter.frm @@ -0,0 +1,132 @@ +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 63 + +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 48 11 "" +END + +STRINGA 4 30 +BEGIN + KEY "Indirizzo" + FIELD 90->DOM_INDIR + PROMPT 48 13 "" +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 48 15 "" +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 54 15 "" +END + +STRINGA 10 2 +BEGIN + KEY "Sezione" + FIELD 90->CODSEZ + PROMPT 5 22 "" +END + +STRINGA 11 2 +BEGIN + KEY "Sezione" + FIELD 90->CODSOT + PROMPT 7 22 "/" +END + +STRINGA 12 +BEGIN + KEY "Tessera" + FIELD 90->TESSAVIS + PROMPT 12 22 "" +END + +DATA 13 +BEGIN + KEY "Data fine sospensione" + FIELD 90->DATA_PROS + PROMPT 35 30 "" +END + +STRINGA 14 2 +BEGIN + KEY "Prossimo controllo" + FIELD 90->PROS_STATO + PROMPT 11 63 "" +END + +END + +END diff --git a/at/atrubrsa.frm b/at/atrubrsa.frm new file mode 100755 index 000000000..6494b95b5 --- /dev/null +++ b/at/atrubrsa.frm @@ -0,0 +1,169 @@ +USE 90 + +END +DESCRIPTION +BEGIN + 90->* "Soggetti Sezioni AVIS" +END + +GENERAL +BEGIN + OFFSET 0 0 + FONT "" + SIZE 12 + GRID "" +END + +SECTION HEADER ODD 3 + +STRINGA 1 6 +BEGIN + KEY "Cartella clinica" + PROMPT 1 2 "N.Car." +END + +STRINGA 2 2 +BEGIN + KEY "Categoria" + PROMPT 8 2 "C." +END + +STRINGA 3 15 +BEGIN + KEY "Cognome e nome" + PROMPT 11 2 "Cognome e nome" +END + +STRINGA 4 7 +BEGIN + KEY "Nato il" + PROMPT 63 2 "Nato il" +END + +STRINGA 5 9 +BEGIN + KEY "Gruppo AB0" + PROMPT 74 2 " AB0 " +END + +STRINGA 6 9 +BEGIN + KEY "Rh/AntiD" + PROMPT 84 2 " Rh " +END + +STRINGA 7 9 +BEGIN + KEY "Kell" + PROMPT 94 2 " Kell " +END + +STRINGA 8 9 +BEGIN + KEY "Du" + PROMPT 104 2 " Du " +END + +STRINGA 9 11 +BEGIN + KEY "Fenotipo" + PROMPT 114 2 " Fenotipo Rh " +END + +END // END SECTION HEADER + +SECTION BODY ODD 3 + +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 11 1 "" +END + +STRINGA 4 6 +BEGIN + KEY "Cartella clinica" + PROMPT 1 1 "" + FIELD 90->CODCL +END + +STRINGA 5 2 +BEGIN + KEY "Categoria" + PROMPT 8 1 "" + FIELD 90->CATDON +END + +DATA 6 10 +BEGIN + KEY "Data nascita" + PROMPT 63 1 "" + FIELD 90->DATANASC +END + +STRINGA 7 3 +BEGIN + KEY "Gruppo AB0" + PROMPT 77 1 "" + FIELD 90->GRUPPOAB0 +END + +STRINGA 8 3 +BEGIN + KEY "Rh/AntiD" + PROMPT 87 1 "" + FIELD 90->RHANTID +END + +STRINGA 9 3 +BEGIN + KEY "Kell" + PROMPT 97 1 "" + FIELD 90->KELL +END + +STRINGA 10 3 +BEGIN + KEY "Du" + PROMPT 107 1 "" + FIELD 90->DU +END + +STRINGA 11 6 +BEGIN + KEY "Fenotipo" + PROMPT 115 1 "" + FIELD 90->FENOTIPORH +END + +END // END SECTION BODY + +SECTION FOOTER ODD 3 + +STRINGA 1 10 +BEGIN + KEY "Niente" + PROMPT 1 1 "---" +END + +END // END SECTION FOOTER + +END // END FORM diff --git a/at/atscadbo.frm b/at/atscadbo.frm new file mode 100755 index 000000000..f61e50b14 --- /dev/null +++ b/at/atscadbo.frm @@ -0,0 +1,307 @@ +USE 90 + +END +DESCRIPTION +BEGIN + 90->* "Soggetti Sezioni AVIS" +END + +GENERAL +BEGIN + OFFSET 0 0 + FONT "Roman" + SIZE 12 + GRID "" +END + +SECTION HEADER ODD 4 + +STRINGA 1 15 +BEGIN + KEY "Cognome e nome" + PROMPT 1 2 "Cognome e nome" +END + +STRINGA 2 10 +BEGIN + KEY "Data nascita" + PROMPT 37 2 "Data nasc." +END + +STRINGA 3 6 +BEGIN + KEY "Tessera" + PROMPT 48 2 "Tess." +END + +STRINGA 4 2 +BEGIN + KEY "Cat.don." + PROMPT 50 3 "Ca" +END + +STRINGA 5 10 +BEGIN + KEY "Data ult. don." + PROMPT 58 2 "Ult. don." +END + +STRINGA 6 4 +BEGIN + KEY "Totale donazioni" + PROMPT 69 2 "Tot." +END + +STRINGA 7 4 +BEGIN + KEY "Totale donazioni" + PROMPT 69 3 "don." +END + +STRINGA 8 6 +BEGIN + KEY "Int. SI" + PROMPT 73 2 "Int.SI" +END + +STRINGA 9 6 +BEGIN + KEY "Int. AF" + PROMPT 73 3 "Int.AF" +END + +STRINGA 10 4 +BEGIN + KEY "Gruppo AB0" + PROMPT 80 2 "Grup" +END + +STRINGA 11 3 +BEGIN + KEY "Rh/AntiD" + PROMPT 80 3 "Rh" +END + +STRINGA 12 14 +BEGIN + KEY "Telefono abitazione" + PROMPT 85 2 "Tel. abitaz." +END + +STRINGA 13 14 +BEGIN + KEY "Telefono lavoro" + PROMPT 85 3 "Tel. lavoro" +END + +STRINGA 14 14 +BEGIN + KEY "Telefono altro" + PROMPT 100 2 "Tel. altro" +END + +STRINGA 15 15 +BEGIN + KEY "Data prosssima SI" + PROMPT 115 2 "Data pross.SI" +END + +STRINGA 16 35 +BEGIN + KEY "Cognome e nome" + PROMPT 1 4 "-----------------------------------" +END + +STRINGA 17 10 +BEGIN + KEY "Data nascita" + PROMPT 37 4 "----------" +END + +STRINGA 18 6 +BEGIN + KEY "Tessera" + PROMPT 48 4 "------" +END + +STRINGA 19 10 +BEGIN + KEY "Data ult. don." + PROMPT 58 4 "----------" +END + +STRINGA 20 3 +BEGIN + KEY "Totale donazioni" + PROMPT 69 4 "---" +END + +STRINGA 21 6 +BEGIN + KEY "Int. SI" + PROMPT 73 4 "------" +END + +STRINGA 22 4 +BEGIN + KEY "Gruppo AB0" + PROMPT 80 4 "----" +END + +STRINGA 23 14 +BEGIN + KEY "Telefono abitazione" + PROMPT 85 4 "--------------" +END + +STRINGA 24 14 +BEGIN + KEY "Telefono altro" + PROMPT 100 4 "--------------" +END + +STRINGA 15 15 +BEGIN + KEY "Data prosssima SI" + PROMPT 115 4 "-------------" +END + +END // END SECTION HEADER + +SECTION BODY ODD 3 + +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 35 2 +BEGIN + KEY "Cognome e nome" + PROMPT 1 1 "" +END + +DATA 4 10 +BEGIN + KEY "Data nascita" + PROMPT 37 1 "" + FIELD 90->DATANASC +END + +STRINGA 5 6 +BEGIN + KEY "Tessera" + PROMPT 48 1 "" + FIELD 90->TESSAVIS +END + +STRINGA 6 2 +BEGIN + KEY "Cat.don." + PROMPT 50 2 "" + FIELD 90->CATDON +END + +DATA 7 +BEGIN + KEY "Data ult. don." + PROMPT 58 1 "" + FIELD 90->DATAULTDON +END + +STRINGA 8 2 +BEGIN + KEY "Tipo ult. don." + PROMPT 61 2 "" + FIELD 90->TIPOULTDON +END + +NUMERO 9 3 +BEGIN + KEY "Totale donaz." + PROMPT 69 1 "" + FIELD 90->TOTDON +END + +NUMERO 10 3 +BEGIN + KEY "Int. SI" + PROMPT 76 1 "" + FIELD 90->INTSI +END + +NUMERO 11 3 +BEGIN + KEY "Int. AF" + PROMPT 76 2 "" + FIELD 90->INTAF +END + +STRINGA 12 3 +BEGIN + KEY "Gruppo AB0" + PROMPT 80 1 "" + FIELD 90->GRUPPOAB0 +END + +STRINGA 13 3 +BEGIN + KEY "Rh/AntiD" + PROMPT 80 2 "" + FIELD 90->RHANTID +END + +STRINGA 14 14 +BEGIN + KEY "Telefono abitazione" + PROMPT 85 1 "" + FIELD 90->TELABI +END + +STRINGA 15 14 +BEGIN + KEY "Telefono lavoro" + PROMPT 85 2 "" + FIELD 90->TELLAV +END + +STRINGA 16 14 +BEGIN + KEY "Telefono altro" + PROMPT 100 1 "" + FIELD 90->TELALT +END + +DATA 17 +BEGIN + KEY "Data prosssima SI" + PROMPT 115 1 "" + FIELD 90->DATAPROSSI +END + +END // END SECTION BODY + +SECTION FOOTER ODD 3 + +STRINGA 1 10 +BEGIN + KEY "Niente" + PROMPT 1 1 "---" +END + +END // END SECTION FOOTER + +END // END FORM