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:
parent
6b20f0e9b4
commit
87c63db117
@ -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
|
||||
|
Loading…
x
Reference in New Issue
Block a user