364
правки
Изменения
м
execsimplescript'''FillAdvPriceReport(CaptionExcel, TextAddressCodes, StartLine, StartCol, [ShowSumPrice,InsertColumns,ShowAll]) ''' - Выполняет скрипт "Дополнительных возможностей"добавляет отчёт по дополнительным услугам. Возвращаемые значенияВ AddressCodes - указаны коды адресов через запятую, введенные пользователем устанавливает каждый код это отдельная строка отчета. Адреса будут показаны в переменные $scriptvar1порядке перечисления их в AddressCodes.Если в отчет нужно добавить пустую строку, то можно указать код адреса -1000.$scriptvarNStartLine, Значения кодов списочных переменных StartCol - в переменных $scriptvar1codesверхний левый угол выгружаемой таблицы.ShowSumPrice - добавить столбец итоговый столбец с суммой всех услуг, по умолчанию выключено.$scriptvarNcodesInsertColumns - раздвинуть таблицу перед вставкой отчета, позволяет встраивать отчет посередине выгрузки, по умолчанию выключено. ShowAll - показать все дополнительные услуги, по умолчанию false и показывает только услуги с начислениями. Функция возвращает истину, если пользователь нажал "OK" в диалоговом окнеколичество использованных столбцов.
FillAdvPriceReport'''PrintSticker(Excel, AddressCodes, StartLine, StartColCodes, [ShowSumPrice,InsertColumns,ShowAllToBoxes=False]) - добавляет отчёт по дополнительным услугам. В AddressCodes - указаны коды адресов через запятую, каждый код это отдельная строка отчета. Адреса будут показаны в порядке перечисления их в AddressCodes. Если в отчет нужно добавить пустую строку, то можно указать код адреса -1000. StartLine, StartCol - верхний левый угол выгружаемой таблицы. ShowSumPrice - добавить столбец итоговый столбец с суммой всех услуг, по умолчанию выключено. InsertColumns - раздвинуть таблицу перед вставкой отчета, позволяет встраивать отчет посередине выгрузки, по умолчанию выключено. ShowAll - показать все дополнительные услуги, по умолчанию false и показывает только услуги с начислениями. Функция возвращает количество использованных столбцов.'''
PrintSticker'''GetItemByName(Codes, [ToBoxes=False]Name)'''
GetItemByName(Name)'''GetA4Printer''' - возвращает имя принтера выбранного для печати документов
GetA4Printer '''GetStickerPrinter''' - возвращает имя принтера выбранного для печати документовстикеров
GetStickerPrinter '''GetDuplexPrinter''' - возвращает имя принтера выбранного для двусторонней печати стикеров, если принтер не выбран, возвращает пустую строку
GetDuplexPrinter '''PrintAttachPDFPage(Code, FileName, Page, Printer)''' - печатает страницу из вложенного файла PDF. Code - код вложения (attachment), Page - возвращает имя принтера выбранного для двусторонней печатиномер страницы, если Printer - 0 = принтер не выбранA4, возвращиет пустую строку1 = принтер этикеток.
PrintAttachPDFPage'''AttachPDFToText(Code, FileName, Page, Printer[TextFileName]) ''' - печатает страницу преобразует файл PDF из вложенного файла PDFвложений в текст. Code - код вложения (attachment), Page TextFileName - номер страницыимя текстового файла, Printer - 0 = принтер A4в который записывается результат (если не указан, 1 = принтер этикетокиспользуется временный файл). Возвращает текст в виде строки.
AttachPDFToText(Code, [TextFileName]) '''GetActiveForm''' - преобразует файл PDF из вложений возвращает код активной формы в текстпрограмме, где происходит сканирование. Code '''Список интерфейсов''': 0 - неопределенный; 1 - прием корреспонденции на склад; 2 - код вложения АПД; 3 - комплектация адресов (attachmentShelfingForm), TextFileName ; 4 - доска приема; 9 - вкладка «Манифесты»; 10 - Инвентаризация корреспонденции; 11 - АПК; 12 - вкладка «Адреса»; 13 - вкладка «Выдача»; 14 - имя текстового файла, в который записывается результат (если не указан, используется временный файл). Возвращает текст в виде строкивкладка «Склад».
GetActiveForm - возвращает код активной формы в программе, где происходит сканирование: 0 - неопределенный; 1 - прием корреспонденции на склад; 2 - АПД; 3 - комплектация адресов '''RuleName(ShelfingFormalias); 4''' - доска приемаВыдает полный путь в дерева прав по псевдониму права.
'''ClientTown''' - Узнаем город клиента, через филиал с которым он работает. Сам клиент берется из заказа указанного в окне "Импорт БД из Excel". RuleName(alias) - Выдает полный путь в дерева прав по псевдониму права.
→Объект TBaseUtils
Len(s) – возвращает количество символов в строке s.
Pos(s, substr[,start]) – возвращает номер первого символа первого включения подстроки substr в строку s, возвращает 0, если включения подстроки отсутствуют. Параметр start - это позиция старта поиска, не обязательный параметр, по умолчанию равен 1. Поиск не чувствителен к регистру.
Param(s, i) – возвращает i-й элемент строки s, разделенной запятыми на элементы.
ParamsCount(s) - возвращает количество элементов строки s, разделенной запятыми на элементы.
SetParam(s, p, i) – заменяет на значение p i-й элемент строки s, разделенной запятыми на элементы.
Left(s, i [,full] ) – возвращает i первых символов строки s. Параметр i, может быть строкой, тогда он считается разделителем и функция, возвращает строку слева от разделителя. Параметр full разрешает функции вернуть всю строку s, если по параметру i ничего не нашли, параметр не обязательный, по умолчанию выключен.
CheckEan(s) - Проверяет строку s, что она является кодом EAN13.
SaveToFile(FileName,s, encoding = ''[, append])- Создает текстовый файл по пути, указанному в FileName (если по указанному пути существует файл с указанным именем, он удаляется и создается новый) и производит запись строки s в созданный текстовый файл. encoding - название кодировки, по умолчанию сохраняет в кодировке ANSI. Доступные названия кодировок: KOI8-R, ISO-8859-5, UTF-8, URL, BASE64, QUOTED-PRINTABLE, CP866. Если append = true, то производится дописывание данных в файл, а не перезаписывание (не обязательный, по умолчанию выключен).
StrFromFile(FileName) - Читает файл FileName, возвращает в виде строки. При ошибке чтения вызывает ошибку.
Interpretate(script) - Интерпретирует скрипт указанный в script. Выполнение происходит в текущем инстансе.
LastHttpError - Выводит последнюю ошибку в выполнении Http-запроса последний запрос выполненный с ошибкой в функции HttpPost. Содержит подробную информацию по запросу и ответу.
LastHttpResponse - Выводит последний запрос и ответ от сервера после выполнения Http-запроса в функции HttpPost.
== Объект TExcel ==
'''''Ввод данных'''''
LoadFromDB(DB[, Headered=true][, Col=1][, Row=1][, TranslateHeader=False]) – Загружает таблицу из набора данных, открытого в объекте DB типа TADO. Если Headered истинно (по-умолчанию), таблица загружается вместе с заголовками. Если название поля содержит подстроку «_RecNo» - данная подстрока не попадет в заголовок, а все значения поля будут заменены на порядковый номер записи в наборе данных, начиная с «1». В одной таблице допускается не более одного поля с порядковой нумерацией. Поля, названия которых начинаются в символа "-" не выгружаются. Если TranslateHeader истинно, то заголовки таблицы будут автоматически переведены.
MyDB.Open('select * from kurier');
xl.SetVisible(true);
Post2Sheet(DB[, Headered=true][, Col=1][, Row=1][, TranslateHeader=False]) - Почти полный аналог LoadFromDB. В отличии от LoadFromDB если есть открытый файл, выгрузка данных будет выполнена прямо в него.
OpenFile(aFileName) – Выполняет функции SetFileName и Open.
'''SetAddrKol_vo(address, getkol_vo)''' - функция делает прием корреспонденции в текущем ответственном филиале. address - внутренний код адреса, getkol_vo - количество принимаемых мест, может принимать значения: "kol_vo" - принять все места, "getKol_vo+1" - принять еще одно место, "число" - сделать количество принятых мест равным указанному числу.
'''CalcClientCnt(client_code, date, is_intown)''' - функция расчета количество доставленных корреспонденций у клиента с кодом client_code за предыдущий месяц от даты date (Или за текущий месяц, подробнее смотри переменную UseCurrentMonthCount) среди внутригородских (is_intown = true) либо междугородних (is_intown = false) корреспонденций.
'''GetBasePrice''' - возвращает базовую стоимость доставки посчитанную по тарифной сетке клиента в зависимости от :кол-ва заказов,зоны,типа,срочности,массы, расстояния. В системах с выключенными доп. услугами также считает проценты от суммы и страховки.
==Объект TBase==
'''Функции общего назначения''': '''ExecSimpleScript(Caption, Text)''' - Выполняет скрипт "Дополнительных возможностей". Возвращаемые значения, введенные пользователем устанавливает в переменные $scriptvar1..$scriptvarN, Значения кодов списочных переменных - в переменных $scriptvar1codes..$scriptvarNcodes. Функция возвращает истину, если пользователь нажал "OK" в диалоговом окне.
'''CheckRule(alias)''' - функция проверки разрешения у текущего пользователя системы, alias - псевдоним права. Возвращает 1, если право есть и 0, если права нет.
Пример: if(CheckRule('RSE'), ShowMessage('У пользователя есть право изменять счета'), ShowMessage('У пользователя нет права изменять счета'));
'''Функции, работающие только в импорте БД из эксель:'''
Source - код заказчика
== Объект TFieldObject ==
