Гость
Форумы / [игнор отключен] [закрыт для гостей] / Получение товаров и т.п. через OLE / 5 сообщений из 5, страница 1 из 1
26.07.2013, 18:18
    #38345852
Slash232
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получение товаров и т.п. через OLE
Задача стоит в том чтобы получить посредством моей программы через OLE: Код товара 1С,Наименование товара 1С, Артикул товара 1С, Единицу измерения 1С и его Остаток товара 1С. Поэкспериментировав понял, что самый быстрый способ получения этих данных - использовав функцию написанную в глобальном модуле 1С Бухгалтерия. Моя программа написана на VB6. Код на использование функции:

Код: vbnet
1.
test = OneC.EvalExpr("глОстатокVB")



В языке 1С разбираюсь очень слабо. Может кто нибудь помочь в написании функции?
...
Рейтинг: 0 / 0
29.07.2013, 08:16
    #38346964
DmitriyZ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получение товаров и т.п. через OLE
Slash232, сколько готовы заплатить?
...
Рейтинг: 0 / 0
29.07.2013, 11:23
    #38347115
Владимир Лазурко
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получение товаров и т.п. через OLE
По моему опыту работы с 1С по ОЛЕ скажу, что лучше все запросы/выборки и т.п. выполнять на стороне 1С.
В этом помогут экспортные функции, вроде Вашей глОстатокVB

Насколько я понял, уже есть некий каркас подключения к 1С из VB.

Вот пример кода из 8-ки, который можно адаптировать "под себя":

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
	// Создание подключения через COM
	V8 = Новый COMObject("V81.COMConnector");
	Попытка
		COMПодключение = V8.Connect(мСтрокаСоединения);
	Исключение
		#Если Клиент Тогда
			Предупреждение("База данных не открыта!
			|" + ОбщегоНазначения.СформироватьТекстСообщения(ОписаниеОшибки()));
		#КонецЕсли
		Возврат;
	КонецПопытки;

	...

	Запрос = COMПодключение.NewObject("Запрос");
	Запрос.Текст =
	"ВЫБРАТЬ
	|	ПродажиОбороты.Склад.Наименование КАК НаименованиеМагазина,
	|	ПродажиОбороты.Склад.Код КАК КодМагазина,   // строка, видна везде
	|	ПродажиОбороты.Склад КАК Магазин,           // ссылка, видна только на стороне ОЛЕ
	|	ПродажиОбороты.Номенклатура.Намиенование КАК НаименованиеТовара,
	|	ПродажиОбороты.Номенклатура.Код КАК КодТовара,
	|	СУММА(ПродажиОбороты.КоличествоОборот) КАК Количество,
	|	СУММА(ПродажиОбороты.СтоимостьОборот) КАК Сумма
	|ИЗ
	|	РегистрНакопления.Продажи.Обороты(&ДатаНач, &ДатаКон, , ) КАК ПродажиОбороты
	|
	|СГРУППИРОВАТЬ ПО
	|	ПродажиОбороты.Номенклатура.Наименование,
	|	ПродажиОбороты.Номенклатура.Код,
	|	ПродажиОбороты.Склад.Наименование,
	|	ПродажиОбороты.Склад.Код
	|
	|УПОРЯДОЧИТЬ ПО
	|	Магазин,
	|	Номенклатура
	|АВТОУПОРЯДОЧИВАНИЕ";
	
	Запрос.УстановитьПараметр("ДатаНач", НачалоДня(ВыбДата));
	Запрос.УстановитьПараметр("ДатаКон", КонецДня(ВыбДата));
	Выборка = Запрос.Выполнить().Выбрать();



Можно сразу получить и таблицу значений по OLE, но для ссылок это будет "потусторонний" объект, доступный только на стороне ОЛЕ, а простые типы - строка, число - будут доступны на стороне получателя.
Код: sql
1.
ТЗ = Запрос.Выполнить().Выгрузить();
...
Рейтинг: 0 / 0
29.07.2013, 11:44
    #38347147
Slash232
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получение товаров и т.п. через OLE
Вариант только один вижу - это реально функция на стороне 1С в глобальном модуле. Сколько хотите?
...
Рейтинг: 0 / 0
29.07.2013, 13:53
    #38347331
DmitriyZ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получение товаров и т.п. через OLE
Slash232Вариант только один вижу - это реально функция на стороне 1С в глобальном модуле. Сколько хотите? Да я так просто спросил :) с такой ерундой не связываюсь. Возможно, лучше разместить пост в разделе "Работа"?
...
Рейтинг: 0 / 0
Форумы / [игнор отключен] [закрыт для гостей] / Получение товаров и т.п. через OLE / 5 сообщений из 5, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]