Visualizzare il nome del cliente a cui e' stata effettuata l'ultima vendita di un articolo
Creato il: 18.01.2024Sfruttando il metodo SearchDocRows e' possibile creare report statistici anche complessi
Ad esempio il seguente script ricava il nome dell'ultimo cliente a cui e' stato scaricato un articolo con DDT, Fatture accompagnatorie, Documenti non fiscali e/o ricevute di cassa
Ad esempio il seguente script ricava il nome dell'ultimo cliente a cui e' stato scaricato un articolo con DDT, Fatture accompagnatorie, Documenti non fiscali e/o ricevute di cassa
Option Explicit
Dim UltimaVendita
Dim NomeCliente
Dim RigaMovimento
Dim Documento
Dim DataVendita
UltimaVendita=""
NomeCliente = ""
For Each RigaMovimento In Product.SearchDocRows
Set Documento=RigaMovimento.ParentDoc
If Documento.DocCause.IsSelling Then
DataVendita = Documento.DocDate
If UltimaVendita="" Then
UltimaVendita = DataVendita
NomeCliente = Documento.Anag.Name
ElseIf DataVendita > UltimaVendita Then
UltimaVendita = DataVendita
NomeCliente =Documento.Anag.Name
End If
End If
Set Documento=Nothing
Next
Response.Write(NomeCliente)
Volendo visualizzare la data dell'ultima vendita (e non il nome del cliente) si puo' modificare l'ultima riga
con
Response.Write(NomeCliente)
con
Response.Write(UltimaVendita)