Sfruttando il metodo SearchDocRows e' possibile ad esempio recuperare informazioni sui documenti di acquisto vendita
Esempio : Visualizzazione della quantita' dell'ultimo documento di acquisto
Option Explicit
Dim DataUltimoAcquisto
Dim Quantita
Dim DataDoc
Dim RigaMovimento
DataUltimoAcquisto=Empty
Quantita=0
For Each RigaMovimento In Product.SearchDocRows
If RigaMovimento.Doc.DocCause.IsPurchase Then
DataDoc = RigaMovimento.Doc.DocDate
If DataUltimoAcquisto = Empty Then
DataUltimoAcquisto = DataDoc
Quantita=RigaMovimento.Quantity
ElseIf DataDoc > DataUltimoAcquisto Then
DataUltimoAcquisto = DataDoc
Quantita=RigaMovimento.Quantity
End If
End If
Next
Response.Write(Quantita)
Esempio : visualizzazione del nome fornitore dell'ultimo documento di acquisto
Option Explicit
Dim DataUltimoAcquisto
Dim Fornitore
Dim DataDoc
Dim RigaMovimento
DataUltimoAcquisto=Empty
Fornitore=""
For Each RigaMovimento In Product.SearchDocRows
If RigaMovimento.Doc.DocCause.IsPurchase Then
DataDoc = RigaMovimento.Doc.DocDate
If DataUltimoAcquisto = Empty Then
DataUltimoAcquisto = DataDoc
Fornitore=RigaMovimento.Doc.Anag.Name
ElseIf DataDoc > DataUltimoAcquisto Then
DataUltimoAcquisto = DataDoc
Fornitore=RigaMovimento.Doc.Anag.Name
End If
End If
Next
Response.Write(Fornitore)