Visualizzare informazioni sul'ultimo acquisto di un articolo

Creato il: 16.01.2015
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)

Login