ensure that author fields refresh/recalculate on child/response documents

child document generation code :
Sub QuerySave(Source As Notesuidocument, Continue As Variant)
	
	On Error Goto catcherror
	
	Dim sess As New Notessession
	Dim doc As notesDocument
	Dim varDocStatus As Variant
	
	Set doc = Source.Document
	varDocStatus = doc.DocStatus
	
	
        ' Check if child documents have been generated already '
	
	If doc.ChildDocGenerated(0)<>"1" Then
		
		If doc.DocStatus(0) = "Document Selection Approved" Then
			
               ' No need to declare doc here, we have it already '
			Dim db As NotesDatabase
			
			Set db = sess.CurrentDatabase
			
			Dim newDoc As NotesDocument
			
			
              ' Generate child documents '
			
               ' first values and labels '
			Dim varReqDocCheck As Variant
			Dim varDocName As Variant
               ' second values and labels '
			Dim varReqDocList As Variant
			
			Dim varReqDocsApproved As Variant
			Dim varReqDocsAppDate As Variant
			Dim varReqDocCheck_1 As Variant
			Dim varsysdocstatus1 As Variant
			
			
			varsysdocstatus1 = "PENDING"
			varReqDocCheck = doc.ReqDocCheck
			varReqDocCheck_1 = doc.ReqDocCheck_1
			varReqDocList = doc.ReqDocList
			varDocName = doc.DocName
			varDocStatus = doc.DocStatus
			varReqDocApproved = doc.ReqDocsApproved
			varReqDocsAppDate = doc.ReqDocsAppDate
			varProdManager = doc.ProdManager
			
			Dim i As Integer ' value counter '
			i = 0
			
			doc.DocStatus = "Document Selection Approved"
			doc.ReqDocsApproved = sess.CommonUserName
			doc.ReqDocsAppDate = Now()
			
			Forall elem In varReqDocCheck
               ' **** create a new document object ***
				Set newDoc = db.CreateDocument()
				newDoc.Form = "sysspecs" 
				newDoc.DocManager = doc.ProdManager
				newDoc.SequenceField = doc.SequenceField(0) + "-" + elem    'e.g. put field value in seq
				newDoc.DocName = varReqDocCheck(i)
				newDoc.SysStatus = varsysdocstatus1
				newDoc.sysNumber_1 = doc.number
				newDoc.sysDesignation = doc.Designation
				newDoc.sysCompany= doc.Company
				newDoc.sysProductrName = doc.ProductName
				newDoc.DspProdManager= doc.ProdManager
				newDoc.sysProdIntroDate_1 = doc.ProdIntroDate
				newDoc.sysCreatedDate= doc.CreatedDate
				newDoc.sysAttachments= doc.Attachments
				
				i = i + 1
				Call newDoc.MakeResponse( doc )
				Call newDoc.Save( True, False, True )
				
			End Forall
			
			
                        ' All documents generated, '
                        ' MARK a hidden flag field '
			doc.ChildDocGenerated = "1"
			
		End If  
	End If
	
	Exit Sub ' Exit here, if no errors occur '
	
catcherror:
   ' Print error description on Status bar:
	Print "ERROR in QuerySave"": "  & Str(Err) _
	& " " & Error$ & " on row " & Cstr(Erl)
	Exit Sub
End Sub