Ordini clienti

Buongiorno volevo inserire uno script che mi visualizzi i documenti con i quali è stato evaso ma non funziona e non so dove sbaglio Option Explicit



Dim TipoReport

TipoReport=2

' 1 = Solo primo documento di evasione

' 2 = Tutti documenti di evasione



'==================================================

Dim RifDocumenti

Dim DescDocumento

Dim RigaDoc

Dim RigaEvasione

Dim ElaborazioneCompletata





' Documenti evasione

RifDocumenti=""

ElaborazioneCompletata=False

For Each RigaDoc In Doc.DocRows

    For Each RigaEvasione In RigaDoc.DestRows

        DescDocumento=RigaEvasione.Doc.CustomField(4) ' Descrizione abbreviata documento

        If DescDocumento<>"" Then

            If Instr(RifDocumenti,DescDocumento)>0 Then

                ' Il riferimento a questo documento e' gia' presente in lista

            Else

                ' Aggiungo il riferimento

                If RifDocumenti<>"" Then

                    RifDocumenti=RifDocumenti & vbCrLf

                End If

             RifDocumenti=RifDocumenti & DescDocumento

                If TipoReport=1 Then

                ElaborazioneCompletata=True

                    Exit For

                End If

            End If

        End If

    Next

    If ElaborazioneCompletata Then

        Exit For

    End If

Next

Response.Write(RifDocumenti)