TotalTaxes (collection)

Creato il: 05.06.2017
Restituisce il totale del documento suddiviso per aliquota IVA

Tipo dati restituito
Collection di oggetti TaxTotal


Esempio 1
Funzione di esportazione generica di dettagli relativi a specifiche aliquote (intervenire sui parametri numeroAliquota e tipoValore in testa alla funzione per modificare il tipo di valore da visualizzare, ed il numero di aliquota (1a, 2a, 3a, ecc.) a cui fare riferimento

Option Explicit
 
Dim numeroAliquota
Dim tipoValore
 
numeroAliquota = 1 ' da 1 a 6
tipoValore = 1 ' 1=importo imponibile 2=importo IVA 3=importo totale 4=descrizione aliquota 5=codice aliquota 6=percentuale aliquota

Dim TotaleIVA
Dim num
 
num=0
For Each TotaleIVA In Doc.TotalTaxes
    num=num+1
    If num>=numeroAliquota Then
        Select Case tipoValore
            Case 1 ' Importo imponibile
Response.Write(Rdy.FormatCurrency(TotaleIVA.TaxableAmount))
            Case 2 ' Importo IVA
Response.Write(Rdy.FormatCurrency(TotaleIVA.TaxAmount))
            Case 3 ' Importo totale
Response.Write(Rdy.FormatCurrency(TotaleIVA.TaxableAmount+TotaleIVA.TaxAmount))
            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
        Exit For
    End If
Next

Login