Visualizzare il nome del fornitore da cui e' stato effettuato l'ultimo acquisto di un articolo
Creato il: 20.10.2020Sfruttando il metodo SearchDocRows e' possibile creare report statistici anche complessi
Ad esempio il seguente script ricava il nome dell'ultimo fornitore da cui e' stato effettuato un acquisto
Ad esempio il seguente script ricava il nome dell'ultimo fornitore da cui e' stato effettuato un acquisto
Option Explicit
Dim UltimoAcquisto
Dim NomeFornitore
Dim RigaMovimento
Dim Documento
Dim DataDocumento
UltimoAcquisto=""
NomeFornitore = ""
For Each RigaMovimento In Product.SearchDocRows
Set Documento=RigaMovimento.ParentDoc
If Documento.DocCause.IsPurchase Then
DataDocumento = Documento.DocDate
If UltimoAcquisto="" Then
UltimoAcquisto = DataDocumento
NomeFornitore = Documento.Anag.Name
ElseIf DataDocumento > UltimoAcquisto Then
UltimoAcquisto = DataDocumento
NomeFornitore =Documento.Anag.Name
End If
End If
Set Documento=Nothing
Next
Response.Write(NomeFornitore)