Visualizzazione dei documenti in cui e' stato convertito/evaso un altro documento

Creato il: 16.11.2015
Questo script consente di visualizzare il riferimento al documento con cui uno specifico documento e' stato evaso/convertito.
Quindi ad esempio sulla lista ordini rende possibile la visualizzazione della DDT o fattura con cui l'ordine e' stato evaso, oppure sulla lista DDT consente di visualizzare il numero di fattura su cui il DDT e' stato convertito.

Poiche' un documento puo' essere convertito in piu' documenti (es. un ordine puo' essere evaso parzialmente con una fattura e parzialmente con un'altra) lo script prevede anche la possibilita' di visualizzare tutti i documenti di conversione.
Modificando il valore della variabile TipoReport ad inizio script e' possibile scegliere come lo script deve comportarsi (se visualizzare solo il primo documento di evasione trovato o se visualizzarli tutti).
Option Explicit
 
Dim TipoReport
TipoReport=1
' 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)

Login