#include "at0100a.h"

TOOLBAR "" 0 -2 0 2

#include <toolbar.h>
ENDPAGE

PAGE "Anagr." -1 -1 78 20

GROUPBOX DLG_NULL 77 5
BEGIN
  PROMPT 1 0 ""
  FLAGS "R"
END

NUMBER F_CODICE 8
BEGIN
  PROMPT 2 1 "Codice  "
  FIELD CODICE
  FLAGS "RG"
  KEY 1
  USE LF_SOGGETTI
  INPUT CODICE F_CODICE
  DISPLAY "Codice@8" CODICE
  DISPLAY "Cognome@25" COGNOME
  DISPLAY "Nome@25" NOME
  DISPLAY "Nato il@10" DATANASC
  DISPLAY "Sez." CODSEZ
  DISPLAY "Sot." CODSOT
  DISPLAY "C." CATDON
  DISPLAY "Tessera" TESSAVIS
  DISPLAY "Cod.CT" CODCT
  OUTPUT F_CODICE CODICE
  OUTPUT F_COGNOME COGNOME
  OUTPUT F_NOME NOME
  OUTPUT F_DATANASC DATANASC
  OUTPUT F_TESSAVIS TESSAVIS
  OUTPUT F_CODCT CODCT
  MESSAGE COPY,1@
  CHECKTYPE REQUIRED
END

BUTTON F_RICPARZ 23 1
BEGIN
   PROMPT 26 1 "Ricerca parziale"
END

STRING F_CODCT 6
BEGIN
  PROMPT 60 1 "Cod. CT "
  FIELDS CODCT
  FLAGS "U"
  KEY 7
  MESSAGE COPY,5@
  USE LF_SOGGETTI KEY 7
  INPUT CODCT F_CODCT
  DISPLAY "Codice CT" CODCT
  DISPLAY "Codice@8" CODICE
  DISPLAY "Cognome@25" COGNOME
  DISPLAY "Nome@25" NOME
  DISPLAY "Nato il@10" DATANASC
  DISPLAY "Sez." CODSEZ
  DISPLAY "Sot." CODSOT
  DISPLAY "C." CATDON
  OUTPUT F_CODICE CODICE
  HELP "Codice Centro Trasfusionale"
END

STRING F_COGNOME 25
BEGIN
  PROMPT 2 2 "Cognome "
  FIELD COGNOME
  KEY 2
  USE LF_SOGGETTI KEY 2
  INPUT COGNOME F_COGNOME
  INPUT NOME F_NOME
  INPUT DATANASC F_DATANASC
  DISPLAY "Cognome@25" COGNOME
  DISPLAY "Nome@25" NOME
  DISPLAY "Nato il@10" DATANASC
  DISPLAY "Codice@8" CODICE
  DISPLAY "Sez." CODSEZ
  DISPLAY "Sot." CODSOT
  DISPLAY "C." CATDON
  DISPLAY "Tessera" TESSAVIS
  DISPLAY "Cod.CT" CODCT
  OUTPUT F_CODICE CODICE
  MESSAGE COPY,2@
  CHECKTYPE REQUIRED
  HELP "Cognome del soggetto"
END

STRING F_NOME 25
BEGIN
  PROMPT 44 2 "Nome "
  FIELD NOME
  KEY 2
  COPY ALL F_COGNOME
  MESSAGE COPY,3@
  CHECKTYPE REQUIRED
  HELP "Nome del soggetto"
END

DATE F_DATANASC 
BEGIN
  PROMPT 2 3 "Nato il "
  FIELD DATANASC
  KEY 2
  MESSAGE COPY,4@
  //CHECKTYPE REQUIRED
  //VALIDATE NOT_EMPTY_CHECK_FIELD
  //HELP "Data di nascita"
END

STRING F_TESSAVIS 6
BEGIN
  PROMPT 23 3 "Tess. "
  FIELDS TESSAVIS
  FLAGS "U"
  KEY 4
  MESSAGE COPY,5@
  USE LF_SOGGETTI KEY 4
  INPUT TESSAVIS F_TESSAVIS
  DISPLAY "Tessera" TESSAVIS
  DISPLAY "Codice@8" CODICE
  DISPLAY "Cognome@25" COGNOME
  DISPLAY "Nome@25" NOME
  DISPLAY "Nato il@10" DATANASC
  DISPLAY "Sez." CODSEZ
  DISPLAY "Sot." CODSOT
  DISPLAY "C." CATDON
  DISPLAY "Cod.CT" CODCT
  OUTPUT F_CODICE CODICE
  HELP "Numero tessera associativa AVIS"
END

STRING F_COGNOME_SP 25
BEGIN
   PROMPT 40 3 "Cogn.sp. "
   FIELD COGNOME_SP
END


GROUPBOX DLG_NULL 77 4
BEGIN
   PROMPT 1 5 "Dati associativi"
END

STRING F_CODSEZ 2
BEGIN
  PROMPT 2 6 "Sez. "
  FIELD CODSEZ
  FLAGS "U"
  MESSAGE COPY,13@
  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 SEARCH
  HELP "Codice sezione di appartenenza"
  ADD MASK batbsez
  WARNING "Codice sezione assente"
END

STRING F_DENSEZ 30 24
BEGIN
  PROMPT 12 6 ""
  MESSAGE COPY,14@
  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 batbsez
  WARNING "Denominazione assente"
END

STRING F_CODSOT 2
BEGIN
  PROMPT 40 6 "Sot. "
  FIELD CODSOT
  FLAGS "U"
  MESSAGE COPY,15@
  COPY ALL F_CODSEZ
  CHECKTYPE NORMAL
  HELP "Codice sottogruppo di appartenenza"
  ADD MASK batbsez
  WARNING "Codice sottogruppo assente"
END

STRING F_DENSOT 30 24
BEGIN        	
  PROMPT 50 6 ""
  MESSAGE COPY,16@
  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 batbsez
  WARNING "Denominazione sottogruppo assente"
END

STRING F_CATDON 2
BEGIN
  PROMPT 2 7 "Cat. "
  FIELD CATDON
  MESSAGE COPY,11@
  FLAGS "U"
  USE CTD
  INPUT CODTAB F_CATDON
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@40" S0
  OUTPUT F_CATDON CODTAB
  OUTPUT F_DESC_CATDON S0
  CHECKTYPE NORMAL
  WARNING "Codice categoria non presente"
  HELP "Categoria di appartenenza"
END

STRING F_DESC_CATDON 30 25
BEGIN
  PROMPT 12 7 ""
  FLAGS "D"
  MESSAGE COPY,12@
END

DATE F_DATAISC
BEGIN
  PROMPT 40 7 "Isc. "
  FIELD DATAISC
  HELP "Data di iscrizione alla sezione/categoria"
END

DATE F_DATADIM
BEGIN
  PROMPT 61 7 "Dim. "
  FIELD DATADIM
  HELP "Data di dimissione dalla sezione/categoria"
END

GROUPBOX DLG_NULL 77 13
BEGIN
  PROMPT 1 9 "Dati anagrafici"
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 10 "Domicilio: "
END

STRING F_DOM_INDIR 30
BEGIN
  PROMPT 13 10 "Indirizzo "
  FIELD DOM_INDIR
END

STRING F_DOM_STRADA 5
BEGIN
  PROMPT 55 10 "St. "
  FIELD DOM_STRADA
END

STRING F_DOM_DISTRI 30
BEGIN
  PROMPT 13 11 "Presso    "
  FIELD DOM_DISTRI
END

STRING F_DOM_CODCOM 4
BEGIN
  PROMPT 13 12 "Comune    "
  FIELD DOM_CODCOM
  FLAGS "U"
  USE LF_COMUNI
  INPUT STATO ""
  INPUT COM F_DOM_CODCOM
#include <comdcod.h>
  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 50 30
BEGIN
  PROMPT 30 12 ""
  USE LF_COMUNI KEY 2
  INPUT DENCOM F_DOM_DENCOM
#include <comdden.h>
  COPY OUTPUT F_DOM_CODCOM
  CHECKTYPE NORMAL
  HELP "Comune di residenza"
  WARNING " Comune assente"
END

STRING F_DOM_CODLOC 4
BEGIN
  PROMPT 13 13 "Localita' "
  FIELD DOM_CODLOC
  FLAGS "U"
  USE LCP SELECT S7=#F_DOM_CODCOM
  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"
  WARNING "Codice localita' assente"
END

STRING F_DOM_DENLOC 30
BEGIN
  PROMPT 30 13 ""
  USE LCP KEY 2 SELECT S7=#F_DOM_CODCOM
  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"
  WARNING "Localita' assente"
END

STRING F_DOM_CAPCOM 5
BEGIN
  PROMPT 66 12 "CAP  "
  FIELD DOM_CAP
  //FLAGS "D"
END

STRING F_DOM_PROVCOM 5
BEGIN
  PROMPT 66 13 "Prov."
  FLAGS "D"
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 14 "Residenza: "
END

STRING F_RES_INDIR 30
BEGIN
  PROMPT 13 14 "Indirizzo "
  FIELD RES_INDIR
END

STRING F_RES_CODCOM 4
BEGIN
  PROMPT 13 15 "Comune    "
  FIELD RES_CODCOM
  FLAGS "U"
  USE LF_COMUNI
  INPUT STATO ""
  INPUT COM F_RES_CODCOM
#include <comdcod.h>
  OUTPUT F_RES_CODCOM COM
  OUTPUT F_RES_DENCOM DENCOM
  OUTPUT F_RES_PROVCOM PROVCOM
  OUTPUT F_RES_CAPCOM CAPCOM
  CHECKTYPE NORMAL
  WARNING "Comune assente"
  HELP "Codice comune di residenza"
END

STRING F_RES_DENCOM 50 30
BEGIN
  PROMPT 30 15 ""
  USE LF_COMUNI KEY 2
  INPUT DENCOM F_RES_DENCOM
#include <comdden.h>
  COPY OUTPUT F_RES_CODCOM
  CHECKTYPE NORMAL
  HELP "Comune di residenza"
  WARNING "Comune assente"
END

STRING F_RES_CODLOC 4
BEGIN
  PROMPT 13 16 "Localita' "
  FIELD RES_CODLOC
  FLAGS "U"
  USE LCP SELECT S7=#F_RES_CODCOM
  INPUT CODTAB F_RES_CODLOC
  DISPLAY "Codice" CODTAB
  DISPLAY "Localita'@30" S0
  DISPLAY "CAP@5" S6
  OUTPUT F_RES_CODLOC CODTAB
  OUTPUT F_RES_DENLOC S0
  OUTPUT F_RES_CAPCOM S6
  OUTPUT F_RES_CODCOM S7
  CHECKTYPE NORMAL
  HELP "Codice localita' postale se diversa dal comune"
  WARNING "Codice localita' assente"
END

STRING F_RES_DENLOC 30
BEGIN
  PROMPT 30 16 ""
  USE LCP SELECT S7=#F_RES_CODCOM
  INPUT S0 F_RES_DENLOC
  DISPLAY "Localita'@30" S0
  DISPLAY "CAP@5" S6
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_RES_CODLOC
  CHECKTYPE NORMAL
  HELP "Localita' postale se diversa dal comune"
  WARNING "Localita' assente"
END

STRING F_RES_CAPCOM 5
BEGIN
  PROMPT 66 15 "CAP  "
  FIELD RES_CAP
  //FLAGS "D"
END

STRING F_RES_PROVCOM 5
BEGIN
  PROMPT 66 16 "Prov."
  FLAGS "D"
END

STRING F_COMNASC 4
BEGIN
  PROMPT 2 17 "Nato a "
  FIELD COMNASC
  FLAGS "U"
  USE LF_COMUNI 
  INPUT STATO ""
  INPUT COM F_COMNASC
#include <comdcod.h>
  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 17 ""
  USE LF_COMUNI KEY 2
  INPUT DENCOM F_DENCOMNASC
#include <comdden.h>
  COPY OUTPUT F_COMNASC
  CHECKTYPE NORMAL
  HELP "Comune di nascita"
  WARNING "Comune assente"
END

STRING F_PROVCOMNASC 5
BEGIN
  PROMPT 49 17 ""
  FLAGS "D"
END

LISTBOX F_SESSO 11
BEGIN
  PROMPT 57 17 "Sesso "
  FIELD SESSO
  FLAGS "U"
#include "sesso.h"
END

STRING F_CF 16
BEGIN
  PROMPT 2 18 "Codice fiscale  "
  FIELD CF
  FLAGS "U"
  HELP "Codice fiscale"
END

STRING F_DOCID 20
BEGIN
  PROMPT 38 18 "Doc. di identita' "
  FIELDS DOCID
  FLAGS "U"
  HELP "Documento di identita': tipo e numero"
END

STRING F_TELABI 14
BEGIN
  PROMPT 2 19 "Telefoni: Abit. "
  FIELD TELABI
  HELP "Telefono abitazione"
END

STRING F_TELLAV 14
BEGIN
  PROMPT 35 19 "Lav. "
  FIELD TELLAV
  HELP "Telefono lavoro"
END

STRING F_TELALT 14
BEGIN
  PROMPT 56 19 "Altro "
  FIELD TELALT
  HELP "Altro numero telefonico per reperibilita'"
END

STRING F_EMAIL 50
BEGIN
  PROMPT 2 20 "Posta elettron. "
  FIELD EMAIL
  HELP "Indirizzo di posta elettronica"
END

ENDPAGE

PAGE "Assoc." -1 -1 78 20

GROUPBOX DLG_NULL 77 5
BEGIN
  PROMPT 1 0 "Dati identificativi"
  FLAGS "R"
END

NUMBER DLG_NULL 8
BEGIN
   // codice
  PROMPT 2 1 ""
  FLAGS "D"
  GROUP 1
END

STRING DLG_NULL 25
BEGIN
   // cognome
  PROMPT 12 1 ""
  FLAGS "D"
  GROUP 2
END

STRING DLG_NULL 25
BEGIN
   // nome
  PROMPT 38 1 ""
  FLAGS "D"
  GROUP 3
END

DATE DLG_NULL
BEGIN
   // data nascita
  PROMPT 66 1 ""
  FLAGS "D"
  GROUP 4
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 2 "Sez./Sot."
END

STRING DLG_NULL 25
BEGIN
   // denominazione sezione
  PROMPT 12 2 ""
  FLAGS "D"
  GROUP 14
END

STRING DLG_NULL 25
BEGIN
   // denominazione sottogruppo
  PROMPT 38 2 ""
  FLAGS "D"
  GROUP 16
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 3 "Categoria"
END

STRING DLG_NULL 25
BEGIN
   // descrizione categoria
   PROMPT 12 3 ""
   FLAGS "D"
   GROUP 12
END

TEXT DLG_NULL
BEGIN
  PROMPT 39 3 "Stato att."
END

STRING DLG_NULL 2
BEGIN
   // stato attuale
   PROMPT 51 3 ""
   FLAGS "D"
   GROUP 17
END

TEXT DLG_NULL
BEGIN
  PROMPT 57 3 "Tessera"
END

STRING DLG_NULL 6
BEGIN
   // tessera
  PROMPT 66 3 ""
  FLAGS "D"
  GROUP 5
END

GROUPBOX DLG_NULL 77 7
BEGIN
  PROMPT 1 5 "Altri dati associativi/identificativi"
END

STRING F_CATNOND1 2
BEGIN
  PROMPT 2 6 "Cat. non don.  "
  FIELD CATNOND1
  FLAGS "U"
  USE CTN
  INPUT CODTAB F_CATNOND1
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@40" S0
  OUTPUT F_CATNOND1 CODTAB
  OUTPUT F_DESC_CATNOND1 S0
  CHECKTYPE NORMAL
  WARNING "Codice categoria non presente"
  HELP "Altra categoria non donatori"
END

STRING F_DESC_CATNOND1 30 23
BEGIN
  PROMPT 22 6 ""
  FLAGS "D"
END

STRING F_CATNOND2 2
BEGIN
  PROMPT 48 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 categoria non presente"
  HELP "Altra categoria non donatori"
END

STRING F_DESC_CATNOND2 30 23
BEGIN
  PROMPT 53 6 ""
  FLAGS "D"
END

STRING F_GRUPPOAZIE 4
BEGIN
  PROMPT 2 7 "Gruppo aziend. "
  FIELD GRUPPOAZIE
  FLAGS "U"
  USE GAZ
  INPUT CODTAB F_GRUPPOAZIE
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@30" S0
  OUTPUT F_GRUPPOAZIE CODTAB
  OUTPUT F_DESC_GRUPPOAZIE S0
  CHECKTYPE NORMAL
  WARNING "Codice gruppo aziendale non presente"
  HELP "Gruppo aziendale di appartenenza"
END

STRING F_DESC_GRUPPOAZIE 30
BEGIN
  PROMPT 24 7 ""
  FLAGS "U"
  USE GAZ KEY 2
  INPUT S0 F_DESC_GRUPPOAZIE
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@30" S0
  COPY OUTPUT F_GRUPPOAZIE
  CHECKTYPE NORMAL
  WARNING "Gruppo aziendale non presente"
  HELP "Gruppo aziendale di appartenenza"
END

STRING F_CODCL 6
BEGIN
  PROMPT 2 8 "Cart. clinica  "
  FIELDS CODCL
  FLAGS "U"
  HELP "Numero cartella clinica"
END

STRING F_TESSSSN 10
BEGIN
  PROMPT 42 8 "SSN "
  FIELDS TESSSSN
  FLAGS "U"
  HELP "Numero tessera Servizio Sanitario Nazionale"
END

STRING F_TITINDIR 10
BEGIN
  PROMPT 59 8 "Titolo "
  FIELDS TITINDIR
  HELP "Eventuale titolo da stampare prima del nome sull'indirizzo"
END

NUMBER F_CODMED 6
BEGIN
  PROMPT 2 9 "Medico di base "
  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 batbmed
END

STRING F_COGNMED 25 23
BEGIN
  PROMPT 26 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 batbmed
END

STRING F_NOMMED 25 22
BEGIN
  PROMPT 52 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 batbmed
END

BOOLEAN F_NOTIZIARIO
BEGIN
   PROMPT 2 10 "Notiziario"
   FIELD NOTIZIARIO
END

BOOLEAN F_BENEM
BEGIN
   PROMPT 17 10 "Benemerenze"
   FIELD BENEM
END

BOOLEAN F_CONSENSO
BEGIN
   PROMPT 32 10 "Consenso"
   FIELD CONSENSO
END

BOOLEAN F_T_STAMPATA
BEGIN
   PROMPT 47 10 "Tessera stampata "
   FIELD T_STAMPATA
END


GROUPBOX DLG_NULL 77 4
BEGIN
  PROMPT 1 12 "Dati gruppo-ematici"
END

LISTBOX F_GRUPPOAB0 5
BEGIN
  PROMPT 2 13 "Gruppo AB0 "
  FIELD GRUPPOAB0
  FLAGS "U"
#include "sgruppo.h"
END       

LISTBOX F_RHANTID 4
BEGIN
  PROMPT 22 13 "Rh/AntiD "
  FIELD RHANTID
  FLAGS "U"
#include "srh.h"
END

STRING F_FENOTIPORH 6
BEGIN
  PROMPT 39 13 "Fen.Rh "
  FIELD FENOTIPORH
  MESSAGE COPY,8@
END

LISTBOX F_KELL 4
BEGIN
  PROMPT 54 13 "Kell "
  FIELD KELL
  //FLAGS "U"
#include "skell.h"
END

LISTBOX F_DU 4
BEGIN
  PROMPT 67 13 "Du "
  FIELD DU
  FLAGS "U"
#include "sdu.h"
END

LISTBOX F_ANTICORPI 4
BEGIN
  PROMPT 2 14 "Anticorpi  "
  FIELD ANTICORPI
  FLAGS "U"
  ITEM " |"
  ITEM "S|Si"
  ITEM "N|No"
END

LISTBOX F_CMV 4
BEGIN
  PROMPT 22 14 "CMV "
  FIELD CMV
  FLAGS "U"
#include "rh.h"	
END

GROUPBOX DLG_NULL 77 6
BEGIN
  PROMPT 1 16 "Preferenze"
END

LISTBOX F_MODCONV 13
BEGIN
  PROMPT 2 17 "Mod. convoc. "
  FIELD MODCONV
#include "modalita.h"	
END

STRING F_PUNTORACC 4
BEGIN
   PROMPT 32 17 "Punto prel. "
   FIELD PUNTORACC
   FLAGS "U"
   USE LDN
   INPUT CODTAB F_PUNTORACC
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@40" S0
   OUTPUT F_PUNTORACC CODTAB
   OUTPUT F_DESC_PUNTORACC S0
   CHECKTYPE NORMAL
   WARNING "Codice punto di prelievo non presente"
   HELP "Punto di prelievo per la convocazione"
END

STRING F_DESC_PUNTORACC 50 25
BEGIN
  PROMPT 51 17 ""
  FLAGS "D"
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 18 "Giorni:   Lu  Ma  Me  Gi  Ve  Sa  Do"
END

TEXT DLG_NULL
BEGIN
  PROMPT 50 18 "Lu  Ma  Me  Gi  Ve  Sa  Do"
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 19 "Donazione"
END

BOOLEAN F_GPD_LUN
BEGIN
  PROMPT 12 19 ""
  FIELD GIOPREDON[1,1]
END

BOOLEAN F_GPD_MAR
BEGIN
  PROMPT 16 19 ""
  FIELD GIOPREDON[2,2]
END

BOOLEAN F_GPD_MER
BEGIN
  PROMPT 20 19 ""
  FIELD GIOPREDON[3,3]
END

BOOLEAN F_GPD_GIO
BEGIN
  PROMPT 24 19 ""
  FIELD GIOPREDON[4,4]
END

BOOLEAN F_GPD_VEN
BEGIN
  PROMPT 28 19 ""
  FIELD GIOPREDON[5,5]
END

BOOLEAN F_GPD_SAB
BEGIN
  PROMPT 32 19 ""
  FIELD GIOPREDON[6,6]
END

BOOLEAN F_GPD_DOM
BEGIN
  PROMPT 36 19 ""
  FIELD GIOPREDON[7,7]
END

TEXT DLG_NULL
BEGIN
  PROMPT 40 19 "Controlli"
END

BOOLEAN F_GPC_LUN
BEGIN
  PROMPT 50 19 ""
  FIELD GIOPRECON[1,1]
END

BOOLEAN F_GPC_MAR
BEGIN
  PROMPT 54 19 ""
  FIELD GIOPRECON[2,2]
END

BOOLEAN F_GPC_MER
BEGIN
  PROMPT 58 19 ""
  FIELD GIOPRECON[3,3]
END

BOOLEAN F_GPC_GIO
BEGIN
  PROMPT 62 19 ""
  FIELD GIOPRECON[4,4]
END

BOOLEAN F_GPC_VEN
BEGIN
  PROMPT 66 19 ""
  FIELD GIOPRECON[5,5]
END

BOOLEAN F_GPC_SAB
BEGIN
  PROMPT 70 19 ""
  FIELD GIOPRECON[6,6]
END

BOOLEAN F_GPC_DOM
BEGIN
  PROMPT 74 19 ""
  FIELD GIOPRECON[7,7]
END
                 
TEXT DLG_NULL 
BEGIN
	PROMPT 2 20 "Disponibilita' alla donazione in aferesi:"
END

STRING F_DISP_AF_1 2
BEGIN
  PROMPT 46 20 ""
  FIELD LF_SOGGETTI->DISP_AF_1
  FLAGS "U"
  USE IDO SELECT S6="AF"
  INPUT CODTAB F_DISP_AF_1
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@40" S0
  OUTPUT F_DISP_AF_1 CODTAB
  CHECKTYPE NORMAL
  WARNING "Codice idoneita' non presente"
  HELP "Idoneita' alla donazione"
END

STRING F_DISP_AF_2 2
BEGIN
  PROMPT 54 20 ""
  FIELD LF_SOGGETTI->DISP_AF_2
  FLAGS "U"
  USE IDO SELECT S6="AF"
  INPUT CODTAB F_DISP_AF_2
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@40" S0
  OUTPUT F_DISP_AF_2 CODTAB
  CHECKTYPE NORMAL
  WARNING "Codice idoneita' non presente"
  HELP "Idoneita' alla donazione"
END

ENDPAGE
       
PAGE "Situaz." -1 -1 78 20

GROUPBOX DLG_NULL 77 5
BEGIN
  PROMPT 1 0 "Dati identificativi"
  FLAGS "R"
END

NUMBER DLG_NULL 8
BEGIN
   // codice
  PROMPT 2 1 ""
  FLAGS "D"
  GROUP 1
END

STRING DLG_NULL 25
BEGIN
   // cognome
  PROMPT 12 1 ""
  FLAGS "D"
  GROUP 2
END

STRING DLG_NULL 25
BEGIN
   // nome
  PROMPT 38 1 ""
  FLAGS "D"
  GROUP 3
END

DATE DLG_NULL
BEGIN
   // data nascita
  PROMPT 66 1 ""
  FLAGS "D"
  GROUP 4
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 2 "Sez./Sot."
END

STRING DLG_NULL 25
BEGIN
   // denominazione sezione
  PROMPT 12 2 ""
  FLAGS "D"
  GROUP 14
END

STRING DLG_NULL 25
BEGIN
   // denominazione sottogruppo
  PROMPT 38 2 ""
  FLAGS "D"
  GROUP 16
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 3 "Categoria"
END

STRING DLG_NULL 25
BEGIN
   // descrizione categoria
   PROMPT 12 3 ""
   FLAGS "D"
   GROUP 12
END

TEXT DLG_NULL
BEGIN
  PROMPT 39 3 "Stato att."
END

STRING DLG_NULL 2
BEGIN
   // stato attuale
   PROMPT 51 3 ""
   FLAGS "D"
   GROUP 17
END

TEXT DLG_NULL
BEGIN
  PROMPT 57 3 "Tessera"
END

STRING DLG_NULL 6
BEGIN
   // tessera
  PROMPT 66 3 ""
  FLAGS "D"
  GROUP 5
END

GROUPBOX DLG_NULL 77 8
BEGIN
  PROMPT 1 5 "Situazione sanitaria"
END

STRING DLG_NULL 5
BEGIN
  PROMPT 2 6 "Gruppo AB0 "
  FLAGS "D"
  GROUP 6
END       

STRING DLG_NULL 4
BEGIN
  PROMPT 22 6 "Rh/AntiD "
  FLAGS "D"
  GROUP 7
END

STRING DLG_NULL 6
BEGIN
  PROMPT 39 6 "Fen.Rh "
  FLAGS "D"
  GROUP 8
END

STRING DLG_NULL 4
BEGIN
  PROMPT 55 6 "Kell "
  FLAGS "D"
  GROUP 9
END

STRING DLG_NULL 4
BEGIN
  PROMPT 69 6 "Du "
  FLAGS "D"
  GROUP 10
END

STRING F_STATO 2
BEGIN
  PROMPT 2 7 "Stato attuale "
  FIELD STATO
  FLAGS "DG"
  MESSAGE COPY,17@
  USE TCS
  INPUT CODTAB F_STATO
  OUTPUT F_DESCSTATO S3
  CHECKTYPE NORMAL
END

STRING F_DESCSTATO 20
BEGIN
  PROMPT 20 7 ""
  FLAGS "D"
END

DATE F_DATASTATO
BEGIN
  PROMPT 52 7 "Data stato    "
  FIELD DATASTATO
  FLAGS "D"
END

STRING F_PROS_STATO 2
BEGIN
  PROMPT 2 8 "Stato pross.  "
  FIELD PROS_STATO
  FLAGS "D"
  USE TCS
  INPUT CODTAB F_PROS_STATO
  OUTPUT F_DESCPROS_STATO S3
  CHECKTYPE NORMAL
END

STRING F_DESCPROS_STATO 20
BEGIN
  PROMPT 20 8 ""
  FLAGS "D"
END

DATE F_DATA_PROS
BEGIN
  PROMPT 52 8 "Data prossimo "
  FIELD DATA_PROS
  FLAGS "D"
END

STRING F_IDON1 2
BEGIN
  PROMPT 2 9 "Tipi di idon. "
  FIELD IDON1
  FLAGS "D"
END

STRING F_IDON2 2
BEGIN
  PROMPT 20 9  ""
  FIELD IDON2
  FLAGS "D"
END

STRING F_IDON3 2
BEGIN
  PROMPT 24 9 ""
  FIELD IDON3
  FLAGS "D"
END

STRING F_IDON4 2
BEGIN
  PROMPT 28 9 ""
  FIELD IDON4
  FLAGS "D"
END

STRING F_TIPOULTID 2
BEGIN
  PROMPT 38 9 "Ult. idon.:  Tipo "
  FIELD TIPOULTID
  FLAGS "D"
END

DATE F_DATAULTID 
BEGIN
  PROMPT 61 9 "Data "
  FIELD DATAULTID
  FLAGS "D"
END

STRING F_STATOSI 2
BEGIN
  PROMPT 2 10 "Stato attuale : Sangue intero "
  FIELD STATOSI
  FLAGS "D"
END

DATE F_DATASI
BEGIN
   PROMPT 36 10 ""
   FIELD DATASI
   FLAGS "D"
END

DATE F_FINESOSSI
BEGIN
   PROMPT 2 11 "Fine sosp.    : Sangue intero "
   FIELD FINESOSSI
   FLAGS "D"
END

STRING F_STATOAF 2
BEGIN
  PROMPT 48 10 "Aferesi "
  FIELD STATOAF
  FLAGS "D"
END

DATE F_DATAAF
BEGIN
   PROMPT 60 10 ""
   FIELD DATAAF
   FLAGS "D"
END

DATE F_FINESOSAF
BEGIN
   PROMPT 48 11 "Aferesi "
   FIELD FINESOSAF
   FLAGS "D"
END

GROUPBOX DLG_NULL 77 8
BEGIN
  PROMPT 1 13 "Situazione donazioni"
END

NUMBER F_TOTDON 3
BEGIN
  PROMPT 2 14 "Totale "
  FIELD TOTDON
  FLAGS "D"
END

DATE F_DATAULTDON
BEGIN
  PROMPT 15 14 "Data/tipo ultima "
  FIELD DATAULTDON
  FLAGS "D"
END

STRING F_TIPOULTDON 2
BEGIN
  PROMPT 44 14 ""
  FIELD TIPOULTDON
  FLAGS "D"
  USE TDN
  INPUT CODTAB F_TIPOULTDON
  OUTPUT F_DESC_ULTDON S0
  CHECKTYPE NORMAL
END

STRING F_DESC_ULTDON 30 25
BEGIN
  PROMPT 48 14 ""
  FLAGS "D"
END

NUMBER F_TOTDONSI 3
BEGIN
  PROMPT 2 15 "Totale don.   : Sangue intero "
  FIELD TOTDONSI
  FLAGS "D"
END

NUMBER F_TOTDONAF 3
BEGIN
  PROMPT 48 15 "Aferesi "
  FIELD TOTDONAF
  FLAGS "D"
END

DATE F_DATAULTSI
BEGIN
  PROMPT 2 16 "Date ultima   : Sangue intero "
  FIELD DATAULTSI
  FLAGS "D"
END

DATE F_DATAULTAF
BEGIN
  PROMPT 48 16 "Aferesi "
  FIELD DATAULTAF
  FLAGS "D"
END

NUMBER F_INTSI 3
BEGIN
  PROMPT 2 17 "Intervalli    : Sangue intero "
  FIELD INTSI
  FLAGS "D"
END 

NUMBER F_INTAF 3
BEGIN
  PROMPT 48 17 "Aferesi "
  FIELD INTAF
  FLAGS "D"
END

DATE F_DATAPROSSI
BEGIN
  PROMPT 2 18 "Date prossima : Sangue intero "
  FIELD DATAPROSSI
  FLAGS "D"
END

DATE F_DATAPROSAF
BEGIN
  PROMPT 48 18 "Aferesi "
  FIELD DATAPROSAF
  FLAGS "D"
END

DATE F_DATACONV
BEGIN
  PROMPT 2 19 "Convocazioni  : Ultima "
  FIELD DATACONV
END

NUMBER F_NUMCONV 3
BEGIN
  PROMPT 37 19 "Nro "
  FIELD NUMCONV
END

STRING F_PUNTOCONV 4
BEGIN
   PROMPT 46 19 "Punto "
   FLAGS "U"
   USE LDN
   INPUT CODTAB F_PUNTOCONV
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@40" S0
   OUTPUT F_PUNTOCONV CODTAB
   CHECKTYPE NORMAL
   WARNING "Codice punto di prelievo non presente"
   HELP "Punto di prelievo per la convocazione"
END

BOOLEAN F_STAMPATACONV
BEGIN
   PROMPT 60 19 "St."
   FLAGS "D"
END

BUTTON F_CONVOCAZIONI 8 1
BEGIN
   PROMPT 67 19 "Elenco"
END

DATE F_DATAULTSOL
BEGIN
  PROMPT 0 0 ""
  FIELD DATAULTSOL
  FLAGS "H"
END

ENDPAGE

PAGE "Vari" -1 -1 78 20

GROUPBOX DLG_NULL 77 5
BEGIN
  PROMPT 1 0 "Dati identificativi"
  FLAGS "R"
END

NUMBER DLG_NULL 8
BEGIN
   // codice
  PROMPT 2 1 ""
  FLAGS "D"
  GROUP 1
END

STRING DLG_NULL 25
BEGIN
   // cognome
  PROMPT 12 1 ""
  FLAGS "D"
  GROUP 2
END

STRING DLG_NULL 25
BEGIN
   // nome
  PROMPT 38 1 ""
  FLAGS "D"
  GROUP 3
END

DATE DLG_NULL
BEGIN
   // data nascita
  PROMPT 66 1 ""
  FLAGS "D"
  GROUP 4
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 2 "Sez./Sot."
END

STRING DLG_NULL 25
BEGIN
   // denominazione sezione
  PROMPT 12 2 ""
  FLAGS "D"
  GROUP 14
END

STRING DLG_NULL 25
BEGIN
   // denominazione sottogruppo
  PROMPT 38 2 ""
  FLAGS "D"
  GROUP 16
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 3 "Categoria"
END

STRING DLG_NULL 25
BEGIN
   // descrizione categoria
   PROMPT 12 3 ""
   FLAGS "D"
   GROUP 12
END

TEXT DLG_NULL
BEGIN
  PROMPT 39 3 "Stato att."
END

STRING DLG_NULL 2
BEGIN
   // stato attuale
   PROMPT 51 3 ""
   FLAGS "D"
   GROUP 17
END

TEXT DLG_NULL
BEGIN
  PROMPT 39 3 "Stato att."
END

STRING DLG_NULL 2
BEGIN
   // stato attuale
   PROMPT 51 3 ""
   FLAGS "D"
   GROUP 17
END

TEXT DLG_NULL
BEGIN
  PROMPT 57 3 "Tessera"
END

STRING DLG_NULL 6
BEGIN
   // tessera
  PROMPT 66 3 ""
  FLAGS "D"
  GROUP 5
END

GROUPBOX DLG_NULL 77 6
BEGIN
  PROMPT 1 5 "Dati statistici"
END

LISTBOX F_CONDOCC 25
BEGIN
  PROMPT 2 6 "Cond. occ.  "
  FIELD CONDOCC
  FLAGS "U"
#include "condocc.h"
END

LISTBOX F_POSPROF 20
BEGIN
  PROMPT 43 6 "Pos. prof. "
  FIELD POSPROF
  FLAGS "U"
#include "posprof.h"
END

LISTBOX F_RAMOATT 25
BEGIN
  PROMPT 2 7 "Ramo att.   "
  FIELD RAMOATT
  FLAGS "U"
#include "ramoatt.h"
END

LISTBOX F_TITSTUD 20
BEGIN
  PROMPT 43 7 "Tit. stud. "
  FIELD TITSTUD
  FLAGS "U"
#include "titstud.h"
END

STRING F_PROFESS 4
BEGIN
  PROMPT 2 8 "Professione "
  FIELD PROFESS
  FLAGS "U"
  USE PRF
  INPUT CODTAB F_PROFESS
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@40" S0
  OUTPUT F_PROFESS CODTAB
  OUTPUT F_DESC_PROFESS S0
  CHECKTYPE NORMAL
  WARNING "Codice professione non presente"
  HELP "Professione"
END

STRING F_DESC_PROFESS 40
BEGIN
  PROMPT 21 8 ""
  FLAGS "U"
  USE PRF KEY 2
  INPUT S0 F_DESC_PROFESS
  DISPLAY "Descrizione@40" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_PROFESS
  CHECKTYPE NORMAL
  WARNING "Professione non presente"
  HELP "Professione"
END

STRING F_LUOGOLAV 4
BEGIN
  PROMPT 2 9 "Luogo lav.  "
  FIELD LUOGOLAV
  FLAGS "U"
  USE LDL
  INPUT CODTAB F_LUOGOLAV
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@40" S0
  OUTPUT F_LUOGOLAV CODTAB
  OUTPUT F_DESC_LUOGOLAV S0
  CHECKTYPE NORMAL
  WARNING "Codice luogo di lavoro non presente"
  HELP "Luogo di lavoro"
END

STRING F_DESC_LUOGOLAV 40
BEGIN
  PROMPT 21 9 ""
  FLAGS "U"
  USE LDL KEY 2
  INPUT S0 F_DESC_LUOGOLAV
  DISPLAY "Descrizione@40" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_LUOGOLAV
  OUTPUT F_LUOGOLAV CODTAB
  CHECKTYPE NORMAL
  WARNING "Luogo di lavoro non presente"
  HELP "Luogo di lavoro"
END

GROUPBOX DLG_NULL 41 5
BEGIN
  PROMPT 1 11 "Esclusione non sanitaria"
END

LISTBOX F_ESCLUSO 20
BEGIN
  PROMPT 2 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 2 13 "Termine "
  FIELD TERMESCL
END

STRING F_MOTESCL 30
BEGIN
  PROMPT 2 14 "Motivo  "
  FIELD MOTESCL
END

GROUPBOX DLG_NULL 35 3
BEGIN
   PROMPT 43 11 "Ultimo aggiornamento"
END


DATE F_DATAULTAGG
BEGIN
  PROMPT 44 12 "Data "
  FIELD DATAULTAGG
  FLAGS "D"
END

STRING F_UTENULTAGG 8
BEGIN
  PROMPT 61 12 "Utente "
  FIELD UTENULTAGG
  FLAGS "D"
END

BUTTON F_FAMIGLIA 10 1
BEGIN
   PROMPT 44 14 "Famiglia"
END

MEMO F_NOTE 77 4
BEGIN
   PROMPT 1 16 "Note "
   FIELD NOTE
END

ENDPAGE

PAGE "Donazioni" -1 -1 78 20

GROUPBOX DLG_NULL 77 5
BEGIN
  PROMPT 1 0 "Dati identificativi"
  FLAGS "R"
END

NUMBER DLG_NULL 8
BEGIN
   // codice
  PROMPT 2 1 ""
  FLAGS "D"
  GROUP 1
END

STRING DLG_NULL 25
BEGIN
   // cognome
  PROMPT 12 1 ""
  FLAGS "D"
  GROUP 2
END

STRING DLG_NULL 25
BEGIN
   // nome
  PROMPT 38 1 ""
  FLAGS "D"
  GROUP 3
END

DATE DLG_NULL
BEGIN
   // data nascita
  PROMPT 66 1 ""
  FLAGS "D"
  GROUP 4
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 2 "Sez./Sot."
END

STRING DLG_NULL 25
BEGIN
   // denominazione sezione
  PROMPT 12 2 ""
  FLAGS "D"
  GROUP 14
END

STRING DLG_NULL 25
BEGIN
   // denominazione sottogruppo
  PROMPT 38 2 ""
  FLAGS "D"
  GROUP 16
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 3 "Categoria"
END

STRING DLG_NULL 25
BEGIN
   // descrizione categoria
   PROMPT 12 3 ""
   FLAGS "D"
   GROUP 12
END

TEXT DLG_NULL
BEGIN
  PROMPT 39 3 "Stato att."
END

STRING DLG_NULL 2
BEGIN
   // stato attuale
   PROMPT 51 3 ""
   FLAGS "D"
   GROUP 17
END

TEXT DLG_NULL
BEGIN
  PROMPT 57 3 "Tessera"
END

STRING DLG_NULL 6
BEGIN
   // tessera
  PROMPT 66 3 ""
  FLAGS "D"
  GROUP 5
END

GROUPBOX DLG_NULL 77 3
BEGIN
   PROMPT 1 5 "Donazioni non dettagliate"
END

BUTTON F_GENERA 6 1
BEGIN
   PROMPT 2 6 "Genera"
END

NUMBER F_DONPRECSI 3
BEGIN
  PROMPT 12 6 "Don.SI "
  FIELD DONPRECSI
END

DATE F_DATAPRISI
BEGIN
  PROMPT 24 6 "Prima SI "
  FIELD DATAPRISI
END

NUMBER F_DONPRECAF 3
BEGIN
  PROMPT 45 6 "Don.AF "
  FIELD DONPRECAF
END

DATE F_DATAPRIAF
BEGIN
  PROMPT 57 6 "Prima AF "
  FIELD DATAPRIAF
END

SPREADSHEET F_DONAZIONI
BEGIN
   PROMPT 1 8 ""
   ITEM "Data@10F"
   ITEM "Tipo@F"
   ITEM "Punto@6"
   ITEM "Descrizione punto@40"
   ITEM "Et. sacca"
   ITEM "1�"
   ITEM "Sez."
   ITEM "Sot."
END

ENDPAGE

PAGE "Controlli" -1 -1 78 20

GROUPBOX DLG_NULL 77 5
BEGIN
  PROMPT 1 0 "Dati identificativi"
  FLAGS "R"
END

NUMBER DLG_NULL 8
BEGIN
   // codice
  PROMPT 2 1 ""
  FLAGS "D"
  GROUP 1
END

STRING DLG_NULL 25
BEGIN
   // cognome
  PROMPT 12 1 ""
  FLAGS "D"
  GROUP 2
END

STRING DLG_NULL 25
BEGIN
   // nome
  PROMPT 38 1 ""
  FLAGS "D"
  GROUP 3
END

DATE DLG_NULL
BEGIN
   // data nascita
  PROMPT 66 1 ""
  FLAGS "D"
  GROUP 4
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 2 "Sez./Sot."
END

STRING DLG_NULL 25
BEGIN
   // denominazione sezione
  PROMPT 12 2 ""
  FLAGS "D"
  GROUP 14
END

STRING DLG_NULL 25
BEGIN
   // denominazione sottogruppo
  PROMPT 38 2 ""
  FLAGS "D"
  GROUP 16
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 3 "Categoria"
END

STRING DLG_NULL 25
BEGIN
   // descrizione categoria
   PROMPT 12 3 ""
   FLAGS "D"
   GROUP 12
END

TEXT DLG_NULL
BEGIN
  PROMPT 39 3 "Stato att."
END

STRING DLG_NULL 2
BEGIN
   // stato attuale
   PROMPT 51 3 ""
   FLAGS "D"
   GROUP 17
END

TEXT DLG_NULL
BEGIN
  PROMPT 57 3 "Tessera"
END

STRING DLG_NULL 6
BEGIN
   // tessera
  PROMPT 66 3 ""
  FLAGS "D"
  GROUP 5
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 5 "Idoneita'/Sospensioni/Controlli sanitari sul soggetto"
END

SPREADSHEET F_CONTROLLI -1 6
BEGIN
   PROMPT 1 6 "Controlli sanitari sul soggetto"
   ITEM "Data@10F"
   ITEM "Tipo@F"
   ITEM "Id.1@F"
   ITEM "Id.2@F"
   ITEM "Id.3@F"
   ITEM "Id.4@F"
   ITEM "Int.SI"
   ITEM "Int.AF"
   ITEM "Pr.tipo"
   ITEM "Pr.data"
   ITEM "Mot."
   ITEM "Responsabile@15"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 13 "Idoneita'/Sospensioni per tipologie di donazione"
END

SPREADSHEET F_IDONEITA -1 6
BEGIN
   PROMPT 1 14 "Idoneita'/Sospensioni per SI/AF"
   ITEM "Data@10F"
   ITEM "SI/AF@5F"
   ITEM "Tipo@4F"
   ITEM "Int."
   ITEM "Fine sosp."
   ITEM "Mot."
   ITEM "Responsabile@37"
END

ENDPAGE

PAGE "Ben./Sto." -1 -1 78 20

GROUPBOX DLG_NULL 77 5
BEGIN
  PROMPT 1 0 "Dati identificativi"
  FLAGS "R"
END

NUMBER DLG_NULL 8
BEGIN
   // codice
  PROMPT 2 1 ""
  FLAGS "D"
  GROUP 1
END

STRING DLG_NULL 25
BEGIN
   // cognome
  PROMPT 12 1 ""
  FLAGS "D"
  GROUP 2
END

STRING DLG_NULL 25
BEGIN
   // nome
  PROMPT 38 1 ""
  FLAGS "D"
  GROUP 3
END

DATE DLG_NULL
BEGIN
   // data nascita
  PROMPT 66 1 ""
  FLAGS "D"
  GROUP 4
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 2 "Sez./Sot."
END

STRING DLG_NULL 25
BEGIN
   // denominazione sezione
  PROMPT 12 2 ""
  FLAGS "D"
  GROUP 14
END

STRING DLG_NULL 25
BEGIN
   // denominazione sottogruppo
  PROMPT 38 2 ""
  FLAGS "D"
  GROUP 16
END

TEXT DLG_NULL
BEGIN
  PROMPT 2 3 "Categoria"
END

STRING DLG_NULL 25
BEGIN
   // descrizione categoria
   PROMPT 12 3 ""
   FLAGS "D"
   GROUP 12
END

TEXT DLG_NULL
BEGIN
  PROMPT 39 3 "Stato att."
END

STRING DLG_NULL 2
BEGIN
   // stato attuale
   PROMPT 51 3 ""
   FLAGS "D"
   GROUP 17
END

TEXT DLG_NULL
BEGIN
  PROMPT 57 3 "Tessera"
END

STRING DLG_NULL 6
BEGIN
   // tessera
  PROMPT 66 3 ""
  FLAGS "D"
  GROUP 5
END

SPREADSHEET F_BENEMERENZE -1 7
BEGIN
   PROMPT 2 5 "Benemerenze"
   ITEM "Ben.@F"
   ITEM "Descrizione benemerenza@25F"
   ITEM "Data mat.@10"
   ITEM "Don."
   ITEM "Data att.@10"
   ITEM "Data con.@10"
   ITEM "R."
   ITEM "Sez."
   ITEM "Sot."
   ITEM "Gr.az."
END

SPREADSHEET F_STORICO
BEGIN
   PROMPT 2 13 "Storico iscrizioni/dimissioni"
   ITEM "Dal@10"
   ITEM "Al@10"
   ITEM "Sez."
   ITEM "Sot."
   ITEM "Cat."
   ITEM "Motivo dim."
END

ENDPAGE

ENDMASK

PAGE "Donazioni" -1 -1 75 16

GROUPBOX DLG_NULL 73 5
BEGIN
  PROMPT 1 1 "Dati identificativi della donazione"
END

DATE F_D_DATADON
BEGIN
   PROMPT 2 2 "Data donazione  "
   FIELD LF_DONAZ->DATADON
   CHECKTYPE REQUIRED
   VALIDATE NOT_EMPTY_FUNC
   HELP "Data donazione"
END

STRING F_D_TIPODON 2
BEGIN
   PROMPT 2 3 "Tipo donazione  "
   FIELD LF_DONAZ->TIPODON
   FLAGS "U"
   USE TDN
   INPUT CODTAB F_D_TIPODON
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@40" S0
   OUTPUT F_D_TIPODON CODTAB
   OUTPUT F_D_DESC_TIPODON S0
   CHECKTYPE REQUIRED
   VALIDATE NOT_EMPTY_FUNC
   WARNING "Codice tipo donazione non presente"
   HELP "Tipo donazione"
END

STRING F_D_LUOGODON 4
BEGIN
   PROMPT 2 4 "Punto prelievo  "
   FIELD LF_DONAZ->LUOGODON
   FLAGS "U"
   USE LDN
   INPUT CODTAB F_D_LUOGODON
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_D_LUOGODON CODTAB
   OUTPUT F_D_DESC_LUOGODON S0
   CHECKTYPE NORMAL
   WARNING "Codice punto di prelievo non presente"
   HELP "Punto di prelievo"
END

STRING F_D_DESC_LUOGODON 50 40
BEGIN
  PROMPT 26 4 ""
  FLAGS "D"
END

GROUPBOX DLG_NULL 73 5
BEGIN
  PROMPT 1 6 "Dati complementari"
END

NUMBER F_D_ETICHETTA 9
BEGIN
   PROMPT 2 7 "Etichetta sacca "
   FIELD LF_DONAZ->ETICHETTA
END

BOOLEAN F_D_PRIMADON
BEGIN
   PROMPT 30 7  "Prima donazione "
   FIELD LF_DONAZ->PRIMADON
END

STRING F_D_CODSEZ 2
BEGIN
   PROMPT 2 8 "Sezione di app. "
   FIELD LF_DONAZ->CODSEZ
   FLAGS "U"
   USE LF_SEZIONI
   INPUT CODSEZ F_D_CODSEZ
   INPUT CODSOT F_D_CODSOT
   DISPLAY "Cod.sez" CODSEZ
   DISPLAY "Cod.sot." CODSOT
   DISPLAY "Sezione@25" DENSEZ
   DISPLAY "Sottogruppo@25" DENSOT
   OUTPUT F_D_CODSEZ CODSEZ
   OUTPUT F_D_DENSEZ DENSEZ
   OUTPUT F_D_CODSOT CODSOT
   OUTPUT F_D_DENSOT DENSOT
   CHECKTYPE SEARCH
   HELP "Codice sezione di appartenenza"
   ADD MASK batbsez
   WARNING "Codice sezione assente"
END

STRING F_D_CODSOT 2
BEGIN
   PROMPT 2 9 "Sottog. di app. "
   FIELD LF_DONAZ->CODSOT
   FLAGS "U"
   COPY ALL F_D_CODSEZ
   CHECKTYPE NORMAL
   HELP "Codice sottogruppo di appartenenza"
   ADD MASK batbsez
   WARNING "Codice sottogruppo assente"
END

STRING F_D_DENSEZ 25
BEGIN
  PROMPT 23 8 ""
  USE LF_SEZIONI KEY 2
  INPUT DENSEZ F_D_DENSEZ
  DISPLAY "Sezione@25" DENSEZ
  DISPLAY "Sottogruppo@25" DENSOT
  DISPLAY "Cod.sez" CODSEZ
  DISPLAY "Cod.sot." CODSOT
  COPY OUTPUT F_D_CODSEZ
  CHECKTYPE NORMAL
  HELP "Denominazione sezione di appartenenza"
  ADD MASK batbsez
  WARNING "Denominazione assente"
END

STRING F_D_DENSOT 25
BEGIN        	
  PROMPT 23 9 ""
  COPY USE F_D_DENSEZ
  INPUT DENSEZ F_D_DENSEZ
  INPUT DENSOT F_D_DENSOT
  COPY DISPLAY F_D_DENSEZ
  COPY OUTPUT F_D_DENSEZ
  CHECKTYPE NORMAL
  HELP "Sottogruppo di appartenenza"
  ADD MASK batbsez
  WARNING "Denominazione sottogruppo assente"
END

GROUPBOX DLG_NULL 73 3
BEGIN
  PROMPT 1 11 "Dati sanitari"
END

NUMBER F_D_CC 3
BEGIN
   PROMPT 2 12  "CC "
   FIELD LF_DONAZ->CC
   FLAGS "U"
END

STRING F_D_PA 7
BEGIN
   PROMPT 10 12  "PA "
   FIELD LF_DONAZ->PA
END

NUMBER F_D_HB 4 1
BEGIN
   PROMPT 25 12  "Hb "
   FIELD LF_DONAZ->HB
   FLAGS "U"
END

NUMBER F_D_SGPT 3
BEGIN
   PROMPT 40 12  "SGPT "
   FIELD LF_DONAZ->SGPT
   FLAGS "U"
END

NUMBER F_D_PROTIDEMIA 3 1
BEGIN
   PROMPT 55 12  "Protidemia "
   FIELD LF_DONAZ->PROTIDEMIA
   FLAGS "U"
END

STRING F_D_DESC_TIPODON 30
BEGIN
  PROMPT 24 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 22

GRUPBOX DLG_NULL 73 4
BEGIN
   PROMPT 1 1 "Dati identificativi 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@40" S0
   OUTPUT F_C_TIPOCON CODTAB
   OUTPUT F_C_DESC_TIPOCON S0
   CHECKTYPE REQUIRED
   VALIDATE NOT_EMPTY_FUNC
   WARNING "Codice controllo sanitario non presente"
   HELP "Tipo/Esito controllo sanitario"
END

GRUPBOX DLG_NULL 73 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@40" S0
  OUTPUT F_C_IDON1 CODTAB
  OUTPUT F_C_DESC_IDON1 S0
  CHECKTYPE NORMAL
  VALIDATE NOT_EMPTY_FUNC
  WARNING "Codice idoneita' 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@40" S0
  OUTPUT F_C_IDON2 CODTAB
  OUTPUT F_C_DESC_IDON2 S0
  CHECKTYPE NORMAL
  WARNING "Codice idoneita' 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@40" S0
  OUTPUT F_C_IDON3 CODTAB
  OUTPUT F_C_DESC_IDON3 S0
  CHECKTYPE NORMAL
  WARNING "Codice idoneita' 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@40" S0
  OUTPUT F_C_IDON4 CODTAB
  OUTPUT F_C_DESC_IDON4 S0
  CHECKTYPE NORMAL
  WARNING "Codice idoneita' 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"
   VALIDATE NOT_EMPTY_FUNC
END

NUMBER F_C_INTAF 3 0
BEGIN
   PROMPT 40 8 "Aferesi       "
   FIELD LF_CONTSAN->INTAF
   FLAGS "U"
   VALIDATE NOT_EMPTY_FUNC
END

GROUPBOX DLG_NULL 73 3
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@40" S0
   OUTPUT F_C_PROSSTIPO CODTAB
   OUTPUT F_C_DESC_PROSSTIPO S0
   CHECKTYPE NORMAL
   WARNING "Codice controllo sanitario non presente"
   HELP "Tipo/Esito controllo sanitario"
END

DATE F_C_PROSSDATA
BEGIN
   PROMPT 53 13 "Data "
   FIELD LF_CONTSAN->PROSSDATA
   HELP "Data controllo"
END

GROUPBOX DLG_NULL 73 6
BEGIN
   PROMPT 1 15 "Dati complementari"
END

STRING F_C_MOTIVO 4
BEGIN
     PROMPT 2 16 "Motivo       "
     FIELD LF_CONTSAN->MOTIVO
     FLAGS "U"
     USE MTC
     INPUT CODTAB F_C_MOTIVO
     DISPLAY "Codice" CODTAB
     DISPLAY "Descrizione@50" S0
     OUTPUT F_C_MOTIVO CODTAB
     OUTPUT F_C_DESC_MOTIVO S0
     CHECKTYPE NORMAL
     WARNING "Codice motivo non presente"
     HELP "Motivo del controllo sanitario"
END

STRING F_C_RESPONSAB 50
BEGIN
   PROMPT 2 17 "Responsabile "
   FIELD LF_CONTSAN->RESPONSAB
END

STRING F_C_SCS1 2
BEGIN
  PROMPT 2 18 "Singoli cont."
  FIELD LF_CONTSAN->SINGOLI[1,2]
  FLAGS "U"
  USE SCS
  INPUT CODTAB F_C_SCS1
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_C_SCS1 CODTAB
  CHECKTYPE NORMAL
  WARNING "Codice singolo controllo non presente"
  HELP "Singolo controllo sanitario"
END

STRING F_C_SCS2 2
BEGIN
  PROMPT 20 18 ""
  FIELD LF_CONTSAN->SINGOLI[3,4]
  FLAGS "U"
  USE SCS
  INPUT CODTAB F_C_SCS2
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_C_SCS2 CODTAB
  CHECKTYPE NORMAL
  WARNING "Codice singolo controllo non presente"
  HELP "Singolo controllo sanitario"
END

STRING F_C_SCS3 2
BEGIN
  PROMPT 25 18 ""
  FIELD LF_CONTSAN->SINGOLI[5,6]
  FLAGS "U"
  USE SCS
  INPUT CODTAB F_C_SCS3
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_C_SCS3 CODTAB
  CHECKTYPE NORMAL
  WARNING "Codice singolo controllo non presente"
  HELP "Singolo controllo sanitario"
END

STRING F_C_SCS4 2
BEGIN
  PROMPT 30 18 ""
  FIELD LF_CONTSAN->SINGOLI[7,8]
  FLAGS "U"
  USE SCS
  INPUT CODTAB F_C_SCS4
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_C_SCS4 CODTAB
  CHECKTYPE NORMAL
  WARNING "Codice singolo controllo non presente"
  HELP "Singolo controllo sanitario"
END

STRING F_C_SCS5 2
BEGIN
  PROMPT 35 18 ""
  FIELD LF_CONTSAN->SINGOLI[9,10]
  FLAGS "U"
  USE SCS
  INPUT CODTAB F_C_SCS5
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_C_SCS5 CODTAB
  CHECKTYPE NORMAL
  WARNING "Codice singolo controllo non presente"
  HELP "Singolo controllo sanitario"
END

STRING F_C_SCS6 2
BEGIN
  PROMPT 40 18 ""
  FIELD LF_CONTSAN->SINGOLI[11,12]
  FLAGS "U"
  USE SCS
  INPUT CODTAB F_C_SCS6
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_C_SCS6 CODTAB
  CHECKTYPE NORMAL
  WARNING "Codice singolo controllo non presente"
  HELP "Singolo controllo sanitario"
END

STRING F_C_SCS7 2
BEGIN
  PROMPT 45 18 ""
  FIELD LF_CONTSAN->SINGOLI[13,14]
  FLAGS "U"
  USE SCS
  INPUT CODTAB F_C_SCS7
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_C_SCS7 CODTAB
  CHECKTYPE NORMAL
  WARNING "Codice singolo controllo non presente"
  HELP "Singolo controllo sanitario"
END

STRING F_C_SCS8 2
BEGIN
  PROMPT 50 18 ""
  FIELD LF_CONTSAN->SINGOLI[15,16]
  FLAGS "U"
  USE SCS
  INPUT CODTAB F_C_SCS8
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_C_SCS8 CODTAB
  CHECKTYPE NORMAL
  WARNING "Codice singolo controllo non presente"
  HELP "Singolo controllo sanitario"
END

STRING F_C_SCS9 2
BEGIN
  PROMPT 15 19 ""
  FIELD LF_CONTSAN->SINGOLI[17,18]
  FLAGS "U"
  USE SCS
  INPUT CODTAB F_C_SCS9
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_C_SCS9 CODTAB
  CHECKTYPE NORMAL
  WARNING "Codice singolo controllo non presente"
  HELP "Singolo controllo sanitario"
END

STRING F_C_SCS10 2
BEGIN
  PROMPT 20 19 ""
  FIELD LF_CONTSAN->SINGOLI[19,20]
  FLAGS "U"
  USE SCS
  INPUT CODTAB F_C_SCS10
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_C_SCS10 CODTAB
  CHECKTYPE NORMAL
  WARNING "Codice singolo controllo non presente"
  HELP "Singolo controllo sanitario"
END

STRING F_C_SCS11 2
BEGIN
  PROMPT 25 19 ""
  FIELD LF_CONTSAN->SINGOLI[21,22]
  FLAGS "U"
  USE SCS
  INPUT CODTAB F_C_SCS11
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_C_SCS11 CODTAB
  CHECKTYPE NORMAL
  WARNING "Codice singolo controllo non presente"
  HELP "Singolo controllo sanitario"
END

STRING F_C_SCS12 2
BEGIN
  PROMPT 30 19 ""
  FIELD LF_CONTSAN->SINGOLI[23,24]
  FLAGS "U"
  USE SCS
  INPUT CODTAB F_C_SCS12
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_C_SCS12 CODTAB
  CHECKTYPE NORMAL
  WARNING "Codice singolo controllo non presente"
  HELP "Singolo controllo sanitario"
END

STRING F_C_SCS13 2
BEGIN
  PROMPT 35 19 ""
  FIELD LF_CONTSAN->SINGOLI[25,26]
  FLAGS "U"
  USE SCS
  INPUT CODTAB F_C_SCS13
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_C_SCS13 CODTAB
  CHECKTYPE NORMAL
  WARNING "Codice singolo controllo non presente"
  HELP "Singolo controllo sanitario"
END

STRING F_C_SCS14 2
BEGIN
  PROMPT 40 19 ""
  FIELD LF_CONTSAN->SINGOLI[27,28]
  FLAGS "U"
  USE SCS
  INPUT CODTAB F_C_SCS14
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_C_SCS14 CODTAB
  CHECKTYPE NORMAL
  WARNING "Codice singolo controllo non presente"
  HELP "Singolo controllo sanitario"
END

STRING F_C_SCS15 2
BEGIN
  PROMPT 45 19 ""
  FIELD LF_CONTSAN->SINGOLI[29,30]
  FLAGS "U"
  USE SCS
  INPUT CODTAB F_C_SCS15
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_C_SCS15 CODTAB
  CHECKTYPE NORMAL
  WARNING "Codice singolo controllo non presente"
  HELP "Singolo controllo sanitario"
END

STRING F_C_DESC_TIPOCON 30 25
BEGIN
  PROMPT 24 3 ""
  FLAGS "D"
END

STRING F_C_DESC_IDON1 25
BEGIN
  PROMPT 8 7 ""
  FLAGS "D"
END

STRING F_C_DESC_IDON2 25
BEGIN
  PROMPT 8 8 ""
  FLAGS "D"
END

STRING F_C_DESC_IDON3 25
BEGIN
  PROMPT 8 9 ""
  FLAGS "D"
END

STRING F_C_DESC_IDON4 25
BEGIN
  PROMPT 8 10 ""
  FLAGS "D"
END

STRING F_C_DESC_PROSSTIPO 30 25
BEGIN
  PROMPT 23 13 ""
  FLAGS "D"
END

STRING F_C_DESC_MOTIVO 25
BEGIN
  PROMPT 23 16 ""
  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 "Idoneita'" -1 -1 75 20

GRUPBOX DLG_NULL 73 4
BEGIN
   PROMPT 1 1 "Dati identificativi del controllo"
END

DATE F_I_DATAIDO
BEGIN
   PROMPT 2 2 "Data intervento "
   FIELD LF_IDONEITA->DATAIDO
   CHECKTYPE REQUIRED
   HELP "Data intervento"
END

LISTBOX F_I_TIPOIDO 16
BEGIN
   PROMPT 2 3 "Tipologia donazione interessata (SI/AF)"
   FIELD LF_IDONEITA->TIPOIDO
   FLAGS "U"
   ITEM "  | "
   ITEM "SI|Sangue intero "
   ITEM "AF|Aferesi"
END

LISTBOX F_I_IDO_SOS 14
BEGIN
   PROMPT 2 4 "Idoneit� o sospensione"
   FIELD LF_IDONEITA->IDO_SOS
   FLAGS "U"
   ITEM "  | "
   ITEM "ID|Idoneita'"
   ITEM "SO|Sospensione "
END

GRUPBOX DLG_NULL 73 3
BEGIN
   PROMPT 1 5 "Dati da compilare se si tratta di idoneita'"
END

NUMBER F_I_INTERVALLO 3 0
BEGIN
   PROMPT 2 6 "Intervallo di donazione"
   FIELD LF_IDONEITA->INTERVALLO
   FLAGS "U"
END

GRUPBOX DLG_NULL 73 3
BEGIN
   PROMPT 1 8 "Dati da compilare se si tratta di sospensione"
END

DATE F_I_FINESOS
BEGIN
   PROMPT 2 9 "Data fine sospensione"
   FIELD LF_IDONEITA->FINESOS
   HELP "Data controllo"
END

GROUPBOX DLG_NULL 73 4
BEGIN
   PROMPT 1 11 "Dati complementari"
END

STRING F_I_MOTIVO 4
BEGIN
     PROMPT 2 12 "Motivo       "
     FIELD LF_IDONEITA->MOTIVO
     FLAGS "U"
     USE MTC
     INPUT CODTAB F_I_MOTIVO
     DISPLAY "Codice" CODTAB
     DISPLAY "Descrizione@50" S0
     OUTPUT F_I_MOTIVO CODTAB
     OUTPUT F_I_DESC_MOTIVO S0
     CHECKTYPE NORMAL
     WARNING "Codice motivo non presente"
     HELP "Motivo del controllo sanitario"
END

STRING F_I_RESPONSAB 50
BEGIN
   PROMPT 2 13 "Responsabile "
   FIELD LF_IDONEITA->RESPONSAB
END

STRING F_I_DESC_MOTIVO 25
BEGIN
  PROMPT 23 16 ""
  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


GRUPBOX DLG_NULL 73 6
BEGIN
   PROMPT 1 1 "Dati identificativi della benemerenza"
END

STRING F_B_TIPOBEN 2
BEGIN
   PROMPT 2 2 "Benemerenza       "
   FIELD LF_BENEM->TIPOBEN
   FLAGS "U"
   USE BNZ
   INPUT CODTAB F_B_TIPOBEN
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@40" S0
   OUTPUT F_B_TIPOBEN CODTAB
   OUTPUT F_B_DESC_TIPOBEN S0
   CHECKTYPE REQUIRED
   VALIDATE NOT_EMPTY_FUNC
   WARNING "Codice benemerenza non presente"
   HELP "Benemerenza assegnata"
END

STRING F_B_DESC_TIPOBEN 25
BEGIN
  PROMPT 26 2 ""
  FLAGS "D"
END

DATE F_B_DATAMAT
BEGIN
   PROMPT 2 3 "Data maturazione  "
   FIELD LF_BENEM->DATAMAT
   HELP "Data maturazione benemerenza"
END

NUMBER F_B_BONUS 3
BEGIN
   PROMP 35 3 "Donazioni quando maturata "
   FIELD LF_BENEM->BONUS
END

DATE F_B_DATABEN
BEGIN
   PROMPT 2 4 "Data assegnazione "
   FIELD LF_BENEM->DATABEN
   CHECKTYPE REQUIRED
   VALIDATE NOT_EMPTY_FUNC
   HELP "Data assegnazione benemerenza"
END

DATE F_B_DATACON
BEGIN
   PROMPT 2 5 "Data pr. consegna "
   FIELD LF_BENEM->DATACON
   HELP "Data prevista consegna"
END

BOOLEAN F_B_RITIRATA
BEGIN
   PROMPT 35 5 "Benem. ritirata "
   FIELD LF_BENEM->RITIRATA
END

GRUPBOX DLG_NULL 73 5
BEGIN
   PROMPT 1 7 "Benemerenza assegnata da"
END


STRING F_B_CODSEZ 2
BEGIN
   PROMPT 2 8 "Sezione           "
   FIELD LF_BENEM->CODSEZ
   FLAGS "U"
   USE LF_SEZIONI
   INPUT CODSEZ F_B_CODSEZ
   INPUT CODSOT F_B_CODSOT
   DISPLAY "Cod.sez" CODSEZ
   DISPLAY "Cod.sot." CODSOT
   DISPLAY "Sezione@25" DENSEZ
   DISPLAY "Sottogruppo@25" DENSOT
   OUTPUT F_B_CODSEZ CODSEZ
   OUTPUT F_B_DENSEZ DENSEZ
   OUTPUT F_B_CODSOT CODSOT
   OUTPUT F_B_DENSOT DENSOT
   CHECKTYPE SEARCH
   HELP "Codice sezione di appartenenza"
   ADD MASK batbsez
   WARNING "Codice sezione assente"
END

STRING F_B_CODSOT 2
BEGIN
   PROMPT 2 9 "Sottogruppo       "
   FIELD LF_BENEM->CODSOT
   FLAGS "U"
   COPY ALL F_B_CODSEZ
   CHECKTYPE NORMAL
   HELP "Codice sottogruppo di appartenenza"
   ADD MASK batbsez
   WARNING "Codice sottogruppo assente"
END

STRING F_B_GRUPPOAZIE 4
BEGIN
  PROMPT 2 10 "Gruppo aziendale  "
  FIELD LF_BENEM->GRUPPOAZIE
  FLAGS "U"
  USE GAZ
  INPUT CODTAB F_B_GRUPPOAZIE
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@30" S0
  OUTPUT F_B_GRUPPOAZIE CODTAB
  OUTPUT F_B_DESC_GRUPPOAZIE S0
  CHECKTYPE NORMAL
  WARNING "Codice gruppo aziendale non presente"
  HELP "Gruppo aziendale di appartenenza"
END

STRING F_B_DENSEZ 25
BEGIN
  PROMPT 26 8 ""
  USE LF_SEZIONI KEY 2
  INPUT DENSEZ F_B_DENSEZ
  DISPLAY "Sezione@25" DENSEZ
  DISPLAY "Sottogruppo@25" DENSOT
  DISPLAY "Cod.sez" CODSEZ
  DISPLAY "Cod.sot." CODSOT
  COPY OUTPUT F_B_CODSEZ
  CHECKTYPE NORMAL
  HELP "Denominazione sezione di appartenenza"
  ADD MASK batbsez
  WARNING "Denominazione assente"
END

STRING F_B_DENSOT 25
BEGIN        	
  PROMPT 26 9 ""
  COPY USE F_B_DENSEZ
  INPUT DENSEZ F_B_DENSEZ
  INPUT DENSOT F_B_DENSOT
  COPY DISPLAY F_B_DENSEZ
  COPY OUTPUT F_B_DENSEZ
  CHECKTYPE NORMAL
  HELP "Sottogruppo di appartenenza"
  ADD MASK batbsez
  WARNING "Denominazione sottogruppo assente"
END


STRING F_B_DESC_GRUPPOAZIE 30
BEGIN
  PROMPT 28 10 ""
  FLAGS "U"
  USE GAZ KEY 2
  INPUT S0 F_B_DESC_GRUPPOAZIE
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@30" S0
  COPY OUTPUT F_B_GRUPPOAZIE
  CHECKTYPE NORMAL
  WARNING "Gruppo aziendale non presente"
  HELP "Gruppo aziendale di appartenenza"
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
  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@40" S0
  OUTPUT F_S_CATISC CODTAB
  OUTPUT F_S_DESC_CATISC S0
  CHECKTYPE NORMAL
  WARNING "Codice categoria 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