---

Private Sub Report_Open(Cancel As Integer)

    Dim inArgs() As String

    If Not IsNull(Me.OpenArgs) Then
        inArgs = Split(Me.OpenArgs, "|")
        
        If UBound(inArgs) - LBound(inArgs) + 1 > 1 Then
            Me.Filter = "[НомерЗаказа]=" & inArgs(1)
            Me.FilterOn = True
        End If
    End If

End Sub