Calcolo dell'importo netto a pagare su una fattura in split payment

Questo script consente di calcolare l'importo di una fattura ad esclusione dell'IVA in split payment (restituendo in pratica l'importo totale che e' da incassare dal cliente)

Option Explicit
 
Dim Totale
Dim TotaleIVA
 
Totale=Doc.TotalAmount
For Each TotaleIVA In Doc.TotalTaxes
     If TotaleIVA.Tax.SplitPayment Then
            Totale = Totale - TotaleIVA.TaxAmount
    End If
Next
Response.Write(Rdy.FormatCurrency(Totale))