KitchenDraw SDK - что за зверь?

[KD_RUS]

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

Это случайно не то, что прямо в сцене можно открыть скрипт любого блока и с ним поизвращаться, как тебе вздумается? Если да, то немного понятно о чем идет речь. Не понятно провызовы любых функций Windows. Если можно немного просвятите.

Нет. Речь идёт о полноценном скрипте.

Пример: Из артикула с Лв(Пр) формирует Лв и Пр соответственно.

Set Articles = Tables(CATTABLE_ARTICLES)
For i = Articles.RowCount To 1 Step -1
If InStr(Articles.Cells(i, 1), "Лв(Пр)") Then
ThisCluster = SDK.Catalog.TableGetClusterRankFromLineRank(Sessio nId, CATTABLE_ARTICLES, i)
ClusterLineRank = i - SDK.Catalog.TableGetFirstLineRankFromClusterRank(S essionId, CATTABLE_ARTICLES, ThisCluster) + 1
Articles.Cells(i,1) = Replace(Articles.Cells(i,1), "Лв(Пр)", "Пр")
Articles.Cells(i,2) = "R"
SDK.Catalog.TableInsertLines SessionId, CATTABLE_ARTICLES, ThisCluster, ClusterLineRank, 1
Articles.Cells(i,1) = Replace(Articles.Cells(i+1,1), "Пр", "Лв")
Articles.Cells(i,2) = "L"
Articles.Cells(i,3) = Articles.Cells(i+1,3)
Articles.Cells(i,4) = Articles.Cells(i+1,4)
Articles.Cells(i,5) = Articles.Cells(i+1,5)
Articles.Cells(i,6) = Articles.Cells(i+1,6)
End If
Next

Set Articles = Nothing

===============
Загрузка фасадов Панорама в фасады, шкафы-купе за 2-3 клика, выгрузка в 1С, Axapta, Базис, загрузка артикулов и блоков из шахматки клиента и т.п. - всё мы делаем на KDScript. Мы дополняем возможности стандартного KD, обходим ограничения.

[kuzma]

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

Нет. Речь идёт о полноценном скрипте.

Я и имел ввиду полноценный скрипт, просто он изменяется не на уровне каталога, а на уровне сцены. Про Windows всеже не понятно!!!

[KD_RUS]

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

Я и имел ввиду полноценный скрипт, просто он изменяется не на уровне каталога, а на уровне сцены. Про Windows всеже не понятно!!!

Можно вызывать любые функции Windows. Вводить свои процедуры и т.п. И этот текстовый файл будет исполняться "налету". Компиляции никакой нет.

Формирование выгрузки в xml-файл

Function ZeroFmt(iVal, iLength)
sVal = CStr(iVal)
While Len(sVal) < iLength
sVal = "0" + sVal
Wend
ZeroFmt = sVal
End Function

'==================================== ЧИТАЕМ НАСТРОЙКИ =====================================
strXMLsPath = ""
Set oXMLDoc = CreateObject("MSXML2.DOMDocument.4.0")
oXMLDoc.Load(ProgramDir & "xmlmaker.xml")
oXMLDoc.SetProperty "SelectionLanguage", "XPath"
Set oXMLElem_Path = oXMLDoc.SelectSingleNode("//XMLOutputDir")
strXMLsPath = oXMLElem_Path.Text
Do While InStr(strXMLsPath, "{") > 0
Param = Mid(strXMLsPath, InStr(strXMLsPath, "{")+1, InStr(strXMLsPath, "}") - InStr(strXMLsPath, "{")-1)
strXMLsPath = Replace(strXMLsPath, "{"&Param&"}", Eval(Param))
Loop
strXMLsPath=Replace(strXMLsPath, "\\", "\")

If SDK.Scene.IsLoaded(SessionId) Then

'==================================== СОЗДАЕМ XML-ФАЙЛ =====================================
oXMLDoc.LoadXML("<?xml version=""1.0"" encoding=""utf-8""?><XMLFILE/>")

'=======================================<FILEINFO/>=========================================
Set oXMLElem_FileInfo = oXMLDoc.CreateElement("FILEINFO")
oXMLElem_FileInfo.SetAttribute "Version", 1 ' Версия формата
oXMLElem_FileInfo.SetAttribute "Timestamp", ZeroFmt(Year(Now()),4) & ZeroFmt(Month(Now()),2) _
& ZeroFmt(Day(Now()),2) & ZeroFmt(Hour(Now()),2) & ZeroFmt(Minute(Now()),2) & _
ZeroFmt(Second(Now()),2) ' Дата/время выгрузки
If SDK.Scene.SceneGetKeywordInfo(SessionId, "@Base.SellerName()") <> "" Then
strDesigner = SDK.Scene.SceneGetKeywordInfo(SessionId, "@Base.SellerName()")
Else
strDesigner = SDK.Scene.SceneGetKeywordInfo(SessionId, _
"@Base.SellerIdentifier()")
End If
oXMLElem_FileInfo.SetAttribute "Author", strDesigner ' Дизайнер
Set oNetworkInfo = CreateObject("WScript.Network")
oXMLElem_FileInfo.SetAttribute "Hostname", oNetworkInfo.ComputerName ' Имя компьютера
Set oNetworkInfo = Nothing

oXMLDoc.DocumentElement.AppendChild(oXMLElem_FileI nfo)
Set oXMLElem_FileInfo = Nothing

'=======================================<SCENE/>============================================
Set oXMLElem_Scene = oXMLDoc.CreateElement("SCENE")

'=======================================<CLIENT/>===========================================
Set oXMLElem_Client = oXMLDoc.CreateElement("CLIENT")
oXMLElem_Client.SetAttribute "Company", SDK.Scene.SceneGetKeywordInfo(SessionId, "@Base.CustomerCompany()")
oXMLElem_Client.SetAttribute "LastName", SDK.Scene.SceneGetKeywordInfo(SessionId, "@Base.CustomerName()")
oXMLElem_Client.SetAttribute "FirstName", SDK.Scene.SceneGetKeywordInfo(SessionId, "@Base.CustomerFirstName()")
oXMLElem_Client.SetAttribute "ZIP", SDK.Scene.SceneGetKeywordInfo(SessionId, "@Base.CustomerZIP()")
oXMLElem_Client.SetAttribute "Address1", SDK.Scene.SceneGetKeywordInfo(SessionId, "@Base.CustomerAddress1()")
oXMLElem_Client.SetAttribute "Address2", SDK.Scene.SceneGetKeywordInfo(SessionId, "@Base.CustomerAddress2()")
oXMLElem_Client.SetAttribute "Address3", SDK.Scene.SceneGetKeywordInfo(SessionId, "@Base.CustomerAddress3()")
oXMLElem_Client.SetAttribute "City", SDK.Scene.SceneGetKeywordInfo(SessionId, "@Base.CustomerCity()")
strPhone1 = SDK.Scene.SceneGetKeywordInfo(SessionId, "@Base.CustomerPhone1()")
.......

Ещё куча строк. Смотрите доку по SDK. Всё станет ясно.

[ViPeS]

Ладно, начнем ликбез.
Yura_Bogoduhov, если Вам все-таки не трудно, поменяйте шапку темы, как я предлагал — это мой перевод цитаты из английского документа по KitchenDraw SDK кроме двух последних предложений. И советую всем ее внимательно прочитать!
И удалите, пожалуйста, этот пост:

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

Описание скрипта связи KDVB1C и 1С Предприятие 7.7:

так как он ничего общего с нашей темой не имеет. Это попытка связать KD и 1C:"... для передачи данных использован язык скриптов VBScript, входящий в комплект Windows" — как написал сам разработчик этой программы, без использования KitchenDraw SDK.

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

Разработкой SDK люди вроде бы занимаются на этом сайте(естественно за оплату)
http://e-st.ru/

Эти люди, которых здесь представляет KD_RUS, не занимаются разработкой SDK. Они используют SDK в своих разработках и зарабатывают деньги, как и мы зарабатываем деньги, используя KD.
KitchenDraw SDK разработан создателями самой KD — PRAGMA Informatique, и поставляется вместе с ней — это библиотека Kdsdk.dll.

А теперь я хочу прокомментировать сообщение:

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

Нет. Речь идёт о полноценном скрипте.
Пример: Из артикула с Лв(Пр) формирует Лв и Пр соответственно.

Set Articles = Tables(CATTABLE_ARTICLES)
For i = Articles.RowCount To 1 Step -1
If InStr(Articles.Cells(i, 1), "Лв(Пр)") Then
ThisCluster = SDK.Catalog.TableGetClusterRankFromLineRank(SessionId, CATTABLE_ARTICLES, i)
ClusterLineRank = i - SDK.Catalog.TableGetFirstLineRankFromClusterRank(SessionId, CATTABLE_ARTICLES, ThisCluster) + 1
Articles.Cells(i,1) = Replace(Articles.Cells(i,1), "Лв(Пр)", "Пр")
Articles.Cells(i,2) = "R"
SDK.Catalog.TableInsertLines SessionId, CATTABLE_ARTICLES, ThisCluster, ClusterLineRank, 1 'кстати, здесь пропущены (), в которые заключают аргументы функций
Articles.Cells(i,1) = Replace(Articles.Cells(i+1,1), "Пр", "Лв")
Articles.Cells(i,2) = "L"
Articles.Cells(i,3) = Articles.Cells(i+1,3)
Articles.Cells(i,4) = Articles.Cells(i+1,4)
Articles.Cells(i,5) = Articles.Cells(i+1,5)
Articles.Cells(i,6) = Articles.Cells(i+1,6)
End If
Next

Set Articles = Nothing

Я еще раз повторюсь, но считаю некорректным использование в приведенной цитате слова "скрипт", потому что понятие скрипта в KD и приведенное выше — совершенно разные вещи, и вводят в заблуждение пользователей KD. Я предлагаю использовать понятие "модуль" или "программа".
В приведенной части программы, написанной на языке Visual Basic, мной красным цветом выделен вызов функций KitchenDraw SDK (синим цветом указана ошибка, допущенная при написании программы).
В результате выполнения программы, по нажатию одной кнопки, во всем каталоге предметы без направления превращаются в предметы с двумя направлениями (см. миниатюры). Какая экономия времени!

[ViPeS]

Продолжение...
Программа, написанная в VB с вызовом функций KD SDK, компилируется и получается библиотека — файл с расширением .dll, который связывается с (или вызывается из) KD тремя способами (это которые я знаю — может есть и другие) в зависимости от класса (вида).
Класс "Мастер" ("Wizard") — вызов осуществляется через скрипт блока, добавляя в его конец строчку @DLL("DLL file name"). Пример приведен в каталоге "Мини-база кухни" ("KITCHEN TUTORIAL") — это самый первый блок (тумба BT 40G). Вот его скрипт:
B(CLASSE="BU") [1PB 1E](H=H-C59)+1T(H=C59) @CF("1D1d")
&REFPOS(X=L) &_BGD(SSENS) &_1E(INTER) &_1PB(SSENS,H=H-C59) &_1T(SSENS,H=C59) @DLL("sdk_wizard.dll")
При установке этой тумбы на сцену или при вызове меню Объект --> Мастер выполняется код программы, которую вы написали. Можно даже вывести текст самого скрипта блока и здесь его изменить не меняя скрипта в самом каталоге (о чем мечтают многие участники форума), а можно и с заменой в каталоге — как напишите в программе.

Класс "Заказ" ("Order") — исполнение вашей программы осуществляется при генерации заказа при вызове меню Файл --> Заявки поставщикам --> Создать --> Генерация. Но перед этим нужно выбрать ваш созданный файл (см. Руководство пользователя KD — "9.Передача заказов через Интернет (e-mail)"), где вы описали свою форму бланка заказа (например, sdk_order.dll).

[ViPeS]

Продолжение...
И третий вид — это "Плагины" (Plugins), которые обсуждались в теме KitchenDraw - plugins.

Сообщение от Влад Степанов;

В общем случае, чтобы использовать Plugin выполните действия:
1) Найти файл Space.ini в рабочей директории KitchenDraw.
2) Если в этом файле нет секции [Plugins] , тогда добавьте ее.
3) В секцию [Plugins] добавьте строку типа: "<НаименованиеФайлаПлагина>=" без кавычек.
...
Например:

[Plugins]
MyPlugin.dll=

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

Для всех трех случаев необходимо, чтобы ваши библиотеки находились в основной директории KD и были зарегистрированы в ОС.
С теорией покончено.

[ViPeS]

А теперь приступаем к практике. К сожалению, примеры, приведенные в шапке темы, нерабочие. Но я исправил ошибки в одном из них (одну еще не исправил — не выводится рисунок блока и не работает функция "Открыть", но это дело поправимое).

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

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

Для всех "извращенцев"!
Распакуйте файл в папку KD. Зайдите в каталог "Мини-база кухни", бросьте на сцену первый шкафчик и "извращайтесь" себе на здоровье (при первом броске или при вызове "Мастер") — все изменения будут происходить только на сцене, не затрагивая каталога.

[Yura_Bogoduhov]

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

Зайдите в каталог "Мини-база кухни", бросьте на сцену первый шкафчик и "извращайтесь" себе на здоровье (при первом броске или при вызове "Мастер") — все изменения будут происходить только на сцене, не затрагивая каталога.

После установки первого шкафчкика на сцену, открывается "новый" мастер с поддержкой изменения скриптов. Если не ставить новые модули на сцену, и снова открыв Мастер, новые модули на сцену не ставятся. Снимается глюк только после удаления первого. Если не заходить сразу в Мастер, и набросать несколько других модулей, то вроде работает нормально...Хотя щас после нескольких "циклов" работает...

[ViPeS]

Между прочим, получилось наглядное пособие по написанию скриптов блоков!
Только надо сделать защиту от неправильного применения имен блоков.

---------- Добавлено в 15:12 ---------- Предыдущее сообщение было написано в 15:04 ----------

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

Если не ставить новые модули на сцену, и снова открыв Мастер, новые модули на сцену не ставятся. Снимается глюк только после удаления первого.

Ничего не понял, у меня никаких глюков нет!
А менять в скрипте пробовали? Например, 2 полки или два ящика?

Если кто изменил неправильно скрипт, то не будет выводиться картинка (ничего страшного) — сам блок можно удалить со сцены через меню Сцена-> Спецификация...

[Yura_Bogoduhov]

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

Ничего не понял, у меня никаких глюков нет!
А менять в скрипте пробовали? Например, 2 полки или два ящика?

Сейчас их нет...Полки менял. Нормально)) Вот тока нельзя ли при установке модуля не показывать окно мастера?