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

Patch level :

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            : Stampa urgenze - possibilita' di non suddividere per sezione/sottogruppo


git-svn-id: svn://10.65.10.50/trunk@6453 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 1998-03-30 13:24:03 +00:00
parent dbe1d0a78a
commit fe0289a048
3 changed files with 34 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
at/at4200.cpp
View File

@ -42,10 +42,10 @@ class TStampaUrgenze : public TPrintapp
long _giorni; long _giorni;
TParagraph_string _cognome_nome, _dencom; TParagraph_string _cognome_nome, _dencom;
TDate _data_stampa; TDate _data_stampa;
TDate _dataini, _datafin;
ts _tipostampa; ts _tipostampa;
TString16 _codsez, _codsot; TString16 _codsez, _codsot;
int _etlarghezza, _etcolonne; int _etlarghezza, _etcolonne;
bool _unica;
protected: protected:
virtual bool user_create(); virtual bool user_create();
@ -242,7 +242,7 @@ bool TStampaUrgenze::preprocess_page(int file, int counter)
// salto pagina se cambio sezione // salto pagina se cambio sezione
const TString16 codsez = recsog.get(SOG_CODSEZ); const TString16 codsez = recsog.get(SOG_CODSEZ);
const TString16 codsot = recsog.get(SOG_CODSOT); const TString16 codsot = recsog.get(SOG_CODSOT);
if ((_codsez!=codsez)||(_codsot!=codsot)) if ((!_unica) && ((_codsez!=codsez)||(_codsot!=codsot)))
{ {
if (_codsez != "**") if (_codsez != "**")
printer().formfeed(); printer().formfeed();
@ -339,8 +339,9 @@ bool TStampaUrgenze::set_print(int)
_sangue->put(SOG_FENOTIPORH, fenotiporh); _sangue->put(SOG_FENOTIPORH, fenotiporh);
if ((du.ok()) && (du.not_empty())) if ((du.ok()) && (du.not_empty()))
_sangue->put(SOG_DU, du); _sangue->put(SOG_DU, du);
_giorni = _msk->get_long(F_GIORNI); _giorni = _msk->get_long(F_GIORNI);
_tipodon = _msk->get(F_TIPODON); _tipodon = _msk->get(F_TIPODON);
_unica = _msk->get_bool(F_UNICA);
// filtra solo idonei // filtra solo idonei
current_cursor()->setfilter("TCS->S6 == \"I\"", TRUE); current_cursor()->setfilter("TCS->S6 == \"I\"", TRUE);
// filtra per categorie, tipizzazione e data donazione // filtra per categorie, tipizzazione e data donazione

3
at/at4200a.h
View File

@ -31,7 +31,8 @@
#define F_FENOTIPORH 305 #define F_FENOTIPORH 305
#define F_DU 306 #define F_DU 306
#define F_GIORNI 307 #define F_GIORNI 307
#define F_D_TIPODON 308 #define F_UNICA 308
#define F_D_TIPODON 309
#define F_ELENCO 401 #define F_ELENCO 401
#define F_ETICHETTE 402 #define F_ETICHETTE 402

51
at/at4200a.uml
View File

@ -1,5 +1,26 @@
#include "at4200a.h" #include "at4200a.h"
TOOLBAR "" 0 20 0 2
BUTTON F_ELENCO 9 2
BEGIN
PROMPT -13 -11 "Elenco"
MESSAGE EXIT,F_ELENCO
END
BUTTON F_ETICHETTE 9 2
BEGIN
PROMPT -23 -11 "Etichette"
MESSAGE EXIT,F_ETICHETTE
END
BUTTON DLG_QUIT 9 2
BEGIN
PROMPT -33 -11 ""
END
ENDPAGE
PAGE "Urgenze" -1 -1 78 20 PAGE "Urgenze" -1 -1 78 20
GROUPBOX DLG_NULL 77 4 GROUPBOX DLG_NULL 77 4
@ -252,7 +273,7 @@ END
STRING F_TIPODON 2 STRING F_TIPODON 2
BEGIN BEGIN
PROMPT 2 11 "Tipo donazione " PROMPT 2 11 "Tipo don. "
FLAGS "U" FLAGS "U"
USE TDN USE TDN
INPUT CODTAB F_TIPODON INPUT CODTAB F_TIPODON
@ -306,12 +327,13 @@ END
STRING F_D_TIPODON 25 STRING F_D_TIPODON 25
BEGIN BEGIN
PROMPT 24 11 "" PROMPT 19 11 ""
FLAGS "D" FLAGS "D"
END END
GROUPBOX DLG_NULL 77 3
GROUPBOX DLG_NULL 77 4
BEGIN BEGIN
PROMPT 1 14 "Richieste" PROMPT 1 14 "Opzioni per la stampa"
END END
//NUMBER F_NUMERO 3 //NUMBER F_NUMERO 3
@ -330,26 +352,9 @@ BEGIN
HELP "N.ro minimo di giorni che devono essere trascorsi dall'ultima donazione" HELP "N.ro minimo di giorni che devono essere trascorsi dall'ultima donazione"
END END
GROUPBOX DLG_NULL 77 4 BOOLEAN F_UNICA
BEGIN BEGIN
PROMPT 1 17 "Stampa" PROMPT 2 16 "Stampa non suddivisa per sezione/sottogruppo"
END
BUTTON F_ELENCO 9 2
BEGIN
PROMPT -13 18 "Elenco"
MESSAGE EXIT,F_ELENCO
END
BUTTON F_ETICHETTE 9 2
BEGIN
PROMPT -23 18 "Etichette"
MESSAGE EXIT,F_ETICHETTE
END
BUTTON DLG_QUIT 9 2
BEGIN
PROMPT -33 18 ""
END END
ENDPAGE ENDPAGE