Collection KitComponents in script corpo documento Fattura

Ciao Fabio,
credo di aver individuato un bug. Stio tentando di usare uno script per calcolare il costo di acquisto totale di un articolo composizione quando inserito nel corpo fattura.
Sto tentando di usaere uno script che ho già usato in anagrafica articoli e che non fa altro che scorrere tutti i componenti della composizione e sommarne il costo di acquisto da fornitore primario.

Lo script che ti allego sotto non funziona. Può essere che non funzioni, nelle visualizzazioni del corpo documento, l'aggancio a docrow.product.kitcomponents ?

  Dim componente

  Dim qnt

  Dim listinokit

  Dim listinokittot

  Dim listinocomp

  Dim Tipo

Tipo = docrow.customfield (5)


if Tipo = "Testa composizione" then

  For Each componente In docrow.Product.KitComponents

    listinokit = rdy.todouble (componente.product.customfield(60))  ' costo acquisto scontato in valuta del fornitore primario

    qnt = componente.quantity

    listinokittot = listinokit * qnt

    listinocomp = listinocomp + listinokittot


  Next


  rdy.responsewrite (listinocomp)

else

end if