Autore	Messaggio
Fabio 01/02/2018 13:58 Campo libero:	Fabio Un errore sicuramente da correggere e' la parte con Doc.CustomField(60) che andrebbe sostituita con Rdy.toDouble(Doc.CustomField(60)) per forzare il valore in numerico. Non so se possa esserci qualche altro tipo di problema, e' una cosa che dovreste eventualmente verificare in teleassistenza SUPPORTO PER LO SVILUPPO DI SCRIPT E FORMULE PERSONALIZZATI Data l'eterogeneita' e la complessita' delle richieste non abbiamo possibilita' di fornire un supporto gratuito per lo sviluppo di script e formule. Se si hanno le dovute conoscenze di programmazione esiste una reference, sufficiente per lo sviluppo, a questo indirizzo: https://www.readypro.it/help/it/1600/ready-pro-scripting-language All'interno della reference e' presente anche una sezione con numerosi esempi. In alternativa e' possibile acquistare delle ore di teleassistenza per farsi aiutare, nello sviluppo degli script, da parte di un nostro tecnico
THE HORSE PLANET 01/02/2018 18:24	THE HORSE PLANET ok grazie tutto sistemato

Autore

Messaggio

THE HORSE PLANET 01/02/2018 12:07

THE HORSE PLANET

errore script importo 1000,00

Buongiorno,
ho questo script che mi da errore nella stampa , mi da questo errore arrivando all' importo 1000,00

allego script  e errore

Option Explicit
Dim tipoValore

tipoValore = 3 ' 1=importo imponibile  2=importo IVA  3=importo totale   4=descrizione aliquota   5=codice aliquota    6=percentuale aliquota

Dim TotaleIVA
Dim omaggi22

omaggi22=0

For Each TotaleIVA In Doc.TotalTaxes
        Select Case tipoValore
            Case 1 ' Importo imponibile
'                If TotaleIVA.Tax.Code = "22oma" then
'                    omaggi22 = omaggi22 + (TotaleIVA.TaxableAmount)
'                End if
            Case 2 ' Importo IVA
'                Response.Write(Rdy.FormatCurrency(TotaleIVA.TaxAmount))
            Case 3 ' Importo totale
                If TotaleIVA.Tax.Code = "4*" or TotaleIVA.Tax.Code = "10*" or TotaleIVA.Tax.Code = "22*" then
                    omaggi22 = omaggi22 + (TotaleIVA.TaxableAmount+TotaleIVA.TaxAmount)
                End if
            Case 4 ' descrizione aliquota
'                Response.Write(TotaleIVA.Tax.Name)
            Case 5 ' codice aliquota
'                Response.Write(TotaleIVA.Tax.Code)
            Case 6 ' % aliquota
'                Response.Write(TotaleIVA.Tax.PercentAmount)
        End Select
Next

Response.Write(Rdy.FormatCurrency((Doc.CustomField(60)) - (omaggi22)))

Fabio 01/02/2018 13:58 Campo libero:

Fabio

Un errore sicuramente da correggere e' la parte con

Doc.CustomField(60)

che andrebbe sostituita con

Rdy.toDouble(Doc.CustomField(60))

per forzare il valore in numerico.
Non so se possa esserci qualche altro tipo di problema, e' una cosa che dovreste eventualmente verificare in teleassistenza

SUPPORTO PER LO SVILUPPO DI SCRIPT E FORMULE PERSONALIZZATI
Data l'eterogeneita' e la complessita' delle richieste non abbiamo possibilita' di fornire un supporto gratuito per lo sviluppo di script e formule.
Se si hanno le dovute conoscenze di programmazione esiste una reference, sufficiente per lo sviluppo, a questo indirizzo:
https://www.readypro.it/help/it/1600/ready-pro-scripting-language
All'interno della reference e' presente anche una sezione con numerosi esempi.
In alternativa e' possibile acquistare delle ore di teleassistenza per farsi aiutare, nello sviluppo degli script, da parte di un nostro tecnico

THE HORSE PLANET 01/02/2018 18:24

THE HORSE PLANET

ok grazie tutto sistemato