---

Private Sub grpPay_AfterUpdate()
    Select Case Me.grpPay
        Case 1
            Me.Filter = "КатегорияОплаты = 'нал'"
            Me.FilterOn = True
        Case 2
            Me.Filter = "КатегорияОплаты = 'безнал'"
            Me.FilterOn = True
        Case 3
            Me.FilterOn = False
    End Select
End Sub