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            : Soggetti per frequenza: possibilita' di selezionare il tipo delle donazioni


git-svn-id: svn://10.65.10.50/trunk@6626 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 1998-05-11 09:46:05 +00:00
parent 2a25c11802
commit 1559e8cdbf
3 changed files with 55 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
at/at2900.cpp
View File

@ -46,6 +46,7 @@ class TFrequenza : public TPrintapp
TDate _data_stampa;
TDate _dataini,_datafin;
int _numdon;
TString16 _tipodon;
ts _tipostampa;
TString16 _codsez, _codsot;
int _etlarghezza, _etcolonne;
@ -186,7 +187,11 @@ bool TFrequenza::filter_func_freq(const TRelation* rel)
const TRectype& riga = app()._sdonazioni->row(r);
TDate datadon = riga.get_date(DON_DATADON);
if ((datadon>=app()._dataini) && (datadon<=app()._datafin))
numdon++;
{
TString16 tipodon = riga.get(DON_TIPODON);
if ((app()._tipodon.empty()) || (app()._tipodon == tipodon))
numdon++;
}
}
if (numdon >= app()._numdon)
filtrato = TRUE;
@ -236,7 +241,11 @@ bool TFrequenza::preprocess_page(int file, int counter)
const TRectype& riga = _sdonazioni->row(r);
TDate datadon = riga.get_date(DON_DATADON);
if ((datadon>=_dataini) && (datadon<=_datafin))
numdon++;
{
TString16 tipodon = riga.get(DON_TIPODON);
if ((app()._tipodon.empty()) || (app()._tipodon == tipodon))
numdon++;
}
}
_numdonsog = format("%3d",numdon);
}
@ -303,6 +312,7 @@ bool TFrequenza::set_print(int m)
_numdon = _msk->get_int(F_NUMDON);
_dataini = _msk->get(F_DATAINI);
_datafin = _msk->get(F_DATAFIN);
_tipodon = _msk->get(F_TIPODON);
_categorie.destroy();
const TString16 catpri = _msk->get(F_CAT1);
const TString16 catsec = _msk->get(F_CAT2);
@ -343,6 +353,8 @@ void TFrequenza::crea_intestazione()
sep << _dataini.string();
sep << " AL ";
sep << _datafin.string();
if (_tipodon.not_empty())
sep << " DI TIPO " << _tipodon;
if (_stampa80)
sep.center_just(80);
else

2
at/at2900a.h
View File

@ -26,6 +26,8 @@
#define F_NUMDON 301
#define F_DATAINI 302
#define F_DATAFIN 303
#define F_TIPODON 304
#define F_D_TIPODON 305
#define F_ELENCO 401
#define F_ETICHETTE 402

59
at/at2900a.uml
View File

@ -1,5 +1,26 @@
#include "at2900a.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 "Soggetti per frequenza di donazione" -1 -1 78 20
GROUPBOX DLG_NULL 77 4
@ -243,46 +264,44 @@ BEGIN
FLAGS "D"
END
GROUPBOX DLG_NULL 77 3
GROUPBOX DLG_NULL 77 4
BEGIN
PROMPT 1 10 "Opzioni di elaborazione"
END
NUMBER F_NUMDON 3
BEGIN
PROMPT 2 11 "Almeno "
PROMPT 2 11 "Almeno "
END
DATE F_DATAINI
BEGIN
PROMTP 14 11 "donazioni dal "
PROMTP 17 11 "donazioni dal "
END
DATE F_DATAFIN
BEGIN
PROMPT 40 11 "al "
PROMPT 43 11 "al "
END
GROUPBOX DLG_NULL 77 4
STRING F_TIPODON 2
BEGIN
PROMPT 1 13 "Stampa"
PROMPT 2 12 "Tipo don. "
FLAGS "U"
USE TDN
INPUT CODTAB F_TIPODON
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@30" S0
OUTPUT F_TIPODON CODTAB
OUTPUT F_D_TIPODON S0
CHECKTYPE NORMAL
WARNING "Codice non presente"
END
BUTTON F_ELENCO 9 2
STRING F_D_TIPODON 30
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 17 12 ""
FLAGS "D"
END
ENDPAGE