Questo script visualizza per ogni cliente il tipo, numero e data dell'ultima fattura emessa (vengono considerate le fatture accompagnatore e le fatture differite con causale VENDITA):
Option Explicit
Dim DocumentiEmessi
Dim i
Dim UltimoDoc
Dim Documento
Set UltimoDoc = Nothing
Set DocumentiEmessi = Anag.Docs
For i=DocumentiEmessi.Count To 1 Step -1
Set Documento = DocumentiEmessi(i)
' Considera solo fatture accompagnatorie (2) e fatture differite (8)
If (Documento.DocType=2)Or(Documento.DocType=8) Then
' Considera solo documenti con causale 'VENDITA'
If Trim(Ucase(Documento.DocCause.Name))="VENDITA" Then
Set UltimoDoc = Documento
Exit For
End If
End If
Next
If UltimoDoc Is Nothing Then
' Nessuna fattura identificata
Else
' Stampa dettagli ultima fattura
Response.Write(UltimoDoc.CustomField(3))
End If