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