Problema Script... - Ready Pro - Magazzino, bolle e fatture - Software Gestionale Ready Pro

Home page
> AREE DI SUPPORTO TECNICO READY PRO
> Ready Pro - Magazzino, bolle e fatture

Autore	Messaggio
se-ar 10/11/2011 16:32	se-ar Problema Script... Salve Staff Un paio di anni fa... mi avete elaborato uno script... e premetto che funziona tutto... Ma su un documento mi sballa !! Non capisco.... funziona perfettamente eccetto su uno : o almeno è la prima volta che succede. lo script serve ad elaborare un importo di differenza... quindi prende il totale documento collegato.... il totale documento generato... e mi deve dare la differenza se esiste. L'errore che rilevo è che mi visualizza la cifra di differenza con 8 zeri Così: 1,24000000005 Invece di 1,24 Premetto che solo in questo documento accade (per il momento) ma non riesco a capire del perchè lo fa. non ci sono cose anomale nel documento.
Fabio 10/11/2011 16:38 Campo libero:	Fabio Si tratta solo di un problema dovuto agli arrotondamenti binari dei numeri in virgola mobile. Dovresti risolvere stampando il risultato arrotondato a due decimali con qualcosa del tipo Response.Write(Rdy.FormatCurrency(valore))
se-ar 10/11/2011 16:49	se-ar Citazione: Rdy.FormatCurrency(valore) c'è già .... per questo non capisco ... Lo script della parte interessata è così: `TotDocumenti=Rdy.FormatCurrency(TotDocumento+Rdy.toDouble(Rdy.Doc(IdDocum........ etc Importo = Rdy.FormatCurrency(RowItem.CustomField(xx)) testo = testo & TotDocumenti & " nuovo importo dovuto: €." & Importo & " differenza: €." & (TotDocumenti - Importo) & " che....... etc.. Rdy.ResponseWrite(testo)`
se-ar 10/11/2011 16:55	se-ar Risolto !!! Ho messo la variabile "Differenza" per l'operazione di sottrazione e poi l'ho sostituita nel Testo.... Adesso funziona `Differenza=Rdy.FormatCurrency((TotDocumenti - Importo))` e nella stringa di testo ho messo: `testo = testo & TotDocumenti & " nuovo importo dovuto: €." & Importo & " differenza: €." & Differenza & " che....... etc..`
Fabio 10/11/2011 16:56 Campo libero:	Fabio `Option Explicit Dim TotDocumenti Dim Importo Dim Differenza TotDocumenti=Rdy.FormatCurrency(TotDocumento+Rdy.toDouble(Rdy.Doc(IdDocum........ etc Importo=Rdy.FormatCurrency(RowItem.CustomField(xx)) Differenza=Rdy.FormatCurrency(TotDocumenti - Importo) testo = testo & TotDocumenti & " nuovo importo dovuto: €." & Importo & " differenza: €." & Differenza & " che....... etc.. Rdy.ResponseWrite(testo)`
se-ar 10/11/2011 17:05	se-ar GRAZIE FABIO !!! Sempre Disponibile
Fabio 10/11/2011 17:20 Campo libero:	Fabio Eeeeh non sempre lo sai...dipende dal tempo a disposizione Stavolta ti e' "andata grassa" come si dice dalle nostre parti