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

101
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,22 +1105,24 @@ 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"
ITEM "Tipo"
ITEM "Id. 1"
ITEM "Id. 2"
ITEM "Id. 3"
ITEM "Id. 4"
ITEM "Int. SI"
ITEM "Int. AF"
ITEM "Id.1"
ITEM "Id.2"
ITEM "Id.3"
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"