Цитата:
Сообщение от 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, обходим ограничения.