Short supplies of barley look set to force German beer prices in the country's on-trade up by 40%, a leading figure in the industry has warned.