Работая с модулем Производство постоянно сталкиваемся с Javascript. Очень бесило в нем отсутствие очевидных функций, которых не хватает в работе.
Поэтому когда появилась возможность подключения собственных пользовательских библиотек, мы стали просто счастливы.
на
http://code.google.com/p/js-library-gal ... loads/list
я опубликовал такую библиотеку, в которой реализованы следующие функции:
вызвать любой интерфейс Галактики,
Получить значение поля из произвольной таблицы,
Вызвать окно выбора файла,
Сформировать ТХО по накладной (очень удобно ставить этот алгоритм после оприходования накладной, бухам меньше работы
Очистить ТХО по накладной
Создать ДО
Создать спецификацию ДО
Удалить ДО
Выбрать произвольное КАУ
Код: Выделить всё
Функция для вызова произвольного интерфейса или диалога:
function RunAnyView(Line,Stat) : boolean
Line : string - Строка запуска интерфейса - к примеру Interface C_Partner::_PrintEtiketka(0,0)
Stat : boolean - признак модальности интерфейса.
Возвращает результат выполнения интерфейса
Функция для чтения произвольного поля таблицы по нрек
function TxoGetField(Tip,Table,Field,Nrec):any type
Возвращает значение поля в зависимости от значения параметра Tip
0 - строка, 1-ссылка, 2-Double, 3-word, 4-дата, 5-boolean
Создание записи в ДО (BASEDOC) с типом VidDoc
function CreateBaseDoc(VidDoc)
Возвращает истину, если вставка удалась. В переменную NrecBase1 - возвращает нрек созданного ДО.
В переменную NrecStep1 - возвращает нрек созданного Stepdoc.
Удаление записи в ДО (BASEDOC) по нрек NrecBase
function DeleteBaseDoc(NrecBase)
Возвращает истину, если удаление удалось.
Создание записи в SPSTEP
function CreateSpStep(NrecBase,NrecSpStep)
NrecSpStep - 0, просто вставка, нрек предыдущего NrecSpStep
Возвращает нрек SpStep, если вставка удалась
Удаление записи спецификации ДО (spstep) по нрек NrecSpStep
function DeleteSpStep(NrecSpStep)
Возвращает истину, если удаление удалось.
Запуск функции привязки ТХО
function MakeTXODoc(VidDoc,NrecDoc,NrecHoz)
Привязывает ТХО для документа с типом VidDoc, нрек - документа NrecDoc
При привязке если NrecHoz=0, то проставляется ТХО по умолчанию (та тхо, у которой значение в HOZOPER.CODE=А)
Запуск функции очистки ТХО
function ClearTXODoc(VidDoc,NrecDoc)
Отвязывает ТХО для документа с типом VidDoc, нрек - документа NrecDoc
Запуск функции удаления плана
function DeleteMnPl(MnPlNrec)
Удаление плана/заказа, нрек - документа MnPlNrec
Запуск функции получения имени файла
GetFileName(mask,title):string
mask - маска файла, *.* или *.xls
title - заголовок
Запуск функции выбора КАУ
GetKau(KodKau,Mode):string
KodKau - системный код аналитики
Mode - режим. 0 - одиночный выбор,1- множественный через маркер
Если режим=0, То результатом будет comp значение выбора, Если 1 -то функция вернет имя маркера!!
содержится исходник проекта со всеми необходимыми инклюдами.
debug.res - это ресурс системы скомпилированный под атлантис 5.4.38.5
файл userscript.lst http://code.google.com/p/js-library-gal ... t&can=2&q=
нужно положить в каталог Exe системы Галактика, после чего выполнить переинициализацию библиотек JavaScript.
После чего в перечне библиотек появится библиотека "Пользовательские функции ООО Юнисофт"
Надеюсь мой опыт окажется для кого то полезным
