Patch level :
Files correlati : Ricompilazione Demo : [ ] Commento : Stampa soggetti che non donano dal: possibilita' di stampare o no i sospesi git-svn-id: svn://10.65.10.50/trunk@6497 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
9b8e98bb51
commit
25ae715a87
@ -273,6 +273,11 @@ bool TStampaNonDon::set_print(int m)
|
||||
add_file(LF_SOGGETTI);
|
||||
filtra_sezioni();
|
||||
_data = _msk->get(F_DATA);
|
||||
bool sospesi = _msk->get_bool(F_SOSPESI);
|
||||
if (sospesi)
|
||||
current_cursor()->setfilter("");
|
||||
else
|
||||
current_cursor()->setfilter("(TCS->S6 == \"I\") || (TCS->S6 == \"F\")", TRUE);
|
||||
_categorie.destroy();
|
||||
const TString16 catpri = _msk->get(F_CAT1);
|
||||
const TString16 catsec = _msk->get(F_CAT2);
|
||||
|
@ -24,6 +24,7 @@
|
||||
#define F_D_CAT6 212
|
||||
|
||||
#define F_DATA 301
|
||||
#define F_SOSPESI 302
|
||||
|
||||
#define F_ELENCO 401
|
||||
#define F_ETICHETTE 402
|
||||
|
@ -1,5 +1,26 @@
|
||||
#include "at2800a.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 "Stampa soggetti che non donano dal" -1 -1 78 20
|
||||
|
||||
GROUPBOX DLG_NULL 77 4
|
||||
@ -254,26 +275,9 @@ BEGIN
|
||||
HELP "Data massima in cui il soggetto pu• aver fatto l'ultima donazione"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 77 4
|
||||
BOOLEAN F_SOSPESI
|
||||
BEGIN
|
||||
PROMPT 1 13 "Stampa"
|
||||
END
|
||||
|
||||
BUTTON F_ELENCO 9 2
|
||||
BEGIN
|
||||
PROMPT -13 14 "Elenco"
|
||||
MESSAGE EXIT,F_ELENCO
|
||||
END
|
||||
|
||||
BUTTON F_ETICHETTE 9 2
|
||||
BEGIN
|
||||
PROMPT -23 14 "Etichette"
|
||||
MESSAGE EXIT,F_ETICHETTE
|
||||
END
|
||||
|
||||
BUTTON DLG_QUIT 9 2
|
||||
BEGIN
|
||||
PROMPT -33 14 ""
|
||||
PROMPT 42 11 "Anche sospesi"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
Loading…
x
Reference in New Issue
Block a user