Autore	Messaggio
U0 01/02/2018 13:58 Campo libero:	U0 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
U0 01/02/2018 18:24	U0 ok grazie tutto sistemato

Autore

Messaggio

U0 01/02/2018 12:07

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)))

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

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

U0 01/02/2018 18:24

ok grazie tutto sistemato