Fabio
Lo script qui sotto serve per filtrare solo gli articoli che sono da passare poi progressivamente da 17% a 15%. In pratica consente di visualizzare solo gli articoli che rispondono ai seguenti requisiti:
-Aliquota impostata come fissa al 17% -Quantita' a magazzino = 0, oppure con una quantita' impostata a magazzino, ma dovuta ad acquisti successivi al 20 settembre (quindi articoli su cui l'imposta pagata e' oramai del 15%)
Option Explicit
Dim PercImposte Dim QTotale Dim RigaMovimento Dim QAcquistoDopo20Settembre
PercImposte = Rdy.toLong(RowItem.CustomField( 478 )) If PercImposte=17 Then QTotale=RowItem.QtyInventory() If QTotale<=0 Then Rdy.ResponseWrite("SHOW") Else QAcquistoDopo20Settembre=0 For Each RigaMovimento In RowItem.SearchDocRows(DateSerial(2010,9,20)) Select Case RigaMovimento.Doc.DocType Case 5,13 ' Documento di carico QAcquistoDopo20Settembre = QAcquistoDopo20Settembre+RigaMovimento.Quantity End Select Next If (QTotale-QAcquistoDopo20Settembre)<=0 Then Rdy.ResponseWrite("SHOW") Else Rdy.ResponseWrite("HIDE") End If End If Else Rdy.ResponseWrite("HIDE") End If
|