Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim TargetRow As String
    Dim TargetID As String
    
    If Not Intersect([Т.СписокЗаказов_Упаковка], Target) Is Nothing Then
        TargetID = Intersect([Т.СписокЗаказов_Упаковка[ID]], Target.EntireRow).Value
        If TargetID <> "" Then

        ' При клике на стоимости открываем лист оплат
            If Not Intersect([Т.СписокЗаказов_Упаковка[Полная стоимость]].Resize(, 4), Target) Is Nothing Then
                Call CopyOrderNameToPayForm(CInt(TargetID))       '<===================         
                Exit Sub
            End If

            ' При клике на ID открываем карточку заказа
            If Not Intersect([Т.СписокЗаказов_Упаковка[ID]].Resize(, 4), Target) Is Nothing Then
                Call FOrderInfo.Show(vbModeless)
                Exit Sub
            End If
            
        ' При клике в любом другом месте строки - открываем заказ
            LoadOrder (TargetID)

        End If
    End If
End Sub