Patch level :

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :


git-svn-id: svn://10.65.10.50/trunk@19863 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2010-01-04 11:17:25 +00:00
parent af34cd91cf
commit f06e039eb6
44 changed files with 0 additions and 2064 deletions

View File

@ -1,16 +0,0 @@
//DEFINIZIONE MASCHERA PER STAMPA TABELLA CATEGORIE DONATORI
PAGE "Stampa Tabella Categorie donatori" -1 -1 56 8
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

View File

@ -1,17 +0,0 @@
//DEFINIZIONE MASCHERA PER STAMPA TABELLA CATEGORIE NON DONATORI
//#include "bastctn.h"
PAGE "Stampa Tabella Categorie non donatori" -1 -1 56 8
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

View File

@ -1,17 +0,0 @@
//DEFINIZIONE MASCHERA PER STAMPA TABELLA GRUPPI AZIENDALI
//#include "bastgaz.h"
PAGE "Stampa Tabella Gruppi Aziendali" -1 -1 56 8
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

View File

@ -1,17 +0,0 @@
//DEFINIZIONE MASCHERA PER STAMPA TABELLA LOCALITA' POSTALI
//#include "bastlcp.h"
PAGE "Stampa Tabella Localita' Postali" -1 -1 56 8
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

View File

@ -1,17 +0,0 @@
//DEFINIZIONE MASCHERA PER STAMPA TABELLA LUOGHI DI LAVORO
//#include "bastldl.h"
PAGE "Stampa Tabella Luoghi di lavoro" -1 -1 56 8
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

View File

@ -1,17 +0,0 @@
//DEFINIZIONE MASCHERA PER STAMPA TABELLA PUNTI DI PRELIEVO
//#include "bastldn.h"
PAGE "Stampa Tabella Punti di prelievo" -1 -1 56 8
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

View File

@ -1,17 +0,0 @@
//DEFINIZIONE MASCHERA PER STAMPA TABELLA MOTIVI
//#include "bastmtc.h"
PAGE "Stampa Tabella Motivi controlli sanitari" -1 -1 56 8
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

View File

@ -1,17 +0,0 @@
//DEFINIZIONE MASCHERA PER STAMPA TABELLA PROFESSIONI
//#include "bastprf.h"
PAGE "Stampa Tabella Professioni" -1 -1 56 8
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

View File

@ -1,16 +0,0 @@
//DEFINIZIONE MASCHERA PER STAMPA TABELLA SINGOLI CONTROLLI SANITARI
PAGE "Stampa Tabella Singoli controlli sanitari" -1 -1 56 8
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

View File

@ -1,17 +0,0 @@
//DEFINIZIONE MASCHERA PER STAMPA TABELLA CONTROLLI SANITARI
//#include "basttcs.h"
PAGE "Stampa Tabella Controlli sanitari" -1 -1 56 8
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

View File

@ -1,8 +0,0 @@
#define F_TABBNZ_CODTAB 100
#define F_TABBNZ_DESCR 101
#define F_TABBNZ_NDON 102
#define F_TABBNZ_STATUTO 103
#define F_TABBNZ_M_NDON 104
#define F_TABBNZ_M_ANNI 105
#define F_TABBNZ_CATDON 106
#define DLG_DEL 108

View File

@ -1,84 +0,0 @@
#include "batbbnz.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Benemerenze" -1 -1 78 7
STRING F_TABBNZ_CODTAB 2
BEGIN
PROMPT 2 1 "Codice "
FIELD CODTAB
HELP "Inserire il codice della benemerenza"
USE BNZ
CHECKTYPE REQUIRED
INPUT CODTAB F_TABBNZ_CODTAB
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione@30" S0
OUTPUT F_TABBNZ_CODTAB CODTAB
OUTPUT F_TABBNZ_DESCR S0
KEY 1
FLAGS "U"
END
STRING F_TABBNZ_DESCR 30
BEGIN
PROMPT 2 3 "Descrizione "
FIELD S0
HELP "Inserire la descrizione della benemerenza"
USE BNZ KEY 2
CHECKTYPE REQUIRED
INPUT S0 F_TABBNZ_DESCR
DISPLAY "Descrizione@30" S0
DISPLAY "Codice " CODTAB
COPY OUTPUT F_TABBNZ_CODTAB
KEY 2
END
NUMBER F_TABBNZ_NDON 3
BEGIN
PROMPT 2 5 "Num. donazioni "
FIELD I0
HELP "Inserire il numero di donazioni necessarie per ottenere la benemerenza"
CHECKTYPE REQUIRED
FLAGS "U"
END
BOOLEAN F_TABBNZ_STATUTO
BEGIN
PROMPT 30 5 "Da statuto "
FIELD B0
HELP "La benemerenza Š prevista nello statuto AVIS?"
END
GROUPBOX DLG_NULL 77 4
BEGIN
PROMPT 1 7 "Nuovi criteri per benemerenza"
END
NUMBER F_TABBNZ_M_NDON 3
BEGIN
PROMPT 2 8 "Numero donazioni "
FIELD I1
HELP "Inserire il numero di donazioni necessarie per ottenere la benemerenza"
FLAGS "U"
END
NUMBER F_TABBNZ_M_ANNI 2
BEGIN
PROMPT 2 9 "Anni di iscrizione "
FIELD I2
HELP "Inserire il numero di anni di iscrizione necessari"
FLAGS "U"
END
BOOLEAN F_TABBNZ_CATDON
BEGIN
PROMPT 50 9 "Attribuisci solo ai dimessi"
FIELD B0
HELP "Inserire se la benemerenza va attribuita solo ai dimessi"
END
ENDPAGE
ENDMASK

View File

@ -1,6 +0,0 @@
#define F_TABCTD_CODTAB 100
#define F_TABCTD_DESCR 101
#define F_TABCTD_DIMESSI 102
#define F_TABCTD_CATCOLL 103
#define F_DESCR_CATCOLL 104
#define DLG_DEL 105

View File

@ -1,68 +0,0 @@
#include "batbctd.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Categorie donatori" -1 -1 78 7
STRING F_TABCTD_CODTAB 2
BEGIN
PROMPT 2 1 "Codice "
FIELD CODTAB
HELP "Inserire il codice della categoria"
USE CTD
CHECKTYPE REQUIRED
INPUT CODTAB F_TABCTD_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@30" S0
OUTPUT F_TABCTD_CODTAB CODTAB
OUTPUT F_TABCTD_DESCR S0
KEY 1
FLAGS "U"
END
STRING F_TABCTD_DESCR 30
BEGIN
PROMPT 2 3 "Descrizione "
FIELD S0
HELP "Inserire la descrizione della categoria"
USE CTD KEY 2
CHECKTYPE REQUIRED
INPUT S0 F_TABCTD_DESCR
DISPLAY "Descrizione@30" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_TABCTD_CODTAB
KEY 2
END
BOOLEAN F_TABCTD_DIMESSI
BEGIN
PROMPT 2 5 "Categoria di dimissione"
FIELD B0
HELP "Indicare se la categoria è di dimissione"
END
STRING F_TABCTD_CATCOLL 2
BEGIN
PROMPT 2 7 "Cat. collegata "
FIELD S6
FLAGS "U"
USE CTD SELECT B0!=#F_TABCTD_DIMESSI
INPUT CODTAB F_TABCTD_CATCOLL
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@30" S0
OUTPUT F_TABCTD_CATCOLL CODTAB
OUTPUT F_DESCR_CATCOLL S0
CHECKTYPE NORMAL
WARNING "Codice non presente"
END
STRING F_DESCR_CATCOLL 30
BEGIN
PROMPT 23 7 ""
FLAGS "D"
END
ENDPAGE
ENDMASK

View File

@ -1,3 +0,0 @@
#define F_TABCTN_CODTAB 100
#define F_TABCTN_DESCR 101
#define DLG_DEL 105

View File

@ -1,40 +0,0 @@
#include "batbctn.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Categorie non donatori" -1 -1 78 7
STRING F_TABCTN_CODTAB 2
BEGIN
PROMPT 2 1 "Codice "
FIELD CODTAB
HELP "Inserire il codice della categoria"
USE CTN
CHECKTYPE REQUIRED
INPUT CODTAB F_TABCTN_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@30" S0
OUTPUT F_TABCTN_CODTAB CODTAB
OUTPUT F_TABCTN_DESCR S0
KEY 1
FLAGS "U"
END
STRING F_TABCTN_DESCR 30
BEGIN
PROMPT 2 3 "Descrizione "
FIELD S0
HELP "Inserire la descrizione della categoria"
USE CTN KEY 2
CHECKTYPE REQUIRED
INPUT S0 F_TABCTN_DESCR
DISPLAY "Descrizione@30" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_TABCTN_CODTAB
KEY 2
END
ENDPAGE
ENDMASK

View File

@ -1,3 +0,0 @@
#define F_TABGAZ_CODTAB 100
#define F_TABGAZ_DESCR 101
#define DLG_DEL 105

View File

@ -1,40 +0,0 @@
#include "batbgaz.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Gruppi Aziendali" -1 -1 78 7
STRING F_TABGAZ_CODTAB 4
BEGIN
PROMPT 2 1 "Codice "
FIELD CODTAB
HELP "Inserire il codice del gruppo aziendale"
USE GAZ
CHECKTYPE REQUIRED
INPUT CODTAB F_TABGAZ_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@30" S0
OUTPUT F_TABGAZ_CODTAB CODTAB
OUTPUT F_TABGAZ_DESCR S0
KEY 1
FLAGS "U"
END
STRING F_TABGAZ_DESCR 30
BEGIN
PROMPT 2 3 "Denominazione "
FIELD S0
HELP "Inserire la denominazione del gruppo aziendale"
USE GAZ KEY 2
CHECKTYPE REQUIRED
INPUT S0 F_TABGAZ_DESCR
DISPLAY "Descrizione@30" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_TABGAZ_CODTAB
KEY 2
END
ENDPAGE
ENDMASK

View File

@ -1,4 +0,0 @@
#define F_TABIDO_CODTAB 100
#define F_TABIDO_DESCR 101
#define F_TABIDO_PROCDON 102
#define DLG_DEL 105

View File

@ -1,48 +0,0 @@
#include "batbido.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Idoneita' alla donazione" -1 -1 78 7
STRING F_TABIDO_CODTAB 2
BEGIN
PROMPT 2 1 "Codice "
FIELD CODTAB
HELP "Inserire il codice della idoneità"
USE IDO
CHECKTYPE REQUIRED
INPUT CODTAB F_TABIDO_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@30" S0
OUTPUT F_TABIDO_CODTAB CODTAB
OUTPUT F_TABIDO_DESCR S0
KEY 1
FLAGS "U"
END
STRING F_TABIDO_DESCR 30
BEGIN
PROMPT 2 3 "Descrizione "
FIELD S0
HELP "Inserire la descrizione della idoneita'"
USE IDO KEY 2
CHECKTYPE REQUIRED
INPUT S0 F_TABIDO_DESCR
DISPLAY "Descrizione@30" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_TABIDO_CODTAB
KEY 2
END
LISTBOX F_TABIDO_PROCDON 17
BEGIN
PROMPT 2 5 "Procedura di don. "
FIELD S6
#include "procdon.h"
HELP "Indicare la procedura di donazione collegata alla idoneita'"
END
ENDPAGE
ENDMASK

View File

@ -1,7 +0,0 @@
#define F_TABLCP_CODTAB 100
#define F_TABLCP_LOCALITA 101
#define F_TABLCP_CAP 102
#define F_TABLCP_COM 103
#define F_DENCOM 104
#define F_PROVCOM 105
#define DLG_DEL 106

View File

@ -1,83 +0,0 @@
#include "batblcp.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Localita' postali" -1 -1 78 7
STRING F_TABLCP_CODTAB 4
BEGIN
PROMPT 2 1 "Codice "
FIELD CODTAB
HELP "Inserire il codice della localita'"
USE LCP
CHECKTYPE REQUIRED
INPUT CODTAB F_TABLCP_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Denominazione@30" S0
DISPLAY "CAP@5" S6
OUTPUT F_TABLCP_CODTAB CODTAB
OUTPUT F_TABLCP_LOCALITA S0
KEY 1
FLAGS "U"
END
STRING F_TABLCP_LOCALITA 30
BEGIN
PROMPT 2 3 "Localita' "
FIELD S0
HELP "Inserire la denominazione della localita'"
USE LCP KEY 2
CHECKTYPE REQUIRED
INPUT S0 F_TABLCP_LOCALITA
DISPLAY "Denominazione@30" S0
DISPLAY "CAP@5" S6
DISPLAY "Codice" CODTAB
COPY OUTPUT F_TABLCP_CODTAB
KEY 2
END
STRING F_TABLCP_CAP 5
BEGIN
PROMPT 2 5 "CAP "
FIELD S6
HELP "Inserire il CAP della località"
CHECKTYPE REQUIRED
FLAGS "U"
END
STRING F_TABLCP_COM 4
BEGIN
PROMPT 2 7 "Comune "
FIELD S7
FLAGS "U"
USE LF_COMUNI
INPUT STATO ""
INPUT COM F_TABLCP_COM
#include <comdcod.h>
OUTPUT F_TABLCP_COM COM
OUTPUT F_DENCOM DENCOM
OUTPUT F_PROVCOM PROVCOM
CHECKTYPE NORMAL
WARNING "Comune assente"
END
STRING F_DENCOM 50
BEGIN
PROMPT 19 7 ""
USE LF_COMUNI KEY 2
INPUT DENCOM F_DENCOM
#include <comdden.h>
COPY OUTPUT F_TABLCP_COM
CHECKTYPE NORMAL
END
STRING F_PROVCOM 5
BEGIN
PROMPT 73 7 ""
FLAGS "D"
END
ENDPAGE
ENDMASK

View File

@ -1,3 +0,0 @@
#define F_TABLDL_CODTAB 100
#define F_TABLDL_DESCR 101
#define DLG_DEL 105

View File

@ -1,40 +0,0 @@
#include "batbldl.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Luoghi di lavoro" -1 -1 78 7
STRING F_TABLDL_CODTAB 4
BEGIN
PROMPT 2 1 "Codice "
FIELD CODTAB
HELP "Inserire il codice del luogo di lavoro"
USE LDL
CHECKTYPE REQUIRED
INPUT CODTAB F_TABLDL_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@40" S0
OUTPUT F_TABLDL_CODTAB CODTAB
OUTPUT F_TABLDL_DESCR S0
KEY 1
FLAGS "U"
END
STRING F_TABLDL_DESCR 40
BEGIN
PROMPT 2 3 "Descrizione "
FIELD S0
HELP "Inserire la descrizione del luogo di lavoro"
USE LDL KEY 2
CHECKTYPE REQUIRED
INPUT S0 F_TABLDL_DESCR
DISPLAY "Descrizione@40" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_TABLDL_CODTAB
KEY 2
END
ENDPAGE
ENDMASK

View File

@ -1,14 +0,0 @@
#define F_TABLDN_CODTAB 100
#define F_TABLDN_DESCR 101
#define F_TABLDN_INDIR 102
#define F_TABLDN_LOC 103
#define F_TABLDN_COM 104
#define F_TABLDN_DENCOM 105
#define F_TABLDN_DENLOC 106
#define F_TABLDN_PROVCOM 107
#define F_TABLDN_CAPCOM 108
#define F_TABLDN_TELEFONO 109
#define F_TABLDN_ORARIO 110
#define F_TABLDN_NOTE1 111
#define F_TABLDN_NOTE2 112
#define DLG_DEL 115

View File

@ -1,141 +0,0 @@
#include "batbldn.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Punti di prelievo" -1 -1 78 7
STRING F_TABLDN_CODTAB 4
BEGIN
PROMPT 2 1 "Codice "
FIELD CODTAB
KEY 1
FLAGS "U"
USE LDN
INPUT CODTAB F_TABLDN_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TABLDN_CODTAB CODTAB
OUTPUT F_TABLDN_DESCR S0
CHECKTYPE REQUIRED
HELP "Codice del punto di prelievo"
END
STRING F_TABLDN_DESCR 50
BEGIN
PROMPT 2 2 "Punto "
FIELD S0
KEY 2
USE LDN KEY 2
INPUT S0 F_TABLDN_DESCR
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_TABLDN_CODTAB
CHECKTYPE REQUIRED
HELP "Denominazione del punto di prelievo"
END
STRING F_TABLDN_INDIR 50
BEGIN
PROMPT 2 4 "Indirizzo "
FIELD S1
END
STRING F_TABLDN_COM 4
BEGIN
PROMPT 2 5 "Comune "
FIELD S6
FLAGS "U"
USE LF_COMUNI
INPUT STATO ""
INPUT COM F_TABLDN_COM
#include <comdcod.h>
OUTPUT F_TABLDN_COM COM
OUTPUT F_TABLDN_DENCOM DENCOM
OUTPUT F_TABLDN_PROVCOM PROVCOM
OUTPUT F_TABLDN_CAPCOM CAPCOM
CHECKTYPE NORMAL
WARNING "Comune assente"
END
STRING F_TABLDN_DENCOM 48
BEGIN
PROMPT 21 5 ""
USE LF_COMUNI KEY 2
INPUT DENCOM F_TABLDN_DENCOM
#include <comdden.h>
COPY OUTPUT F_TABLDN_COM
CHECKTYPE NORMAL
END
STRING F_TABLDN_LOC 4
BEGIN
PROMPT 2 6 "Localita' "
FIELD S7
FLAGS "U"
USE LCP SELECT S7=#F_TABLDN_COM
INPUT CODTAB F_TABLDN_LOC
DISPLAY "Codice" CODTAB
DISPLAY "Localita'@30" S0
DISPLAY "CAP@5" S6
OUTPUT F_TABLDN_LOC CODTAB
OUTPUT F_TABLDN_DENLOC S0
OUTPUT F_TABLDN_CAPCOM S6
OUTPUT F_TABLDN_COM S7
CHECKTYPE NORMAL
HELP "Codice localita' postale se diversa dal comune"
END
STRING F_TABLDN_DENLOC 30
BEGIN
PROMPT 21 6 ""
USE LCP KEY 2 SELECT S7=#F_TABLDN_COM
INPUT S0 F_TABLDN_DENLOC
DISPLAY "Localita'@30" S0
DISPLAY "CAP@5" S6
DISPLAY "Codice" CODTAB
COPY OUTPUT F_TABLDN_LOC
CHECKTYPE NORMAL
HELP "Localita' postale se diversa dal comune"
END
STRING F_TABLDN_PROVCOM 5
BEGIN
PROMPT 73 5 ""
FLAGS "D"
END
STRING F_TABLDN_CAPCOM 5
BEGIN
PROMPT 69 6 "CAP "
FIELD S8
//FLAGS "D"
END
STRING F_TABLDN_TELEFONO 20
BEGIN
PROMPT 2 8 "Telefono "
FIELD S4
END
STRING F_TABLDN_ORARIO 50
BEGIN
PROMPT 2 9 "Orario "
FIELD S2
END
STRING F_TABLDN_NOTE1 35
BEGIN
PROMPT 2 10 "Note "
FIELD S3[1,35]
END
STRING F_TABLDN_NOTE2 35
BEGIN
PROMPT 2 11 " "
FIELD S3[36,70]
END
ENDPAGE
ENDMASK

View File

@ -1,14 +0,0 @@
// definizione campi della maschera tabella medici
#define F_CODMED 101
#define F_COGNOME 102
#define F_NOME 103
#define F_INDIRIZZO 104
#define F_COM 105
#define F_DENCOM 106
#define F_LOCALITA 107
#define F_DENLOC 108
#define F_CAPCOM 109
#define F_PROVCOM 110
#define F_TELAMB 111
#define F_TELABI 112

View File

@ -1,156 +0,0 @@
#include "batbmed.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Medici" -1 -1 78 20
GROUPBOX DLG_NULL 77 5
BEGIN
PROMPT 1 1 ""
FLAGS "R"
END
NUMBER F_CODMED 6
BEGIN
PROMPT 2 2 "Cod. medico "
FIELD CODMED
FLAGS "U"
KEY 1
USE LF_MEDICI
INPUT CODMED F_CODMED
DISPLAY "Codice " CODMED
DISPLAY "Cognome@25" COGNOME
DISPLAY "Nome@25" NOME
OUTPUT F_CODMED CODMED
OUTPUT F_COGNOME COGNOME
OUTPUT F_NOME NOME
CHECKTYPE REQUIRED
END
STRING F_COGNOME 25
BEGIN
PROMPT 2 3 "Cognome "
FIELD COGNOME
KEY 2
USE LF_MEDICI KEY 2
INPUT COGNOME F_COGNOME
INPUT NOME F_NOME
DISPLAY "Cognome@25" COGNOME
DISPLAY "Nome@25" NOME
DISPLAY "Codice " CODMED
COPY OUTPUT F_CODMED
CHECKTYPE REQUIRED
WARNING "Inserire il cognome del medico"
END
STRING F_NOME 25
BEGIN
PROMPT 2 4 "Nome "
FIELD NOME
KEY 2
COPY ALL F_COGNOME
CHECKTYPE NORMAL
END
GROUPBOX DLG_NULL 77 5
BEGIN
PROMPT 1 6 "Indirizzo"
END
STRING F_INDIRIZZO 50
BEGIN
PROMPT 2 7 "Indirizzo "
FIELD INDIRIZZO
END
STRING F_COM 4
BEGIN
PROMPT 2 8 "Comune "
FIELD COM
FLAGS "U"
USE LF_COMUNI
INPUT STATO ""
INPUT COM F_COM
#include <comdcod.h>
OUTPUT F_COM COM
OUTPUT F_DENCOM DENCOM
OUTPUT F_PROVCOM PROVCOM
OUTPUT F_CAPCOM CAPCOM
CHECKTYPE NORMAL
WARNING "Comune assente"
END
STRING F_DENCOM 48
BEGIN
PROMPT 19 8 ""
USE LF_COMUNI KEY 2
INPUT DENCOM F_DENCOM
#include <comdden.h>
COPY OUTPUT F_COM
CHECKTYPE NORMAL
END
STRING F_LOCALITA 4
BEGIN
PROMPT 2 9 "Località "
FIELD LOCALITA
FLAGS "U"
USE LCP SELECT S7=#F_COM
INPUT CODTAB F_LOCALITA
DISPLAY "Codice" CODTAB
DISPLAY "Località@30" S0
DISPLAY "CAP@5" S6
OUTPUT F_LOCALITA CODTAB
OUTPUT F_DENLOC S0
OUTPUT F_CAPCOM S6
OUTPUT F_COM S7
CHECKTYPE NORMAL
HELP "Codice localit… postale se diversa dal comune"
END
STRING F_DENLOC 30
BEGIN
PROMPT 19 9 ""
USE LCP KEY 2 SELECT S7=#F_COM
INPUT S0 F_DENLOC
DISPLAY "Località@30" S0
DISPLAY "CAP@5" S6
DISPLAY "Codice" CODTAB
COPY OUTPUT F_LOCALITA
CHECKTYPE NORMAL
HELP "Localit… postale se diversa dal comune"
END
STRING F_PROVCOM 5
BEGIN
PROMPT 71 8 ""
FLAGS "D"
END
STRING F_CAPCOM 5
BEGIN
PROMPT 67 9 "CAP "
FLAGS "D"
END
GROUPBOX DLG_NULL 77 3
BEGIN
PROMPT 1 11 "Telefoni"
END
STRING F_TELAMB 15
BEGIN
PROMPT 2 12 "Ambulatorio "
FIELD TELAMB
END
STRING F_TELABI 15
BEGIN
PROMPT 40 12 "Abitazione "
FIELD TELABI
END
ENDPAGE
ENDMASK

View File

@ -1,4 +0,0 @@
#define F_TABMTC_CODTAB 100
#define F_TABMTC_DESCR 101
#define F_TABMTC_SEGNALA 102
#define DLG_DEL 105

View File

@ -1,47 +0,0 @@
#include "batbmtc.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Motivi per controlli sanitari" -1 -1 78 7
STRING F_TABMTC_CODTAB 4
BEGIN
PROMPT 2 1 "Codice "
FIELD CODTAB
HELP "Inserire il codice del motivo"
USE MTC
CHECKTYPE REQUIRED
INPUT CODTAB F_TABMTC_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@25" S0
OUTPUT F_TABMTC_CODTAB CODTAB
OUTPUT F_TABMTC_DESCR S0
KEY 1
FLAGS "U"
END
STRING F_TABMTC_DESCR 25
BEGIN
PROMPT 2 3 "Descrizione "
FIELD S0
HELP "Inserire la descrizione del motivo"
USE MTC KEY 2
CHECKTYPE REQUIRED
INPUT S0 F_TABMTC_DESCR
DISPLAY "Descrizione@25" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_TABMTC_CODTAB
KEY 2
END
BOOLEAN F_TABMTC_SEGNALA
BEGIN
PROMPT 2 5 "Segnala la sospensione per questo motivo"
FIELD B0
HELP "Indicare se occorre segnalare che il soggetto e' sospeso per questo motivo"
END
ENDPAGE
ENDMASK

View File

@ -1,18 +0,0 @@
// tabella di conversione CT Rimini- AVIS per stato trasfusionale
#define F_TABPR1_CODTAB 100
#define F_TABPR1_DESCR 101
#define F_TABPR1_OPERAZIONE 102
#define F_TABPR1_TIPOCON 104
#define F_TABPR1_CATDON 105
#define F_TABPR1_IDON1 106
#define F_TABPR1_IDON2 107
#define F_TABPR1_IDON3 108
#define F_TABPR1_IDON4 109
#define F_TABPR1_MOTIVO 110
#define F_TABPR1_DESC_CATDON 201
#define F_TABPR1_DESC_TIPOCON 202
#define F_TABPR1_DESC_IDON1 203
#define F_TABPR1_DESC_IDON2 204
#define F_TABPR1_DESC_IDON3 205
#define F_TABPR1_DESC_IDON4 206
#define F_TABPR1_DESC_MOTIVO 207

View File

@ -1,202 +0,0 @@
#include "batbpr1.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Tabella conversione stato trasfusionale CETRAPLUS" -1 -1 78 18
STRING F_TABPR1_CODTAB 3
BEGIN
PROMPT 2 1 "Codice "
FIELD CODTAB
USE PR1
CHECKTYPE REQUIRED
INPUT CODTAB F_TABPR1_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@30" S0
OUTPUT F_TABPR1_CODTAB CODTAB
OUTPUT F_TABPR1_DESCR S0
KEY 1
FLAGS "U"
HELP "Inserire il codice dello stato trasfusionale"
END
STRING F_TABPR1_DESCR 50
BEGIN
PROMPT 2 3 "Descrizione "
FIELD S0
USE PR1 KEY 2
CHECKTYPE REQUIRED
INPUT S0 F_TABPR1_DESCR
DISPLAY "Descrizione@30" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_TABPR1_CODTAB
KEY 2
HELP "Inserire la descrizione dello stato trasfusionale"
END
RADIOBUTTON F_TABPR1_OPERAZIONE 35
BEGIN
PROMPT 2 5 "Operazione "
FIELD I0
ITEM "0|Sostituire senza segnalazione"
ITEM "1|Sostituire con segnalazione"
ITEM "2|Segnalare"
ITEM "3|Ignorare"
END
STRING F_TABPR1_CATDON 2
BEGIN
PROMPT 2 11 "Categoria "
FIELD S6
FLAGS "U"
USE CTD
INPUT CODTAB F_TABPR1_CATDON
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@30" S0
OUTPUT F_TABPR1_CATDON CODTAB
OUTPUT F_TABPR1_DESC_CATDON S0
CHECKTYPE NORMAL
WARNING "Codice non presente"
END
STRING F_TABPR1_DESC_CATDON 30
BEGIN
PROMPT 23 11 ""
FLAGS "D"
END
STRING F_TABPR1_TIPOCON 2
BEGIN
PROMPT 2 12 "Tipo controllo "
FIELD S7
FLAGS "U"
USE TCS
INPUT CODTAB F_TABPR1_TIPOCON
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@30" S0
OUTPUT F_TABPR1_TIPOCON CODTAB
OUTPUT F_TABPR1_DESC_TIPOCON S0
CHECKTYPE NORMAL
WARNING "Codice non presente"
END
STRING F_TABPR1_DESC_TIPOCON 30
BEGIN
PROMPT 23 12 ""
FLAGS "D"
END
STRING F_TABPR1_IDON1 2
BEGIN
PROMPT 2 13 "Tipi donazione "
FIELD S8
FLAGS "U"
USE IDO
INPUT CODTAB F_TABPR1_IDON1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@40" S0
OUTPUT F_TABPR1_IDON1 CODTAB
OUTPUT F_TABPR1_DESC_IDON1 S0
CHECKTYPE NORMAL
WARNING "Codice idoneita' non presente"
HELP "Idoneita' alla donazione"
END
STRING F_TABPR1_IDON2 2
BEGIN
PROMPT 17 14 ""
FIELD S9
FLAGS "U"
USE IDO
INPUT CODTAB F_TABPR1_IDON2
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@40" S0
OUTPUT F_TABPR1_IDON2 CODTAB
OUTPUT F_TABPR1_DESC_IDON2 S0
CHECKTYPE NORMAL
WARNING "Codice idoneita' non presente"
HELP "Idoneita' alla donazione"
END
STRING F_TABPR1_IDON3 2
BEGIN
PROMPT 17 15 ""
FIELD S10
FLAGS "U"
USE IDO
INPUT CODTAB F_TABPR1_IDON3
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@40" S0
OUTPUT F_TABPR1_IDON3 CODTAB
OUTPUT F_TABPR1_DESC_IDON3 S0
CHECKTYPE NORMAL
WARNING "Codice idoneita' non presente"
HELP "Idoneita' alla donazione"
END
STRING F_TABPR1_IDON4 2
BEGIN
PROMPT 17 16 ""
FIELD S11
FLAGS "U"
USE IDO
INPUT CODTAB F_TABPR1_IDON4
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@40" S0
OUTPUT F_TABPR1_IDON4 CODTAB
OUTPUT F_TABPR1_DESC_IDON4 S0
CHECKTYPE NORMAL
WARNING "Codice idoneita' non presente"
HELP "Idoneita' alla donazione"
END
STRING F_TABPR1_MOTIVO 4
BEGIN
PROMPT 2 17 "Motivo "
FIELD S1
FLAGS "U"
USE MTC
INPUT CODTAB F_TABPR1_MOTIVO
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TABPR1_MOTIVO CODTAB
OUTPUT F_TABPR1_DESC_MOTIVO S0
CHECKTYPE NORMAL
WARNING "Codice motivo non presente"
HELP "Motivo del controllo sanitario"
END
STRING F_TABPR1_DESC_IDON1 25
BEGIN
PROMPT 23 13 ""
FLAGS "D"
END
STRING F_TABPR1_DESC_IDON2 25
BEGIN
PROMPT 23 14 ""
FLAGS "D"
END
STRING F_TABPR1_DESC_IDON3 25
BEGIN
PROMPT 23 15 ""
FLAGS "D"
END
STRING F_TABPR1_DESC_IDON4 25
BEGIN
PROMPT 23 16 ""
FLAGS "D"
END
STRING F_TABPR1_DESC_MOTIVO 25
BEGIN
PROMPT 23 17 ""
FLAGS "D"
END
ENDPAGE
ENDMASK

View File

@ -1,5 +0,0 @@
// tabella di conversione CT Parma- AVIS per tipo donazione
#define F_TABPR2_CODTAB 100
#define F_TABPR2_DESCR 101
#define F_TABPR2_TIPODON 102
#define F_TABPR2_DESC_TIPODON 201

View File

@ -1,61 +0,0 @@
#include "batbpr2.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Tabella conversione tipi donazione" -1 -1 78 18
STRING F_TABPR2_CODTAB 3
BEGIN
PROMPT 2 1 "Codice "
FIELD CODTAB
USE PR2
CHECKTYPE REQUIRED
INPUT CODTAB F_TABPR2_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@30" S0
OUTPUT F_TABPR2_CODTAB CODTAB
OUTPUT F_TABPR2_DESCR S0
KEY 1
FLAGS "U"
HELP "Inserire il codice del tipo donazione"
END
STRING F_TABPR2_DESCR 50
BEGIN
PROMPT 2 3 "Descrizione "
FIELD S0
USE PR2 KEY 2
CHECKTYPE REQUIRED
INPUT S0 F_TABPR2_DESCR
DISPLAY "Descrizione@30" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_TABPR2_CODTAB
KEY 2
HELP "Inserire la descrizione del tipo donazione"
END
STRING F_TABPR2_TIPODON 2
BEGIN
PROMPT 2 5 "Tipo donazione "
FIELD S6
FLAGS "U"
USE TDN
INPUT CODTAB F_TABPR2_TIPODON
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@30" S0
OUTPUT F_TABPR2_TIPODON CODTAB
OUTPUT F_TABPR2_DESC_TIPODON S0
CHECKTYPE NORMAL
WARNING "Codice non presente"
END
STRING F_TABPR2_DESC_TIPODON 30
BEGIN
PROMPT 23 5 ""
FLAGS "D"
END
ENDPAGE
ENDMASK

View File

@ -1,3 +0,0 @@
#define F_TABPRF_CODTAB 100
#define F_TABPRF_DESCR 101
#define DLG_DEL 105

View File

@ -1,40 +0,0 @@
#include "batbprf.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Professioni" -1 -1 78 7
STRING F_TABPRF_CODTAB 4
BEGIN
PROMPT 2 1 "Codice "
FIELD CODTAB
HELP "Inserire il codice della professione"
USE PRF
CHECKTYPE REQUIRED
INPUT CODTAB F_TABPRF_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@40" S0
OUTPUT F_TABPRF_CODTAB CODTAB
OUTPUT F_TABPRF_DESCR S0
KEY 1
FLAGS "U"
END
STRING F_TABPRF_DESCR 40
BEGIN
PROMPT 2 3 "Descrizione "
FIELD S0
HELP "Inserire la descrizione della professione"
USE PRF KEY 2
CHECKTYPE REQUIRED
INPUT S0 F_TABPRF_DESCR
DISPLAY "Descrizione@40" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_TABPRF_CODTAB
KEY 2
END
ENDPAGE
ENDMASK

View File

@ -1,3 +0,0 @@
#define F_TABSCS_CODTAB 100
#define F_TABSCS_DESCR 101
#define DLG_DEL 105

View File

@ -1,40 +0,0 @@
#include "batbscs.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Singoli controlli sanitari" -1 -1 78 7
STRING F_TABSCS_CODTAB 2
BEGIN
PROMPT 2 1 "Codice "
FIELD CODTAB
HELP "Inserire il codice del singolo controllo"
USE SCS
CHECKTYPE REQUIRED
INPUT CODTAB F_TABSCS_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@30" S0
OUTPUT F_TABSCS_CODTAB CODTAB
OUTPUT F_TABSCS_DESCR S0
KEY 1
FLAGS "U"
END
STRING F_TABSCS_DESCR 30
BEGIN
PROMPT 2 3 "Descrizione "
FIELD S0
HELP "Inserire la descrizione del singolo controllo"
USE SCS KEY 2
CHECKTYPE REQUIRED
INPUT S0 F_TABSCS_DESCR
DISPLAY "Descrizione@30" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_TABSCS_CODTAB
KEY 2
END
ENDPAGE
ENDMASK

View File

@ -1,47 +0,0 @@
// definizione campi della maschera tabella sezioni
#define F_CODSEZ 101
#define F_CODSOT 103
#define F_DENSEZ 102
#define F_DENSOT 104
#define F_INDIRIZZO 105
#define F_COM 106
#define F_DENCOM 107
#define F_LOCALITA 108
#define F_DENLOC 109
#define F_CAPCOM 110
#define F_CAPLOC 111
#define F_PROVCOM 112
#define F_TELEFONO 113
#define F_FAX 114
#define F_REFERCED 115
#define F_STATO 116
#define F_INTMINCONV 117
#define F_INTMIN 118
#define F_INTMAX 119
#define F_TIPOCONV 120
#define F_DATAULTCON 121
#define F_INTESTAZ1 122
#define F_INTESTAZ2 123
#define F_INTESTAZ3 124
#define F_INTESTAZ4 125
#define F_CONVORA 126
#define F_CONVSEDE1 127
#define F_CONVSEDE2 128
#define F_CONVSEDE3 129
#define F_CONVSEDE4 130
#define F_CONVNOTE 131
#define F_DONEMER 132
#define F_INTESTI 133
#define F_CATEMER 134
#define F_DESC_CATEMER 135
#define F_CATESTI 136
#define F_DESC_CATESTI 137
#define F_CATCANC 138
#define F_DESC_CATCANC 139
#define F_GIOCARSOL 140
#define F_GIOSOLSOL 141
#define F_GIOULTSOL 142
#define F_GIOPERRIT 143
#define F_NUMMAXSOL 144
#define F_DENOMINAZ 145

View File

@ -1,475 +0,0 @@
#include "batbsez.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Sezioni 1" -1 -1 78 20
GROUPBOX DLG_NULL 77 4
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING F_CODSEZ 2
BEGIN
PROMPT 2 1 "Cod. sezione "
FIELD CODSEZ
FLAGS "U"
KEY 1
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
MESSAGE COPY,1@
CHECKTYPE REQUIRED
END
STRING F_CODSOT 2
BEGIN
PROMPT 2 2 "Cod. sottogruppo "
FIELD CODSOT
FLAGS "U"
KEY 1
COPY ALL F_CODSEZ
MESSAGE COPY,2@
CHECKTYPE NORMAL
WARNING "Inserire il codice della sezione"
END
STRING F_DENSEZ 25
BEGIN
PROMPT 29 1 "Denominazione sez. "
FIELD DENSEZ
KEY 2
USE LF_SEZIONI KEY 2
INPUT DENSEZ F_DENSEZ
INPUT DENSOT F_DENSOT
DISPLAY "Sezione@25" DENSEZ
DISPLAY "Sottogruppo@25" DENSOT
DISPLAY "Cod.sez. " CODSEZ
DISPLAY "Cod.sot. " CODSOT
COPY OUTPUT F_CODSEZ
MESSAGE COPY,3@
CHECKTYPE REQUIRED
WARNING "Inserire la denominazione della sezione"
END
STRING F_DENSOT 25
BEGIN
PROMPT 29 2 "Denominazione sot. "
FIELD DENSOT
KEY 2
COPY ALL F_DENSEZ
MESSAGE COPY,4@
CHECKTYPE NORMAL
WARNING "Inserire la denominazione del sottogruppo"
END
GROUPBOX DLG_NULL 77 8
BEGIN
PROMPT 1 4 "Dati anagrafici"
END
STRING F_DENOMINAZ 50
BEGIN
PROMPT 2 5 "Denominazione "
FIELD DENOMINAZ
END
STRING F_INDIRIZZO 50
BEGIN
PROMPT 2 6 "Indirizzo "
FIELD INDIRIZZO
END
STRING F_COM 4
BEGIN
PROMPT 2 7 "Comune "
FIELD COM
FLAGS "U"
USE LF_COMUNI
INPUT STATO ""
INPUT COM F_COM
#include <comdcod.h>
OUTPUT F_COM COM
OUTPUT F_DENCOM DENCOM
OUTPUT F_PROVCOM PROVCOM
OUTPUT F_CAPCOM CAPCOM
CHECKTYPE NORMAL
MESSAGE SHOW,F_CAPCOM|SHOW,F_CAPLOC
WARNING "Comune assente"
END
STRING F_DENCOM 48
BEGIN
PROMPT 19 7 ""
USE LF_COMUNI KEY 2
INPUT DENCOM F_DENCOM
#include <comdden.h>
COPY OUTPUT F_COM
CHECKTYPE NORMAL
END
STRING F_LOCALITA 4
BEGIN
PROMPT 2 8 "Localita' "
FIELD LOCALITA
FLAGS "U"
USE LCP SELECT S7=#F_COM
INPUT CODTAB F_LOCALITA
DISPLAY "Codice" CODTAB
DISPLAY "Localita'@30" S0
DISPLAY "CAP@5" S6
OUTPUT F_LOCALITA CODTAB
OUTPUT F_DENLOC S0
OUTPUT F_CAPLOC S6
OUTPUT F_COM S7
CHECKTYPE NORMAL
MESSAGE EMPTY HIDE,F_CAPLOC|SHOW,F_CAPCOM
HELP "Codice localit… postale se diversa dal comune"
END
STRING F_DENLOC 30
BEGIN
PROMPT 19 8 ""
USE LCP KEY 2 SELECT S7=#F_COM
INPUT S0 F_DENLOC
DISPLAY "Località@30" S0
DISPLAY "CAP@5" S6
DISPLAY "Codice" CODTAB
COPY OUTPUT F_LOCALITA
CHECKTYPE NORMAL
MESSAGE EMPTY HIDE,F_CAPLOC|SHOW,F_CAPCOM
HELP "Localit… postale se diversa dal comune"
END
STRING F_PROVCOM 5
BEGIN
PROMPT 71 7 ""
FLAGS "D"
END
STRING F_CAPCOM 5
BEGIN
PROMPT 67 8 "CAP "
FLAGS "D"
END
STRING F_CAPLOC 5
BEGIN
PROMPT 67 8 "CAP "
FLAGS "D"
END
STRING F_TELEFONO 15
BEGIN
PROMPT 2 9 "Telefono "
FIELD TELEFONO
END
STRING F_FAX 15
BEGIN
PROMPT 32 9 "Fax "
FIELD FAX
END
STRING F_REFERCED 50
BEGIN
PROMPT 2 10 "Referente CED "
FIELD REFERCED
END
RADIOBUTTON F_STATO 13
BEGIN
PROMPT 1 12 "Stato"
FIELD STATO
ITEM "A|Attiva"
ITEM "E|Estinta"
END
GROUPBOX DLG_NULL 25 6
BEGIN
PROMPT 16 12 "Intestazione tessere"
END
STRING F_INTESTAZ1 20
BEGIN
PROMPT 17 13 ""
FIELD INTESTAZ1
END
STRING F_INTESTAZ2 20
BEGIN
PROMPT 17 14 ""
FIELD INTESTAZ2
END
STRING F_INTESTAZ3 20
BEGIN
PROMPT 17 15 ""
FIELD INTESTAZ3
END
STRING F_INTESTAZ4 20
BEGIN
PROMPT 17 16 ""
FIELD INTESTAZ4
END
GROUPBOX DLG_NULL 35 8
BEGIN
PROMPT 43 12 "Dati per stampa cartolina"
END
STRING F_CONVORA 20
BEGIN
PROMPT 44 13 "Orario "
FIELD CONVORA
END
STRING F_CONVSEDE1 25
BEGIN
PROMPT 44 14 "Sede "
FIELD CONVSEDE1
END
STRING F_CONVSEDE2 25
BEGIN
PROMPT 44 15 " "
FIELD CONVSEDE2
END
STRING F_CONVSEDE3 25
BEGIN
PROMPT 44 16 " "
FIELD CONVSEDE3
END
STRING F_CONVSEDE4 25
BEGIN
PROMPT 44 17 " "
FIELD CONVSEDE4
END
STRING F_CONVNOTE 25
BEGIN
PROMPT 44 18 "Note "
FIELD CONVNOTE
END
ENDPAGE
PAGE "Sezioni 2" -1 -1 78 20
GROUPBOX DLG_NULL 77 4
BEGIN
PROMPT 1 0 ""
FLAGS "R"
END
STRING DLG_NULL 2
BEGIN
PROMPT 2 1 "Cod. sezione "
FLAGS "D"
GROUP 1
END
STRING DLG_NULL 2
BEGIN
PROMPT 2 2 "Cod. sottogruppo "
FLAGS "D"
GROUP 2
END
STRING DLG_NULL 25
BEGIN
PROMPT 29 1 "Denominazione sez. "
FLAGS "D"
GROUP 3
END
STRING DLG_NULL 25
BEGIN
PROMPT 29 2 "Denominazione sot. "
FLAGS "D"
GROUP 4
END
GROUPBOX DLG_NULL 35 6
BEGIN
PROMPT 1 4 "Parametri convoc. per sezione"
END
NUMBER F_INTMINCONV 4
BEGIN
PROMPT 2 5 "Int. min. convoc. "
FIELD INTMINCONV
HELP "Intervallo minimo di convocazione in giorni (dall'ultima don.)"
END
NUMBER F_INTMIN 4
BEGIN
PROMPT 2 6 "Int. avvisi: min. "
FIELD INTMIN
END
NUMBER F_INTMAX 4
BEGIN
PROMPT 2 7 " max. "
FIELD INTMAX
END
LISTBOX F_TIPOCONV 11
BEGIN
PROMPT 2 8 "Tipo convocazione "
FIELD TIPOCONV
ITEM "D|Data fissa"
ITEM "G|dal Giorno"
END
GROUPBOX DLG_NULL 35 7
BEGIN
PROMPT 1 10 "Parametri convoc. su punto prelievo"
END
NUMBER F_GIOCARSOL 3
BEGIN
PROMPT 2 11 "Gio. tra cart. e soll. "
FIELD GIOCARSOL
HELP "Intervallo in giorni tra cartolina e primo sollecito"
END
NUMBER F_GIOSOLSOL 3
BEGIN
PROMPT 2 12 "Gio. tra soll. e soll. "
FIELD GIOSOLSOL
HELP "Intervallo in giorni tra solleciti"
END
NUMBER F_GIOULTSOL 3
BEGIN
PROMPT 2 13 "Gio. tra penult. e ult. soll. "
FIELD GIOULTSOL
HELP "Intervallo tra penultimo e ultimo sollecito"
END
NUMBER F_GIOPERRIT 3
BEGIN
PROMPT 2 14 "Gio. tra chiamate per ritard. "
FIELD GIOPERRIT
HELP "Giorni tra le chiamate per ritardatari"
END
NUMBER F_NUMMAXSOL 2
BEGIN
PROMPT 2 15 "Num. max di solleciti "
FIELD NUMMAXSOL
HELP "Numero massimo di solleciti inviabili per soggetto"
END
DATE F_DATAULTCON
BEGIN
PROMPT 2 17 "Data ultima conv. "
FIELD DATAULTCON
//FLAGS "D"
END
GROUPBOX DLG_NULL 41 8
BEGIN
PROMPT 37 4 "Parametri per chiusura periodica"
END
NUMBER F_DONEMER 3
BEGIN
PROMPT 38 5 "Donazioni per passaggio a emeriti "
FIELD DONEMER
FLAGS "U"
END
NUMBER F_INTESTI 2
BEGIN
PROMPT 38 6 "Intervallo di estinzione in anni "
FIELD INTESTI
FLAGS "U"
END
TEXT DLG_NULL
BEGIN
PROMPT 38 7 "Categorie:"
END
STRING F_CATEMER 2
BEGIN
PROMPT 39 8 "emeriti "
FIELD CATEMER
FLAGS "U"
USE CTD
INPUT CODTAB F_CATEMER
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@30" S0
OUTPUT F_CATEMER CODTAB
OUTPUT F_DESC_CATEMER S0
CHECKTYPE NORMAL
WARNING "Codice non presente"
END
STRING F_DESC_CATEMER 30 20
BEGIN
PROMPT 56 8 ""
FLAGS "D"
END
STRING F_CATESTI 2
BEGIN
PROMPT 39 9 "estinti "
FIELD CATESTI
FLAGS "U"
USE CTD
INPUT CODTAB F_CATESTI
COPY DISPLAY F_CATEMER
OUTPUT F_CATESTI CODTAB
OUTPUT F_DESC_CATESTI S0
CHECKTYPE NORMAL
WARNING "Codice non presente"
END
STRING F_DESC_CATESTI 30 20
BEGIN
PROMPT 56 9 ""
FLAGS "D"
END
STRING F_CATCANC 2
BEGIN
PROMPT 39 10 "cancellati "
FIELD CATCANC
FLAGS "U"
USE CTD
INPUT CODTAB F_CATCANC
COPY DISPLAY F_CATEMER
OUTPUT F_CATCANC CODTAB
OUTPUT F_DESC_CATCANC S0
CHECKTYPE NORMAL
WARNING "Codice non presente"
END
STRING F_DESC_CATCANC 30 20
BEGIN
PROMPT 56 10 ""
FLAGS "D"
END
ENDPAGE
ENDMASK

View File

@ -1,8 +0,0 @@
// tabella tipi/esiti controlli sanitari
#define F_TABTCS_CODTAB 100
#define F_TABTCS_DESCR 101
#define F_TABTCS_CATCOLL 102
#define F_TABTCS_MODSTATO 103
#define F_TABTCS_STATO 104
#define F_DESCR_CATCOLL 105
#define DLG_DEL 106

View File

@ -1,85 +0,0 @@
#include "batbtcs.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Tipi/Esiti controlli sanitari" -1 -1 78 18
STRING F_TABTCS_CODTAB 2
BEGIN
PROMPT 2 1 "Codice "
FIELD CODTAB
USE TCS
CHECKTYPE REQUIRED
INPUT CODTAB F_TABTCS_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@30" S0
OUTPUT F_TABTCS_CODTAB CODTAB
OUTPUT F_TABTCS_DESCR S0
KEY 1
FLAGS "U"
HELP "Inserire il codice del controllo sanitario"
END
STRING F_TABTCS_DESCR 30
BEGIN
PROMPT 2 3 "Descrizione "
FIELD S0
USE TCS KEY 2
CHECKTYPE REQUIRED
INPUT S0 F_TABTCS_DESCR
DISPLAY "Descrizione@30" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_TABTCS_CODTAB
KEY 2
HELP "Inserire la descrizione del controllo"
END
STRING F_TABTCS_CATCOLL 2
BEGIN
PROMPT 2 5 "Cat.collegata "
FIELD S7
FLAGS "U"
USE CTD
INPUT CODTAB F_TABTCS_CATCOLL
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@30" S0
OUTPUT F_TABTCS_CATCOLL CODTAB
OUTPUT F_DESCR_CATCOLL S0
CHECKTYPE NORMAL
WARNING "Codice non presente"
END
STRING F_DESCR_CATCOLL 30
BEGIN
PROMPT 23 5 ""
FLAGS "D"
END
RADIOBUTTON F_TABTCS_MODSTATO 35
BEGIN
PROMPT 2 7 "Modifica stato"
FIELD S6
ITEM "N|Non modifica"
MESSAGE CLEAR, F_TABTCS_STATO
MESSAGE DISABLE, F_TABTCS_STATO
ITEM "I|Idoneita'"
MESSAGE ENABLE, F_TABTCS_STATO
ITEM "S|Sospensione"
MESSAGE ENABLE, F_TABTCS_STATO
ITEM "B|Blocco (sosp. senza id. auto)"
MESSAGE ENABLE, F_TABTCS_STATO
ITEM "F|Fine sospensione"
MESSAGE ENABLE, F_TABTCS_STATO
HELP "Indicare se il controllo modifica lo stato e in che modo"
END
STRING F_TABTCS_STATO 20
BEGIN
PROMPT 40 8 "Stato "
FIELD S3
END
ENDPAGE
ENDMASK

View File

@ -1,8 +0,0 @@
#define F_TABTDN_CODTAB 100
#define F_TABTDN_DESCR 101
#define F_TABTDN_PROCDON 102
#define F_TABTDN_IDON1 103
#define F_DESC_I1 104
#define F_TABTDN_IDON2 105
#define F_DESC_I2 106
#define DLG_DEL 107

View File

@ -1,88 +0,0 @@
#include "batbtdn.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Tipi di donazione" -1 -1 78 7
STRING F_TABTDN_CODTAB 2
BEGIN
PROMPT 2 1 "Codice "
FIELD CODTAB
HELP "Inserire il codice del tipo di donazione"
USE TDN
CHECKTYPE REQUIRED
INPUT CODTAB F_TABTDN_CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@30" S0
OUTPUT F_TABTDN_CODTAB CODTAB
OUTPUT F_TABTDN_DESCR S0
KEY 1
FLAGS "U"
END
STRING F_TABTDN_DESCR 30
BEGIN
PROMPT 2 3 "Descrizione "
FIELD S0
HELP "Inserire la descrizione del tipo di donazione"
USE TDN KEY 2
CHECKTYPE REQUIRED
INPUT S0 F_TABTDN_DESCR
DISPLAY "Descrizione@30" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_TABTDN_CODTAB
KEY 2
END
LISTBOX F_TABTDN_PROCDON 17
BEGIN
PROMPT 2 5 "Procedura di donazione "
FIELD S6
#include "procdon.h"
HELP "Indicare la procedura di donazione"
END
STRING F_TABTDN_IDON1 2
BEGIN
PROMPT 2 7 "Idoneità necessarie: 1 "
FIELD S7
USE IDO SELECT S6==#F_TABTDN_PROCDON
INPUT CODTAB F_TABTDN_IDON1
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@30" S0
OUTPUT F_TABTDN_IDON1 CODTAB
OUTPUT F_DESC_I1 S0
CHECKTYPE REQUIRED
FLAGS "U"
END
STRING F_DESC_I1 30
BEGIN
PROMPT 31 7 ""
FLAGS "D"
END
STRING F_TABTDN_IDON2 2
BEGIN
PROMPT 2 9 " 2 "
FIELD S8
USE IDO SELECT S6==#F_TABTDN_PROCDON
INPUT CODTAB F_TABTDN_IDON2
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@30" S0
OUTPUT F_TABTDN_IDON2 CODTAB
OUTPUT F_DESC_I2 S0
CHECKTYPE NORMAL
FLAGS "U"
END
STRING F_DESC_I2 30
BEGIN
PROMPT 31 9 ""
FLAGS "D"
END
ENDPAGE
ENDMASK