ОБЩИЕ

Главная

МОЙ КАБИНЕТ

Корзина
Заказы
Профиль

СКАЧАТЬ

Дистрибутивы

ЦЕНЫ

Прайс-лист

СВЯЗЬ

Форум
Техподдержка
Контакты

СОТРУДНИЧЕСТВО

Стать дилером
Вакансии


Команда RegionSoft:
"Мы создаем решения, которые
делают Ваш бизнес эффективнее!"
 

Логин:

Пароль:






Я забыл пароль


НАВИГАТОР


+ RegionSoft CRM. Использование конфигуратора
- Конфигуратор для чайника
- Работа в конфимгураторе
- Изменения в отчете "конверт"
- Редактирование формы счёта на оплату
- ShellExecute в конфигураторе.
- Фактический индекс клиента в письме
- Изменения в БД через конфигуратор.
- Использование компонентов других модулей в кофигураторе для формы.
- Нужен скрипт для выгрузки базы данных в excel
- Регион и район в конфигураторе
- Как восстановить удаленных клиентов или контакты
- Что можно сделать с помощью конфигуратора?
- Пример кастомизированного отчета
- Как поставить на автомат вывод Отчета
- Как узнать название объектов в карточке клиента?
- Как добавить фирменную шапку в печатную форму счета
- Как попасть в конфигуратор
- Пример интеграции с 1С
- Как убрать неиспользуемые вкладки в карточке клиента?
+ RegionSoft CRM. Установка, настройка, эксплуатация


ВАШИ ПРАВА

Сейчас Вы не можете даже добавлять сообщения, поскольку Вы не авторизованы. Пожалуйста, авторизуйтесь.


 Форум: 'RegionSoft CRM. Использование конфигуратора'
 ТЕМА: Пример интеграции с 1С 
Автор темы: A4E
Тема создана: 2009-11-11 14:09:44

В этой теме приведем простейший пример работы с 1С из RegionSoft CRM

Следующий скрипт показывает по нажатию кнопки на главной форме первые 5 записей из справочника контрагентов:

procedure 1cbutclick;
var
V8, spr, RowSpr: Variant;
FullName, INN: String;
i: Integer;

begin
// Создаем объект 1С версии 8.1 (номер версии смотрите, например, в реестре windows)
V8 := createoleobject('V81.Application');
// Коннектимся к базе. Введите реальные путь к базе, логин и пароль
V8.Connect('File="path";Usr="user";pwd="password"');
ShowMessage('Соединение установлено');
spr := V8.Справочники.Контрагенты.Select(); // Инициализируем справочник
i := 0;
while (spr.Next) and (i < 5) do begin // Выберем первые 5 записей
inc(i);
RowSpr:=Spr.GetObject();
FullName := RowSpr.НаименованиеПолное;
INN := RowSpr.ИНН;
ShowMessage(Format('%d %s %s %s', [i, RowSpr.Code, INN, FullName])); // Выводим
end;
V8.Exit; // Выходим из 1С
V8 := NULL; // Освобождаем объект

end;

var
but1c: Tbutton;

begin
but1c := TButton.Create(fMain.pLeftInner); //Создаем кнопку
but1c.parent := fMain.pLeftInner;
but1c.Name := 'But1c';
but1c.Caption := '1C';
but1c.SetBounds(3, 430, 185, 30);
but1c.OnClick := @1cbutclick; // Назначаем процедуру
end.
A4E
2009-11-11 14:44:25

Этот сайт защищен международными и российскими законами об авторском праве.
Перепечатка, а также любое другое воспроизведение материалов сайта без письменного разрешения администрации - запрещена.
RegionSoft CRM - Автоматизация бизнеса Copyright (C) 2001-2018 RegionSoft Developer Studio