root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Modifiche Cristina fino al 21/08/96

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3426 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 1996-08-22 14:24:07 +00:00
parent 174fb096d4
commit 14e6fd8fd8
11 changed files with 3225 additions and 3159 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
at/at0100.h
View File

@ -129,11 +129,14 @@
#define F_C_IDON4 106
#define F_C_INTSI 107
#define F_C_INTAF 108
#define F_C_PROSSTIPO 109
#define F_C_PROSSDATA 110
#define F_C_DESC_TIPOCON 211
#define F_C_DESC_IDON1 212
#define F_C_DESC_IDON2 213
#define F_C_DESC_IDON3 214
#define F_C_DESC_IDON4 215
#define F_C_DESC_PROSSTIPO 216
// pagina benemerenze
#define F_B_TIPOBEN 101

89
at/at0100a.uml
View File

@ -1047,12 +1047,12 @@ BEGIN
GROUP 4
END
GROUPBOX DLG_NULL 77 13
GROUPBOX DLG_NULL 77 14
BEGIN
PROMPT 1 5 "Donazioni"
END
SPREADSHEET F_DONAZIONI 75 11
SPREADSHEET F_DONAZIONI 75 12
BEGIN
PROMPT 2 6 ""
ITEM "Data@10"
@ -1105,12 +1105,12 @@ BEGIN
GROUP 4
END
GROUPBOX DLG_NULL 77 13
GROUPBOX DLG_NULL 77 14
BEGIN
PROMPT 1 5 "Controlli sanitari"
END
SPREADSHEET F_CONTROLLI 75 11
SPREADSHEET F_CONTROLLI 75 12
BEGIN
PROMPT 2 6 ""
ITEM "Data@10"
@ -1121,6 +1121,8 @@ BEGIN
ITEM "Id.4"
ITEM "Int.SI"
ITEM "Int.AF"
ITEM "Pr.tipo"
ITEM "Pr.data"
END
ENDPAGE
@ -1174,12 +1176,12 @@ BEGIN
ITEM "Ritirata?"
END
GROUPBOX DLG_NULL 77 5
GROUPBOX DLG_NULL 77 6
BEGIN
PROMPT 1 13 "Storico iscrizioni e dimissioni"
END
SPREADSHEET F_STORICO 75 3
SPREADSHEET F_STORICO 75 4
BEGIN
PROMPT 2 14 ""
ITEM "Dal@10"
@ -1321,11 +1323,16 @@ ENDPAGE
ENDMASK
PAGE "Controlli sanitari" -1 -1 75 14
PAGE "Controlli sanitari" -1 -1 75 18
GRUPBOX DLG_NULL 70 4
BEGIN
PROMPT 1 1 "Dati fondamentali del controllo"
END
DATE F_C_DATACON
BEGIN
PROMPT 2 1 "Data controllo "
PROMPT 2 2 "Data controllo "
FIELD LF_CONTSAN->DATACON
CHECKTYPE REQUIRED
VALIDATE NOT_EMPTY_FUNC
@ -1334,7 +1341,7 @@ END
STRING F_C_TIPOCON 2
BEGIN
PROMPT 2 2 "Tipo controllo "
PROMPT 2 3 "Tipo controllo "
FIELD LF_CONTSAN->TIPOCON
FLAGS "U"
USE TCS
@ -1351,17 +1358,17 @@ END
GRUPBOX DLG_NULL 70 7
BEGIN
PROMPT 1 4 "Dati da compilare se si tratta di idoneita'"
PROMPT 1 5 "Dati da compilare se si tratta di idoneita'"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 5 "Tipi donazione ammessi"
PROMPT 2 6 "Tipi donazione ammessi"
END
STRING F_C_IDON1 2
BEGIN
PROMPT 2 6 ""
PROMPT 2 7 ""
FIELD LF_CONTSAN->IDON1
FLAGS "U"
USE IDO
@ -1377,7 +1384,7 @@ END
STRING F_C_IDON2 2
BEGIN
PROMPT 2 7 ""
PROMPT 2 8 ""
FIELD LF_CONTSAN->IDON2
FLAGS "U"
USE IDO
@ -1393,7 +1400,7 @@ END
STRING F_C_IDON3 2
BEGIN
PROMPT 2 8 ""
PROMPT 2 9 ""
FIELD LF_CONTSAN->IDON3
FLAGS "U"
USE IDO
@ -1409,7 +1416,7 @@ END
STRING F_C_IDON4 2
BEGIN
PROMPT 2 9 ""
PROMPT 2 10 ""
FIELD LF_CONTSAN->IDON4
FLAGS "U"
USE IDO
@ -1425,51 +1432,87 @@ END
TEXT DLG_NULL
BEGIN
PROMPT 40 5 "Intervalli"
PROMPT 40 6 "Intervalli"
END
NUMBER F_C_INTSI 3 0
BEGIN
PROMPT 40 6 "Sangue intero "
PROMPT 40 7 "Sangue intero "
FIELD LF_CONTSAN->INTSI
FLAGS "U"
END
NUMBER F_C_INTAF 3 0
BEGIN
PROMPT 40 7 "Aferesi "
PROMPT 40 8 "Aferesi "
FIELD LF_CONTSAN->INTAF
FLAGS "U"
END
GROUPBOX DLG_NULL 70 4
BEGIN
PROMPT 1 12 "Prossimo tipo/esito"
END
STRING F_C_PROSSTIPO 2
BEGIN
PROMPT 2 13 "Tipo controllo "
FIELD LF_CONTSAN->PROSSTIPO
FLAGS "U"
USE TCS
INPUT CODTAB F_C_PROSSTIPO
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@30" S0
OUTPUT F_C_PROSSTIPO CODTAB
OUTPUT F_C_DESC_PROSSTIPO S0
CHECKTYPE REQUIRED
WARNING "Codice non presente"
HELP "Tipo/Esito controllo sanitario"
END
DATE F_C_PROSSDATA
BEGIN
PROMPT 2 14 "Data prevista "
FIELD LF_CONTSAN->PROSSDATA
HELP "Data controllo"
END
STRING F_C_DESC_TIPOCON 25
BEGIN
PROMPT 25 2 ""
PROMPT 25 3 ""
FLAGS "D"
END
STRING F_C_DESC_IDON1 25
BEGIN
PROMPT 10 6 ""
PROMPT 10 7 ""
FLAGS "D"
END
STRING F_C_DESC_IDON2 25
BEGIN
PROMPT 10 7 ""
PROMPT 10 8 ""
FLAGS "D"
END
STRING F_C_DESC_IDON3 25
BEGIN
PROMPT 10 8 ""
PROMPT 10 9 ""
FLAGS "D"
END
STRING F_C_DESC_IDON4 25
BEGIN
PROMPT 10 9 ""
PROMPT 10 10 ""
FLAGS "D"
END
STRING F_C_DESC_PROSSTIPO 25
BEGIN
PROMPT 25 13 ""
FLAGS "D"
END

16
at/at0200.cpp
View File

@ -3,6 +3,7 @@
#include <msksheet.h>
#include <mailbox.h>
#include <applicat.h>
#include <progind.h>
#include <relation.h>
#include <tabutil.h>
#include <urldefid.h>
@ -156,8 +157,17 @@ int TDonaz_app::write(TSheet_field& s)
const TMask& m = s.mask();
const TDate data = m.get(F_DATADON);
int items = s.items();
TProgind *pi;
pi = new TProgind(items,"Registrazione donazioni e controlli", FALSE, TRUE, 10);
pi->setstatus(1);
for (int r=1; r<=s.items(); r++)
{
pi->addstatus(1);
TToken_string& row = s.row(r-1);
const long codsog = row.get_long(0);
if (codsog != 0)
@ -398,6 +408,9 @@ int TDonaz_app::write(TSheet_field& s)
}
}
}
delete pi;
return NOERR;
}
@ -418,6 +431,9 @@ bool TDonaz_app::soggetti_notify(TSheet_field& s, int r, KEY k)
bool ok = TRUE;
switch (k)
{
case K_CTRL+K_DEL:
// avvenuta cancellazione riga
case K_TAB:
// entrata riga
{

1
at/at1.cpp
View File

@ -1,5 +1,4 @@
#include <xvt.h>
#include <checks.h>
#include "at1.h"

1
at/at2.cpp
View File

@ -1,5 +1,4 @@
#include <xvt.h>
#include <checks.h>
#include "at2.h"

5
at/at2100.cpp
View File

@ -287,8 +287,9 @@ void TSospesi_application::crea_intestazione()
sep.fill('-');
set_header(3, (const char *) sep);
set_header(4,"@0gCod.@7gC.@10gCognome e nome@36gNato il@47gSospensione@61gUltima id.@75gIntervalli@86gUltima donaz.@100gUlt. controllo");
set_header(6,"@0g------@7g--@10g-------------------------@36g----------@47g-------------@61g-------------@75g----------@86g-------------@100g-------------");
set_header(4,"@0gCod.@7gC.@10gCognome e nome@36gNato il@47gSospensione@61gUltima idon.@75gIntervalli@86gUltima donaz.@100gUlt.controllo@114gPross.contr.");
set_header(5,"@76gSI AF");
set_header(6,"@0g------@7g--@10g-------------------------@36g----------@47g-------------@61g-------------@75g----------@86g-------------@100g-------------@114g-------------");
}
}

17
at/at2300.cpp
View File

@ -112,9 +112,9 @@ void TEsclusi_application::set_page(int file, int cnt)
set_row(1,"@7g@S", FLD(LF_SOGGETTI,SOG_CATDON));
set_row(1,"@10g#a", &_cognome_nome);
set_row(1,"@36g@ld", FLD(LF_SOGGETTI,SOG_DATANASC));
set_row(1,"@50g@S", FLD(LF_SOGGETTI,SOG_ESCLUSO));
set_row(1,"@58g@S", FLD(LF_SOGGETTI,SOG_MOTESCL));
set_row(2,"@47g@ld", FLD(LF_SOGGETTI,SOG_TERMESCL));
set_row(1,"@47g@S", FLD(LF_SOGGETTI,SOG_ESCLUSO));
set_row(1,"@50g@ld", FLD(LF_SOGGETTI,SOG_TERMESCL));
set_row(1,"@61g@S", FLD(LF_SOGGETTI,SOG_MOTESCL));
}
break;
}
@ -287,9 +287,14 @@ void TEsclusi_application::crea_intestazione()
sep.fill('-');
set_header(3, (const char *) sep);
set_header(4,"@0gCod.@7gC.@10gCognome e nome@36gNato il@47gTipo escl.@58gMotivo");
set_header(5,"47gTermine");
set_header(6,"@0g------@7g--@10g-------------------------@36g----------@47g----------@58g------------------------------");
set_header(4,"@0gCod.@7gC.@10gCognome e nome@36gNato il@47gEsclusione@61gMotivo");
set_header(5,"@47gTipo Termine");
set_header(6,"@0g------@7g--@10g-------------------------@36g----------@47g-------------@61g------------------------------");
//set_header(4,"@0gCod.@7gC.@10gCognome e nome@36gNato il@47gSospensione@61gUltima idon.@75gIntervalli@86gUltima donaz.@100gUlt.controllo@114gPross.contr.");
//set_header(5,"@76gSI AF");
//set_header(6,"@0g------@7g--@10g-------------------------@36g----------@47g-------------@61g-------------@75g----------@86g-------------@100g-------------@114g-------------");
}
}

1
at/at3.cpp
View File

@ -1,5 +1,4 @@
#include <xvt.h>
#include <checks.h>
#include "at3.h"

1
at/at4.cpp
View File

@ -1,5 +1,4 @@
#include <xvt.h>
#include <checks.h>
#include "at4.h"

2
at/contsan.h
View File

@ -10,3 +10,5 @@
#define CON_IDON4 "IDON4"
#define CON_INTSI "INTSI"
#define CON_INTAF "INTAF"
#define CON_PROSSTIPO "PROSSTIPO"
#define CON_PROSSDATA "PROSSDATA"