Получить список товаров счета. Delphi + 1С

@Vyazan · Регистрация: 19.03.2012

Студворк — интернет-сервис помощи студентам

Здравствуйте!
Никак не могу решить данную проблему. Есть код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  ole1C,Data1c:OleVariant;
begin
  Base1c:=CreateOleObject('V83.Application');
  Base1C.Connect('File="E:\1С\Базы\Бухгалтерия Радиоприбор"');
 
  if not VarIsEmpty(Base1C) then
  begin
    Ole1C:=Base1C.Документы.СчетНаОплатуПокупателю;
    Data1c:=Ole1C.Выбрать();
 
    while Data1c.Следующий() do begin
      ListBox1.Items.Add(trim(Data1c.Контрагент.Наименование));
    end;
  end;
 
 
end;

Так я получаю контрагентов по счетам. А как получить список товаров в счете ума не приложу. Google ничего не знает. Надеюсь на Вашу помощь. Спасибо!
P.S.: Модератор, извини, если раздел все таки не правильную выбрал.

Tklwegsd · 02.08.2017, 20:25

Видимо, проблема в преобразовании типов между программами.

Добавлено через 1 минуту
1С использует строки в формате Unicode.

Добавлено через 1 минуту
А если так попробовать передать номер:

1C
1
Base1C.Строка('00000000269')

@Vyazan · 02.08.2017, 20:36 **[ТС]**

Delphi
1
 Res:=Base1C.Документы.СчетНаОплатуПокупателю.НайтиПоНомеру(Base1c.Строка('00000000269'));

так тоже не работает. Метод не найден

Tklwegsd · 02.08.2017, 20:45

Без второго параметра метод НайтиПоНомеру не работает.

Сообщение от Vyazan

Метод не найден

Какой конкретно?

@Vyazan · 02.08.2017, 20:49 **[ТС]**

Base1c.Строка

@Dethmontt · 02.08.2017, 21:01

Сообщение от Vyazan

Res:=Base1C.Документы.СчетНаОплатуПокупа телю.НайтиПоНомеру(Base1c.Строка('000000 00269'));

Вообще должно быть вот так, маршалинг примитивные типы сам приводит к нужным...

Delphi
1
Res:=Base1C.Документы.СчетНаОплатуПокупателю.НайтиПоНомеру('00000000269', <как на делфи получить тип DateTime?>);

@Vyazan · 02.08.2017, 21:07 **[ТС]**

Res:=Base1C.Документы.СчетНаОплатуПокупа телю.НайтиПоНомеру('00000000269',strtoda te('31.12.2017')); Не найден счет

@Dethmontt · 02.08.2017, 21:15

Vyazan, А он точно там есть?

Добавлено через 1 минуту

Сообщение от Vyazan

НайтиПоНомеру

я этим методом вообще никогда не пользовался...

@Vyazan · 02.08.2017, 21:18 **[ТС]**

Какая ирония... На работе и дома одна конфигурация, но дома база старая, по этому 269 счет не находил. Прошу прощения за такую досадную невнимательность.
Правильный вариант:

Delphi
1
Res:=Base1C.Документы.СчетНаОплатуПокупателю.НайтиПоНомеру('00000000259',strtodatetime('31.12.2017'));

Всем спасибо за старания и помощь. Буду пробовать связать все это в одно теперь

@Dethmontt · 02.08.2017, 21:19

Vyazan, переделай на запрос, будет меньше проблем...
Как вытащить из 1С мои задачи из конфигурации документооборот

Tklwegsd · 02.08.2017, 21:22

Сообщение от Dethmontt

Vyazan, А он точно там есть?

Класс!

@Vyazan · 02.08.2017, 21:36 **[ТС]**

Попробую на запрос переделать, но как-нибудь потом. Подозреваю, после очередного тупняка.

@Dethmontt · 02.08.2017, 21:37

Сообщение от Tklwegsd

Класс!

было бы прикольнее если бы вы там нашли его!!!

Tklwegsd · 02.08.2017, 22:00

Vyazan, Кстати, почему выбор пал на V83.Application, а не V83.COMConnector?

@Vyazan · 02.08.2017, 22:20 **[ТС]**

Все банально и просто. На работе стоит лицензия 1с, дома - пиратка. На работе пробовал затестить через COMConnector - ошибка лицензии вылетала, а через V83.Application - нет. Собственно по-этому. Вообще надо потом перейти на COMConnector, потому-что, 1с и моя прога не хотят одновременно работать. Типа, занята база и всё тут.

@Dethmontt · 02.08.2017, 22:38

Сообщение от Vyazan

V83.Application, COMConnector,

И то и то берут лицензию, разница только в следующем:
1. Аппликэйшн - полноценное клиентское приложение, создает свой процесс. Требуется установленный клиент на компьютере
2. СомКоннектор - отдельная библиотека, запускается в вызывающем процессе, создает свой OLE сервер. Требуется зарегистрированная компонента ComCtrl.dll (использует библиотеки клиентского приложения)

Добавлено через 2 минуты
Аппликэйшн не является внешним соединение, в отличии от КомКоннектора. Это просто эмуляция действий пользователя

@Vyazan · 02.08.2017, 22:43 **[ТС]**

Сообщение от Dethmontt

И то и то берут лицензию, разница только в следующем:
1. Аппликэйшн - полноценное клиентское приложение, создает свой процесс. Требуется установленный клиент на компьютере
2. СомКоннектор - отдельная библиотека, запускается в вызывающем процессе, создает свой OLE сервер. Требуется зарегистрированная компонента ComCtrl.dll (использует библиотеки клиентского приложения)
Добавлено через 2 минуты
Аппликэйшн не является внешним соединение, в отличии от КомКоннектора. Это просто эмуляция действий пользователя

Спасибо, возьму на заметку.

Не по теме: ААА... Я цитату вставлять научился тут

@Dethmontt · 02.08.2017, 22:49

Сообщение от Vyazan

Не по теме: ААА... Я цитату вставлять научился тут

выделил мышой нужный кусочек, под ним появиться всплывающая кнопка - цитировать

Новые блоги и статьи Все статьи Все блоги /
Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .	Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .
Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .	Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .	Цена ошибки DevAlt 23.08.2026 Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .

@Vyazan 12 / 12 / 2 Регистрация: 19.03.2012 Сообщений: 175
	02.08.2017, 20:49 [ТС]
	Base1c.Строка 0

@Vyazan 12 / 12 / 2 Регистрация: 19.03.2012 Сообщений: 175
	02.08.2017, 21:07 [ТС]
	Res:=Base1C.Документы.СчетНаОплатуПокупа телю.НайтиПоНомеру('00000000269',strtoda te('31.12.2017')); Не найден счет 0

@Dethmontt Модератор 4032 / 2977 / 594 Регистрация: 10.03.2011 Сообщений: 11,701 Записей в блоге: 1
	02.08.2017, 21:19
	Vyazan, переделай на запрос, будет меньше проблем... Как вытащить из 1С мои задачи из конфигурации документооборот 1

@Vyazan 12 / 12 / 2 Регистрация: 19.03.2012 Сообщений: 175
	02.08.2017, 21:36 [ТС]
	Попробую на запрос переделать, но как-нибудь потом. Подозреваю, после очередного тупняка. 0

Tklwegsd 845 / 608 / 211 Регистрация: 24.07.2013 Сообщений: 2,102
	02.08.2017, 22:00
	Vyazan, Кстати, почему выбор пал на V83.Application, а не V83.COMConnector? 0

@Vyazan 12 / 12 / 2 Регистрация: 19.03.2012 Сообщений: 175
	02.08.2017, 22:20 [ТС]
	Все банально и просто. На работе стоит лицензия 1с, дома - пиратка. На работе пробовал затестить через COMConnector - ошибка лицензии вылетала, а через V83.Application - нет. Собственно по-этому. Вообще надо потом перейти на COMConnector, потому-что, 1с и моя прога не хотят одновременно работать. Типа, занята база и всё тут. 0