Получить список товаров счета. 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

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

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

Новые блоги и статьи Все статьи Все блоги /
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .
Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .

@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