Newsgroup: it.comp.appl.access
Titolo: Euro Somma totale da sottoreport

Ciao a tutti
ho un report per la stampa delle fatture con sottoreport per il calcolo dei
totali suddivisi per aliquota iva vorrei sommare questi totali per calcolare
l'iva totale se la calcolo direttamente l'arrotondamento di questo benedetto
Euro sballa il calcol.
Ad esempio fattura con due aliquote
Iva al 10% Totale 26,53
Iva al 20% Totale 79,77
Il totale dovrebbe essere 105,40
mentre calcolando direttamente e quindi con un solo arrotondamento il totale
viene 105,39
idee?
Ciao
Grazie a tutti
Steve

 wrote in message
a11tpr$1f8$1...@serv1.iunet.it...

Guarda che il totale di quella somma è: 106,30!!!

 ha scritto nel messaggio
news:a11tpr$1f8$1...@serv1.iunet.it...

Ma i vari importi IVA, in fase di calcolo, li hai arrotondati?
--
Alberto

"The-real-Isaac" <sartori.rossi.nospam@tin> ha scritto nel messaggio
news:yh4Z7.2312$mc1....@news1.tin.it...

ciao
ho scritto per errore 26,53 invece di 25,63 ma la sostanza non cambia il
sottoreport aggregando i dati per aliquota iva arrotonda in fase di stampa
della fattura alla seconda cifra decimale per ogni aliquota ma se calcolo il
totale sul report l'arrotondamento lo fa una volta sola ed il risultato è
una differenza di una lira.
per ora ho risolto facendo il calcolo a livello di query con un campo
calcolato del tipo
IIf([Aliquota]=0,2;[Importo]*[Quantità]*[Aliquota];0)
 e così via per ogni aliquota ed il calcolo finale lo faccio in questo modo
=Round(Somma([Iva20]);2)+Round(Somma([Iva10]);2)+Round(Somma([Iva04]);2)
ma la soluzione è poco elegante ed al variare delle aliquote bisogna andare
a modificare tutto il codice
idee
ciao grazie
steve


va messa dove devi arrotondare i valori e quindi :
o prima dei parziali (quantità * prezzo * sconto)
o sulla somma degli imponibili divisa per tipologia di IVA
in ogni caso sul totale di ogni imponibile e sul totale di ogni iva
che poi sommati daranno il totale IVA e totale imponibile
ricordati che la funzione di Karl non accetta valore nulli se non
ricordo male:
Function arrotondaeuro(varNr As Double, Optional varPl = 2) As Double
' by Konrad Marfurt + ? + Karl Donaubauer + Fanton Emanuele
'varNr: numero da arrotondare
'varPI: numero di decimali (due predefinito)
varNr = Nz(varNr, 0)
   arrotondaeuro = Fix("" & varNr * (10 ^ varPl) + Sgn(varNr) * 0.5) /
(10 ^ varPl)
End Function
Saluti.
Emanuele.

 ha scritto nel messaggio
news:a13hv4$37b$1...@serv1.iunet.it...

Così come ora lavori, tu non arrotondi al centesimo l'IVA che calcoli
aliquota per aliquota. Probabilmente - impostando in maniera opportuna la
proprietà formato di ogni singola casella di testo - tu vedi ogni "IVA" con
solo due cifre decimali ma il "vero" importo, sul quale vengono effettuati i
conteggi, ne ha di più.
Soluzione: Effettuare l'arrotondamento già nel momento in cui calcoli ogni
singola IVA. Per esempio:
     IIf([Aliquota]=0,2;Fix([Importo]*[Quantità]*[Aliquota]*100+0,5)/100;0)
***
Dopo di che non dovresti più aver problemi nell'effettuare la somma delle
varie Iva20, Iva10 eccetera.
***La formula per l'arrotondamento è un po' "casereccia". Esiste però una
bellissima funzione di Karl Donaubauer disponibile sul Sito Comune (e che in
questi giorni sta girando nel newsgroup quasi come l'orologio contabugie di
Berlusconi) che effettua l'arrotondamento in maniera impeccabile, gestendo
sia un numero variabile di cifre dopo la virgola sia i numeri con segno
negativo.
Ciao
--
Alberto

Berlusconi)
sembri quasi grillo.....
