Questo script visualizza, per i documenti che generano scadenze, e per cui queste scadenze sono tutte pagate, la data dell'ultima registrazione contabile a saldo.
Per i documenti pagati solo parzialmente non viene restituito nessun valore.
Per i documenti pagati solo parzialmente non viene restituito nessun valore.
Option Explicit
Dim DataMax
Dim Scadenza
Dim DataPagamento
If Rdy.toDouble(Doc.CustomField(320))=0 Then ' Scadenze interamente pagate
DataMax=""
For Each Scadenza in Doc.DueDates
DataPagamento=Scadenza.CustomField(96) ' Data ultimo pagamento collegato
If DataPagamento<>"" Then
If ("" & DataMax)="" Then
DataMax=DataPagamento
Else
If Rdy.toDate(DataMax)<Rdy.toDate(DataPagamento) Then
DataMax=DataPagamento
End If
End If
End If
Next
End If
Response.Write(DataPagamento)