Создать фильтр для Выборки дкоументов на Visual Basic.

[Гыук]

Кто-нибудь знает, как реализовать выборку документов с использованием Отбора (т.е. по сути фильтра) на Visual Basic?
Вот начало кода:

Код:

Public Sub Main()

Dim Obj As New V81.COMConnector
Dim Connection As Object

Set Connection = Obj.Connect("Srvr=""192.168.0.168"";SQLSrvr=""192.168.0.168"";Ref=""test_db"";SQLDB=""test_db"";Usr=""user777"";Pwd=""777"";")
MsgBox ("Connect!")

Set Struct = Connection.NewObject("Структура")

'Struct.Вставить("Почта",asd)


MsgBox ("lol")


End Sub

Я не очень знаком с синтаксисом, и у меня не получается добавить в структуру КлючЗначение, т.е. выполнить Вставить, потому что не знаю, как это правильно записать.

[Гыук]

Т.е. для Отбора нужно создать тип Структура. Я подсоединился через КОМ к 1С, теперь создал тип Структура, но надо же его заполнить, и передать методу Выборка. Вот и не получается это сделать.

[Kivals]

Создал именно структуру 1С? Как именно? (код сюда)
(просто если ты структуру уже создал - то заполнить ее просто: тем же способом; а передать еще легче)

[Гыук]

Там же в коде выше все написано, как я создал. Через NewObject.
Дальше надо использовать метод "Вставить", но как в VB это написать, я не знаю. Он не хочет выполнять просто метод, ему нужно присваивание, или я просто не знаю.

[Гыук]

Я разобрался, как делать:)
Вот, например:

Код:

Public Sub Main()

Dim Obj As New V81.COMConnector
Dim Connection As Object

'Соединение
Set Connection = Obj.Connect("Srvr=""192.168.0.168"";SQLSrvr=""192.168.0.168"";Ref=""test_db"";SQLDB=""test_db"";Usr=""user777"";Pwd=""777"";")
MsgBox ("Connect!")

'Структура
Set Struct = Connection.NewObject("Структура")

'Заполнение структуры
TempPut = Struct.Вставить("Почта", asd)
TempPut = Struct.Вставить("Компания", "1С")
TempProperty = Struct.Свойство("Компания")
TempCount = Struct.Количество()

'Проверка
MsgBox ("Property: " & TempProperty)
MsgBox ("Count: " & TempCount)

MsgBox ("lol")


End Sub

[Гыук]

Структуру создать получилось. Возникла новая проблема: хочу теперь передать структуру ("Отбор") в качестве параметра методу Выбрать, но возникает ошибка при реализации метода. Возможно он не принимает тип созданной мной Структуры или что-то другое. Кто-нибудь знает, что делать?

Вот код:

Код:

Public Sub Main()

Dim Obj As New V81.COMConnector
Dim Connection As Object
Dim Selection As Object
Dim SelectObj As Object
Dim MetaData As Object
Dim Struct As Object


'Соединение
Set Connection = Obj.Connect("Srvr=""192.168.0.168"";SQLSrvr=""192.168.0.168"";Ref=""test_db"";SQLDB=""test_db"";Usr=""user777"";Pwd=""777"";")
MsgBox ("Connect!")

'Структура
Set Struct = Connection.NewObject("Структура")

'Заполнение структуры
'TempPut = Struct.Вставить("Почта", asd)
TempPut = Struct.Вставить("Компания", "1C")
TempProperty = Struct.Свойство("Компания")
TempCount = Struct.Количество()

'Проверка
MsgBox ("Property: " & TempProperty)
MsgBox ("Count: " & TempCount)

'Выборка документов
Set Contr = Connection.Документы.Контрагенты
Set Selection = Contr.Выбрать("20090101", "20091231", Struct)

'Цикл по элементам документов, получение реквизитов
i = 0
Do While Selection.Следующий()
    i = i + 1
    'MsgBox ("i: " & i)
    Set SelectObj = Selection.ПолучитьОбъект()
    Set MetaData = SelectObj.Метаданные()
    Requisite = MetaData.Представление()
    MsgBox ("Requisite: " & Requisite & " " & i)
Loop

MsgBox ("lol")
End Sub

[Kivals]

По-моему не в структуре дело - ты даты как строки передаешь... Попробуй вообще опустить начало-конец периода:
Set Selection = Contr.Выбрать(,, Struct)
И ты уверен, что Set Contr = Connection.Документы.Контрагенты ? Обычно это Connection.Справочники.Контрагенты

[Kivals]

Еще пару важных моментов:
1. Поля, по которым делаешь отбор, должны быть проиндексированы в конфигураторе (Компания)
2. Неужели поле Компания у тебя текстовое, а не справочник?
Struct.Вставить("Компания", "1C") - здесь ты будешь отбирать по тексту

[Гыук]

Короче, фишка была в индексировании.
А если мой реквизит - это ссылка на справочник? То что надо в качестве Значения Ключа передавать?

[Kivals]

Создать объект типа справочник-менеджер:
Ref=Connection.NewObject("Справочники.Компании")
или
Ref=Connection.Справочники.Компании
Найти нужный элемент
RefLink=Ref.НайтиПоНаименованию("1C")
(см. в справке - возможны другие методы поиска и различные параметры)
и полученную ссылку передать
Struct.Вставить("Компания", RefLink)