TotColli=0
IDsOrigine="|"
for i=1 to RowItem.Rows.Count
  if instr(IDsOrigine,"|" & RowItem.Rows(i).CustomField(250) & "|")<=0 then
    IDsOrigine=IDsOrigine & RowItem.Rows(i).CustomField(250) & "|"
    TotColli=TotColli+Rdy.toLong(Rdy.Doc(Rdy.toLong(RowItem.Rows(i).CustomField(250))).CustomField(210))
  end if
next
Rdy.ResponseWrite(TotColli)