root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Correzioni alla lista documenti (totale imponibili)

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@4261 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1997-04-04 10:09:40 +00:00
parent e8ee026285
commit b8c79b62d1
2 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ve/listadoc.frm
View File

@ -90,7 +90,7 @@ END
STRINGA 12 10
BEGIN
KEY "Intestazione (Imponibile)"
PROMPT 86 4 "Imponibile"
PROMPT 91 4 "Imponibile"
END
STRINGA 13 10
@ -174,9 +174,10 @@ END
NUMBER 24 15
BEGIN
KEY "Totale imponibile (senza spese)"
KEY "Totale imponibile (al netto delle spese)"
PROMPT 86 1 ""
MESSAGE _TOTIMPONIBILI,0
// Il selettore 0 restituisce il totale imponibili meno le spese
MESSAGE _TOTIMPONIBILI,1
PICTURE "###.###.###.###"
END

16
ve/ve1100.cpp
View File

@ -889,14 +889,14 @@ bool TDocumento_form::validate(TForm_item &cf, TToken_string &s) {
{
// sintassi: _TOTIMPONIBILI,<selettore>
// dove: <selettore> funge da filtro per la somma degli imponibili
// se selettore vale 0 restituisce il tot. imponibili meno le spese
// 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());
real r = _doc->tot_imponibili(sel);
if (sel == 0) r -= _doc->spese();
real x = _doc->tot_imponibili(sel);
if (r != 0.0)
valore = r.string(cf.picture()); // Riformatta il valore
TString picture(cf.picture());
if (x != 0.0)
valore = x.string(picture); // Riformatta il valore
else
valore = "";
cf.put_paragraph(valore);
@ -1254,7 +1254,11 @@ bool TStampaDoc_application::select()
{
TMask m("ve1100a");
if (_is_lista) m.hide(F_NCOPIE);
if (_is_lista)
{
m.hide(F_NCOPIE);
m.set_caption("Lista Documenti");
}
TString wdate;
m.set_handler(F_DA_DATADOC, date2num_handler);
m.set_handler(F_A_DATADOC, date2num_handler);