Re: Big problem calculating

Patrick Halstead — Sun, 28 Jul 2013 04:43:18 GMT

Hi Dr Goebel and welcome,

It sure is frustrating that an update would cause a break. I'm not sure why this broke but I have a simple solution.

Replace the code with declarative logic in the form. You can do your calculation just fine without code.

Just add a rule and an action to set the value with the calculation. All Xpath and it will work fine. You will need to learn about how to create a declarative xpath function in InfoPath, but not a big deal. In addition to actually working, the other benefit will be you don't need code (so less maintenance hassle).

Big problem calculating

drgoebel — Thu, 25 Jul 2013 15:13:05 GMT

After updateing our Infotpath with MS Updates, this function does not work anymore (it calculates some fileds).

Anyone any idea?

Function CalcTotal() On Error Resume Next
   Dim FromTime
   Dim TillTime
   Dim Pause
   Set configNode = XDocument.DOM.selectSingleNode("/my:IZETimeSheet/my:FromTime")
   FromTime = Date() & " " & configNode.text
   Set configNode = XDocument.DOM.selectSingleNode("/my:IZETimeSheet/my:TillTime")
   TillTime = Date() & " " & configNode.text
   Set configNode = XDocument.DOM.selectSingleNode("/my:IZETimeSheet/my:PauseDuration")
   Pause = configNode.text * 60
   Set configNode = XDocument.DOM.selectSingleNode("/my:IZETimeSheet/my:Total")
   configNode.text = cdbl(FormatNumber(round((Datediff("n",FromTime,TillTime)-Pause)/60,2),3))
   configNode.text = Replace(configNode.text,",",".")
End Function

Code

Re: Big problem calculating

Big problem calculating