From f66b612fbd9bad587961147c8263e50b3e2525f8 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 18 Sep 2016 20:58:27 +0000
Subject: [PATCH] tvplanit: Fix typos in file format conversion of xml
 datastore.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5182 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/source/vpxmlds.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/components/tvplanit/source/vpxmlds.pas b/components/tvplanit/source/vpxmlds.pas
index ca7035d31..2e9d4ca0d 100644
--- a/components/tvplanit/source/vpxmlds.pas
+++ b/components/tvplanit/source/vpxmlds.pas
@@ -673,7 +673,7 @@ begin
     else if nodeName = 'Custom3' then
       cont.Custom3 := GetNodeValue(node)
     else if nodeName = 'Custom4' then
-      cont.Custom3 := GetNodeValue(node)
+      cont.Custom4 := GetNodeValue(node)
     else if nodeName = 'UserField0' then
       cont.UserField0 := GetNodeValue(node)
     else if nodeName = 'UserField1' then
@@ -1045,7 +1045,7 @@ begin
     child := ADoc.CreateElement('Phone2');
     TDOMElement(child).SetAttribute('Type',
       GetEnumName(TypeInfo(TVpPhoneType), ord(AContact.PhoneType2)));
-    txt := ADoc.CreateTextNode(IntToStr(AContact.PhoneType2));
+    txt := ADoc.CreateTextNode(AContact.Phone2);
     child.AppendChild(txt);
     AContactNode.AppendChild(child);
   end;