Collection di oggetti ContractFee contenente l'elenco delle quote fatturate e/o da fatturare del contratto
ESEMPIO
Lo script seguente, utilizzato su un report, permette di stampare la data della quota, l'importo da fatturare e quello fatturato, oltre a consentire di risalire alle fatture collegate ad ogni singola quota:
Option Explicit
Dim QuotaContratto
Dim elenco
Dim RigheFattura
elenco=""
For Each QuotaContratto in Contract.ContractFees
elenco=elenco & "Data : " & QuotaContratto.FeeDate
elenco=elenco & " - Importo da fatturare : " & Rdy.FormatCurrency(QuotaContratto.Amount)
elenco=elenco & " - Importo fatturato : " & Rdy.FormatCurrency(QuotaContratto.InvoicedAmount)
Set RigheFattura=QuotaContratto.DocRows
If RigheFattura.Count>0 Then
elenco=elenco & " - Rif. fattura : " & RigheFattura(1).Doc.CustomField(4)
End If
Set RigheFattura=Nothing
elenco=elenco & vbCrLf
Next
Response.Write(elenco)
