f2185ee347
Files correlati : un casino Ricompilazione Demo : [ ] Commento : allineato versione git-svn-id: svn://10.65.10.50/trunk@13415 c028cbd2-c16b-5b4b-a496-9718f37d4682
725 lines
10 KiB
Plaintext
Executable File
725 lines
10 KiB
Plaintext
Executable File
USE 90
|
|
JOIN CTD ALIAS 100 INTO CODTAB==CATDON
|
|
JOIN CTN ALIAS 110 INTO CODTAB==CATNOND1
|
|
JOIN CTN ALIAS 120 INTO CODTAB==CATNOND2
|
|
JOIN TCS ALIAS 200 INTO CODTAB==STATO
|
|
JOIN LDN ALIAS 300 INTO CODTAB==PUNTORACC
|
|
JOIN LCP ALIAS 400 INTO CODTAB==RES_CODLOC
|
|
JOIN LCP ALIAS 410 INTO CODTAB==DOM_CODLOC
|
|
JOIN 13 ALIAS 500 INTO COM==RES_CODCOM
|
|
JOIN 13 ALIAS 510 INTO COM==DOM_CODCOM
|
|
JOIN 13 ALIAS 520 INTO COM==COMNASC
|
|
JOIN 96 INTO CODSEZ==CODSEZ
|
|
JOIN 97 INTO CODMED==CODMED
|
|
END
|
|
DESCRIPTION
|
|
BEGIN
|
|
90->* "Soggetti Sezioni AVIS"
|
|
CTD->* "Categorie donatori"
|
|
CTN->* "Categorie non donatori"
|
|
TCS->* "Tipi/Esiti controlli sanitari"
|
|
LDN->* "Luoghi di donazione/Punti di raccolta"
|
|
LCP->* "Localita' postali"
|
|
13->* "COMUNI"
|
|
96->* "Sezioni AVIS"
|
|
97->* "Medici"
|
|
END
|
|
GENERAL
|
|
BEGIN
|
|
OFFSET 0 0
|
|
FONT "Arial"
|
|
SIZE 12
|
|
GRID ""
|
|
END
|
|
SECTION BODY ODD 33
|
|
NUMERO 1 15
|
|
BEGIN
|
|
KEY "Codice"
|
|
FIELD 90->CODICE
|
|
PROMPT 1 1 "Codice "
|
|
END
|
|
STRINGA 2 33
|
|
BEGIN
|
|
KEY "Cognome"
|
|
FIELD 90->COGNOME
|
|
PROMPT 17 1 "Cognome "
|
|
END
|
|
STRINGA 3 30
|
|
BEGIN
|
|
KEY "Nome"
|
|
FIELD 90->NOME
|
|
PROMPT 52 1 "Nome "
|
|
END
|
|
DATA 4 18
|
|
BEGIN
|
|
KEY "Data nascita"
|
|
FIELD 90->DATANASC
|
|
PROMPT 1 2 "Nato il "
|
|
END
|
|
STRINGA 5 30
|
|
BEGIN
|
|
KEY "Comune di nascita"
|
|
PROMPT 0 0 ""
|
|
FIELD 520@->DENCOM
|
|
FLAG "H"
|
|
MESSAGE RESET,7|COPY,7
|
|
END
|
|
STRINGA 6 5
|
|
BEGIN
|
|
KEY "Provincia di nascita"
|
|
PROMPT 0 0 ""
|
|
FIELD 520@->PROVCOM
|
|
FLAG "H"
|
|
MESSAGE APPEND,7
|
|
END
|
|
STRINGA 7 40
|
|
BEGIN
|
|
KEY "Comune e provincia di nascita"
|
|
PROMPT 20 2 "Nato a "
|
|
END
|
|
STRINGA 8 6
|
|
BEGIN
|
|
KEY "Testo"
|
|
PROMPT 62 2 "Sesso "
|
|
END
|
|
LISTA 9
|
|
BEGIN
|
|
KEY "Sesso"
|
|
PROMPT 68 2 "Sesso "
|
|
FIELD 90->SESSO
|
|
ITEM "0|Sconosciuto"
|
|
ITEM "1|Maschio"
|
|
ITEM "2|Femmina"
|
|
ITEM "9|Non specif."
|
|
END
|
|
STRINGA 10 7
|
|
BEGIN
|
|
KEY "Codice sezione"
|
|
FIELD 90->CODSEZ
|
|
PROMPT 1 4 "Sez. "
|
|
END
|
|
STRINGA 11 25
|
|
BEGIN
|
|
KEY "Denominazione sezione"
|
|
FIELD 96->DENSEZ
|
|
PROMPT 9 4 ""
|
|
END
|
|
STRINGA 12 7
|
|
BEGIN
|
|
KEY "Codice sottog."
|
|
FIELD 90->CODSOT
|
|
PROMPT 41 4 "Sot. "
|
|
END
|
|
STRINGA 13 25
|
|
BEGIN
|
|
KEY "Denominazione sottog."
|
|
FIELD 96->DENSOT
|
|
PROMPT 49 4 ""
|
|
END
|
|
STRINGA 14 7
|
|
BEGIN
|
|
KEY "Categoria don."
|
|
FIELD 90->CATDON
|
|
PROMPT 1 5 "Cat. "
|
|
END
|
|
STRINGA 15 25
|
|
BEGIN
|
|
KEY "Descrizione categoria"
|
|
FIELD 100@->S0
|
|
PROMPT 9 5 ""
|
|
END
|
|
DATA 16 21
|
|
BEGIN
|
|
KEY "Data iscrizione"
|
|
FIELD 90->DATAISC
|
|
PROMPT 36 5 "Data iscr. "
|
|
END
|
|
DATA 17 20
|
|
BEGIN
|
|
KEY "Data dimissione"
|
|
FIELD 90->DATADIM
|
|
PROMPT 59 5 "Data dim. "
|
|
END
|
|
STRINGA 18 16
|
|
BEGIN
|
|
KEY "Tessera AVIS"
|
|
FIELD 90->TESSAVIS
|
|
PROMPT 1 7 "Tess.AVIS "
|
|
END
|
|
STRINGA 19 13
|
|
BEGIN
|
|
KEY "Codice Centro Trasfusionale"
|
|
FIELD 90->CODCT
|
|
PROMPT 18 7 "Cod.CT "
|
|
END
|
|
STRINGA 20 16
|
|
BEGIN
|
|
KEY "Cartella clinica"
|
|
FIELD 90->CODCL
|
|
PROMPT 33 7 "Car.clin. "
|
|
END
|
|
STRINGA 21 28
|
|
BEGIN
|
|
KEY "Documento di identita'"
|
|
FIELD 90->DOCID
|
|
PROMPT 51 7 "Doc.id. "
|
|
END
|
|
STRINGA 22 26
|
|
BEGIN
|
|
KEY "Codice fiscale"
|
|
FIELD 90->CF
|
|
PROMPT 1 8 "Cod.fisc. "
|
|
END
|
|
STRINGA 23 10
|
|
BEGIN
|
|
KEY "Testo"
|
|
PROMPT 1 10 "Domicilio:"
|
|
END
|
|
STRINGA 24 30
|
|
BEGIN
|
|
KEY "Domicilio: indirizzo"
|
|
FIELD 90->DOM_INDIR
|
|
PROMPT 1 11 ""
|
|
MESSAGE RESET,30
|
|
END
|
|
STRINGA 25 4
|
|
BEGIN
|
|
KEY "Domicilio: codice localita'"
|
|
FIELD 90->DOM_CODLOC
|
|
PROMPT 0 0 ""
|
|
FLAG "H"
|
|
END
|
|
STRINGA 26 5
|
|
BEGIN
|
|
KEY "Domicilio: CAP"
|
|
FIELD 410@->S6
|
|
FIELD 510@->CAPCOM
|
|
PROMPT 0 0 ""
|
|
FLAG "H"
|
|
MESSAGE APPEND,30
|
|
END
|
|
STRINGA 27 30
|
|
BEGIN
|
|
KEY "Domicilio: localita'"
|
|
FIELD 410@->S0
|
|
PROMPT 0 0 ""
|
|
FLAG "H"
|
|
MESSAGE APPEND,30
|
|
END
|
|
STRINGA 28 50
|
|
BEGIN
|
|
KEY "Domicilio: comune"
|
|
FIELD 510@->DENCOM
|
|
PROMPT 0 0 ""
|
|
FLAG "H"
|
|
MESSAGE APPEND,30
|
|
END
|
|
STRINGA 29 5
|
|
BEGIN
|
|
KEY "Domicilio: provincia"
|
|
FIELD 510@->PROVCOM
|
|
PROMPT 0 0 ""
|
|
FLAG "H"
|
|
MESSAGE APPEND,30
|
|
END
|
|
STRINGA 30 39 3
|
|
BEGIN
|
|
KEY "Domicilio: Loc/Com/Prov"
|
|
PROMPT 1 12 ""
|
|
END
|
|
STRINGA 31 10
|
|
BEGIN
|
|
KEY "Testo"
|
|
PROMPT 41 10 "Residenza:"
|
|
END
|
|
STRINGA 32 30
|
|
BEGIN
|
|
KEY "Residenza: indirizzo"
|
|
FIELD 90->RES_INDIR
|
|
PROMPT 41 11 ""
|
|
MESSAGE RESET,38
|
|
END
|
|
STRINGA 33 4
|
|
BEGIN
|
|
KEY "Residenza: codice localita'"
|
|
FIELD 90->RES_CODLOC
|
|
PROMPT 0 0 ""
|
|
FLAG "H"
|
|
END
|
|
STRINGA 34 5
|
|
BEGIN
|
|
KEY "Residenza: CAP"
|
|
FIELD 400@->S6
|
|
FIELD 500@->CAPCOM
|
|
PROMPT 0 0 ""
|
|
FLAG "H"
|
|
MESSAGE APPEND,38
|
|
END
|
|
STRINGA 35 30
|
|
BEGIN
|
|
KEY "Residenza: localita'"
|
|
FIELD 400@->S0
|
|
PROMPT 0 0 ""
|
|
FLAG "H"
|
|
MESSAGE APPEND,38
|
|
END
|
|
STRINGA 36 50
|
|
BEGIN
|
|
KEY "Residenza: comune"
|
|
FIELD 500@->DENCOM
|
|
PROMPT 0 0 ""
|
|
FLAG "H"
|
|
MESSAGE APPEND,38
|
|
END
|
|
STRINGA 37 5
|
|
BEGIN
|
|
KEY "Residenza: provincia"
|
|
FIELD 500@->PROVCOM
|
|
PROMPT 0 0 ""
|
|
FLAG "H"
|
|
MESSAGE APPEND,38
|
|
END
|
|
STRINGA 38 39 3
|
|
BEGIN
|
|
KEY "Residenza: Loc/Com/Prov"
|
|
PROMPT 41 12 ""
|
|
END
|
|
STRINGA 39 23
|
|
BEGIN
|
|
KEY "Telefono abitazione"
|
|
FIELD 90->TELABI
|
|
PROMPT 1 15 "Tel.abi. "
|
|
END
|
|
STRINGA 40 23
|
|
BEGIN
|
|
KEY "Telefono lavoro"
|
|
FIELD 90->TELLAV
|
|
PROMPT 25 15 "Tel.lav. "
|
|
END
|
|
STRINGA 41 25
|
|
BEGIN
|
|
KEY "Telefono altro"
|
|
FIELD 90->TELALT
|
|
PROMPT 49 15 "Tel.altro "
|
|
END
|
|
STRINGA 42
|
|
BEGIN
|
|
KEY "Testo"
|
|
PROMPT 1 16 "Escluso "
|
|
END
|
|
LISTA 43
|
|
BEGIN
|
|
KEY "Esclusione"
|
|
FIELD 90->ESCLUSO
|
|
ITEM " | "
|
|
ITEM "TI|T. indeterminato"
|
|
ITEM "TD|T. determinato"
|
|
PROMPT 10 16 "Escluso "
|
|
END
|
|
DATA 44 18
|
|
BEGIN
|
|
KEY "Data termine esclusione"
|
|
FIELD 90->TERMESCL
|
|
PROMPT 27 16 "Termine "
|
|
END
|
|
STRINGA 45 35
|
|
BEGIN
|
|
KEY "Motivo esclusione"
|
|
FIELD 90->MOTESCL
|
|
PROMPT 46 16 "Per "
|
|
END
|
|
STRINGA 46 26
|
|
BEGIN
|
|
KEY "Descrizione stato"
|
|
FIELD 200@->S3
|
|
PROMPT 1 17 "Stato "
|
|
END
|
|
DATA 47 15
|
|
BEGIN
|
|
KEY "Data stato"
|
|
FIELD 90->DATASTATO
|
|
PROMPT 28 17 "Data "
|
|
END
|
|
STRINGA 48 11
|
|
BEGIN
|
|
KEY "Tipo ultima idoneita'"
|
|
FIELD 90->TIPOULTID
|
|
PROMPT 45 17 "Ult. id. "
|
|
END
|
|
DATA 49 10
|
|
BEGIN
|
|
KEY "Data ultima idoneita'"
|
|
FIELD 90->DATAULTID
|
|
PROMPT 58 17 ""
|
|
END
|
|
STRINGA 50 2
|
|
BEGIN
|
|
KEY "Idoneita' alla donazione 1"
|
|
FIELD 90->IDON1
|
|
PROMPT 70 17 ""
|
|
END
|
|
STRINGA 51 2
|
|
BEGIN
|
|
KEY "Idoneita' alla donazione 2"
|
|
FIELD 90->IDON2
|
|
PROMPT 73 17 ""
|
|
END
|
|
STRINGA 52 2
|
|
BEGIN
|
|
KEY "Idoneita' alla donazione 3"
|
|
FIELD 90->IDON3
|
|
PROMPT 76 17 ""
|
|
END
|
|
STRINGA 53 2
|
|
BEGIN
|
|
KEY "Idoneita' alla donazione 4"
|
|
FIELD 90->IDON4
|
|
PROMPT 79 17 ""
|
|
END
|
|
STRINGA 54
|
|
BEGIN
|
|
KEY "Testo"
|
|
PROMPT 1 19 "Situazione donazioni:"
|
|
END
|
|
NUMERO 55 8
|
|
BEGIN
|
|
KEY "Totale donazioni"
|
|
FIELD 90->TOTDON
|
|
PROMPT 1 20 "Tot. "
|
|
END
|
|
STRINGA 56 11
|
|
BEGIN
|
|
KEY "Tipo ultima donazione"
|
|
FIELD 90->TIPOULTDON
|
|
PROMPT 1 21 "Ult.don. "
|
|
END
|
|
DATA 57 10
|
|
BEGIN
|
|
KEY "Data ultima donazione"
|
|
FIELD 90->DATAULTDON
|
|
PROMPT 13 21 ""
|
|
END
|
|
STRINGA 58 13
|
|
BEGIN
|
|
KEY "Testo"
|
|
PROMPT 26 20 "Donazioni SI:"
|
|
END
|
|
STRINGA 59 13
|
|
BEGIN
|
|
KEY "Testo"
|
|
PROMPT 26 21 "Donazioni AF:"
|
|
END
|
|
STRINGA 60 4
|
|
BEGIN
|
|
KEY "Testo"
|
|
PROMPT 42 19 "Tot."
|
|
END
|
|
STRINGA 61 10
|
|
BEGIN
|
|
KEY "Testo"
|
|
PROMPT 48 19 "Ultima"
|
|
END
|
|
STRINGA 62 4
|
|
BEGIN
|
|
KEY "Testo"
|
|
PROMPT 60 19 "Int."
|
|
END
|
|
STRINGA 63 10
|
|
BEGIN
|
|
KEY "Testo"
|
|
PROMPT 66 19 "Prossima"
|
|
END
|
|
NUMERO 64 3
|
|
BEGIN
|
|
KEY "Totale donazioni SI"
|
|
FIELD 90->TOTDONSI
|
|
PROMPT 42 20 ""
|
|
END
|
|
NUMERO 65 3
|
|
BEGIN
|
|
KEY "Totale donazioni AF"
|
|
FIELD 90->TOTDONAF
|
|
PROMPT 42 21 ""
|
|
END
|
|
DATA 66 10
|
|
BEGIN
|
|
KEY "Data ultima donazione SI"
|
|
FIELD 90->DATAULTSI
|
|
PROMPT 48 20 ""
|
|
END
|
|
DATA 67 10
|
|
BEGIN
|
|
KEY "Data ultima donazione AF"
|
|
FIELD 90->DATAULTAF
|
|
PROMPT 48 21 ""
|
|
END
|
|
NUMERO 68 4
|
|
BEGIN
|
|
KEY "Intervallo SI"
|
|
FIELD 90->INTSI
|
|
PROMPT 60 20 ""
|
|
END
|
|
NUMERO 69 4
|
|
BEGIN
|
|
KEY "Intervallo AF"
|
|
FIELD 90->INTAF
|
|
PROMPT 60 21 ""
|
|
END
|
|
DATA 70 10
|
|
BEGIN
|
|
KEY "Data prossima SI"
|
|
FIELD 90->DATAPROSSI
|
|
PROMPT 66 20 ""
|
|
END
|
|
DATA 71 10
|
|
BEGIN
|
|
KEY "Data prossima AF"
|
|
FIELD 90->DATAPROSAF
|
|
PROMPT 66 21 ""
|
|
END
|
|
STRINGA 72 14
|
|
BEGIN
|
|
KEY "Gruppo AB0"
|
|
FIELD 90->GRUPPOAB0
|
|
PROMPT 1 23 "Gruppo AB0 "
|
|
END
|
|
STRINGA 73 12
|
|
BEGIN
|
|
KEY "Rh/AntiD"
|
|
FIELD 90->RHANTID
|
|
PROMPT 16 23 "Rh/AntiD "
|
|
END
|
|
STRINGA 74 8
|
|
BEGIN
|
|
KEY "Kell"
|
|
FIELD 90->KELL
|
|
PROMPT 30 23 "Kell "
|
|
END
|
|
STRINGA 75 18
|
|
BEGIN
|
|
KEY "Fenotipo Rh"
|
|
FIELD 90->FENOTIPORH
|
|
PROMPT 40 23 "Fenotipo Rh "
|
|
END
|
|
STRINGA 76 12
|
|
BEGIN
|
|
KEY "Du"
|
|
FIELD 90->DU
|
|
PROMPT 60 23 "Du "
|
|
END
|
|
NUMERO 77 13
|
|
BEGIN
|
|
KEY "Codice medico"
|
|
FIELD 90->CODMED
|
|
PROMPT 1 24 "Medico "
|
|
END
|
|
STRINGA 78 25
|
|
BEGIN
|
|
KEY "Cognome medico"
|
|
FIELD 97->COGNOME
|
|
FLAGS "H"
|
|
MESSAGE RESET,80|COPY,80
|
|
END
|
|
STRINGA 79 25
|
|
BEGIN
|
|
KEY "Nome medico"
|
|
FIELD 97->NOME
|
|
FLAGS "H"
|
|
MESSAGE APPEND,80
|
|
END
|
|
STRINGA 80 51
|
|
BEGIN
|
|
KEY "Cognome e nome medico"
|
|
PROMPT 15 24 ""
|
|
END
|
|
STRINGA 81 10
|
|
BEGIN
|
|
KEY "Testo"
|
|
PROMPT 1 25 "Mod.conv. "
|
|
END
|
|
LISTA 83 22
|
|
BEGIN
|
|
KEY "Modalita' di convocazione"
|
|
FIELD 90->MODCONV
|
|
PROMPT 11 25 ""
|
|
ITEM " |"
|
|
ITEM "PO|Postale"
|
|
ITEM "T1|Tel. abitaz."
|
|
ITEM "T2|Tel. lavoro"
|
|
ITEM "T3|Tel. altro"
|
|
ITEM "TE|Telefonica"
|
|
ITEM "IN|Indifferente"
|
|
END
|
|
STRINGA 84 19
|
|
BEGIN
|
|
KEY "Codice punto di racolta"
|
|
FIELD 90->PUNTORACC
|
|
PROMPT 35 25 "Punto di racc. "
|
|
END
|
|
STRINGA 85 25
|
|
BEGIN
|
|
KEY "Descrizione punto di raccolta"
|
|
FIELD 300@->S0
|
|
PROMPT 56 25 ""
|
|
END
|
|
STRINGA 86 27
|
|
BEGIN
|
|
KEY "Testo"
|
|
PROMPT 1 26 "Giorni pref.: L M M G V S D"
|
|
END
|
|
STRINGA 87 13
|
|
BEGIN
|
|
KEY "Testo"
|
|
PROMPT 1 27 " Donazione"
|
|
END
|
|
STRINGA 88 2
|
|
BEGIN
|
|
KEY "Lu"
|
|
FIELD 90->GIOPREDON[1,1]
|
|
PROMPT 15 27 ""
|
|
END
|
|
STRINGA 89 2
|
|
BEGIN
|
|
KEY "Ma"
|
|
FIELD 90->GIOPREDON[2,2]
|
|
PROMPT 17 27 ""
|
|
END
|
|
STRINGA 90 2
|
|
BEGIN
|
|
KEY "Me"
|
|
FIELD 90->GIOPREDON[3,3]
|
|
PROMPT 19 27 ""
|
|
END
|
|
STRINGA 91 2
|
|
BEGIN
|
|
KEY "Gi"
|
|
FIELD 90->GIOPREDON[4,4]
|
|
PROMPT 21 27 ""
|
|
END
|
|
STRINGA 92 2
|
|
BEGIN
|
|
KEY "Ve"
|
|
FIELD 90->GIOPREDON[5,5]
|
|
PROMPT 23 27 ""
|
|
END
|
|
STRINGA 93 2
|
|
BEGIN
|
|
KEY "Sa"
|
|
FIELD 90->GIOPREDON[6,6]
|
|
PROMPT 25 27 ""
|
|
END
|
|
STRINGA 94 2
|
|
BEGIN
|
|
KEY "Do"
|
|
FIELD 90->GIOPREDON[7,7]
|
|
PROMPT 27 27 ""
|
|
END
|
|
STRINGA 95 13
|
|
BEGIN
|
|
KEY "Testo"
|
|
PROMPT 1 28 " Controlli"
|
|
END
|
|
STRINGA 96 2
|
|
BEGIN
|
|
KEY "Lu"
|
|
FIELD 90->GIOPRECON[1,1]
|
|
PROMPT 15 28 ""
|
|
END
|
|
STRINGA 97 2
|
|
BEGIN
|
|
KEY "Ma"
|
|
FIELD 90->GIOPRECON[2,2]
|
|
PROMPT 17 28 ""
|
|
END
|
|
STRINGA 98 2
|
|
BEGIN
|
|
KEY "Me"
|
|
FIELD 90->GIOPRECON[3,3]
|
|
PROMPT 19 28 ""
|
|
END
|
|
STRINGA 99 2
|
|
BEGIN
|
|
KEY "Gi"
|
|
FIELD 90->GIOPRECON[4,4]
|
|
PROMPT 21 28 ""
|
|
END
|
|
STRINGA 100 2
|
|
BEGIN
|
|
KEY "Ve"
|
|
FIELD 90->GIOPRECON[5,5]
|
|
PROMPT 23 28 ""
|
|
END
|
|
STRINGA 101 2
|
|
BEGIN
|
|
KEY "Sa"
|
|
FIELD 90->GIOPRECON[6,6]
|
|
PROMPT 25 28 ""
|
|
END
|
|
STRINGA 102 2
|
|
BEGIN
|
|
KEY "Do"
|
|
FIELD 90->GIOPRECON[7,7]
|
|
PROMPT 27 28 ""
|
|
END
|
|
STRINGA 103 10
|
|
BEGIN
|
|
KEY "Testo"
|
|
PROMPT 33 26 "Cond.occ. "
|
|
END
|
|
LISTA 104 19
|
|
BEGIN
|
|
KEY "Condizione occupazionale"
|
|
FIELD 90->CONDOCC
|
|
ITEM " |"
|
|
ITEM "01|Occupato"
|
|
ITEM "02|Disoccupato"
|
|
ITEM "03|In cerca di 1^ occ."
|
|
ITEM "04|Pensionato"
|
|
ITEM "05|Casalinga"
|
|
ITEM "06|Studente"
|
|
ITEM "07|Religioso"
|
|
ITEM "99|Altro"
|
|
PROMPT 44 26 ""
|
|
END
|
|
STRINGA 105 10
|
|
BEGIN
|
|
KEY "Testo"
|
|
PROMPT 33 27 "Pos.prof. "
|
|
END
|
|
LISTA 106 19
|
|
BEGIN
|
|
KEY "Posizione professionale"
|
|
FIELD 90->POSPROF
|
|
ITEM " |"
|
|
ITEM "01|Imprend./Profess."
|
|
ITEM "02|Lavoratore autonomo"
|
|
ITEM "03|Coadiuvante"
|
|
ITEM "04|Impiegato/Dirigente"
|
|
ITEM "05|Altro lav. dip."
|
|
ITEM "99|Altro"
|
|
PROMPT 44 27 ""
|
|
END
|
|
STRINGA 107 10
|
|
BEGIN
|
|
KEY "Testo"
|
|
PROMPT 33 28 "Ramo att. "
|
|
END
|
|
LISTA 108 30
|
|
BEGIN
|
|
KEY "Ramo di attivita'"
|
|
FIELD 90->RAMOATT
|
|
ITEM " |"
|
|
ITEM "01|Agricoltura e associati"
|
|
ITEM "02|Industria costruzioni"
|
|
ITEM "03|Industria manifatturiera"
|
|
ITEM "04|Energia, acqua, gas"
|
|
ITEM "05|Commercio"
|
|
ITEM "06|Pubblica amministrazione"
|
|
ITEM "07|Trasporti e comunicazioni"
|
|
ITEM "08|Credito e assicurazioni"
|
|
ITEM "09|Altri servizi"
|
|
ITEM "99|Altro"
|
|
PROMPT 44 28 ""
|
|
END
|
|
END
|