интеграция 1с | Community Creatio

Интеграция и импорт данных

Разработка

Проблема при интеграии с 1Сv8.1 стандартными средствами

Сергей Жиленко

22 сентября 2010 14:46

Доброе всем время суток!
Проблема такая:
На данный момент внедряем у себя в компании TerrasoftXRM и при интеграции стандартными средствами системы, с 1С вылетает ошибка (показано на скрине)
Соединение происходит по следующему алгоритму:
TerrasoftXRM -> Инструменты -> Интеграции -> Добавить синхронизацию с 1С -> Далее второй скрин параметры соединения, пароля на пользователя нет.
Все делалось как в руководстве и в то же время вот такая проблема.
Заранее спасибо

Нравится

4 комментария

22 сентября 2010 18:45

Есть подозрение, что на машине с которой пытаетесь подключится к 1с не установлена сама 1с.

Ответить

Кривонос Максим

23 сентября 2010 09:51

Возможно у вас на машине не корректно установлена 1С или ее версия отличается (напр. 8.1)

Ответить

Сергей Жиленко

23 сентября 2010 10:12

Так стоп!
Уважаемые форумчане я подключаюсь к базе по сети к расшаренной папке с базой. на машине где стоит Terrasoft, 1С не установлено.
Правельно ли я понял что надо еще ставить 1С и на сервер Terrasoft???

Ответить

Лабьяк Олег Игоревич

23 сентября 2010 10:26

На сервер Terrasoft не обязательно, но 1С должна быть установлена на каждой машине, с которой Вы будете запускать интеграцию с 1С из Terrasoft.

Ответить

Показать все комментарии

Вопрос

Интеграция и импорт данных

Разработка

1С и XRM

Golovatskiy

12 мая 2010 12:53

Подскажите пожалуйсто, при попытке соеденится с базой 1С при помощи утилиты, выскакивает сообщение "Невозможно создание обьекта сервером програмирования обьектов" (!!!) Использую Террасофт XRM(MSSQL) и встроенную утилиту. 1С версии 8.1 , одинаковое сообщение про попытке выгрузить данные из файла 1С, и при попытке связатся в базой 1С в MSSQL.

Нравится

2 комментария

Славянский Евгений

13 мая 2010 10:31

Такое сообщение может появляться если на рабочей станции на которой запущен TSCRM нет клиента 1С или неверно указана версия 1С в настройке соединения.

Ответить

Golovatskiy

13 мая 2010 10:57

"Славянский Евгений" написал:

Спасибо.

Ответить

Показать все комментарии

Публикация

интеграция

Импорт документов "Отгрузка" из xls файлов

24 августа 2009 14:08

Еще одна функция загрузки из .xls
Обработку для выгрузки из 1С выложу немного позднее.

function ImportOffMov() {

  var ExlApp = new ActiveXObject("Excel.Application");

  var WorkBook = ExlApp.Workbooks.Open(xlfile);

  var Sheet = WorkBook.ActiveSheet;    

  var ds_Store = Services.GetNewItemByUSI('ds_Store');

  var ds_Account = Services.GetNewItemByUSI('ds_Account');

  var ds_Offering = Services.GetNewItemByUSI('ds_Offering');

  var ds_OfferingMovement = Services.GetNewItemByUSI('ds_OfferingMovement');

  var ds_OfferingInMovement = Services.GetNewItemByUSI('ds_OfferingInMovement');

  ds_Store.Open();

  ds_Offering.Open();

  ds_Account.Open();

  ds_OfferingMovement.Open();

  ds_OfferingInMovement.Open();

  for(var i=1;iSheet.UsedRange.Rows.Count;i++){

    if(Sheet.Cells(i, 1).Value=='Ш'){

      ds_Account.Locate('INN' , Sheet.Cells(i, 4));

      ds_OfferingMovement.Append();

      ds_OfferingMovement('Number')=Sheet.Cells(i, 2);

      ds_OfferingMovement('AccountID')=ds_Account('ID');

      ds_OfferingMovement('TypeID')='{A48368CD-E28D-458D-8AE8-E2A314186C5C}';

      ds_OfferingMovement('Amount')=Sheet.Cells(i, 5).Value;

      ds_OfferingMovement('Date')=StrToDate(Sheet.Cells(i, 3).Value).getVarDate();

      ds_OfferingMovement.Post();

    }

    if(Sheet.Cells(i, 1).Value=='С'){

      ds_Offering.Locate('OfferingName', Sheet.Cells(i, 2));

      ds_OfferingInMovement.Append();

      ds_OfferingInMovement('OfferingMovementID')=ds_OfferingMovement('ID');

      ds_OfferingInMovement('OfferingID')=ds_Offering('ID');

      ds_OfferingInMovement('UnitName')='Шт.';

      ds_OfferingInMovement('StoreID')=ds_Store('ID');

      ds_OfferingInMovement('Quantity')=Sheet.Cells(i, 4).Value;

      ds_OfferingInMovement('Cost')=Sheet.Cells(i, 3).Value;

      ds_OfferingInMovement('Amount')=Sheet.Cells(i, 5).Value;

      ds_OfferingInMovement('SignedAmount')=Sheet.Cells(i, 5).Value;

      ds_OfferingInMovement('SignedQuantity')=Sheet.Cells(i, 4).Value;

      ds_OfferingInMovement.Post();

    }

  }

  ds_Store.Close();

  ds_Account.Close();

  ds_Offering.Close();

  ds_OfferingMovement.Close();

  ds_OfferingInMovement.Close();

  WorkBook.Close();

  ExlApp.Quit();

}

Нравится

5 комментариев

24 августа 2009 14:11

Антон, снова теги мешают :smile:

Ответить

24 августа 2009 14:13

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

Ответить

Раловец Ольга

25 августа 2009 10:38

ds_OfferingMovement('TypeID')='{A48368CD-E28D-458D-8AE8-E2A314186C5C}';

IDшники желательно определять в скрипте scr_Consts, читать удобнее и в случае изменения нужно будет поправить только в одном месте.

Ответить

Underscore a.k.a. _

25 августа 2009 11:58

И опять же я бы на Update переделал. Хотя по ситуации, конечно. Скажу Вам как новичку: датасеты на массовых апдейтах - зло :)

Ответить

Доленко Юрий

31 августа 2009 16:33

посчитайте строки перед циклом

...
  var RowsCount = Sheet.UsedRange.Rows.Count;
  for(var i=1;i<RowsCount;i++)
...

при больших Excel-файлах заметите невероятное ускорение в скорости )
Видимо коварный ексель при обращению к свойству Count пересчитывает UsedRange...
Была подобная задача. На файлах в 5000 строк разнится по скорости отработки цикла - 10-ки раз.

Ответить

Показать все комментарии

Публикация

интеграция

Импорт остатков номенклатуры из xls файла

24 августа 2009 13:26

Написал вот, вдруг кому будет полезно :)

function ImportStocks(xlsfile) {

  var ExlApp = new ActiveXObject("Excel.Application");

  var WorkBook = ExlApp.Workbooks.Open(xlsfile);

  var Sheet = WorkBook.ActiveSheet;

  var ds_Offering = Services.GetNewItemByUSI('ds_Offering');

  var i = 0;

  var code='';

  var stock='';

  ds_Offering.Open();

  for(var i=1;iSheet.UsedRange.Rows.Count;i++){

    code = Sheet.Cells(i, 2).Value;

    stock = Sheet.Cells(i, 3).Value;

    if (ds_Offering.Locate('OfferingName' , code)){

      ds_Offering.Edit();

      ds_Offering('Available') = stock;

      ds_Offering.Post();

    }

  }          

  ds_Offering.Close();

  WorkBook.Close();

  ExlApp.Quit();

}

Нравится

15 комментариев

24 августа 2009 13:29

Код нужно поправить для читабельности :smile:
А способ хороший - сам часто им пользуюсь для быстрого импорта.

Ответить

24 августа 2009 13:45

Ох.. недоглядел :)
Обязательно подправлю, спасибо за замечание.

Ответить

24 августа 2009 13:48

Кстати, в иногда в таких случаях (при импорте больших таблиц) следует события датасета отключать. Dataset.DisableEvents();

Ответить

24 августа 2009 13:58

Вот, теперь прям красота:smile:

ООО "Лайнсервис"
www.ls-crm.ru

Ответить

24 августа 2009 14:00

Я еще только учусь - фактически второй день работаю с террасофтом.
Очень огорчает, конечно, отсутствие вменяемой документации.
И очень радует наличие хорошего community.
Спасибо :)

Ответить

Underscore a.k.a. _

25 августа 2009 11:54

Ну такой метод, стремный. Я не совсем помню сколько записей будет в датасете после ds_Offering.Open();

Тут два варианта
1) Все. Тогда тянуть на клиент всю таблицу продуктов... Ну не самое оптимальное решение.
2) 40. Тогда ds_Offering.Locate просто не найдет кучу записей.

Я бы не стал так делать. Есть смысл если там хитрая логика, но тогда не нужно делать

"Глова Сергей" написал: Dataset.DisableEvents();

Ответить

25 августа 2009 12:07

"Underscore a.k.a. _" написал:сколько записей будет в датасете после ds_Offering.Open();

в контексте - все записи будут. Если конечно не фильтровали после создания его

ООО "Лайнсервис"
www.ls-crm.ru

Ответить

Underscore a.k.a. _

25 августа 2009 12:24

Просто раньше нужно было FetchRecordsCount = -1 проставлять длятого что-бы все отобрать. Потом это вроде убирали. Блин, простой вопрос в тупик поставил :)
Upd: Проверил - он таки сразу после создания -1 равен.

Ответить

Швец Александр

28 августа 2009 17:24

А как можно использовать эту функцию с вызовом окна выбора самого файла xls для импорта?

---
Конфигурация:
TSCRM 3.3.1.36
Firebird 2.0 (v.2.0.3.12981)

Ответить

28 августа 2009 17:39

Окно выбора файла должно возвратить имя файла - его сюда и передаем как параметр xlsfile

ООО "Лайнсервис"
www.ls-crm.ru

Ответить

Швец Александр

28 августа 2009 18:03

"Александр Кудряшов" написал:Окно выбора файла должно возвратить имя файла - его сюда и передаем как параметр xlsfile

)) то понятно...

If OpenDialog.Execute then ImportStocks(OpenDialog.Filename);

А как это реализовать в TS :smile:

---
Конфигурация:
TSCRM 3.3.1.36
Firebird 2.0 (v.2.0.3.12981)

Ответить

28 августа 2009 18:29

 var FileName = System.CreateObject('TSObjectLibrary.Value');
 if (!(System.OpenDialog(FileName, '*.xls|*.xlsx', EmptyStr, EmptyStr, EmptyStr))) {
  return;
 }
ImportStocks(FileName.Value);

--
www.it-sfera.com.ua

28 августа 2009 18:37

навскидку например так

var FileName = System.CreateObject('TSObjectLibrary.Value');
if (!(System.OpenDialog(FileName, '*.xls', EmptyStr, "Выбор файла Microsoft Excel", EmptyStr))) {
		return;
	}

имя файла вернется в FileName.Value

[опередили уже:smile:]

ООО "Лайнсервис"
www.ls-crm.ru

Ответить

28 августа 2009 18:37

Жизнь такая штука... :wink:

--
www.it-sfera.com.ua

Швец Александр

29 августа 2009 00:29

Спасибо

"Александр Кудряшов" написал:

"Виталий Ковалишин aka samael" написал:

всем и каждому...
Так глядишь и перейду с дельфы)))

---
Конфигурация:
TSCRM 3.3.1.36
Firebird 2.0 (v.2.0.3.12981)

Ответить

Показать все комментарии

Вопрос

Интеграция и импорт данных

Разработка

Передача пустого параметра

7 августа 2009 05:52

Возникла необходимость получить остатки по регистру накопления из Террасофта.
В 1С подобную операцию я бы сделал таким образом :
РегистрыНакопления.ВзаиморасчетыСКонтрагентами.Остатки(ТекущаяДата(), Фильтр);
либо вообще не передавал бы первый параметр
Как это реализовать в террасофте - не понимаю.
При попытке вызова Obj1C.ТекущаяДата() получаю вполне логичное "Объект не поддерживает это свойство или метод"
При попытке оставить пустое место вместо параметра - не менее логичное "Синтаксическая ошибка"
При передаче null или '20090807' - "Несоответствие типов"
Подскажите как быть, пожалуйста.

Нравится

9 комментариев

Евгений Либин

7 августа 2009 10:14

Покажите часть кода как вы вызываете этот регистр

Ответить

7 августа 2009 13:25

Здравствуйте, Антон.
Приведите, пожалуйста, текст Вашей функции. И, если честно, не очень понятно, что значит "остатки по регистру накопления".

8 августа 2009 10:10

Добрый день.
Вот так это выглядит в 1С :
Фильтр = Новый Структура();
Фильтр.Вставить("Контрагент",Справочники.Контрагенты.НайтиПоКоду("000002245"));
А = РегистрыНакопления.ВзаиморасчетыСКонтрагентами.Остатки ('20090807', Фильтр).Итог("СуммаВзаиморасчетов");
А вот так я это делаю в террасофт
var C1Account = Obj_1C.Справочники.Контрагенты.НайтиПоКоду("000002245");;
var C1Register = Obj_1C.РегистрыНакопления.ВзаиморасчетыСКонтрагентами;
var C1Filter = Obj_1C.NewObject("Структура");
C1Filter.Вставить("Контрагент",C1Account);
C1temp = C1Register.Остатки(null,C1Filter);
sum = C1temp.Итог("СуммаВзаиморасчетов");

Ответить

8 августа 2009 10:22

Здравствуйте, Антон.
На сколько я понимаю, в 1С Вы делаете

.Остатки ('20090807', Фильтр).

а в JScript'е

.Остатки(null,C1Filter);

и в результате ругается на несоответствие типов?

8 августа 2009 10:24

Можете попробовать вот так:

var d = new Date();
C1temp = C1Register.Остатки(d ,C1Filter);