ContractFees (collection)

Creato il: 24.08.2020
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)

Login