Reposting document which is created on base of another document

Procedure Posting(Cancel, PostingMode)
   Query = New Query;
   Query.Text = 
   "SELECT
   |   SecondDoc.Ref
   |FROM
   |   Document.SecondDoc AS SecondDoc
   |WHERE
   |   SecondDoc.BaseDoc = &Ref";
   
   Query.SetParameter("Ref", Ref);
   
   ResultSelection = Query.Execute().Choose();
   While ResultSelection.Next() Do
      DocObject = ResultSelection.Ref.GetObject();
      DocObject.Write(DocumentWriteMode.Posting);
   EndDo;
EndProcedure