Visualizzazione dei documenti in cui e' stato convertito/evaso un altro documento
Creato il: 16.11.2015Questo 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).
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)