Businesses are being urged to cut down on alcohol consumption, following a newly released poll highlighting harassment at work events.