Patch level : 10.0 632

Files correlati     : ef0.exe
Ricompilazione Demo : [ ]
Commento            :

Bug 0001555: Emissione Distinte

Nel casi ci siano i record di tipo 16 o17 il n.ro totale dei record del flusso è sbagliato


git-svn-id: svn://10.65.10.50/trunk@20090 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2010-02-09 13:56:54 +00:00
parent 6b20f0e9b4
commit 87c63db117

View File

@ -111,6 +111,7 @@ class TRiba_file: public TFile_text
char _codice_moneta;
bool _tracciato_setif, _iban_pag, _iban_inc;
TString _my_iban; // IBAN del mio conto corrente (ordinante)
long _totrec;
protected:
virtual void validate(TCursor& cur,TRecord_text &rec, TToken_string &val, TString& str);
@ -129,16 +130,17 @@ public:
bool iban_inc() const { return _iban_inc; }
void set_iban_pag(bool ib) { _iban_pag = ib; }
void set_iban_inc(bool ib) { _iban_inc = ib; }
void add_rec(int nrec = 1) { _totrec += nrec; }
TRiba_file(const TString& file_name, const TString& config_name);
virtual ~TRiba_file() { }
};
TRiba_file::TRiba_file(const TString& file_name, const TString& config_name)
: TFile_text(file_name, config_name)
: TFile_text(file_name, config_name), _totrec(0L)
{
_codice_moneta = TCurrency::get_firm_dec() == 0 ? ' ' : 'E';
}
}
// creazione dell'applicazione
bool TEmissione::create()
@ -426,6 +428,7 @@ void TEmissione::record(const TString & chiave)
//carico il record da emettere
_trasfile->autoload(rec, *_cur, &tipo);
_trasfile->write(rec);//emetto i dati su file
_trasfile->add_rec();
}
}
}
@ -1003,7 +1006,7 @@ void TRiba_file::validate(TCursor& cur,TRecord_text &rec, TToken_string &s, TStr
else if (in=="NREC")
{
valore.cut(0);
int rec = items * 7 + 2;
int rec = /*items * 7 */ _totrec + 2;
valore << rec;
}
else