root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
campo-sirio/at/at0100a.uml
alex c75d4c35f7 Patch level : 4.0 657 
Ricompilazione Demo : [ ]
Commento            :

Riportata la versione 3.1 patch 855


git-svn-id: svn://10.65.10.50/trunk@15071 c028cbd2-c16b-5b4b-a496-9718f37d4682
2007-03-16 13:33:09 +00:00

3252 lines
51 KiB
Plaintext
Executable File
Raw Blame History

#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<69> 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
Reference in New Issue View Git Blame Copy Permalink