2981 lines
45 KiB
Plaintext
Executable File
2981 lines
45 KiB
Plaintext
Executable File
#include "at0100a.h"
|
||
|
||
TOOLBAR "" 0 20 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
|
||
OUTPUT F_CODICE CODICE
|
||
OUTPUT F_COGNOME COGNOME
|
||
OUTPUT F_NOME NOME
|
||
OUTPUT F_DATANASC DATANASC
|
||
OUTPUT F_TESSAVIS TESSAVIS
|
||
MESSAGE COPY,1@
|
||
CHECKTYPE REQUIRED
|
||
END
|
||
|
||
STRING F_COGNOME 25
|
||
BEGIN
|
||
PROMPT 2 2 "Cognome e nome "
|
||
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
|
||
OUTPUT F_CODICE CODICE
|
||
MESSAGE COPY,2@
|
||
CHECKTYPE REQUIRED
|
||
HELP "Cognome del soggetto"
|
||
END
|
||
|
||
STRING F_NOME 25
|
||
BEGIN
|
||
PROMPT 46 2 ""
|
||
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 38 3 "Tessera "
|
||
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
|
||
OUTPUT F_CODICE CODICE
|
||
HELP "Numero tessera associativa AVIS"
|
||
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 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 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 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 12
|
||
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. "
|
||
END
|
||
|
||
STRING F_DOM_DISTRI 4
|
||
BEGIN
|
||
PROMPT 66 10 "Dist. "
|
||
END
|
||
|
||
STRING F_DOM_CODCOM 4
|
||
BEGIN
|
||
PROMPT 13 11 "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 11 ""
|
||
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 12 "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 12 ""
|
||
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 11 "CAP "
|
||
FIELD DOM_CAP
|
||
//FLAGS "D"
|
||
END
|
||
|
||
STRING F_DOM_PROVCOM 5
|
||
BEGIN
|
||
PROMPT 66 12 "Prov."
|
||
FLAGS "D"
|
||
END
|
||
|
||
TEXT DLG_NULL
|
||
BEGIN
|
||
PROMPT 2 13 "Residenza: "
|
||
END
|
||
|
||
STRING F_RES_INDIR 30
|
||
BEGIN
|
||
PROMPT 13 13 "Indirizzo "
|
||
FIELD RES_INDIR
|
||
END
|
||
|
||
STRING F_RES_CODCOM 4
|
||
BEGIN
|
||
PROMPT 13 14 "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 14 ""
|
||
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 15 "Localita' "
|
||
FIELD RES_CODLOC
|
||
FLAGS "U"
|
||
USE LCP SELECT S7=#F_RES_CODLOC
|
||
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 15 ""
|
||
USE LCP SELECT S7=#F_RES_CODLOC
|
||
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 14 "CAP "
|
||
FIELD RES_CAP
|
||
//FLAGS "D"
|
||
END
|
||
|
||
STRING F_RES_PROVCOM 5
|
||
BEGIN
|
||
PROMPT 66 15 "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
|
||
|
||
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 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 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_CODCT 6
|
||
BEGIN
|
||
PROMPT 25 8 "Cod. CT "
|
||
FIELDS CODCT
|
||
FLAGS "U"
|
||
HELP "Codice Centro Trasfusionale"
|
||
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 5
|
||
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
|
||
|
||
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"
|
||
// USE IDO
|
||
// INPUT CODTAB F_IDON1
|
||
// OUTPUT F_DESC_ID1 S0
|
||
// CHECKTYPE NORMAL
|
||
END
|
||
|
||
//STRING F_DESC_ID1 25
|
||
//BEGIN
|
||
// PROMPT 20 9 ""
|
||
// FLAGS "D"
|
||
//END
|
||
|
||
STRING F_IDON2 2
|
||
BEGIN
|
||
PROMPT 20 9 ""
|
||
FIELD IDON2
|
||
FLAGS "D"
|
||
// USE IDO
|
||
// INPUT CODTAB F_IDON2
|
||
// OUTPUT F_DESC_ID2 S0
|
||
// CHECKTYPE NORMAL
|
||
END
|
||
|
||
//STRING F_DESC_ID2 25
|
||
//BEGIN
|
||
// PROMPT 51 9 ""
|
||
// FLAGS "D"
|
||
//END
|
||
|
||
STRING F_IDON3 2
|
||
BEGIN
|
||
PROMPT 24 9 ""
|
||
FIELD IDON3
|
||
FLAGS "D"
|
||
// USE IDO
|
||
// INPUT CODTAB F_IDON3
|
||
// OUTPUT F_DESC_ID3 S0
|
||
// CHECKTYPE NORMAL
|
||
END
|
||
|
||
//STRING F_DESC_ID3 25
|
||
//BEGIN
|
||
// PROMPT 20 10 ""
|
||
// FLAGS "D"
|
||
//END
|
||
|
||
STRING F_IDON4 2
|
||
BEGIN
|
||
PROMPT 28 9 ""
|
||
FIELD IDON4
|
||
FLAGS "D"
|
||
// USE IDO
|
||
// INPUT CODTAB F_IDON4
|
||
// OUTPUT F_DESC_ID4 S0
|
||
// CHECKTYPE NORMAL
|
||
END
|
||
|
||
//STRING F_DESC_ID4 25
|
||
//BEGIN
|
||
// PROMPT 51 10 ""
|
||
// 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 : Data ultima "
|
||
FIELD DATACONV
|
||
//FLAGS "D"
|
||
END
|
||
|
||
NUMBER F_NUMCONV 3
|
||
BEGIN
|
||
PROMPT 48 19 "Numero "
|
||
FIELD NUMCONV
|
||
//FLAGS "D"
|
||
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"
|
||
ITEM "Id.2"
|
||
ITEM "Id.3"
|
||
ITEM "Id.4"
|
||
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 20
|
||
|
||
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 4
|
||
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 15
|
||
BEGIN
|
||
PROMPT 2 17 "Responsabile "
|
||
FIELD LF_CONTSAN->RESPONSAB
|
||
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 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
|
||
VALIDATE NOT_EMPTY_FUNC
|
||
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"
|
||
//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
|
||
END
|
||
|
||
LISTBOX F_I_IDO_SOS 14
|
||
BEGIN
|
||
PROMPT 2 4 "Idoneit<69> o sospensione"
|
||
FIELD LF_IDONEITA->IDO_SOS
|
||
FLAGS "U"
|
||
VALIDATE NOT_EMPTY_FUNC
|
||
ITEM " | "
|
||
ITEM "ID|Idoneita'"
|
||
ITEM "SO|Sospensione "
|
||
//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
|
||
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"
|
||
VALIDATE NOT_EMPTY_FUNC
|
||
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 15
|
||
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
|