Option Explicit

Dim ResiduoOrdini
Dim RigaDoc
Dim IDsOrdini
Dim IdOrdine
Dim RigaOrdine 
Dim QResidua 
Dim UMisura
Dim Descrizione
Dim Misura
Dim Colore

ResiduoOrdini = ""
IDsOrdini = ""
For Each RigaDoc In RowItem.DocRows
  IdOrdine = RigaDoc.SourceRow.Doc.Id
  If IdOrdine>0 Then
    If Instr(IDsOrdini, " " & IdOrdine & " ")<=0 Then
       IDsOrdini = IDsOrdini & " " & IdOrdine & " "
       For Each RigaOrdine In Rdy.Doc(IdOrdine).DocRows
         QResidua = Rdy.toDouble(RigaOrdine.CustomField(30))-Rdy.toDouble(RigaOrdine.CustomField(32))
         If QResidua>0 Then
           If ResiduoOrdini <> "" Then
             ResiduoOrdini = ResiduoOrdini & vbCrLf
           End If
           UMisura = RigaOrdine.CustomField(25)
           Descrizione = RigaOrdine.CustomField(20)
		   Misura = RigaOrdine.CustomField(305)
		   Colore = RigaOrdine.CustomField(310)
          ResiduoOrdini = ResiduoOrdini & UMisura & ". " & QResidua & " - " & Descrizione & " - " & Misura & " - " & Colore & "
        End If
      Next
   End If
 End If
Next
Response.Write(ResiduoOrdini)