Corretta stampa lista documenti per il tot. imponibili senza

spese.


git-svn-id: svn://10.65.10.50/trunk@4212 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1997-03-17 09:34:22 +00:00
parent b782412b34
commit a31e8709cf
2 changed files with 7 additions and 7 deletions

View File

@ -174,9 +174,9 @@ END
NUMBER 24 15 NUMBER 24 15
BEGIN BEGIN
KEY "Totale imponibile" KEY "Totale imponibile (senza spese)"
PROMPT 86 1 "" PROMPT 86 1 ""
MESSAGE _TOTIMPONIBILI,1 MESSAGE _TOTIMPONIBILI,0
PICTURE "###.###.###.###" PICTURE "###.###.###.###"
END END

View File

@ -890,13 +890,13 @@ bool TDocumento_form::validate(TForm_item &cf, TToken_string &s) {
// sintassi: _TOTIMPONIBILI,<selettore> // sintassi: _TOTIMPONIBILI,<selettore>
// dove: <selettore> funge da filtro per la somma degli imponibili // dove: <selettore> funge da filtro per la somma degli imponibili
// vedi _RIEPILOGOIVA per la spiegazione dei filtri selettivi // vedi _RIEPILOGOIVA per la spiegazione dei filtri selettivi
// In piu' il selettore 0 restituisce il tot imp. meno le spese.
byte sel = atoi(s.get()); byte sel = atoi(s.get());
valore = _doc->tot_imponibili(sel).string(); real r = _doc->tot_imponibili(sel);
if (sel == 0) r -= _doc->spese();
real x(valore); if (r != 0.0)
TString picture(cf.picture()); valore = r.string(cf.picture()); // Riformatta il valore
if (x != 0.0)
valore = x.string(picture); // Riformatta il valore
else else
valore = ""; valore = "";
cf.put_paragraph(valore); cf.put_paragraph(valore);