Patch level : 1.7 at 698

Files correlati     : at7.exe
Ricompilazione Demo : [ ]
Commento            : In stampe singole aggiunto bottone azzera e non cancella elenco nomi dopo la stampa


git-svn-id: svn://10.65.10.50/trunk@12049 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 2004-05-04 10:18:04 +00:00
parent 2b0291afdb
commit 532584d829
3 changed files with 25 additions and 9 deletions

View File

@ -328,10 +328,8 @@ bool TStampeSingole::set_print(int m)
TPrinter& p = printer();
p.read_configuration();
TSheet_field& s = (TSheet_field&)_msk->field(F_SOGGETTI);
s.destroy();
s.force_update();
if (s.items()==0)
add_rows_soggetti(s,50);
//if (s.items()==0)
// add_rows_soggetti(s,50);
_tipostampa = undefined;
KEY tasto;
tasto = _msk->run();
@ -351,7 +349,17 @@ bool TStampeSingole::set_print(int m)
case F_DONAZIONI:
_tipostampa=donazioni;
break;
case F_AZZERA:
{
s.destroy();
s.force_update();
if (s.items()==0)
add_rows_soggetti(s,50);
}
break;
}
if (tasto==F_AZZERA)
return TRUE;
if (_tipostampa != undefined)
{
if (_tipostampa == cartoline)
@ -428,6 +436,7 @@ bool TStampeSingole::user_create()
_form_don = new TSingole_form("ATDDONAZ");
TSheet_field& ss = (TSheet_field&)_msk->field(F_SOGGETTI);
add_rows_soggetti(ss,50);
ss.set_notify(soggetti_notify);
ss.sheet_mask().set_handler(F_S_NOME,nome_handler);
ss.sheet_mask().set_handler(F_S_CODICE,codice_handler);

View File

@ -6,6 +6,7 @@
#define F_ETICHETTE 402
#define F_SCHEDE 403
#define F_DONAZIONI 404
#define F_AZZERA 405
// pagina soggetti
#define F_S_CODICE 101

View File

@ -4,31 +4,37 @@ TOOLBAR "" 0 20 0 2
BUTTON F_CARTOLINE 9 2
BEGIN
PROMPT -15 -11 "Cartoline"
PROMPT -16 -11 "Cartoline"
MESSAGE EXIT,F_CARTOLINE
END
BUTTON F_ETICHETTE 9 2
BEGIN
PROMPT -25 -11 "Etichette"
PROMPT -26 -11 "Etichette"
MESSAGE EXIT,F_ETICHETTE
END
BUTTON F_SCHEDE 9 2
BEGIN
PROMPT -35 -11 "Schede"
PROMPT -36 -11 "Schede"
MESSAGE EXIT,F_SCHEDE
END
BUTTON F_DONAZIONI 9 2
BEGIN
PROMPT -45 -11 "Donazioni"
PROMPT -46 -11 "Donazioni"
MESSAGE EXIT,F_DONAZIONI
END
BUTTON F_AZZERA 9 2
BEGIN
PROMPT -56 -11 "A~zzera"
MESSAGE EXIT,F_AZZERA
END
BUTTON DLG_QUIT 9 2
BEGIN
PROMPT -55 -11 ""
PROMPT -66 -11 ""
END
ENDPAGE