Corretti cazzeggi per compilare.

git-svn-id: svn://10.65.10.50/trunk@3684 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1996-09-27 15:01:40 +00:00
parent 5f12234992
commit e3049206b0
3 changed files with 3 additions and 5 deletions

View File

@ -487,7 +487,7 @@ bool TDocVen_Form::validate(TForm_item &cf, TToken_string &s) {
// sintassi: _TOTAL_{CODA|RIGA|PROGRES},<totalizzatore>[,<parametri opz>]
// dove: <totalizzatore> è il codice del totalizzatore richiesto
static real zero("0.0"); // 0 sotto forma di real per i casi in cui il totalizzatore non viene trovato
if (!_doc->summary_compiled() &&_cli_loaded) _doc->set_condv(_cliente);
//if (!_doc->summary_compiled() &&_cli_loaded) _doc->set_condv(_cliente);
TString tot= s.get(); // prende il codice del totalizzatore richiesto
TForm_item *fi; // puntatore al campo della form in cui scrivere il valore del totalizzatore
fi= &cf; // prende il puntatore al campo corrente
@ -681,7 +681,7 @@ bool TDocVen_Form::validate(TForm_item &cf, TToken_string &s) {
// 0 indica di non leggere il successivo codice IVA nella tabella riepilogativa
// 1 indica di leggere il successivo codice IVA nella tabella riepilogativa
if (!_doc->summary_compiled() &&_cli_loaded) _doc->set_condv(_cliente);
//if (!_doc->summary_compiled() &&_cli_loaded) _doc->set_condv(_cliente);
if (s.items() == 4)
{

View File

@ -1240,11 +1240,9 @@ const TTipo_riga_documento& TRiga_documento::tipo() const
const TSpesa_prest & TRiga_documento::spesa() const
{
#ifdef DBG
const char tipor = tipo().tipo();
CHECK(tipor == 'S' || tipor == 'P', "Tipo riga incompatibile con le spese");
#endif
static long firm = -1;
long new_firm = main_app().get_firm();

View File

@ -77,7 +77,7 @@ void TDocumentoEsteso::compile_summary()
if (_iva->read() != NOERR) continue; // Se non trova il codice salta questa riga
aliquota = _iva->get_real("R0");
price = scontato(price, sconto);
price = prezzo_scontato(price, sconto);
price.round(val ? _parm.pri_val : _parm.pri_lit); // prezzo scontato
qta.round(val ? _parm.qta_val : _parm.qta_lit);
imponibile = price * qta;