Function SERVICE_CreateAlternateResponse (docParent As NotesDocument, docChildren As NotesDocument, refItemName As String) As Boolean
Dim tmpRefItem As NotesItem
On Error Goto ErrorHandler
SERVICE_CreateAlternateResponse = False
If docParent Is Nothing Then
Error 1000, "Не передан параметр <docParent>."
End If
If docChildren Is Nothing Then
Error 1001, "Не передан параметр <docChildren>."
End If
If Len(refItemName) = 0 Then
Error 1002, "Не передан параметр для функции <refItemName>."
Exit Function
End If
Call docChildren.MakeResponse (docParent)
Set tmpRefItem = docChildren.GetFirstItem ("$Ref")
While docChildren.HasItem (refItemName)
Call docChildren.RemoveItem (refItemName)
Wend
Call docChildren.CopyItem (tmpRefItem, refItemName)
Call docChildren.RemoveItem ("$Ref")
SERVICE_CreateAlternateResponse = True
Ex:
Exit Function
ErrorHandler:
Call ProcessError (LIB_NAME, Err, Error, Erl, Lsi_info(2), Lsi_info(12))
Resume Ex
End Function