Patch level : 4.0 911

Files correlati     :
Ricompilazione Demo : [ ]
Commento           :

Riportata la versione 3.2 1010


git-svn-id: svn://10.65.10.50/trunk@16338 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2008-03-19 14:55:37 +00:00
parent 6212c320b6
commit d7a279f0c2
6 changed files with 77 additions and 46 deletions

View File

@ -234,13 +234,13 @@ bool TAttribuzioneBenemerenze::set_print(int)
int numdonben = ben.get_int("I0"); int numdonben = ben.get_int("I0");
int m_numdon = ben.get_int("I1"); int m_numdon = ben.get_int("I1");
int m_anni = ben.get_int("I2"); int m_anni = ben.get_int("I2");
int solodim = ben.get_int("B0");
TToken_string* condizioni = new TToken_string();; TToken_string* condizioni = new TToken_string();;
condizioni->add(numdonben); condizioni->add(numdonben);
condizioni->add(m_numdon); condizioni->add(m_numdon);
condizioni->add(m_anni); condizioni->add(m_anni);
condizioni->add(solodim);
_tabben.add((const char*)codben, (TObject*) condizioni); _tabben.add((const char*)codben, (TObject*) condizioni);
//real* oggetto = new real(numdonben);
//_tabben.add((const char*)codben, (TObject*) oggetto);
} }
TString80 filtro; TString80 filtro;
if (_attgruppi) if (_attgruppi)

View File

@ -730,18 +730,7 @@ bool TStampaPerCategorie::preprocess_page(int file, int counter)
if (_tipostampa==etichette && _etrighe == 0) if (_tipostampa==etichette && _etrighe == 0)
if (printer().rows_left() < _form_eti->get_body().height()) if (printer().rows_left() < _form_eti->get_body().height())
printer().formfeed(); printer().formfeed();
if (_tipostampa==etichette && _etrighe > 0) if (_tipostampa==notiziario && _etrighe == 0)
{
int resto = _netichette % (_etrighe*_etcolonne);
if ((resto == 1) && (_netichette > _etrighe*_etcolonne) && !_formfeed)
{
printer().formfeed();
_formfeed = TRUE;
}
else
_formfeed = FALSE;
}
if (_tipostampa==notiziario)
if (printer().rows_left() < _form_neti->get_body().height()) if (printer().rows_left() < _form_neti->get_body().height())
printer().formfeed(); printer().formfeed();
if (_perfamiglie) if (_perfamiglie)

View File

@ -152,40 +152,52 @@ void TEsporta_ON_app::esporta_soggetti(const TMask& m) const
{ {
if (!pi.addstatus(1)) if (!pi.addstatus(1))
break; break;
//creazione di un nuovo record di tipo soggetti
csv.new_rec(""); const TString4& catdon = soggetti.get(SOG_CATDON).as_string();
//..e successivo riempimento const TDate dataisc = soggetti.get(SOG_DATAISC).as_date();
csv.set(0, soggetti.get(SOG_CODSEZ)); const bool passa = config.get_bool(catdon, "CATEGORIE");
csv.set(1, soggetti.get(SOG_TESSAVIS)); const TString4& codsez = soggetti.get(SOG_CODSEZ).as_string();
csv.set(2, soggetti.get(SOG_CF)); TString16 sez_on = config.get(codsez, "SEZIONI");
csv.set(3, soggetti.get(SOG_COGNOME)); if (sez_on.empty())
csv.set(4, soggetti.get(SOG_NOME)); sez_on = codsez;
csv.set(5, soggetti.get(SOG_SESSO)); //if ((catdon == "01" || catdon == "04") && (dataisc.empty() || dataisc <= data))
csv.set(6, soggetti.get(SOG_DATANASC)); if (passa && (dataisc.empty() || dataisc <= data))
csv.set(7, NULL_VARIANT); {
csv.set(8, NULL_VARIANT); //nazionalita //creazione di un nuovo record di tipo soggetti
csv.set(9, soggetti.get(SOG_DOM_INDIR)); csv.new_rec("");
csv.set(10, soggetti.get(SOG_DOM_CAP)); //..e successivo riempimento
csv.set(11, TVariant(find_comune(soggetti))); csv.set(0, (TVariant) sez_on);
csv.set(12, soggetti.get(SOG_TITSTUD)); csv.set(1, soggetti.get(SOG_TESSAVIS));
csv.set(13, NULL_VARIANT); // professione csv.set(2, soggetti.get(SOG_CF));
csv.set(14, soggetti.get(SOG_TELABI)); csv.set(3, soggetti.get(SOG_COGNOME));
csv.set(15, soggetti.get(SOG_TELALT)); csv.set(4, soggetti.get(SOG_NOME));
TString4 catdon = soggetti.get(SOG_CATDON).as_string(); csv.set(5, soggetti.get(SOG_SESSO));
csv.set(6, soggetti.get(SOG_DATANASC));
csv.set(16, TVariant(config.get(catdon, "CATDON"))); // categoria csv.set(7, NULL_VARIANT);
csv.set(17, soggetti.get(SOG_EMAIL)); csv.set(8, NULL_VARIANT); //nazionalita
TString8 gruppoab0 = soggetti.get(SOG_GRUPPOAB0).as_string(); csv.set(9, soggetti.get(SOG_DOM_INDIR));
csv.set(18, TVariant(config.get(gruppoab0, "GRUPPOAB0"))); // gruppo ab0 csv.set(10, soggetti.get(SOG_DOM_CAP));
TString8 kell = soggetti.get(SOG_KELL).as_string(); csv.set(11, TVariant(find_comune(soggetti)));
csv.set(19, TVariant(config.get(kell, "KELL"))); // kell csv.set(12, soggetti.get(SOG_TITSTUD));
csv.set(20, ""); // fattore rh csv.set(13, NULL_VARIANT); // professione
csv.set(21, soggetti.get(SOG_DATAISC)); csv.set(14, soggetti.get(SOG_TELABI));
csv.set(22, soggetti.get(SOG_DATADIM)); csv.set(15, soggetti.get(SOG_TELALT));
csv.set(23, NULL_VARIANT); // condizione non professionale csv.set(16, TVariant(config.get(catdon, "CATDON"))); // categoria
csv.set(17, soggetti.get(SOG_EMAIL));
TString8 gruppoab0 = soggetti.get(SOG_GRUPPOAB0).as_string();
csv.set(18, TVariant(config.get(gruppoab0, "GRUPPOAB0"))); // gruppo ab0
TString8 kell = soggetti.get(SOG_KELL).as_string();
csv.set(19, TVariant(config.get(kell, "KELL"))); // kell
csv.set(20, ""); // fattore rh
csv.set(21, soggetti.get(SOG_DATAISC));
csv.set(22, soggetti.get(SOG_DATADIM));
csv.set(23, NULL_VARIANT); // condizione non professionale
}
} //for(move_first().. } //for(move_first()..
const TString path = "rimini.txt"; TString80 path = config.get("NOMEFILE", "GENERALE");
if (path.empty())
path = "file_on.txt";
csv.save_as(path, fmt_text); csv.save_as(path, fmt_text);
#ifdef DBG #ifdef DBG
xvt_sys_goto_url(path, "open"); xvt_sys_goto_url(path, "open");

View File

@ -1,6 +1,7 @@
[CATDON] [CATDON]
DA=5 DA=5
AV=4 AV=4
OC=3
STD=0 STD=0
01=4 01=4
04=3 04=3
@ -29,3 +30,24 @@ A2=5
A2B=9 A2B=9
AB=7 AB=7
B=6 B=6
[SEZIONI]
01=4122
02=4116
03=4117
04=4118
05=4119
06=4120
08=4121
09=4123
10=4124
11=4125
[CATEGORIE]
01=X
04=X
AV=X
DA=X
[GENERALE]
NOMEFILE = reggioe.txt

View File

@ -4,4 +4,5 @@
#define F_TABBNZ_STATUTO 103 #define F_TABBNZ_STATUTO 103
#define F_TABBNZ_M_NDON 104 #define F_TABBNZ_M_NDON 104
#define F_TABBNZ_M_ANNI 105 #define F_TABBNZ_M_ANNI 105
#define F_TABBNZ_CATDON 106
#define DLG_DEL 108 #define DLG_DEL 108

View File

@ -73,5 +73,12 @@ BEGIN
FLAGS "U" FLAGS "U"
END END
BOOLEAN F_TABBNZ_CATDON
BEGIN
PROMPT 50 9 "Attribuisci solo ai dimessi"
FIELD B0
HELP "Inserire se la benemerenza va attribuita solo ai dimessi"
END
ENDPAGE ENDPAGE
ENDMASK ENDMASK