Controls

Re: Extract Week Number from Date

kurtd — Mon, 23 Oct 2006 18:35:22 GMT

Well, I tried to install it but I don't have Visual Studio. I installed Visual Studio C# Express but the toolkit still wouldn't install. Maybe I will make a new post to try and get this code working on a repeating table.

Re: Extract Week Number from Date

nukkumatti — Fri, 20 Oct 2006 06:24:02 GMT

Sorry,

can't help you with your question but you need to install the InfoPath 2003 Toolkit for Visual Studio .NET to be able to use managed code. There is actually a link in the left frame of this forum from where you can download the too.

Re: Extract Week Number from Date

kurtd — Wed, 18 Oct 2006 18:06:26 GMT

Wow that is a lot more code then I had. I was so close to getting it working with this code:


If eventObj.Operation = "Insert" Then
Dim objDate
Dim objWeek

Set objDate = XDocument.DOM.selectSingleNode("/dfs:myFields/dfs:dataFields/d:tblTasks/@dteDate")
Set objWeek = XDocument.DOM.selectSingleNode("/dfs:myFields/dfs:dataFields/d:tblTasks/@txtWeek")

objWeek.text = DatePart("ww", objDate.text)
End If

But the code above only works for the first row in my repeating table. I tried using this line


Set objDate = eventObj.Source.selectSingleNode("@dteDate")
Set objWeek = eventObj.Source.selectSingleNode("@txtWeek")

instead of this line


Set objDate = XDocument.DOM.selectSingleNode("/dfs:myFields/dfs:dataFields/d:tblTasks/@dteDate")
Set objWeek = XDocument.DOM.selectSingleNode("/dfs:myFields/dfs:dataFields/d:tblTasks/@txtWeek")

but them I get this error:
"A text node child of an attribute may not be passed as the context node for an XSLT transform or an XPath query."

I would rather get this code working before trying yours. Also yours looks like it is in C#? Why do I only have options for vbscript and jscript? I would like to just stick with vbscript. It is so close to working. Does anyone know how to fix the code so it will work in my repeating table?

Thanks,
Kurt

Re: Extract Week Number from Date

nukkumatti — Wed, 18 Oct 2006 14:30:35 GMT

BTW - If you want to have the correct Calendar Week for a specific date instead of only the week number within the month you can use this. (Parts of the code I found in the net)

public int getCalendarWeek (DateTime date)
		{
			const int JAN = 1;
			const int DEC = 12;
			const int LASTDAYOFDEC = 31;
			const int FIRSTDAYOFJAN = 1;
			const int THURSDAY = 4;
			bool ThursdayFlag = false;

			int DayOfYear = date.DayOfYear;

			int StartWeekDayOfYear = 
				(int)(new DateTime(date.Year, JAN, FIRSTDAYOFJAN)).DayOfWeek;
			int EndWeekDayOfYear = 
				(int)(new DateTime(date.Year, DEC, LASTDAYOFDEC)).DayOfWeek;

			if( StartWeekDayOfYear == 0)
				StartWeekDayOfYear = 7;
			if( EndWeekDayOfYear == 0)
				EndWeekDayOfYear = 7;

			int DaysInFirstWeek = 8 - (StartWeekDayOfYear  );
			int DaysInLastWeek = 8 - (EndWeekDayOfYear );

			if (StartWeekDayOfYear == THURSDAY || EndWeekDayOfYear == THURSDAY)
				ThursdayFlag = true;

 			int FullWeeks = (int) Math.Ceiling((DayOfYear - (DaysInFirstWeek))/7.0);

			int WeekNumber = FullWeeks; 
    
			if (DaysInFirstWeek >= THURSDAY)
				WeekNumber = WeekNumber +1;

			if (WeekNumber > 52 && !ThursdayFlag)
				WeekNumber = 1;


			if (WeekNumber == 0)
				WeekNumber = getCalendarWeek(
					new DateTime(date.Year-1, DEC, LASTDAYOFDEC));
			return WeekNumber;
		}
		
		// splits the string coming form the date picker into three substrings (year, month, day) and converts these
		// into integer values so it can be passed to the dateTime object
		public DateTime ConvertString(string date)
		{
			string strYear	 = date.Substring(0,4);
			string strMonth	 = date.Substring(5,2);
			string strDay	 = date.Substring(8,2);
			int year		 = Convert.ToInt32(strYear);
			int month		 = Convert.ToInt32(strMonth);
			int day			 = Convert.ToInt32(strDay);
			DateTime dateTime = new DateTime(year, month, day);
			return dateTime;
		}

Re: Extract Week Number from Date

kurtd — Mon, 16 Oct 2006 12:35:40 GMT

Hi, I tried that but I get a syntax error on this line.

Set objDate = eventObj.Source.selectSingleNode("@dteDate")

"A text node child of an attribute may not be passed as the context node for an XSLT transform or an XPath query."

Re: Extract Week Number from Date

Shiva — Sat, 14 Oct 2006 04:26:07 GMT

Hi kurtd,
Use eventObj.Source.selectSingleNode("attributename")instead of
thisXDocument.DOM.selectSingleNode("/dfs:myFields/dfs:dataFields/d:tblTasks/@dteDate")

Using eventObj.Source lets you access the fields in the current row where the event has occurred.

One important point to note is that when you use eventObj.Source, you have to specify only the field name and not the full XPath of the field.

Re: Extract Week Number from Date

kurtd — Thu, 12 Oct 2006 20:57:52 GMT

Hello,

I'm using a Repeating Table. The below vbscript code works great on the first item. When I select a date it fills in the week field with the week number. This only works on the first record. If I click insert record, the code does not work on that record and on. How do I modify the code so it works in my repeating table?

If eventObj.Operation = "Insert" Then
Dim objDate
Dim objWeek

Set objDate = XDocument.DOM.selectSingleNode("/dfs:myFields/dfs:dataFields/d:tblTasks/@dteDate")
Set objWeek = XDocument.DOM.selectSingleNode("/dfs:myFields/dfs:dataFields/d:tblTasks/@txtWeek")

objWeek.text = DatePart("ww", objDate.text)
End If

Re: Extract Week Number from Date

Shiva — Thu, 12 Oct 2006 18:46:18 GMT

Hi kurtd,

Your xpath should be like,

"/dfs:myFields/dfs:dataFields/d:tblTasks/@txtWeek"

Re: Extract Week Number from Date

kurtd — Thu, 12 Oct 2006 18:36:02 GMT

THis is my xml document so what should my xpath be?

<?xml version="1.0" encoding="UTF-8"?>
<?mso-infoPathSolution name="urn:schemas-microsoft-com:office:infopath:document:-dataFormSolution" href="manifest.xsf" solutionVersion="1.0.0.10" initialView="View 1" productVersion="11.0.8034" PIVersion="1.0.0.0" ?>
<?mso-application progid="InfoPath.Document"?>
<dfs:myFields my:nameDropdown="" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:q="http://schemas.microsoft.com/office/infopath/2003/ado/queryFields" xmlns:d="http://schemas.microsoft.com/office/infopath/2003/ado/dataFields" xmlns:dfs="http://schemas.microsoft.com/office/infopath/2003/dataFormSolution" xmlns:my="http://schemas.microsoft.com/office/infopath/2003/myXSD/2006-10-09T13:35:05" xmlns:xd="http://schemas.microsoft.com/office/infopath/2003">
<dfs:queryFields>
<q:tblTasks taskID="" txtName="" dteDate="" txtWeek="" txtProject="" txtTask=""></q:tblTasks>
</dfs:queryFields>
<dfs:dataFields>
<d:tblTasks taskID="" txtName="" dteDate="" txtWeek="" txtProject="" txtTask=""></d:tblTasks>
</dfs:dataFields>
</dfs:myFields>

Re: Extract Week Number from Date

Shiva — Thu, 12 Oct 2006 17:46:59 GMT

Hi kurtd,

Please check out the following link, you can get the more information on xpath:

http://www.w3schools.com/xpath/default.asp

Re: Extract Week Number from Date

kurtd — Thu, 12 Oct 2006 13:30:48 GMT

How do I find the xpath of my field?

Re: Extract Week Number from Date

Shiva — Wed, 11 Oct 2006 13:18:56 GMT

Hi Kurtd,

You should give your xpath of where do you want to set that number of week value. In previously you had given one xpath like "//my:myFields/my:txtWeek". Because of I had used that xpath only here. But that is wrong for your requirement. Here is the change.

I think you are using secondary DOM for setting number of week value. For that one you need to use below code.

//Get the secondary DOM
IXMLDOMDocument2 secondaryDOM = (IXMLDOMDocument2)thisXDocument.GetDOM(“Secondary DOM Name”);
//Set the property of secondary DOM
secondaryDOM.setProperty("SelectionNamespaces", “Name space of the Secondary DOM”);
//Set the number of week value to specified path
secondaryDOM.selectSingleNode(“XPath of your field”).text = numberOfWeek.ToString();

Hope this Helps you.

Re: Extract Week Number from Date

kurtd — Wed, 11 Oct 2006 13:00:19 GMT

How do I know if this line is correct? "//my:myFields/my:txtWeek" I do not think that is correct. I extraced the files and found this in the xml file. So what should my line read?

<dfs:queryFields>
<q:tblTasks taskID="" txtName="" dteDate="" txtWeek="" txtProject="" txtTask=""></q:tblTasks>
</dfs:queryFields>
<dfs:dataFields>
<d:tblTasks taskID="" txtName="" dteDate="" txtWeek="" txtProject="" txtTask=""></d:tblTasks>
</dfs:dataFields>
</dfs:myFields>

Re: Extract Week Number from Date

Shiva — Wed, 11 Oct 2006 06:13:45 GMT

Hi kurtd,

You can write below this code to in your on after change event.

if (e.IsUndoRedo || e.Operation != "Insert")
{
return;
}

string dateString = e.Source.text;

int date = Convert.ToInt32(dateString.Substring(8,2));

int numberOfWeek = (date / 7) + 1;

thisXDocument.DOM.selectSingleNode("/my:myFields/my:txtWeek").text = numberOfWeek.ToString();

Note: Above code in C#.

Re: Extract Week Number from Date

kurtd — Tue, 10 Oct 2006 19:53:16 GMT

I switched to vbscript and I have this so far. But I keep getting a run time error "object required: 'objDate' .

If eventObj.Operation = "Insert" Then
Dim objDate
Dim objWeek

Set objDate = XDocument.DOM.selectSingleNode("//my:myFields/my:dteDate")
Set objWeek = XDocument.DOM.selectSingleNode("//my:myFields/my:txtWeek")

objWeek.text = DatePart("ww", objDate.text)
End If