<div>
It's because they don't have an association with the parent document. They need a $Ref field with the company profiles UNID in.<br />
You're going to need to write an agent to associate them!
</div>


<div>
Agree. The response documents don't have a parent, in Notes vocabulary they are orphans if you don't do anything about it. Write an agent that selects the responses, finds the Company and uses MakeResponse to link the response to the Company. Suggested name for the agent: Adopt orphans. <br />
<br />
You may also need a second agent, one that picks up orphans and reunites them with the parent document. You know users: Ctrl-X removes a document, Ctrl-V pasts it back again, but maybe not in the correct position. When using a document hierarchy, you have to take care of these kinds of trouble.
</div>


<div>
My other suggestion.... as useful as they can be in some circumstances, with users using them their correct operation can be difficult to explain... &nbsp;so maybe don't use response documents is another option.<br />
<br />
Instead record the company UNID in a field on the Contact document. &nbsp;Record the company document's UNID in a CompanyID field on it's own doc. too.<br />
<br />
Then you can show them in a view by using the company name field you have inherited under the contact etc. and have an embedded view in the company showing contacts etc. using single category view based in the company UNID field if you wish.<br />
<br />
And to deal with a user who has copy/pasted or similar the &quot;parent&quot; company document could have a scheduled agent which looks for company documents where the real UNID doesn't match the one in the company ID field and then can go off and find any contacts that were related to the &quot;old&quot; company ID and change their fields.<br />
<br />
Overall not a huge amount different to using response and the ideas by Sjef but by using a different field to store the UNID to link rather than the built in response relationship it is easier to survive users!<br />
<br />
Hmm, sounded so simple in my head, clear as mud having written it down!<br />
<br />
Steve
</div>


<div>
I do the $Ref field on the Contact Form. &nbsp;I also have a field MainID on the company form with the UNID and a field on the Contact form that inherits from the Company. &nbsp; I did find that in the books/internet searches. &nbsp;I do totally get that with out the tie to each other, the response doc will be come a orphan. <br />
<br />
Here is the thing, I have no idea how to write the agent that would look up the correct $Ref/UNID for the contact form. &nbsp;Can I use @Formula or does it need to be scripted? &nbsp;I would need some help in writing the agent of directly. I get the logistics of how it would work but as for writing it would be a different story. <br />
<br />
Any help would be greatly appreciated - Thanks for the answer so far, always so helpful
</div>


<div>
BTW - this is only a one time function of importing the company/contacts. &nbsp;Once imported it will be updated going forward manually. &nbsp;Does that make sense?
</div>


<div>
To programmatically attach a response to a main document you really have to use script. The parent should have some key that allows you to find it using a view and the key (using GetDocumentByKey)<br />
<br />
As for your BTW: yep makes sense, but don't forget you need some sort of repair agent, i.e. an agent that repairs the main-response document hierarchy when something goes wrong (which it usually does).
</div>


<div>
Okay, so let me walk thru this:<br />
<br />
I have imported all the companies and they have a UNID on them.<br />
<br />
I can import the response documents but when I do, they will not have a tag back to the company that they are the contact for.<br />
<br />
So I need to create a script that would look at what the company name is on the response document and then to and look up that company name and find the UNID on the form and then bring it back and set the MainID field on the response document?
</div>


<div>
Yes, about 95% correct, except for the part where you link the response to the main document: you *must* use MakeResponse to get a real parent-child relationship. You can set other fields as well, but then it won't result in a hierarchy.
</div>


<div>
Do I need to still makereponse if I do the import and use the &quot;Response Document&quot; in the file import window?
</div>


<div>
Aaah, that I don't know. It might be a very good option for you to try that indeed. I never did use the automated child import stuff (human trafficking is illegal in most countries anyway... ;-))
</div>


<div>
Okay - here is what I have written. Trust me this is a shot in the dark and I am trying to figure this out - What do you think Sjef, am I even close?<br />
<br />
Sub Initialize()<br />
Dim session As NotesSession<br />
Dim db As NotesDatabase<br />
Dim view As NotesView<br />
Dim doc As NotesDocument<br />
<br />
Set session = New NotesSession<br />
Set db = session.Currentdatabase<br />
Set view = db.GetView(&quot;Contact&quot;)<br />
Set doc = view.GetFirstDocument<br />
<br />
' Can I now go and look up the Company Name and find the UNID here?<br />
<br />
Dim dbCompany As NotesDatabase<br />
Dim viewCompany As NotesView<br />
Dim docCompany As NotesDocument<br />
<br />
Set viewCompany = db.getView(&quot;vUNID&quot;)<br />
<br />
Do While Not doc Is Nothing<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set docCompany = viewCompany.GetDocumentbyK<wbr />ey(docComp<wbr />any.PlanNa<wbr />me(0))<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set doc = viewCompany.getmynextdocum<wbr />ent(doc)<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;doc.MainID = docCompany.MainID<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Call doc.MakeResponse<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Call doc.Save (True, True)<br />
Loop<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br />
End Sub
</div>


<div>
LOL...at least I can laugh during this learning process!<br />
<br />

</div>


<div>
:-))<br />
<br />
1/ The key in the company view should correspond to the first sorted column of the view (PlanName) and not to the UNID (I guess that's what you did).<br />
<br />
2/ Call doc.MakeResponse(docCompan<wbr />y)<br />
<br />
3/ You'd better test the result whether a search resulted in a document<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If Not docCompany Is Nothing Then 
</div>


<div>
I have no idea why I am not getting this - I mean if I could understand this I think it would also answer my other question I have out there about getting a term date. <br />
<br />
1. The Company view have the first column with PlanName (asc/cat) and the second column is the UNID <br />
<br />
2. The contact view has the first column with Plan Name (asc) and the second column is the field to import the UNID into from the Company.<br />
<br />
<br />
How about this:<br />
<br />
&nbsp; Dim workspace As New NotesUIWorkspace<br />
&nbsp; Dim uidoc As NotesUIDocument &nbsp; &nbsp;<br />
&nbsp; Dim Company As String<br />
&nbsp;<br />
&nbsp; Dim db As NotesDatabase<br />
&nbsp; Dim view As NotesView<br />
&nbsp; Dim doc As NotesDocument<br />
<br />
&nbsp; Set uidoc = workspace.CurrentDocument &nbsp; &nbsp;<br />
&nbsp; Company = uidoc.FieldGetText( &quot;PlanName&quot; )<br />
<br />
&nbsp; Set db = New NotesDatabase( &quot;&quot;, &quot;&quot;&nbsp;)<br />
&nbsp; Set view = db.GetView( &quot;Contact&quot; )<br />
&nbsp; Set doc = view.GetDocumentByKey( Company )<br />
&nbsp; Call uidoc.FieldSetText _<br />
&nbsp; ( &quot;MainID&quot;, doc.MainID( 0 ) )<br />
&nbsp; Call doc.MakeResponse(doc.Compa<wbr />ny)<br />
&nbsp; Call doc.Save (True, True)<br />

</div>


<div>
Tried a different version - someone else said that since I am importing the data as a reponse doc that I do not need the MakeResponse - so I have this now:<br />
<br />
Thoughts, change, suggested other employement since I dont get this....<br />
<br />
Sub Initialize()<br />
Dim Session As NotesSession<br />
Dim Db As NotesDatabase<br />
Dim View As NotesView<br />
Dim Doc As NotesDocument<br />
Dim key As String<br />
<br />
Set Session = New NotesSession<br />
Set Db = Session.CurrentDatabase<br />
Set view = Db.GetView(&quot;Advisor&quot;) 'This is the view that has my docs in I want to update<br />
Set doc = view.GetFirstDocument<br />
key = doc.PlanName(0)<br />
<br />
Dim DbOther As NotesDatabase<br />
Dim ViewOther As NotesView<br />
Dim docOther As NotesDocument<br />
Set ViewOther = db.getView(&quot;Company&quot;)<br />
<br />
Do While Not doc Is Nothing<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set docOther = view.GetDocumentByKey( key )<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;doc.MainID = docOther.MainID(0)<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Loop
</div>


<div>
Ah, wait... The last few lines should at least read:<br />
<br />
&nbsp; &nbsp; &nbsp; If Not docOther Is Nothing Then<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; doc.MainID = docOther.MainID(0)<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call doc.makeResponse(docOther)<wbr /><br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Call doc.Save(True, False)<br />
&nbsp; &nbsp; &nbsp; End If<br />
&nbsp; &nbsp; &nbsp; Set doc= nextDoc<br />
Loop
</div>


<div>
That is what I have, two imports. &nbsp;Once is the company and the other is the contacts with the first column being the company name. <br />
<br />
Okay So let me see if I understand what you wrote. <br />
<br />
The beginning part is the declarations<br />
<br />
The getview &quot;Advisor&quot;, this is the view I want to update the documents in<br />
<br />
Then going to the viewother &quot;Company&quot; - this is the view I want to get data from<br />
<br />
Then the part you wrote says - go to the next doc, and the key is going to be PlanName in the Company View. &nbsp;Then I want the field MainID on the main document in the Advisor view to be the same as the MainID from the Company view? and then making the document a response?<br />
<br />
Am I at least understanding how this works? &nbsp;It would be helpful to make sure i get it. I have another database that it would be helpful to use this code to update with term dates from a library database. OH to early to think about that...<br />
<br />
<br />
<br />

</div>


<div>
I ran the code this morning and it was not working. So I added a msg box to display the docOther.MainID(0) and it is look at at the advisor view to pull that value, not the Company view which has the UNID in the MainID field.<br />
<br />
I wrote this to see if I could display the mainID from the company form and this worked<br />
<br />
Sub Initialize ()<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim session As New NotesSession<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim db As NotesDatabase<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim view As NotesView<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim doc As NotesDocument<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim nextdoc As NotesDocument<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim key As Variant<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set db = session.CurrentDatabase<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set view = db.getview(&quot;Company&quot;)<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set doc = view.GetFirstDocument<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Do While Not doc Is Nothing<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set nextdoc = view.GetNextDocument(doc)<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;key = doc.MainID(0)<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;MsgBox key<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set doc = nextdoc<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Loop<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br />
Now i am just trying to figure out how to put them together.
</div>


<div>
Well it runs with no errors but when I did the debugger it is getting to If Not docOther is nothing and then skipping the three lines and looping back.<br />
<br />
Then I was getting object variable not set on the doc.MainID = docOther.MainID(0)
</div>


<div>
Did you see the difference with your code? Only 5 letters... ;-)
</div>


<div>
No, i dont see the difference....adding the end if before the loop?<br />
<br />
Serious banging of head on desk at this point. I get it to run w/o errors but not updating. &nbsp;Call Save, Call Refresh???
</div>


<div>
You were searching the wrong view.<br />
<br />
&nbsp; &nbsp; &nbsp; Set docOther = viewOther.GetDocumentByKey<wbr />( key )<br />
<br />
Now it searches the companies view.
</div>


<div>
seriously...............<br />
<br />
ugh
</div>


<div>
when I run all the codes, I still get a object variable not set on the<br />
<br />
doc.MainID = docOther.MainID(0)<br />
<br />
I dont get it , I mean the doc = Notes Document and docOther = notes document so they have been declared. 
</div>


<div>
What's the current code?<br />
And do you use the debugger to test-drive your code?<br />
You could also add error trapping code:<br />
- at the start, add a line with<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;On Error Goto oops<br />
- just before the End Sub, add<br />
exitsub:<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Exit Sub<br />
oops:<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Error Err, Error$ &amp;&nbsp;&quot; on line &quot;&nbsp;&amp; Erl<br />
<br />
You might even consider more and better error handling code, as described here: <br />
<a href="http://www.ferdychristant.com/blog//articles/DOMM-6BPT8R" rel="ugc">http://www.ferdychristant.com/blog//articles/DOMM-6BPT8R</a><br />
<br />
And, declared or not, the message is: you use an empty object variable, i.e. one not initialized with an object. Ut could be DbOther for example, if it's still there.
</div>


<div>
I really really hate to say this - but it was the data<br />
<br />
The documents were not importing correctly but, I fixed that this morning and ....<br />
<br />
IT WORKED...IT WORKED IT WORKED IT WORKED (Yes, I did a dance in the aisle and my cube mates think I am nuts). &nbsp;Thank you thank you<br />
<br />
As usual, Sjef, you have saved me. &nbsp;I always learn so much from you. I am going to go back now and do the Error Trap and learn more about that!<br />

<pre><code class="code-10 nolinks" id="code-8206897"><span>Do While Not doc Is Nothing</span>
<span>      Set nextDoc= view.GetNextDocument(doc)</span>
<span>      key = doc.PlanName(0)</span>
<span>      Set docOther = viewOther.GetDocumentByKey( key )</span>
<span>      If Not docOther Is Nothing Then</span>
<span>            doc.MainID = docOther.MainID</span>
<span>            Call doc.makeResponse(docOther)</span>
<span>            Call doc.Save(True, False)</span>
<span>      End If</span>
<span>      Set doc= nextDoc</span>
</code></pre>
</div>


<div>
<div class="content wysiwyg-content">
Can anyone explain to me how to import response documents?<br />
<br />
I have a document that has company profiles in it and each company can have various contacts. I created a Contact form with the companies and then a Contact form that is a response form to the Company form. &nbsp;I have imported the companies but now when I try to import the contacts they are coming in as main documents and not a response back to the company? I have been reading the forums and searching the web and still have not found an answer that is helpful.<br />
<br />
Thank you so much for any assistance!<br />

</div>
</div>


Can anyone explain to me how to import response documents?

I have a document that has company profiles in it and each company can have various contacts. I created a Contact form with the companies and then a Contact form that is a response form to the Company form.  I have imported the companies but now when I try to import the contacts they are coming in as main documents and not a response back to the company? I have been reading the forums and searching the web and still have not found an answer that is helpful.

Thank you so much for any assistance!


Import Response Documents

Lotus Software produced the Lotus 1-2-3 spreadsheet program, and later developed Lotus Notes, a groupware and email system. Following its acquisition by IBM, the Notes and Domino client/server collaborative platform were expanded to include functions such as email, calendars, to-do lists, contacts management, teamrooms, discussion forums, file sharing, microblogging, instant messaging, blogs, and user directories. IBM also release SmartSuite, a comprehensive office suite, and followed that with Symphony, unrelated to the Lotus suite of the same name.