Ultima fattura emessa

Creato il: 04.05.2021
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

Login