When setting ResourceName, always PercentComplete become 0 percent.

In ProjectConnector::addTicket

-    If complete <> "" Then
-        t.PercentComplete = complete
-    Else
-        If status = "resolved" Or status = "closed" Then
-            t.PercentComplete = "100"
-        End If
-    End If
+    If complete = "" Then
+        If status = "resolved" Or status = "closed" Then
+            complete = "100"
+        End If
+    End If
+    t.PercentComplete = complete

     If tasknum = m_pj.Tasks.count Then '葉タスクの場合のみ
         t.ResourceNames = owner 'リソースを追加する
+        t.PercentComplete = complete
     End If