Salve a tutti, dovrei creare un film che preso in input il codice di un prodotto, controlli all'interno di un file tutti i prodotti con quel codice, e se è un carico (C) aggiunge ad una variabile (giacenza) la quantità, se invece è uno scarico (S) la sottrae.
Il mio problema è che da un debug mi sono reso conto che la quantità viene messa nel record ma quando tento di aggiungere suddetto valore alla variabile giacenza, quest'ultima rimane sempre 0.. sapreste spiegarmi in cosa sbaglio?
spero di essere stato chiaro..

codice:
Private Sub calcola_giacenza(fnomefile As String, fcodp As String, ByRef fgiacenza As Integer)
Open fnomefile For Random As 1 Len = Len(prodotto)
nrec = LOF(1) / Len(prodotto)
fgiacenza = 0

For i = 1 To nrec

Get #1, i, prodotto

If prodotto.codp = fcodp Then
    If (prodotto.tipo = "C") Or (prodotto.tipo = "c") Then
         fgiacenza = fgiacenza + Val(prodotto.qta)
    Else
        fgiacenza = fgiacenza - prodotto.qta
    End If
End If

Next

close #1
End Sub
grazie in anticipo!