Find all four–digit numbers in which the product of the digits is equal to the sum of the digits, and the number itself is divisible by the sum of its digits.

(In reply to

Solution (using computer) by Robby Goetschalckx)

The line modulo(Sum,Number,Mod) should have read modulo(Number,Sum,Mod).