From e2ab75d3a5888c01613a1bb44e65e25e9da1168c Mon Sep 17 00:00:00 2001 From: cris Date: Tue, 5 Nov 2002 09:37:54 +0000 Subject: [PATCH] Patch level : at Files correlati : Ricompilazione Demo : [ ] Commento : non serve git-svn-id: svn://10.65.10.50/trunk@10607 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- at/prova.uml | 1817 -------------------------------------------------- 1 file changed, 1817 deletions(-) delete mode 100755 at/prova.uml diff --git a/at/prova.uml b/at/prova.uml deleted file mode 100755 index f41e439d0..000000000 --- a/at/prova.uml +++ /dev/null @@ -1,1817 +0,0 @@ -#include "at0100a.h" -#include "lf.h" - -TOOLBAR "" 0 20 0 2 - -BUTTON DLG_GENDON 25 1 -BEGIN -PROMPT -13 -3 "Genera donazioni" -MESSAGE K_F10 -END - -#include -ENDPAGE - -PAGE "Pag.1" -1 -1 78 20 - -GROUPBOX DLG_NULL 77 5 -BEGIN - PROMPT 1 0 "" - FLAGS "R" -END - -TEXT DLG_NULL -BEGIN - PROMPT 2 1 "Codice" -END - -TEXT DLG_NULL -BEGIN - PROMPT 11 1 "Cognome e nome" -END - -TEXT DLG_NULL -BEGIN - PROMPT 66 1 "Nato il" -END - -NUMBER F_CODICE 6 -BEGIN - PROMPT 2 2 "" - FIELD CODICE - FLAGS "RG" - KEY 1 - USE LF_SOGGETTI - INPUT CODICE F_CODICE - DISPLAY "Codice@6" CODICE - DISPLAY "Cognome@36" COGNOME - DISPLAY "Nome@36" NOME - DISPLAY "Nato il@10" DATANASC - DISPLAY "Sez." CODSEZ - DISPLAY "Sot." CODSOT - DISPLAY "C." CATDON - DISPLAY "Tessera" TESSAVIS - OUTPUT F_CODICE CODICE - OUTPUT F_COGNOME COGNOME - OUTPUT F_NOME NOME - OUTPUT F_DATANASC DATANASC - MESSAGE COPY,1@ - CHECKTYPE REQUIRED -END - -STRING F_COGNOME 36 25 -BEGIN - PROMPT 11 2 "" - FIELD COGNOME - KEY 2 - USE LF_SOGGETTI KEY 2 - INPUT COGNOME F_COGNOME - INPUT NOME F_NOME - DISPLAY "Cognome@36" COGNOME - DISPLAY "Nome@36" NOME - DISPLAY "Nato il@10" DATANASC - DISPLAY "Codice@6" CODICE - DISPLAY "Sez." CODSEZ - DISPLAY "Sot." CODSOT - DISPLAY "C." CATDON - DISPLAY "Tessera" TESSAVIS - OUTPUT F_CODICE CODICE - OUTPUT F_COGNOME COGNOME - OUTPUT F_NOME NOME - OUTPUT F_DATANASC DATANASC - MESSAGE COPY,2@ - CHECKTYPE REQUIRED - HELP "Cognome del soggetto" -END - -STRING F_NOME 36 25 -BEGIN - PROMPT 39 2 "" - FIELD NOME - KEY 2 - COPY ALL F_COGNOME - MESSAGE COPY,3@ - CHECKTYPE REQUIRED - HELP "Nome del soggetto" -END - -DATE F_DATANASC -BEGIN - PROMPT 66 2 "" - FIELD DATANASC - MESSAGE COPY,4@ - CHECKTYPE REQUIRED - VALIDATE NOT_EMPTY_CHECK_FIELD - HELP "Data di nascita" -END - -GROUPBOX DLG_NULL 77 5 -BEGIN - PROMPT 1 5 "Dati associativi" -END - -STRING F_CODSEZ 2 -BEGIN - PROMPT 2 6 "Sezione " - FIELD CODSEZ - FLAGS "U" - USE LF_SEZIONI - INPUT CODSEZ F_CODSEZ - INPUT CODSOT F_CODSOT - DISPLAY "Cod.sez" CODSEZ - DISPLAY "Cod.sot." CODSOT - DISPLAY "Sezione@25" DENSEZ - DISPLAY "Sottogruppo@25" DENSOT - OUTPUT F_CODSEZ CODSEZ - OUTPUT F_DENSEZ DENSEZ - OUTPUT F_CODSOT CODSOT - OUTPUT F_DENSOT DENSOT - //CHECKTYPE NORMAL - CHECKTYPE SEARCH - HELP "Codice sezione di appartenenza" - ADD MASK at0700a -END - -STRING F_DENSEZ 25 -BEGIN - PROMPT 15 6 "" - FLAGS "U" - USE LF_SEZIONI KEY 2 - INPUT DENSEZ F_DENSEZ - DISPLAY "Sezione@25" DENSEZ - DISPLAY "Sottogruppo@25" DENSOT - DISPLAY "Cod.sez" CODSEZ - DISPLAY "Cod.sot." CODSOT - COPY OUTPUT F_CODSEZ - CHECKTYPE NORMAL - HELP "Denominazione sezione di appartenenza" - ADD MASK at0700a -END - -STRING F_CODSOT 2 -BEGIN - PROMPT 2 7 "Sottog. " - FIELD CODSOT - COPY ALL F_CODSEZ - CHECKTYPE NORMAL - HELP "Codice sottogruppo di appartenenza" - ADD MASK at0700a -END - -STRING F_DENSOT 25 -BEGIN - PROMPT 15 7 "" - FLAGS "U" - COPY USE F_DENSEZ - INPUT DENSEZ F_DENSEZ - INPUT DENSOT F_DENSOT - COPY DISPLAY F_DENSEZ - COPY OUTPUT F_DENSEZ - CHECKTYPE NORMAL - HELP "Sottogruppo di appartenenza" - ADD MASK at0700a -END - -STRING F_CATDON 2 -BEGIN - PROMPT 2 8 "Categ. " - FIELD CATDON - FLAGS "U" - USE CTD - INPUT CODTAB F_CATDON - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@30" S0 - OUTPUT F_CATDON CODTAB - OUTPUT F_DESC_CATDON S0 - CHECKTYPE NORMAL - WARNING "Codice non presente" - HELP "Categoria di appartenenza" -END - -STRING F_DESC_CATDON 22 -BEGIN - PROMPT 15 8 "" - FLAGS "D" -END - -DATE F_DATAISC -BEGIN - PROMPT 44 6 "Isc. " - FIELD DATAISC - HELP "Data di iscrizione alla sezione/categoria" -END - -DATE F_DATADIM -BEGIN - PROMPT 61 6 "Dim. " - FIELD DATADIM - HELP "Data di dimissione dalla sezione/categoria" -END - -STRING F_TESSAVIS 10 -BEGIN - PROMPT 46 7 "Numero tessera AVIS " - FIELDS TESSAVIS - FLAGS "U" - HELP "Numero tessera associativa AVIS" -END - -STRING F_CODCL 6 -BEGIN - PROMPT 39 8 "Cart. clinica " - FIELDS CODCL - FLAGS "U" - HELP "Numero cartella clinica" -END - -STRING F_CODCT 6 -BEGIN - PROMPT 62 8 "Cod. CT " - FIELDS CODCT - FLAGS "U" - HELP "Codice Centro Trasfusionale" -END - - -GROUPBOX DLG_NULL 77 11 -BEGIN - PROMPT 1 10 "Dati anagrafici" -END - -STRING F_COMNASC 4 -BEGIN - PROMPT 2 11 "Nato a " - FIELD COMNASC - FLAGS "U" - USE LF_COMUNI - INPUT STATO "" - INPUT COM F_COMNASC -#include - OUTPUT F_COMNASC COM - OUTPUT F_DENCOMNASC DENCOM - OUTPUT F_PROVCOMNASC PROVCOM - CHECKTYPE NORMAL - HELP "Codice comune di nascita" - WARNING "Comune assente" -END - -STRING F_DENCOMNASC 50 30 -BEGIN - PROMPT 16 11 "" - USE LF_COMUNI KEY 2 - INPUT DENCOM F_DENCOMNASC -#include - COPY OUTPUT F_COMNASC - CHECKTYPE NORMAL - HELP "Comune di nascita" -END - -STRING F_PROVCOMNASC 5 -BEGIN - PROMPT 49 11 "" - FLAGS "D" -END - -LISTBOX F_SESSO 11 -BEGIN - PROMPT 57 11 "Sesso " - FIELD SESSO - FLAGS "U" -#include "sesso.h" -END - -STRING F_DOCID 20 -BEGIN - PROMPT 2 12 "Doc. iden. " - FIELDS DOCID - FLAGS "U" - HELP "Documento di identit…: tipo e numero" -END - - -STRING F_CF 16 -BEGIN - PROMPT 38 12 "CF " - FIELD CF - FLAGS "U" - HELP "Codice fiscale" -END - -STRING F_TESSSSN 10 -BEGIN - PROMPT 62 12 "SSN " - FIELDS TESSSSN - FLAGS "U" - HELP "Numero tessera Servizio Sanitario Nazionale" -END - -TEXT DLG_NULL -BEGIN - PROMPT 2 13 "Domicilio" -END - -STRING F_DOM_INDIR 30 -BEGIN - PROMPT 2 14 "Indirizzo " - FIELD F_DOM_INDIR -END - -STRING F_DOM_STRADA 5 -BEGIN - PROMPT 44 14 "Stradario " -END - -STRING F_DOM_DISTRI 4 -BEGIN - PROMPT 61 14 "Distribuz. " -END - -STRING F_DOM_CODCOM 4 -BEGIN - PROMPT 2 15 "Comune " - FIELD DOM_CODCOM - FLAGS "U" - USE LF_COMUNI - INPUT STATO "" - INPUT COM F_DOM_CODCOM -#include - OUTPUT F_DOM_CODCOM COM - OUTPUT F_DOM_DENCOM DENCOM - OUTPUT F_DOM_PROVCOM PROVCOM - OUTPUT F_DOM_CAPCOM CAPCOM - CHECKTYPE NORMAL - WARNING "Comune assente" - HELP "Codice comune di residenza" -END - -STRING F_DOM_DENCOM 30 -BEGIN - PROMPT 19 15 "" - USE LF_COMUNI KEY 2 - INPUT DENCOM F_DOM_DENCOM -#include - COPY OUTPUT F_DOM_CODCOM - CHECKTYPE NORMAL - HELP "Comune di residenza" -END - -STRING F_DOM_CODLOC 4 -BEGIN - PROMPT 2 13 "Localita' " - FIELD DOM_CODLOC - FLAGS "U" - USE LCP SELECT S7=#F_DOM_CODLOC - INPUT CODTAB F_DOM_CODLOC - DISPLAY "Codice" CODTAB - DISPLAY "Localita'@30" S0 - DISPLAY "CAP@5" S6 - OUTPUT F_DOM_CODLOC CODTAB - OUTPUT F_DOM_DENLOC S0 - OUTPUT F_DOM_CAPCOM S6 - OUTPUT F_DOM_CODCOM S7 - CHECKTYPE NORMAL - HELP "Codice localita' postale se diversa dal comune" -END - -STRING F_DOM_DENLOC 30 -BEGIN - PROMPT 19 13 "" - COPY USE F_DOM_CODLOC - INPUT S0 F_DOM_DENLOC - DISPLAY "Localita'@30" S0 - DISPLAY "CAP@5" S6 - DISPLAY "Codice" CODTAB - COPY OUTPUT F_DOM_CODLOC - CHECKTYPE NORMAL - HELP "Localita' postale se diversa dal comune" -END - -STRING F_DOM_PROVCOM 5 -BEGIN - PROMPT 71 15 "" - FLAGS "D" -END - -STRING F_DOM_CAPCOM 5 -BEGIN - PROMPT 67 15 "CAP " -END - -STRING F_TELABI 15 -BEGIN - PROMPT 2 16 "Telefoni: Abit. " - FIELD TELABI - HELP "Telefono abitazione" -END - -STRING F_TELLAV 15 -BEGIN - PROMPT 37 16 "Lav. " - FIELD TELLAV - HELP "Telefono lavoro" -END - -STRING F_TELALT 15 -BEGIN - PROMPT 59 16 "3 " - FIELD TELALT - HELP "Altro numero telefonico per reperibilit…" -END - -//RADIOBUTTON F_SESSO 25 -//BEGIN -// PROMPT 1 16 "Sesso" -// FIELD SESSO -// FLAGS "Z" -// ITEM "M|Maschio" -// ITEM "F|Femmina" -//END -// -//GROUPBOX DLG_NULL 43 3 -//BEGIN -// PROMPT 35 16 "Ultimo aggiornamento" -//END -// - -//DATE F_DATAULTAGG -//BEGIN -// PROMPT 36 17 "Data " -// FIELD DATAULTAGG -// FLAGS "D" -//END - -//STRING F_UTENULTAGG 8 -//BEGIN -// PROMPT 60 17 "Utente " -// FIELD UTENULTAGG -// FLAGS "D" -//END - -ENDPAGE - -PAGE "Pag.2" -1 -1 78 20 - -GROUPBOX DLG_NULL 77 5 -BEGIN - PROMPT 1 0 "" - FLAGS "R" -END - -NUMBER DLG_NULL 6 -BEGIN - PROMPT 2 1 "Codice " - FLAGS "D" - GROUP 1 -END - -STRING DLG_NULL 25 -BEGIN - PROMPT 2 2 "Cognome e nome " - FLAGS "D" - GROUP 2 -END - -STRING DLG_NULL 25 -BEGIN - PROMPT 46 2 "" - FLAGS "D" - GROUP 3 -END - -DATE DLG_NULL -BEGIN - PROMPT 2 3 "Nato il " - FLAGS "D" - GROUP 4 -END - -GROUPBOX DLG_NULL 77 4 -BEGIN - PROMPT 1 5 "Altri dati associativi" -END - -STRING F_CATNOND1 2 -BEGIN - PROMPT 2 6 "Categorie non don. " - FIELD CATNOND1 - FLAGS "U" - USE CTN - INPUT CODTAB F_CATNOND1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@30" S0 - OUTPUT F_CATNOND1 CODTAB - OUTPUT F_DESC_CATNOND1 S0 - CHECKTYPE NORMAL - WARNING "Codice non presente" - HELP "Altra categoria non donatori" -END - -STRING F_DESC_CATNOND1 20 -BEGIN - PROMPT 26 6 "" - FLAGS "D" -END - -STRING F_CATNOND2 2 -BEGIN - PROMPT 50 6 "" - FIELD CATNOND2 - FLAGS "U" - COPY USE F_CATNOND1 - INPUT CODTAB F_CATNOND2 - COPY DISPLAY F_CATNOND1 - OUTPUT F_CATNOND2 CODTAB - OUTPUT F_DESC_CATNOND2 S0 - CHECKTYPE NORMAL - WARNING "Codice non presente" - HELP "Altra categoria non donatori" -END - -STRING F_DESC_CATNOND2 20 -BEGIN - PROMPT 55 6 "" - FLAGS "D" -END - -STRING F_TITINDIR 10 -BEGIN - PROMPT 2 7 "Titolo personale " - FIELDS TESSSSN - HELP "Eventuale titolo da stampare prima del nome sull'indirizzo" -END - -GROUPBOX DLG_NULL 77 4 -BEGIN - PROMPT 1 9 "Codici di identificazione" -END - -STRING F_CODCT 6 -BEGIN - PROMPT 2 10 "Codice CT " - FIELDS CODCT - FLAGS "U" - HELP "Codice Centro Trasfusionale" -END - -STRING F_CODCL 6 -BEGIN - PROMPT 25 10 "Cartella clinica " - FIELDS CODCL - FLAGS "U" - HELP "Numero cartella clinica" -END - -STRING F_TESSAVIS 10 -BEGIN - PROMPT 53 10 "Tessera AVIS " - FIELDS TESSAVIS - FLAGS "U" - HELP "Numero tessera associativa AVIS" -END - -STRING F_DOCID 20 -BEGIN - PROMPT 2 11 "Doc. iden. " - FIELDS DOCID - FLAGS "U" - HELP "Documento di identit…: tipo e numero" -END - - -STRING F_CF 16 -BEGIN - PROMPT 38 11 "CF " - FIELD CF - FLAGS "U" - HELP "Codice fiscale" -END - -STRING F_TESSSSN 10 -BEGIN - PROMPT 62 11 "SSN " - FIELDS TESSSSN - FLAGS "U" - HELP "Numero tessera Servizio Sanitario Nazionale" -END - - -GROUPBOX DLG_NULL 77 6 -BEGIN - PROMPT 1 13 "Dati statistici" -END - -LISTBOX F_CONDOCC 25 -BEGIN - PROMPT 2 14 "Cond. occ. " - FIELD CONDOCC - FLAGS "U" -#include "condocc.h" -END - -LISTBOX F_POSPROF 20 -BEGIN - PROMPT 43 14 "Pos. prof. " - FIELD POSPROF - FLAGS "U" -#include "posprof.h" -END - -LISTBOX F_RAMOATT 25 -BEGIN - PROMPT 2 15 "Ramo att. " - FIELD RAMOATT - FLAGS "U" -#include "ramoatt.h" -END - -LISTBOX F_TITSTUD 20 -BEGIN - PROMPT 43 15 "Tit. stud. " - FIELD TITSTUD - FLAGS "U" -#include "titstud.h" -END - -STRING F_PROFESS 4 -BEGIN - PROMPT 2 16 "Professione " - FIELD PROFESS - FLAGS "D" -// USE IDO -// INPUT CODTAB F_IDON1 -// OUTPUT F_DESC_ID1 S0 -// CHECKTYPE NORMAL -END - -STRING F_DESC_PROF 40 -BEGIN - PROMPT 21 16 "" - FLAGS "D" -END - -STRING F_LUOGOLAV 4 -BEGIN - PROMPT 2 17 "Luogo lav. " - FLAGS "D" -END - -STRING F_DESC_LUOGO 40 -BEGIN - PROMPT 21 17 "" - FLAGS "D" -END - -ENDPAGE - -PAGE "Pag.3" -1 -1 78 20 - -GROUPBOX DLG_NULL 77 5 -BEGIN - PROMPT 1 0 "" - FLAGS "R" -END - -NUMBER DLG_NULL 6 -BEGIN - PROMPT 2 1 "Codice " - FLAGS "D" - GROUP 1 -END - -STRING DLG_NULL 25 -BEGIN - PROMPT 2 2 "Cognome e nome " - FLAGS "D" - GROUP 2 -END - -STRING DLG_NULL 25 -BEGIN - PROMPT 46 2 "" - FLAGS "D" - GROUP 3 -END - -DATE DLG_NULL -BEGIN - PROMPT 2 3 "Nato il " - FLAGS "D" - GROUP 4 -END - -GROUPBOX DLG_NULL 77 7 -BEGIN - PROMPT 1 5 "Situazione sanitaria" -END - -STRING F_STATO 2 -BEGIN - PROMPT 2 6 "Stato attuale " - FIELD STATO - FLAGS "D" - USE TCS - INPUT CODTAB F_STATO - OUTPUT F_DESCSTATO S3 - CHECKTYPE NORMAL -END - -STRING F_DESCSTATO 20 -BEGIN - PROMPT 20 6 "" - FLAGS "D" -END - -DATE F_DATASTATO -BEGIN - PROMPT 55 6 "Data stato " - FIELD DATASTATO - FLAGS "D" -END - -STRING F_IDON1 2 -BEGIN - PROMPT 2 8 "Tipi di idon. " - FIELD IDON1 - FLAGS "D" - USE IDO - INPUT CODTAB F_IDON1 - OUTPUT F_DESC_ID1 S0 - CHECKTYPE NORMAL -END - -STRING F_DESC_ID1 25 -BEGIN - PROMPT 20 8 "" - FLAGS "D" -END - -STRING F_IDON2 2 -BEGIN - PROMPT 47 8 "" - FIELD IDON2 - FLAGS "D" - USE IDO - INPUT CODTAB F_IDON2 - OUTPUT F_DESC_ID2 S0 - CHECKTYPE NORMAL -END - -STRING F_DESC_ID2 25 -BEGIN - PROMPT 51 8 "" - FLAGS "D" -END - -STRING F_IDON3 2 -BEGIN - PROMPT 2 9 " " - FIELD IDON3 - FLAGS "D" - USE IDO - INPUT CODTAB F_IDON3 - OUTPUT F_DESC_ID3 S0 - CHECKTYPE NORMAL -END - -STRING F_DESC_ID3 25 -BEGIN - PROMPT 20 9 "" - FLAGS "D" -END - -STRING F_IDON4 2 -BEGIN - PROMPT 47 9 "" - FIELD IDON4 - FLAGS "D" - USE IDO - INPUT CODTAB F_IDON4 - OUTPUT F_DESC_ID4 S0 - CHECKTYPE NORMAL -END - -STRING F_DESC_ID4 25 -BEGIN - PROMPT 51 9 "" - FLAGS "D" -END - -DATE F_DATAULTID -BEGIN - PROMPT 2 10 "Data ult. id. " - FIELD DATAULTID - FLAGS "D" -END - -STRING F_TIPOULTID 2 -BEGIN - PROMPT 30 10 "Tipo " - FIELD TIPOULTID - FLAGS "D" -END - -GROUPBOX DLG_NULL 77 7 -BEGIN - PROMPT 1 12 "Situazione donazioni" -END - -NUMBER F_TOTDON 3 -BEGIN - PROMPT 2 13 "Totale " - FIELD TOTDON - FLAGS "D" -END - -DATE F_DATAULTDON -BEGIN - PROMPT 15 13 "Data/tipo ultima " - FIELD DATAULTDON - FLAGS "D" -END - -STRING F_TIPOULTDON 2 -BEGIN - PROMPT 44 13 "" - FIELD TIPOULTDON - FLAGS "D" - USE TDN - INPUT CODTAB F_TIPOULTDON - OUTPUT F_DESC_ULTDON S0 - CHECKTYPE NORMAL -END - -STRING F_DESC_ULTDON 25 -BEGIN - PROMPT 48 13 "" - FLAGS "D" -END - -NUMBER F_TOTDONSI 3 -BEGIN - PROMPT 2 14 "Totale don. : Sangue intero " - FIELD TOTDONSI - FLAGS "D" -END - -NUMBER F_TOTDONAF 3 -BEGIN - PROMPT 48 14 "Aferesi " - FIELD TOTDONAF - FLAGS "D" -END - -DATE F_DATAULTSI -BEGIN - PROMPT 2 15 "Date ultima : Sangue intero " - FIELD DATAULTSI - FLAGS "D" -END - -DATE F_DATAULTAF -BEGIN - PROMPT 48 15 "Aferesi " - FIELD DATAULTAF - FLAGS "D" -END - -NUMBER F_INTSI 3 -BEGIN - PROMPT 2 16 "Intervalli : Sangue intero " - FIELD INTSI - FLAGS "D" -END - -NUMBER F_INTAF 3 -BEGIN - PROMPT 48 16 "Aferesi " - FIELD INTAF - FLAGS "D" -END - -DATE F_DATAPROSSI -BEGIN - PROMPT 2 17 "Date prossima : Sangue intero " - FIELD DATAPROSSI - FLAGS "D" -END - -DATE F_DATAPROSAF -BEGIN - PROMPT 48 17 "Aferesi " - FIELD DATAPROSAF - FLAGS "D" -END - -ENDPAGE - -PAGE "Pag.4" -1 -1 78 20 - -GROUPBOX DLG_NULL 77 5 -BEGIN - PROMPT 1 0 "" - FLAGS "R" -END - -NUMBER DLG_NULL 6 -BEGIN - PROMPT 2 1 "Codice " - FLAGS "D" - GROUP 1 -END - -STRING DLG_NULL 25 -BEGIN - PROMPT 2 2 "Cognome e nome " - FLAGS "D" - GROUP 2 -END - -STRING DLG_NULL 25 -BEGIN - PROMPT 46 2 "" - FLAGS "D" - GROUP 3 -END - -DATE DLG_NULL -BEGIN - PROMPT 2 3 "Nato il " - FLAGS "D" - GROUP 4 -END - - -GROUPBOX DLG_NULL 77 3 -BEGIN - PROMPT 1 5 "Tipizzazione" -END - -LISTBOX F_GRUPPOAB0 5 -BEGIN - PROMPT 2 6 "Gruppo AB0 " - FIELD GRUPPOAB0 - FLAGS "U" -#include "gruppo.h" -END - -LISTBOX F_RHANTID 5 -BEGIN - PROMPT 22 6 "Rh/AntiD " - FIELD RHANTID - FLAGS "U" -#include "rh.h" -END - -STRING F_FENOTIPORH 6 -BEGIN - PROMPT 39 6 "Fen.Rh " - FIELD FENOTIPORH -END - -LISTBOX F_KELL 5 -BEGIN - PROMPT 55 6 "Kell " - FIELD KELL - FLAGS "U" -#include "rh.h" -END - -LISTBOX F_DU 5 -BEGIN - PROMPT 68 6 "Du " - FIELD DU - FLAGS "U" -#include "rh.h" -END - -GROUPBOX DLG_NULL 77 3 -BEGIN - PROMPT 1 8 "Medico di base" -END - -NUMBER F_CODMED 6 -BEGIN - PROMPT 2 9 "Medico " - FIELD CODMED - FLAGS "U" - USE LF_MEDICI - INPUT CODMED F_CODMED - DISPLAY "Codice" CODMED - DISPLAY "Cognome@25" COGNOME - DISPLAY "Nome@25" NOME - OUTPUT F_CODMED CODMED - OUTPUT F_COGNMED COGNOME - OUTPUT F_NOMMED NOME - CHECKTYPE NORMAL - HELP "Codice medico di base" - WARNING "Codice medico assente" - ADD MASK at0800a -END - -STRING F_COGNMED 25 -BEGIN - PROMPT 19 9 "" - USE LF_MEDICI KEY 2 - INPUT COGNOME F_COGNMED - DISPLAY "Cognome@25" COGNOME - DISPLAY "Nome@25" NOME - DISPLAY "Codice" CODMED - COPY OUTPUT F_CODMED - CHECKTYPE SEARCH - HELP "Medico di base" - WARNING "Medico assente" - ADD MASK at0800a -END - -STRING F_NOMMED 25 -BEGIN - PROMPT 48 9 "" - USE LF_MEDICI KEY 2 - INPUT COGNOME F_COGNMED - INPUT NOME F_NOMMED - DISPLAY "Cognome@25" COGNOME - DISPLAY "Nome@25" NOME - DISPLAY "Codice" CODMED - COPY OUTPUT F_COGNMED - CHECKTYPE NORMAL - HELP "Medico di base" - WARNING "Medico assente" - ADD MASK at0800a -END - -GROUPBOX DLG_NULL 35 5 -BEGIN - PROMPT 1 11 "Preferenze" -END - -LISTBOX F_MODCONV 13 -BEGIN - PROMPT 2 12 "Modalità convoc. " - FIELD MODCONV -#include "modalita.h" -END - -LISTBOX F_GIOPREDON 13 -BEGIN - PROMPT 2 13 "Giorno donazione " - FIELD GIOPREDON -#include "giorni.h" -END - -LISTBOX F_GIOPRECON 13 -BEGIN - PROMPT 2 14 "Giorno controlli " - FIELD GIOPRECON -#include "giorni.h" -END - -GROUPBOX DLG_NULL 41 5 -BEGIN - PROMPT 37 11 "Esclusione non sanitaria" -END - -LISTBOX F_ESCLUSO 20 -BEGIN - PROMPT 38 12 "Tipo " - FIELD ESCLUSO - ITEM " | " - MESSAGE CLEAR, F_TERMESCL - MESSAGE CLEAR, F_MOTESCL - MESSAGE DISABLE, F_TERMESCL - MESSAGE DISABLE, F_MOTESCL - ITEM "TI|Tempo indeterminato" - MESSAGE CLEAR, F_TERMESCL - MESSAGE DISABLE, F_TERMESCL - MESSAGE ENABLE, F_MOTESCL - ITEM "TD|Tempo determinato" - MESSAGE ENABLE, F_TERMESCL - MESSAGE ENABLE, F_MOTESCL -END - -DATE F_TERMESCL -BEGIN - PROMPT 38 13 "Termine " - FIELD TERMESCL -END - -STRING F_MOTESCL 30 -BEGIN - PROMPT 38 14 "Motivo " - FIELD MOTESCL -END - -ENDPAGE - -PAGE "Donazioni" -1 -1 78 20 - -GROUPBOX DLG_NULL 77 5 -BEGIN - PROMPT 1 0 "" - FLAGS "R" -END - -NUMBER DLG_NULL 6 -BEGIN - PROMPT 2 1 "Codice " - FLAGS "D" - GROUP 1 -END - -STRING DLG_NULL 25 -BEGIN - PROMPT 2 2 "Cognome e nome " - FLAGS "D" - GROUP 2 -END - -STRING DLG_NULL 25 -BEGIN - PROMPT 46 2 "" - FLAGS "D" - GROUP 3 -END - -DATE DLG_NULL -BEGIN - PROMPT 2 3 "Nato il " - FLAGS "D" - GROUP 4 -END - -GROUPBOX DLG_NULL 77 14 -BEGIN - PROMPT 1 5 "Donazioni" -END - -SPREADSHEET F_DONAZIONI 75 12 -BEGIN - PROMPT 2 6 "" - ITEM "Data@10" - ITEM "Tipo" - ITEM "Luogo" - ITEM "Etichetta" - ITEM "CC@3" - ITEM "P.A.@7" - ITEM "Hb@4" - ITEM "SGPT" - ITEM "Prot." - //ITEM "Prima" -END - -ENDPAGE - -PAGE "Controlli" -1 -1 78 20 - -GROUPBOX DLG_NULL 77 5 -BEGIN - PROMPT 1 0 "" - FLAGS "R" -END - -NUMBER DLG_NULL 6 -BEGIN - PROMPT 2 1 "Codice " - FLAGS "D" - GROUP 1 -END - -STRING DLG_NULL 25 -BEGIN - PROMPT 2 2 "Cognome e nome " - FLAGS "D" - GROUP 2 -END - -STRING DLG_NULL 25 -BEGIN - PROMPT 46 2 "" - FLAGS "D" - GROUP 3 -END - -DATE DLG_NULL -BEGIN - PROMPT 2 3 "Nato il " - FLAGS "D" - GROUP 4 -END - -GROUPBOX DLG_NULL 77 14 -BEGIN - PROMPT 1 5 "Controlli sanitari" -END - -SPREADSHEET F_CONTROLLI 75 12 -BEGIN - PROMPT 2 6 "" - ITEM "Data@10" - ITEM "Tipo" - ITEM "Id.1" - ITEM "Id.2" - ITEM "Id.3" - ITEM "Id.4" - ITEM "Int.SI" - ITEM "Int.AF" - ITEM "Pr.tipo" - ITEM "Pr.data" -END - -ENDPAGE - -PAGE "Ben./Sto." -1 -1 78 20 - -GROUPBOX DLG_NULL 77 5 -BEGIN - PROMPT 1 0 "" - FLAGS "R" -END - -NUMBER DLG_NULL 6 -BEGIN - PROMPT 2 1 "Codice " - FLAGS "D" - GROUP 1 -END - -STRING DLG_NULL 25 -BEGIN - PROMPT 2 2 "Cognome e nome " - FLAGS "D" - GROUP 2 -END - -STRING DLG_NULL 25 -BEGIN - PROMPT 46 2 "" - FLAGS "D" - GROUP 3 -END - -DATE DLG_NULL -BEGIN - PROMPT 2 3 "Nato il " - FLAGS "D" - GROUP 4 -END - -GROUPBOX DLG_NULL 77 8 -BEGIN - PROMPT 1 5 "Benemerenze" -END - -SPREADSHEET F_BENEMERENZE 75 6 -BEGIN - PROMPT 2 6 "" - ITEM "Tipo" - ITEM "Data@10" - ITEM "Ritirata?" -END - -GROUPBOX DLG_NULL 77 6 -BEGIN - PROMPT 1 13 "Storico iscrizioni e dimissioni" -END - -SPREADSHEET F_STORICO 75 4 -BEGIN - PROMPT 2 14 "" - ITEM "Dal@10" - ITEM "Al@10" - ITEM "Sezione" - ITEM "Sottogruppo" - ITEM "Cat. Isc." - ITEM "Motivo dim." -END - -ENDPAGE - -ENDMASK - -PAGE "Donazioni" -1 -1 75 13 - -DATE F_D_DATADON -BEGIN - PROMPT 2 1 "Data donazione " - FIELD LF_DONAZ->DATADON - CHECKTYPE REQUIRED - VALIDATE NOT_EMPTY_FUNC - HELP "Data donazione" -END - -STRING F_D_TIPODON 2 -BEGIN - PROMPT 2 2 "Tipo donazione " - FIELD LF_DONAZ->TIPODON - FLAGS "U" - USE TDN - INPUT CODTAB F_D_TIPODON - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@30" S0 - OUTPUT F_D_TIPODON CODTAB - OUTPUT F_D_DESC_TIPODON S0 - CHECKTYPE REQUIRED - VALIDATE NOT_EMPTY_FUNC - WARNING "Codice non presente" - HELP "Tipo donazione" -END - -STRING F_D_LUOGODON 4 -BEGIN - PROMPT 2 3 "Luogo donazione " - FIELD LF_DONAZ->LUOGODON - FLAGS "U" - USE LDN - INPUT CODTAB F_D_LUOGODON - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@30" S0 - OUTPUT F_D_LUOGODON CODTAB - OUTPUT F_D_DESC_LUOGODON S0 - CHECKTYPE NORMAL - WARNING "Codice non presente" - HELP "Luogo donazione" -END - -NUMBER F_D_ETICHETTA 9 -BEGIN - PROMPT 2 5 "Etichetta sacca " - FIELD LF_DONAZ->ETICHETTA -END - -NUMBER F_D_CC 3 -BEGIN - PROMPT 30 5 "CC " - FIELD LF_DONAZ->CC - FLAGS "U" -END - -GROUPBOX DLG_NULL 70 3 -BEGIN - PROMPT 1 7 "Dati sanitari" -END - -STRING F_D_PA 7 -BEGIN - PROMPT 2 8 "PA " - FIELD LF_DONAZ->PA -END - -NUMBER F_D_HB 4 1 -BEGIN - PROMPT 17 8 "Hb " - FIELD LF_DONAZ->HB - FLAGS "U" -END - -NUMBER F_D_SGPT 3 -BEGIN - PROMPT 32 8 "SGPT " - FIELD LF_DONAZ->SGPT - FLAGS "U" -END - -NUMBER F_D_PROTIDEMIA 3 1 -BEGIN - PROMPT 47 8 "Protidemia " - FIELD LF_DONAZ->PROTIDEMIA - FLAGS "U" -END - -//BOOLEAN F_D_PRIMADON -//BEGIN -// PROMPT 2 10 "Prima donazione " -// FIELD LF_DONAZ->PRIMADON -//END - -STRING F_D_DESC_TIPODON 25 -BEGIN - PROMPT 30 2 "" - FLAGS "D" -END - -STRING F_D_DESC_LUOGODON 25 -BEGIN - PROMPT 30 3 "" - FLAGS "D" -END - -BUTTON DLG_OK 9 2 -BEGIN - PROMPT -13 -1 "" -END - -BUTTON DLG_CANCEL 9 2 -BEGIN - PROMPT -23 -1 "" -END - -BUTTON DLG_DELREC 9 2 -BEGIN - PROMPT -33 -1 "" - MESSAGE EXIT, K_DEL -END - -ENDPAGE - -ENDMASK - -PAGE "Controlli sanitari" -1 -1 75 18 - -GRUPBOX DLG_NULL 70 4 -BEGIN - PROMPT 1 1 "Dati fondamentali del controllo" -END - -DATE F_C_DATACON -BEGIN - PROMPT 2 2 "Data controllo " - FIELD LF_CONTSAN->DATACON - CHECKTYPE REQUIRED - VALIDATE NOT_EMPTY_FUNC - HELP "Data controllo" -END - -STRING F_C_TIPOCON 2 -BEGIN - PROMPT 2 3 "Tipo controllo " - FIELD LF_CONTSAN->TIPOCON - FLAGS "U" - USE TCS - INPUT CODTAB F_C_TIPOCON - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@30" S0 - OUTPUT F_C_TIPOCON CODTAB - OUTPUT F_C_DESC_TIPOCON S0 - CHECKTYPE REQUIRED - VALIDATE NOT_EMPTY_FUNC - WARNING "Codice non presente" - HELP "Tipo/Esito controllo sanitario" -END - -GRUPBOX DLG_NULL 70 7 -BEGIN - PROMPT 1 5 "Dati da compilare se si tratta di idoneita'" -END - -TEXT DLG_NULL -BEGIN - PROMPT 2 6 "Tipi donazione ammessi" -END - -STRING F_C_IDON1 2 -BEGIN - PROMPT 2 7 "" - FIELD LF_CONTSAN->IDON1 - FLAGS "U" - USE IDO - INPUT CODTAB F_C_IDON1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@30" S0 - OUTPUT F_C_IDON1 CODTAB - OUTPUT F_C_DESC_IDON1 S0 - CHECKTYPE NORMAL - WARNING "Codice non presente" - HELP "Idoneita' alla donazione" -END - -STRING F_C_IDON2 2 -BEGIN - PROMPT 2 8 "" - FIELD LF_CONTSAN->IDON2 - FLAGS "U" - USE IDO - INPUT CODTAB F_C_IDON2 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@30" S0 - OUTPUT F_C_IDON2 CODTAB - OUTPUT F_C_DESC_IDON2 S0 - CHECKTYPE NORMAL - WARNING "Codice non presente" - HELP "Idoneita' alla donazione" -END - -STRING F_C_IDON3 2 -BEGIN - PROMPT 2 9 "" - FIELD LF_CONTSAN->IDON3 - FLAGS "U" - USE IDO - INPUT CODTAB F_C_IDON3 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@30" S0 - OUTPUT F_C_IDON3 CODTAB - OUTPUT F_C_DESC_IDON3 S0 - CHECKTYPE NORMAL - WARNING "Codice non presente" - HELP "Idoneita' alla donazione" -END - -STRING F_C_IDON4 2 -BEGIN - PROMPT 2 10 "" - FIELD LF_CONTSAN->IDON4 - FLAGS "U" - USE IDO - INPUT CODTAB F_C_IDON4 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@30" S0 - OUTPUT F_C_IDON4 CODTAB - OUTPUT F_C_DESC_IDON4 S0 - CHECKTYPE NORMAL - WARNING "Codice non presente" - HELP "Idoneita' alla donazione" -END - -TEXT DLG_NULL -BEGIN - PROMPT 40 6 "Intervalli" -END - -NUMBER F_C_INTSI 3 0 -BEGIN - PROMPT 40 7 "Sangue intero " - FIELD LF_CONTSAN->INTSI - FLAGS "U" -END - -NUMBER F_C_INTAF 3 0 -BEGIN - PROMPT 40 8 "Aferesi " - FIELD LF_CONTSAN->INTAF - FLAGS "U" -END - -GROUPBOX DLG_NULL 70 4 -BEGIN - PROMPT 1 12 "Prossimo tipo/esito" -END - - -STRING F_C_PROSSTIPO 2 -BEGIN - PROMPT 2 13 "Tipo controllo " - FIELD LF_CONTSAN->PROSSTIPO - FLAGS "U" - USE TCS - INPUT CODTAB F_C_PROSSTIPO - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@30" S0 - OUTPUT F_C_PROSSTIPO CODTAB - OUTPUT F_C_DESC_PROSSTIPO S0 - CHECKTYPE NORMAL - WARNING "Codice non presente" - HELP "Tipo/Esito controllo sanitario" -END - - -DATE F_C_PROSSDATA -BEGIN - PROMPT 2 14 "Data prevista " - FIELD LF_CONTSAN->PROSSDATA - HELP "Data controllo" -END - - -STRING F_C_DESC_TIPOCON 25 -BEGIN - PROMPT 25 3 "" - FLAGS "D" -END - -STRING F_C_DESC_IDON1 25 -BEGIN - PROMPT 10 7 "" - FLAGS "D" -END - -STRING F_C_DESC_IDON2 25 -BEGIN - PROMPT 10 8 "" - FLAGS "D" -END - -STRING F_C_DESC_IDON3 25 -BEGIN - PROMPT 10 9 "" - FLAGS "D" -END - -STRING F_C_DESC_IDON4 25 -BEGIN - PROMPT 10 10 "" - FLAGS "D" -END - -STRING F_C_DESC_PROSSTIPO 25 -BEGIN - PROMPT 25 13 "" - FLAGS "D" -END - -BUTTON DLG_OK 9 2 -BEGIN - PROMPT -13 -1 "" -END - -BUTTON DLG_CANCEL 9 2 -BEGIN - PROMPT -23 -1 "" -END - -BUTTON DLG_DELREC 9 2 -BEGIN - PROMPT -33 -1 "" - MESSAGE EXIT, K_DEL -END - - -ENDPAGE - -ENDMASK - -PAGE "Benemerenze" -1 -1 75 14 - -STRING F_B_TIPOBEN 2 -BEGIN - PROMPT 2 1 "Benemerenza " - FIELD LF_BENEM->TIPOBEN - FLAGS "U" - USE BNZ - INPUT CODTAB F_B_TIPOBEN - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@30" S0 - OUTPUT F_B_TIPOBEN CODTAB - OUTPUT F_B_DESC_TIPOBEN S0 - CHECKTYPE REQUIRED - VALIDATE NOT_EMPTY_FUNC - WARNING "Codice non presente" - HELP "Benemerenza assegnata" -END - -DATE F_B_DATABEN -BEGIN - PROMPT 2 2 "Data assegnazione " - FIELD LF_BENEM->DATABEN - CHECKTYPE REQUIRED - VALIDATE NOT_EMPTY_FUNC - HELP "Data assegnazione benemerenza" -END - -BOOLEAN F_B_RITIRATA -BEGIN - PROMPT 40 2 "Ritirata " - FIELD LF_BENEM->RITIRATA -END - - -STRING F_B_DESC_TIPOBEN 25 -BEGIN - PROMPT 26 1 "" - FLAGS "D" -END - -BUTTON DLG_OK 9 2 -BEGIN - PROMPT -13 -1 "" -END - -BUTTON DLG_CANCEL 9 2 -BEGIN - PROMPT -23 -1 "" -END - -BUTTON DLG_DELREC 9 2 -BEGIN - PROMPT -33 -1 "" - MESSAGE EXIT, K_DEL -END - -ENDPAGE - -ENDMASK - -PAGE "Storico iscrizioni e dimissioni" -1 -1 60 12 - -DATE F_S_DATAISC -BEGIN - PROMPT 2 1 " Dal " - FIELD LF_STORICO->DATAISC - HELP "Data di iscrizione alla sezione/categoria" -END - -DATE F_S_DATADIM -BEGIN - PROMPT 2 2 " Al " - FIELD LF_STORICO->DATADIM - HELP "Data di dimissione alla sezione/categoria" -END - -STRING F_S_CODSEZ 2 -BEGIN - PROMPT 2 4 "Sezione " - FIELD LF_STORICO->CODSEZ - FLAGS "U" - USE LF_SEZIONI - INPUT CODSEZ F_S_CODSEZ - INPUT CODSOT F_S_CODSOT - DISPLAY "Cod.sez" CODSEZ - DISPLAY "Cod.sot." CODSOT - DISPLAY "Sezione@25" DENSEZ - DISPLAY "Sottogruppo@25" DENSOT - OUTPUT F_S_CODSEZ CODSEZ - OUTPUT F_S_DENSEZ DENSEZ - OUTPUT F_S_CODSOT CODSOT - OUTPUT F_S_DENSOT DENSOT - CHECKTYPE SEARCH - HELP "Codice sezione di iscrizione" -END - -STRING F_S_DENSEZ 25 -BEGIN - PROMPT 20 4 "" - FLAGS "U" - USE LF_SEZIONI KEY 2 - INPUT DENSEZ F_S_DENSEZ - DISPLAY "Sezione@25" DENSEZ - DISPLAY "Sottogruppo@25" DENSOT - DISPLAY "Cod.sez" CODSEZ - DISPLAY "Cod.sot." CODSOT - COPY OUTPUT F_S_CODSEZ - CHECKTYPE NORMAL - HELP "Denominazione sezione di iscrizione" -END - -STRING F_S_CODSOT 2 -BEGIN - PROMPT 2 5 "Sottogruppo " - FIELD LF_STORICO->CODSOT - COPY ALL F_S_CODSEZ - //CHECKTYPE NORMAL - CHECKTYPE SEARCH - HELP "Codice sottogruppo di iscrizione" -END - -STRING F_S_DENSOT 25 -BEGIN - PROMPT 20 5 "" - FLAGS "U" - COPY USE F_S_DENSEZ - INPUT DENSEZ F_S_DENSEZ - INPUT DENSOT F_S_DENSOT - COPY DISPLAY F_S_DENSEZ - COPY OUTPUT F_S_DENSEZ - CHECKTYPE NORMAL - HELP "Sottogruppo di iscrizione" -END - -STRING F_S_CATISC 2 -BEGIN - PROMPT 2 7 "Cat. iscriz. " - FIELD LF_STORICO->CATISC - FLAGS "U" - USE CTD - INPUT CODTAB F_S_CATISC - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@30" S0 - OUTPUT F_S_CATISC CODTAB - OUTPUT F_S_DESC_CATISC S0 - CHECKTYPE NORMAL - WARNING "Codice non presente" - HELP "Categoria di iscrizione" -END - - -STRING F_S_DESC_CATISC 25 -BEGIN - PROMPT 20 7 "" - FLAGS "D" -END - - -LISTBOX F_S_MOTDIM 25 -BEGIN - PROMPT 2 9 "Motivo dim. " - FIELD MOTDIM - FLAGS "U" -#include "motdim.h" -END - -BUTTON DLG_OK 9 2 -BEGIN - PROMPT -13 -1 "" -END - -BUTTON DLG_CANCEL 9 2 -BEGIN - PROMPT -23 -1 "" -END - -BUTTON DLG_DELREC 9 2 -BEGIN - PROMPT -33 -1 "" - MESSAGE EXIT, K_DEL -END - - -ENDPAGE - -ENDMASK