Dim Reg1C As Object
Set Reg1C = OneC.CreateObject("Регистр.ОстаткиТоваров")
If Reg1C.ВыбратьИтоги = 1 Then
    Do While Reg1C.ПолучитьИтог = 1 And k < 3
        If Reg1C.ОстатокТовара > 0 Then
            MsgBox Reg1C.Товар.Код _
            & "/" & Reg1C.ОстатокТовара _
            & "/" & Reg1C.Партия.Код _
            & "/" & Reg1C.ОстатокСуммы
            k = k + 1
        End If
    Loop
End If