Family Historian User Group

Code: Select all

pi5:MoveToFirstChildItem(pi4)		            --pi5 Now points to 'Where Within Source'
strWherewithinsource = fhGetValueAsText(pi5)   --Pick up 'Where within Source' value

pi5:MoveNext()					--pi5 now points to 'Data Recorded' aka "Entry Date"

pi5:MoveNext()					--pi5 now points to 'Certainty Assessment' aka "Asessment"

pi5:MoveNext()					--pi5 now points to 'Note'

Code: Select all

%FACT.SOUR[1].DATA.TEXT[1]%

Code: Select all

ptr:MoveTo(pi4,'~.DATA.TEXT')

Code: Select all

ptr:MoveTo(pi4,'~.DATA.TEXT')

Code: Select all

pi  = fhNewItemPtr()	     --Points to INDI record
pi2 = fhNewItemPtr()	     --Points to BIRT entry
pi3 = fhNewItemPtr()	     --Points to Children of BIRT entry
ptr = fhNewItemPtr()		  --Points to 'Where within source'


--Move to the first individual's record
pi:MoveToFirstRecord('INDI')    		--Points to first INDI record

--Move to their BIRT entry
pi2:MoveTo(pi,"~.BIRT")               --pi2 Points to BIRT

--Step through the children until find a SOUR record
pi3:MoveToFirstChildItem(pi2)			--This will be DATE then PLACE then ADDRESS followed by 
                                      --any SOURces then NOTE

while not pi3:IsNull() do	
		strTagType=fhGetTag(pi3)  	  	--Pick up the tag type
		if strTagType == 'SOUR' then	   --Check the TagType to see if it's SOUR. 
											       --If reach here then p3 should be pointing at the 
											       --Source for birth entry
			ptr:MoveTo(pi3,'~DATA.TEXT') --Now we want to pick up the value of 'Text from source'
												  --However, I find that at this point we have:
												  --pi points to the Individual
												  --pi2 points to the Birth entry for the Individual
												  --pi3 points to the Source entry for the Birth entry
												  --ptr returns (null)
		end
pi3:MoveNext()

end