// Display images of all selected products

// Started from GuiXT Script sapmv45a.e4001.txt:
// Pushbutton (toolbar) "Product image" "Process=product_image.txt"


// Reset index
Set V[index] 1

label next_line

   // End of table?
   if not cell[All items,0,&[index]]
     Leave
  endif
 
   Set V[marked] "&cell[All items,0,&[index]]"
 
   // Marked? Then display image
   if V[marked=X]
     View "\\p12332\Products\&cell[All items,Material,&[index]].jpg"
   endif
 
   // Next line
   Set V[index] &V[index] + 1
   goto next_line