alpedro
Documenti evasione
Buongiorno ho inserito loscript qui riportato per avere nella riga dell'elenco documenti tutti documenti generati dal singolo documento peroň vedo solamente il primo, dove sbaglio ?
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=2 Then
ElaborazioneCompletata=True
Exit For
End If
End If
End If
Next
If ElaborazioneCompletata Then
Exit For
End If
Next
Response.Write(RifDocumenti)
|
