' Project Script
Private Sub Batch_BeforeMovePage(pTargetXDocInfo As CASCADELib.CscXDocInfo, ByVal TargetPageIndex As Long, pSrcXDocInfo As CASCADELib.CscXDocInfo, ByVal SrcPageIndex As Long, bCancel As Boolean) 
   If pTargetXDocInfo.Filename <> pSrcXDocInfo.Filename Then 
      bCancel = True 
   End If 
End Sub 

The following code shows how the user must reconfirm the first field of any document affected by a "Move Page" operation.

' Project Script
Private Sub Batch_AfterMovePage(pTargetXDocInfo As CASCADELib.CscXDocInfo, ByVal TargetPageIndex As Long, pSrcXDocInfo As CASCADELib.CscXDocInfo, ByVal SrcPageIndex As Long) 
   ' pSrcXDocInfo might be nothing if the last page was removed 
   If Not pSrcXDocInfo Is Nothing Then 
      ' field count might be 0 if the documents are still unclassified 
      If pSrcXDocInfo.XDocument.Fields.Count > 0 Then 
         pSrcXDocInfo.XDocument.Fields(0).Valid = False 
         pSrcXDocInfo.XDocument.Fields(0).ErrorDescription = "Please confirm ths field again because a page was removed." 
      End If 
   End If 
' field count might be 0 if the document is still unclassified 
   If pTargetXDocInfo.XDocument.Fields.Count > 0 Then 
      pTargetXDocInfo.XDocument.Fields(0).Valid = False 
      pTargetXDocInfo.XDocument.Fields(0).ErrorDescription = "Please confirm this field again because a page was inserted." 
   End If 
End Sub