Руководство программиста — различия между версиями
Johny (обсуждение | вклад) м (→Основные положения) |
Sammy (обсуждение | вклад) м (→Объект TCanvas) |
||
(не показаны 424 промежуточные версии 14 участников) | |||
Строка 5: | Строка 5: | ||
Как интерпретатор приводит типы: | Как интерпретатор приводит типы: | ||
+ | |||
1. При использовании значения как параметр функции интерпретатор автоматически приводит значение к типу, необходимому функции. | 1. При использовании значения как параметр функции интерпретатор автоматически приводит значение к типу, необходимому функции. | ||
+ | |||
2. При операциях сложения, а также логических операциях, операнды приводятся к строке если хотя бы один из них имеет тип «строка». Например: | 2. При операциях сложения, а также логических операциях, операнды приводятся к строке если хотя бы один из них имеет тип «строка». Например: | ||
3.3+5 -> 8.3 | 3.3+5 -> 8.3 | ||
Строка 11: | Строка 13: | ||
подобную проблему можно решить принудительно преобразовав тип: | подобную проблему можно решить принудительно преобразовав тип: | ||
float(‘3.3’)+5 -> 8.3 | float(‘3.3’)+5 -> 8.3 | ||
+ | |||
3. При операциях умножения, деления и вычитания операнды приводятся к числу с плавающей точкой, однако если результат выполнения операции получается целым числом, то он приводится к целочисленному типу. | 3. При операциях умножения, деления и вычитания операнды приводятся к числу с плавающей точкой, однако если результат выполнения операции получается целым числом, то он приводится к целочисленному типу. | ||
Как работают функции приведения типов: | Как работают функции приведения типов: | ||
+ | |||
1. При преобразовании строки к числу: функция «читает» строку до первого символа, не позволяющего создать число с плавающей точкой, при этом разделителем целой и дробной частей может быть как точка так и запятая. Если приведение производится к целочисленному типу, то после этого происходит округление. Например: | 1. При преобразовании строки к числу: функция «читает» строку до первого символа, не позволяющего создать число с плавающей точкой, при этом разделителем целой и дробной частей может быть как точка так и запятая. Если приведение производится к целочисленному типу, то после этого происходит округление. Например: | ||
float('3.6qwerty735') -> 3.6 | float('3.6qwerty735') -> 3.6 | ||
int('3.6qwerty735') -> 4 | int('3.6qwerty735') -> 4 | ||
+ | |||
2. При преобразовании к булевому типу ложью считается пустая строка либо число 0, все остальное - истина | 2. При преобразовании к булевому типу ложью считается пустая строка либо число 0, все остальное - истина | ||
+ | |||
3. При преобразовании булевого типа к числу истина преобразуется в 1, ложь – в 0. Такое преобразование позволяет использовать сложение и умножение в качестве логических «ИЛИ» и «И» соответственно: | 3. При преобразовании булевого типа к числу истина преобразуется в 1, ложь – в 0. Такое преобразование позволяет использовать сложение и умножение в качестве логических «ИЛИ» и «И» соответственно: | ||
if((5=5)+(6=7), <a>, [b]) – условие истинно, выполнится код «a». | if((5=5)+(6=7), <a>, [b]) – условие истинно, выполнится код «a». | ||
+ | |||
4. При преобразовании булевого типа к строке сначала происходит преобразование к числу: | 4. При преобразовании булевого типа к строке сначала происходит преобразование к числу: | ||
(5=5)+'qwerty' -> ‘1qwerty’ | (5=5)+'qwerty' -> ‘1qwerty’ | ||
Строка 43: | Строка 50: | ||
set($i, 10); | set($i, 10); | ||
set($sum, 0); | set($sum, 0); | ||
− | while($i, set($sum, $sum+$i); set($i, $i-1)); | + | while($i>0, set($sum, $sum+$i); set($i, $i-1)); |
$sum | $sum | ||
Результат – 55 | Результат – 55 | ||
Строка 71: | Строка 78: | ||
EXEC(FileName, Params, Wait, WindowState) – Запускает внешнее приложение FileName с параметрами Params. Если Wait истинно – ожидает завершение процесса. Для WindowState доступны следующие числовые значения: | EXEC(FileName, Params, Wait, WindowState) – Запускает внешнее приложение FileName с параметрами Params. Если Wait истинно – ожидает завершение процесса. Для WindowState доступны следующие числовые значения: | ||
0 - SW_HIDE | 0 - SW_HIDE | ||
− | 1 - SW_SHOWNORMAL | + | 1 - SW_SHOWNORMAL (по-умолчанию) |
3 - SW_MAXIMIZE | 3 - SW_MAXIMIZE | ||
6 - SW_MINIMIZE | 6 - SW_MINIMIZE | ||
Строка 77: | Строка 84: | ||
В случае успеха, при параметре Wait – истина кладет в переменную $LastResult код завершения приложения. | В случае успеха, при параметре Wait – истина кладет в переменную $LastResult код завершения приложения. | ||
+ | === Строковые функции === | ||
+ | |||
+ | UpCase(s) – возвращает строку s в верхнем регистре. | ||
+ | |||
+ | LCase(s) – возвращает строку s в нижнем регистре. | ||
− | + | 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 ничего не нашли, параметр не обязательный, по умолчанию выключен. | |
− | + | Mid(s, i, j) - возвращает подстроку из s начиная с i символа и длиной j символов | |
− | + | Right(s, i [,full]) – возвращает i последних символов строки s. Параметр i, может быть строкой, тогда он считается разделителем, функция ищет разделитель с конца строки, и возвращает строку справа от разделителя. Параметр full разрешает функции вернуть всю строку s, если по параметру i ничего не нашли, параметр не обязательный, по умолчанию выключен. | |
− | + | Reverse(s) - возвращает строку s задом-наперед. Полезно например для поиска с конца функций Pos(). | |
− | + | Char(i) – возвращает символ с кодом i. | |
− | + | Ord(s) – возвращает код первого символа строки s. | |
− | + | Replace(s, strFind1, strReplace1, [ strFind2, strReplace2, ... ], [caseInsensetive]) - возвращает строку s, в которой все включения строк strFind заменены строкой strReplace. Параметры поиска и замены всегда должны быть в паре и их может быть несколько. caseInsensetive - неучитывать регистр, не обязательный параметр, по умолчанию включен. | |
− | + | RemSpace(s) – возвращает сроку s без начальных и конечных запятых и пробелов, а также начальных точек. | |
− | + | SumStr(f [, captions, language]) – Возвращает сумму f, написанную прописью, по умолчанию '''с добавлением валюты'''. Необязательные параметры captions - позволяет изменить название валюты, формат строки может зависеть от текущего языка(посмотреть формат можно в "Справочники"-"Статусы"-"32 Валюты", в разделе "Дополнительная информация"). Language - код языка на котором необходимо вывести сумму прописью. По умолчанию если не обязательные параметры опущены, используются региональные настройки в переменных. | |
− | + | NumToStrSimple(f [, captions, language]) – Возвращает сумму f, написанную прописью, по умолчанию '''без валюты'''. Параметры идентичны функции SUMSTR. | |
FullNameToShort(Name) – Возвращает фамилию и инициалы по полному ФИО Name. | FullNameToShort(Name) – Возвращает фамилию и инициалы по полному ФИО Name. | ||
Строка 112: | Строка 126: | ||
MonthName2(m) – Возвращает имя месяца с номером m с большой буквы на русском языке в родительном падеже. | MonthName2(m) – Возвращает имя месяца с номером m с большой буквы на русском языке в родительном падеже. | ||
+ | StrForXML(s) - Подготавливает строку к парсингу как xml: Если находит в строке подстроку "UTF-8" - перекодирует ее из utf-8 в win-1251, убирает начальный знак вопроса, если такой встречается. | ||
+ | |||
+ | FixedIntToStr(i, len[, char]) - Возвращает целое число i дополненное слева символами char (по-умолчанию - "0") до длины len. | ||
+ | |||
+ | Translate(format, [param1, param2, ...]) - Функция перевода строки format в язык пользователя. Строка format может содержать параметры %s, %d - строка и число соответственно. | ||
+ | |||
+ | ====Функции перекодировки==== | ||
+ | DecodeStr(s, charset) - Производит перекодировку строки s в кодировку CP1251. Кодировка строки s должна быть заранее известна и может быть : | ||
+ | KOI8-R, ISO-8859-5, UTF-8, URL, BASE64, QUOTED-PRINTABLE, CP866, UNICODE. Имя кодировки следует передавать в точности без лишних символов. | ||
+ | |||
+ | EncodeStr(s, charset) - Производит перекодировку строки s в кодировку charset. Кодировка строки s должна быть CP1251, возможны следующие варианты перекодировки: | ||
+ | KOI8-R, ISO-8859-5, UTF-8, URL, BASE64, QUOTED-PRINTABLE, CP866. Имя кодировки следует передавать в точности без лишних символов. UNICODE не работает с версии 2021, в ней строки по умолчанию в кодировке unicode. | ||
+ | |||
+ | Функции EncodeBase64(s), DecodeBase64(s), UrlEncode(s), UTF8Encode(s), UTF8Decode(s), Str2UTF(s) - устарели, используйте EncodeStr, DecodeStr. | ||
+ | |||
+ | ====Транслитерация==== | ||
+ | |||
+ | Translit(s) - транслитерация строки русского текста s латиницей | ||
+ | |||
+ | UnTranslit(s) - транслитерация строки s с латиницы на русский. | ||
+ | |||
+ | ==== Экранирование ==== | ||
+ | |||
+ | QUOTEDSTR(s) – квотирует строку s символом «\» (обратный слеш). Возвращает строку s, помещенную между символами одинарной кавычки, при этом все вхождения в строку s символов: «\», «"» и «'» экранируются квотирующим символом, а символы #0, #10 и #13 заменяются на \0, \n и \r соответственно. | ||
+ | |||
+ | FormatTextXML(s) - квотирует строку s для использования в XML. Производит замены спец. символов для корректности XML-синтаксиса. | ||
+ | |||
+ | FormatTextJSON(s) - переводит строку в формат JSON, экранирует служебные символы. | ||
+ | |||
+ | FormatTextBlob(s) - строка s содержит файл, функция перекодирует переданную строку в байты, используется для заполнения полей формата blob. | ||
+ | |||
+ | ====Хеширование ==== | ||
+ | |||
+ | HMACHash256(key, text) - создаёт хэш по алгоритму SHA256 для проверки целостности сообщения, key - секретный ключ, text - хэшируемое сообщение | ||
+ | |||
+ | MD5Hash(text) - создаёт хеш по алгоритму MD5 | ||
+ | |||
+ | SignatureUrl(url) - Подписывает переданный URL. Функция возвратит переданный URL с добавленным в конце параметром, в котором будет записана подпись. | ||
=== Функции работы с датой и временем === | === Функции работы с датой и временем === | ||
Строка 118: | Строка 170: | ||
CurrDate – возвращает текущую дату | CurrDate – возвращает текущую дату | ||
+ | |||
+ | CurrMillisecond - Возвращает количество миллисекунд прошедших с начала текущего года. Используется для точного расчета временных интервалов. | ||
+ | |||
+ | Today - возвращает текущую дату в числовом формате. | ||
Day(dt) – возвращает день месяца даты dt. | Day(dt) – возвращает день месяца даты dt. | ||
Строка 124: | Строка 180: | ||
Year(dt) – возвращает год даты dt. | Year(dt) – возвращает год даты dt. | ||
+ | |||
+ | FirstDayOfMonth(dt) – Возвращает первый день месяца в формате DD.MM.YYYY для даты dt в формате DD.MM.YYYY. Пример вызова: Error( FirstDayOfMonth( CurrDate() ) ); | ||
+ | |||
+ | LastDayOfMonth(dt) – Возвращает последний день месяца в формате DD.MM.YYYY для даты dt в формате DD.MM.YYYY. Пример вызова: Error( LastDayOfMonth( CurrDate() ) ); | ||
DaysInMonth(month, year) – Возвращает количество дней в указанном месяце. | DaysInMonth(month, year) – Возвращает количество дней в указанном месяце. | ||
− | IncDay(dt) – Возвращает дату, увеличенную на | + | IncDay(dt, [count=1]) – Возвращает дату, увеличенную на count дней. |
SQLDate(dt) – Пытается конвертировать dt в дату, вернуть в формате «'YYYY-MM-DD'» (с апострофами), если не удается – возвращает «NULL». | SQLDate(dt) – Пытается конвертировать dt в дату, вернуть в формате «'YYYY-MM-DD'» (с апострофами), если не удается – возвращает «NULL». | ||
Строка 135: | Строка 195: | ||
DAYSBETWEEN(dt1, dt2) – Возвращает количество дней между датами dt1 и dt2. В случае ошибки приведения dt1 или dt2 к дате возвращает -1000. | DAYSBETWEEN(dt1, dt2) – Возвращает количество дней между датами dt1 и dt2. В случае ошибки приведения dt1 или dt2 к дате возвращает -1000. | ||
− | + | TimeBetween(t1, t2) - Возвращает количество минут между временем t1 и t2. Если t1 > t2 то будет показано количество минут между t2 и t1. Параметр t может быть как в формате "HH:MM", так и в числовом. Если один из параметров не удалось привести к числовому типу возвращает -1000. | |
+ | |||
+ | WorkDaysBetween(dt1, dt2, [DecreaseFirstDay=0], [DefaultHolidayVarNum=1]) - Возвращает количество рабочих дней между датами dt1 и dt2. Параметр DecreaseFirstDay уменьшает dt1 на указанное количество дней (по умолчанию 0). В случае ошибки приведения dt1 или dt2 к дате возвращает -1000. Параметр DefaultHolidayVarNum - использовать для расчета справочник: 1 - выходных дней(по умолчанию); 2 - выходных дней для доставки по городу; 3 - выходных дней для доставки | ||
+ | |||
+ | TimePeriod(time1, time2) - Оформляет временной период. Возвращаемое значение зависит от наличия значения в параметрах. Возможные варианты: "time1 - time2" , "С time1" , "ДО time2". | ||
+ | |||
+ | StrDateToFloat(s, [time=false]) - Переводит строку с датой s в числовой тип. Если параметр time включен, то в строке s должно быть указано время. Дата должна быть в формате "DD.MM.YYYY", а время "HH:NN". Если строку перевести не удалось возвращает 0 | ||
+ | |||
+ | IsAWorkDay(dt) - Когда день dt является рабочим, возвращает true. Если произошла ошибка приведения даты возвращает -1000. | ||
+ | |||
+ | IncWorkDay(dt, [count=1],[DefaultHolidayVarNum=1]) - Прибавляет count рабочих дней к дате dt. Возвращает дату в числовом формате, если произошла ошибка приведения даты возвращает -1000. По умолчанию параметр count равен 1 и не является обязательным. Параметр DefaultHolidayVarNum - использовать для расчета справочник: 1 - выходных дней (по умолчанию); 2 - выходных дней для доставки по городу; 3 - выходных дней для доставки | ||
+ | Sleep(n) - Задержка выполнения на n миллисекунд. | ||
=== Функции приведения типов === | === Функции приведения типов === | ||
Строка 148: | Строка 219: | ||
Date(v) – возвращает дату, либо пустую строку, если не удается конвертировать v в дату | Date(v) – возвращает дату, либо пустую строку, если не удается конвертировать v в дату | ||
− | + | Time(v) – возвращает время, либо пустую строку, если не удается конвертировать v во время. Понимает числовое представление времени. | |
=== Математические функции === | === Математические функции === | ||
Строка 155: | Строка 226: | ||
ROUNDDN(f) – округляет число f до ближайшего меньшего по модулю целого числа. | ROUNDDN(f) – округляет число f до ближайшего меньшего по модулю целого числа. | ||
+ | |||
+ | Money(f, CouldBeEmpty, ZeroFill, MakeSpace) - Округляет число f, до двух знаков после запятой. CouldBeEmpty - заменить число меньше 0,0001 на пустую строку. ZeroFill - Следить чтобы после запятой было два знака, если будет один, то добавить ноль. MakeSpace - Разделить разряды пробелом. | ||
''Подсказка: для простого округления используется функция int()'' | ''Подсказка: для простого округления используется функция int()'' | ||
− | |||
=== Константы === | === Константы === | ||
Строка 169: | Строка 241: | ||
=== Прочие функции === | === Прочие функции === | ||
+ | SQLFloat(f) – Приводит число с плавающей точкой к виду, пригодному для SQL-запроса, т.е. к тексту с разделителем дробной части – точка. | ||
SetPhoneParams(CountryCode, TownCode) – Устанавливает глобальные настройки кода телефонных кодов страны и города соответственно. По-умолчанию код страны – 7, код города – 495. | SetPhoneParams(CountryCode, TownCode) – Устанавливает глобальные настройки кода телефонных кодов страны и города соответственно. По-умолчанию код страны – 7, код города – 495. | ||
Строка 180: | Строка 253: | ||
SendEmail(Server, Port, User, Pass, AddressFrom, AddressTo, MsgText, Subject[, FileName]) – Отправляет письмо по e-mail с указанными параметрами. В случае ошибки отправки вызывает ошибку (рекомендуется использовать совместно с TRY). | SendEmail(Server, Port, User, Pass, AddressFrom, AddressTo, MsgText, Subject[, FileName]) – Отправляет письмо по e-mail с указанными параметрами. В случае ошибки отправки вызывает ошибку (рекомендуется использовать совместно с TRY). | ||
− | SendEmail(EmailFromStr, AddressTo, MsgText, Subject[, FileName]) – Отправляет письмо по e-mail с указанными параметрами. В случае ошибки отправки вызывает ошибку (рекомендуется использовать совместно с TRY). EmailFromStr – строка, содержащая данные для отправки письма – адрес SMTP-сервера, порт, логин, пароль и email отправителя, разделенные символом переноса строки. | + | SendEmail(EmailFromStr, AddressTo, MsgText, Subject[, FileName]) – Отправляет письмо по e-mail с указанными параметрами. В случае ошибки отправки вызывает ошибку (рекомендуется использовать совместно с TRY). EmailFromStr – строка, содержащая данные для отправки письма – адрес SMTP-сервера (также к имени сервера можно добавить протокол ssl:// или tls://), порт, логин, пароль и email отправителя, разделенные символом переноса строки. |
+ | |||
+ | GenEan(ID, Code) – Формирует штрих-код EAN 13 Состоящий из идентификатора типа сущности ID и кода сущности Code, Выравнивает до 13-ти символов, первый – «2», последний – контрольная сума. | ||
+ | |||
+ | 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, возвращает в виде строки. При ошибке чтения вызывает ошибку. | ||
+ | |||
+ | DownloadAttachment(code, [savefilepath, tablename='attachment', fieldBlob='file', fieldLDtime='ldtime', fieldUID='uid']) - Функция выкачивает аттачмент из базы, по внутреннему коду - Code, всегда возвращает содержимое файла в виде строки, а также может сохранить файл по указанному пути в параметре savefilepath. По умолчанию, функция настроена на таблицу attachment. Code - внутренний код вложения, tablename - название таблицы, fieldBlob - название поля с содержимым файла, fieldLDtime - название поля с временем последнего изменения строки (для работы кэша). Функция использует кэш и умеет выкачивать файлы зауженные на внешние серверы (http, ftp,sftp, measoft). Для выкачивания с сервера measoft обязательно необходимо указывать параметр fieldUID. | ||
+ | |||
+ | DeleteFile(FileName) - Удаляет файл FileName с диска, возвращает истину, если операция прошла успешно и ложь - в противном случае. | ||
+ | |||
+ | HTTPPOST(host, PostParams, Proxy, ContentType, HTTPUser, HTTPPass, Method, CustomHeader, Reconnects) - Отправляет HTTP запрос по адресу host с данными PostParams. Proxy - объект Proxy, задающий прокси-сервер (по-умолчанию - пусто - не использовать прокси). ContentType - Заголовок ContentType. По-умолчанию - "application/x-www-form-urlencoded; Charset=UTF-8". HTTPUser и HTTPPass - данные для http-авторизации на сервере. Method - метод отправки запроса, по-умолчанию - "POST". CustomHeader - Дополнительные заголовки HTTP запроса, передается в виде списка параметров через запятую и всегда образуют пару: 1 параметр - название заголовка, 2 параметр - значение. Если значение содержит запятую то его нужно экранировать в двойные кавычки. Reconnects - Количество попыток подключения (по-умолчанию - 2), если больше 100 - это таймаут единственной попытки подключения в миллисекундах. | ||
+ | Функция возвращает ответ сервера. <br> | ||
+ | ''Обратите внимание:'' Для имитации отправки данных html-формы методом POST может понадобиться перед передаваемыми параметрами добавить "Data=". | ||
+ | |||
+ | FTPPUT(host, User, Pass, FileName[, Active]) - Отправляет файл на FTP/SFTP-сервер. Параметр Host может иметь в себе путь к папке. По-умолчанию работает в пассивном режиме. | ||
+ | |||
+ | FTPGET(host, User, Pass, SourceFileName, DestFileName[, Active]) - Загружает файл SourceFileName с FTP/SFTP-сервера, сохраняет его в файл DestFileName. Параметр Host может иметь в себе путь к папке. По-умолчанию работает в пассивном режиме. | ||
+ | |||
+ | GetTempDir - Возвращает путь к временной папке. | ||
+ | |||
+ | ApplicationDir - Возвращает путь к файлу программы. | ||
+ | |||
+ | Interpretate(script) - Интерпретирует скрипт указанный в script. Выполнение происходит в текущем инстансе. | ||
− | + | LastHttpError - Выводит последний запрос выполненный с ошибкой в функции HttpPost. Содержит подробную информацию по запросу и ответу. | |
+ | |||
+ | LastHttpResponse - Выводит последний запрос и ответ от сервера после выполнения Http-запроса в функции HttpPost. | ||
== Объект TExcel == | == Объект TExcel == | ||
− | Предназначен для доступа к данным документов MS Excel. Требует установленного приложения MS Excel. | + | Предназначен для доступа к данным документов MS Excel. Требует установленного приложения MS Excel. Для работы без установленного MS Excel предусмотрен объект TDirectExcel. |
− | |||
− | + | '''''Ввод данных''''' | |
− | + | LoadFromDB(DB[, Headered=true][, Col=1][, Row=1][, TranslateHeader=False]) – Загружает таблицу из набора данных, открытого в объекте DB типа TADO. Если Headered истинно (по-умолчанию), таблица загружается вместе с заголовками. Если название поля содержит подстроку «_RecNo» - данная подстрока не попадет в заголовок, а все значения поля будут заменены на порядковый номер записи в наборе данных, начиная с «1». В одной таблице допускается не более одного поля с порядковой нумерацией. Поля, названия которых начинаются в символа "-" не выгружаются. Если TranslateHeader истинно, то заголовки таблицы будут автоматически переведены. | |
+ | |||
+ | MyDB.Open('select * from kurier'); | ||
+ | xl.LoadFromDB(MyDB.Self); | ||
+ | xl.DoNotDestroy(true); | ||
+ | xl.SetVisible(true); | ||
− | + | Post2Sheet(DB[, Headered=true][, Col=1][, Row=1][, TranslateHeader=False]) - Почти полный аналог LoadFromDB. В отличии от LoadFromDB если есть открытый файл, выгрузка данных будет выполнена прямо в него. | |
OpenFile(aFileName) – Выполняет функции SetFileName и Open. | OpenFile(aFileName) – Выполняет функции SetFileName и Open. | ||
− | + | FileName – Возвращает имя текущего файла. | |
− | + | SetFileName(aFileName) – Задает значение свойства FileName. | |
− | + | Open - Открывает файл с именем, заданным свойством FileName. Если имя файла не задано - создает чистую книгу. | |
− | + | Close – Закрывает текущий файл. | |
− | |||
− | + | '''''Ячейки''''' | |
A..ZZ – Возвращает значение соответствующего поля текущей строки. Может вызываться с целочисленным аргументом, указывающим на сдвиг относительно текущей строки. Например: AC(-1) – вернет значение столбца AC предыдущей строки. Если номер строки окажется вне допустимых значений вернет пустую строку. | A..ZZ – Возвращает значение соответствующего поля текущей строки. Может вызываться с целочисленным аргументом, указывающим на сдвиг относительно текущей строки. Например: AC(-1) – вернет значение столбца AC предыдущей строки. Если номер строки окажется вне допустимых значений вернет пустую строку. | ||
− | Cell(x, y) – Возвращает значение ячейки, заданной координатами. | + | Cell(x, y, text) – Возвращает значение ячейки, заданной координатами x, y. Необязательный булевый параметр text, в случае истинности, указывает на необходимость возврата данных с учетом формата ячейки, т.е. то, что пользователь видит на экране. Обратите внимание, что если в ячейке число, и ширина столбца не достаточна для отображения, Excel выводит "#####", что и будет возвращено программе, если text=ИСТИНА. Поэтому перед таким использованием рекомендуется выполнить функцию AutoFit. |
+ | |||
+ | SetCell(x, y, v[, x2, y2]) – Устанавливает значение ячейки, заданной координатами x и y, в значение v. Если заданы параметры x2, y2 - объединяет (merge) диапазон ячеек заданных координатами, устанавливает значение объединенной ячейки. | ||
+ | |||
− | + | '''''Строки''''' | |
− | + | RecNo – Возвращает номер текущей строки. Нумерация строк начинается с 1. | |
− | + | SetRecNo(aRecNo) – Устанавливает значение свойства RecNo. | |
First – Делает первую запись листа текущей. | First – Делает первую запись листа текущей. | ||
Строка 227: | Строка 334: | ||
RecordCount – Возвращает количество строк в листе. | RecordCount – Возвращает количество строк в листе. | ||
+ | |||
+ | RowAutoFit - Устанавливает автоматическую высоту строк. | ||
+ | |||
+ | SetRowHeight(r, h[, cnt]) – Устанавливает высоту cnt строк (по-умолчанию 1) начиная со строки r в h пикселей. | ||
+ | |||
+ | RowInsert(i[, count]) - Вставляет count (по-умолчанию - 1) строк НАД строкой с номером i. | ||
+ | |||
+ | RowDelete(i[, count]) - Удаляет count (по-умолчанию - 1) строк начиная с номера i. | ||
+ | |||
+ | |||
+ | '''''Столбцы''''' | ||
+ | |||
+ | ColCount - Возвращает количество столбцов в листе. | ||
+ | |||
+ | AutoFit – Устанавливает автоматическую ширину столбцов. | ||
+ | |||
+ | ColumnDelete(i[, count]) - Удаляет count (по-умолчанию - 1) столбцов начиная с номера i. | ||
+ | |||
+ | SetColWidth (c, w) – Устанавливает ширину столбца c в w символов. | ||
+ | |||
+ | |||
+ | '''''Листы''''' | ||
+ | |||
+ | SetSheet(No) – Устанавливает номер текущего листа. Если лист с таким номером не существует - он будет создан (и все листы до него). Нумерация начинается с 1. | ||
+ | |||
+ | SetSheetName(Name) - Устанавливает название текущего листа. | ||
SheetsCount – Возвращает количество листов в книге. | SheetsCount – Возвращает количество листов в книге. | ||
− | + | CopySheetAfter([SheetFrom[, SheetAfter]]) - Копирует лист SheetFrom (по-умолчанию - текущий), создавая новый лист после листа SheetAfter (по-умолчанию - совпадает с копируемым). | |
+ | |||
+ | SheetDelete(i) - Удаляет лист с номером i. | ||
+ | |||
+ | |||
+ | '''''Форматирование''''' | ||
+ | |||
+ | Align(x1, y1, x2, y2 [,HAlign, VAlign]) - Устанавливает выравнивание данных в указанном диапазоне. HAlign - горизонтальное выравнивание (0 – прижато влево , 1 – по центру , 2 – прижато вправо), VAlign - Вертикальное выравнивание (0 – прижато к верху , 1 – по центру , 2 – прижато к низу). | ||
+ | |||
+ | WrapText(x1, y1, x2, y2, value) – Устанавливает перенос текста прямоугольника в значение value. Если координаты опущены, или 0 – устанавливает границы всей используемой области. Для Value значение по-умолчанию - true. | ||
+ | |||
+ | NumberFormat(x1, y1, x2, y2, Format) - Устанавливает формат вывода чисел в указанном диапазоне ячеек. Например, если Format='0.00' - числа будут выводиться c обязательными 2 знаками после десятичного разделителя. | ||
+ | |||
+ | SetBorders(x1, y1, x2, y2) – Устанавливает границы прямоугольника. Если координаты опущены, или 0 – устанавливает границы всей используемой области. | ||
+ | |||
+ | SetFont(Font[, x1, y1[, x2, y2]]) - Устанавливает шрифт Font для ячеек диапазона. Можно указать координаты только одной ячейки, можно - вообще не указать, тогда будет использован последний выделенный диапазон. Шрифт задается как обычно: 'Arial, 16, T, T, T', порядок параметров: Имя шрифта, размер, жирное начертание, курсивное начертание, одиночное подчеркивание. Если параметры не заданы, то у текущего шрифта они меняться не будут. Примеры: SetFont('Arial, 10, T, F, F', 1,1) - в ячейке A1 будет установлен шрифт Arial жирным начертанием (не курсив и без подчеркивания). SetFont(', , , T, F', 2,1) - в ячейке B1 будет поменяется только начертание курсив и будет отменено подчеркивание (если оно было). | ||
+ | |||
+ | |||
+ | '''''Цвета''''' | ||
+ | |||
+ | SetRowFontColor(Row,Color) - Устанавливает цвет шрифта в строке Row. Color - целое значение (RGB) | ||
+ | |||
+ | SetRowColor(Row,Color) - Устанавливает цвет фона в строке Row. Color - целое значение (RGB) | ||
+ | |||
+ | SetColumnFontColor(Col,Color) - Устанавливает цвет шрифта в столбце Col. Color - целое значение (RGB) | ||
+ | |||
+ | SetColumnColor(Col,Color) - Устанавливает цвет фона в столбце Col. Color - целое значение (RGB) | ||
+ | |||
+ | SetCellFontColor(Row,Col,Color) - Устанавливает цвет шрифта в ячейке с координатами [Row,Col]. Color - целое значение, равное номеру цвета в палитре (ColorIndex,не RGB) | ||
+ | |||
+ | SetCellColor(Row,Col,Color) - Устанавливает цвет фона в ячейке с координатами [Row,Col]. Color - целое значение (RGB) | ||
+ | |||
+ | GetRowFontColor(Row)- Возвращает RGB значение цвета шрифта строки Row | ||
+ | |||
+ | GetRowColor(Row)- Возвращает RGB значение цвета фона строки Row | ||
+ | |||
+ | GetColumnFontColor(Col)- Возвращает RGB значение цвета шрифта столбца Col | ||
+ | |||
+ | GetColumnColor(Col)- Возвращает RGB значение цвета фона столбца Col | ||
+ | |||
+ | GetCellFontColor(Row,Col) - Возвращает номер цвета шрифта в палитре (ColorIndex) в ячейке с координатами [Row,Col] | ||
+ | |||
+ | GetCellColor(Row,Col) - Возвращает RGB значение цвета фона в ячейке с координатами [Row,Col] | ||
+ | |||
+ | |||
+ | '''''Копи-паст''''' | ||
+ | |||
+ | Copy(x1, y1, x2, y2) - Копирует в буфер экселя | ||
+ | |||
+ | Cut(x1, y1, x2, y2) - Вырезает в буфер экселя | ||
+ | |||
+ | Paste(x1, y1) - Вставляет из буфера экселя. Команды copy-paste неразрывны, если что нибудь сделать в промежутке между ними, например вставить значение в ячейку, то копирование сброситься. (Последовательность использования: copy - paste, cut - paste) | ||
+ | |||
+ | PasteStyle(x1, x2, y1, y2) - Вставляет только оформление из буфера экселя (Последовательность использования: Copy - PasteStyle) | ||
+ | |||
+ | |||
+ | '''''Изображения''''' | ||
+ | |||
+ | InsertPicture(TPicture, [x=1, y=1, DispX=0, DispY=0, width=0, height=0]) - Функция вставляет рисунок на текущий активный лист. x, y - координаты ячейки, относительно которых размещается рисунок, DispX, DispY - смещение рисунка относительно верхнего левого угла этой ячейки, width, height (не работает для DirectExcel) - ширина и высота области рисунка в пойнтах-единицах Excel | ||
+ | |||
+ | InsertFirmLogo(FirmCode, [x=1, y=1, DispX=0, DispY=0]) - Функция вставляет логотип фирмы с кодом FirmCode на текущий активный лист. x, y - координаты ячейки, относительно которых размещается рисунок, DispX, DispY - смещение рисунка относительно верхнего левого угла этой ячейки. | ||
− | |||
− | + | '''''Вывод''''' | |
SendEmail(Server, Port, User, Pass, AddressFrom, AddressTo, MsgText, Subject) – Отправляет письмо по e-mail с указанными параметрами. В случае ошибки отправки вызывает ошибку (рекомендуется использовать совместно с TRY). Функция закрывает текущий файл, и не может использоваться для файлов, закрытие которых запрещено. | SendEmail(Server, Port, User, Pass, AddressFrom, AddressTo, MsgText, Subject) – Отправляет письмо по e-mail с указанными параметрами. В случае ошибки отправки вызывает ошибку (рекомендуется использовать совместно с TRY). Функция закрывает текущий файл, и не может использоваться для файлов, закрытие которых запрещено. | ||
Строка 240: | Строка 432: | ||
SendEmail(EmailFromStr, AddressTo, MsgText, Subject) – Отправляет письмо по e-mail с указанными параметрами. В случае ошибки отправки вызывает ошибку (рекомендуется использовать совместно с TRY). EmailFromStr – строка, содержащая данные для отправки письма – адрес SMTP-сервера, порт, логин, пароль и email отправителя, разделенные символом переноса строки. Функция закрывает текущий файл, и не может использоваться для файлов, закрытие которых запрещено. | SendEmail(EmailFromStr, AddressTo, MsgText, Subject) – Отправляет письмо по e-mail с указанными параметрами. В случае ошибки отправки вызывает ошибку (рекомендуется использовать совместно с TRY). EmailFromStr – строка, содержащая данные для отправки письма – адрес SMTP-сервера, порт, логин, пароль и email отправителя, разделенные символом переноса строки. Функция закрывает текущий файл, и не может использоваться для файлов, закрытие которых запрещено. | ||
+ | SheetFitPageWidth - устанавливает режим масштабирования печати, чтобы печатная форма помещалась в ширину на один лист. | ||
+ | |||
+ | SetOrientation(value) - Устанавливает ориентацию страницы. True (по-умолчанию) - альбомная (ландшафтная), Ложь - портретная. | ||
+ | |||
+ | PrintOut([copies]) - Печатает текущий лист на принтере по умолчанию. Параметр copies - количество копий, по умолчанию равен 1. | ||
+ | Save(filename) - Сохраняет в файл filename. Если файл существует, в основной системе он будет перезаписан, в других проектах - вызовет ошибку "Файл уже существует". | ||
+ | SetVisible(b) – Устанавливает видимость приложения Excel для пользователя. По-умолчанию – false (не видимо). | ||
− | Пример использования | + | DoNotDestroy(b) – При уничтожении объекта TExcel (а он уничтожается, как и все остальные объекты автоматически при завершении выполнения скрипта), приложение Excel уничтожается вместе с ним. DoNotDestroy(true) отключает уничтожение приложения. |
+ | |||
+ | |||
+ | '''''Пример использования''''' | ||
new('TExcel', 'myxl'); | new('TExcel', 'myxl'); | ||
Строка 254: | Строка 456: | ||
''Возвращает сумму всех числовых данных столбца C файла 'c:\asdf.xlsx''' | ''Возвращает сумму всех числовых данных столбца C файла 'c:\asdf.xlsx''' | ||
+ | |||
+ | == Объект TDirectExcel == | ||
+ | Объект позволяет работать с файлами Excel напрямую, без установленного пакета MsOffice. Применяется в сервисах и при отсутствии экселя. Он максимально совместим с объектом TExcel, однако некоторые методы могут быть не реализованы. | ||
== Объект TCSVFile == | == Объект TCSVFile == | ||
− | Предназначен для доступа к данным документов CSV. | + | Предназначен для доступа к данным документов CSV. Разделителем столбцов является символ точка с запятой ; |
Функции: | Функции: | ||
Строка 264: | Строка 469: | ||
OpenFile(FileName) – Открывает файл FileName. | OpenFile(FileName) – Открывает файл FileName. | ||
− | LoadFromDB(DB) – Загружает таблицу из набора данных, открытого в объекте DB типа TADO. | + | LoadFromDB(DB[, Headered=false]) – Загружает таблицу из набора данных, открытого в объекте DB типа TADO. |
+ | |||
+ | LoadFromText(s) - Загружает таблицу из строки s. | ||
RecNo – Возвращает номер текущей строки. Нумерация строк начинается с 1. | RecNo – Возвращает номер текущей строки. Нумерация строк начинается с 1. | ||
Строка 283: | Строка 490: | ||
SendEmail(EmailFromStr, AddressTo, MsgText, Subject) – Отправляет письмо по e-mail с указанными параметрами. В случае ошибки отправки вызывает ошибку (рекомендуется использовать совместно с TRY). EmailFromStr – строка, содержащая данные для отправки письма – адрес SMTP-сервера, порт, логин, пароль и email отправителя, разделенные символом переноса строки. | SendEmail(EmailFromStr, AddressTo, MsgText, Subject) – Отправляет письмо по e-mail с указанными параметрами. В случае ошибки отправки вызывает ошибку (рекомендуется использовать совместно с TRY). EmailFromStr – строка, содержащая данные для отправки письма – адрес SMTP-сервера, порт, логин, пароль и email отправителя, разделенные символом переноса строки. | ||
+ | |||
+ | SaveToFile(Filename) - Сохраняет в файл с именем filename. | ||
== Объект TADO == | == Объект TADO == | ||
Строка 289: | Строка 498: | ||
Функции: | Функции: | ||
− | {| | + | {| class="wikitable" |
!Функция | !Функция | ||
!Описание | !Описание | ||
Строка 295: | Строка 504: | ||
|Connect(ConnectionString) | |Connect(ConnectionString) | ||
|Подключает к источнику данных. ConnectionString – Строка подключения ADO. | |Подключает к источнику данных. ConnectionString – Строка подключения ADO. | ||
+ | |- | ||
+ | |ConnectMySQL(DBServer, DBPort, DBUser, DBPass, DBName) | ||
+ | |Подключает к базе данных MySQL. | ||
|- | |- | ||
|Open(Query) | |Open(Query) | ||
Строка 312: | Строка 524: | ||
|- | |- | ||
|RecNo | |RecNo | ||
− | |Возвращает номер текущей записи. | + | |Возвращает номер текущей записи. ''ВНИМАНИЕ! В зависимости от способа подключения к БД нумерация может начинаться как с 0 так и с 1!'' |
|- | |- | ||
|EOF | |EOF | ||
Строка 333: | Строка 545: | ||
|- | |- | ||
|GetSQLValue(Query) | |GetSQLValue(Query) | ||
− | |Выполняет SQL-запрос. Текст запроса должен начинаться с первого символа строки (перед запросом не должно быть пробелов, переносов строк, комментариев и т.д.). Если запрос Insert – возвращает ID вставленной записи. Если запрос – Update, Delete, Replace, Set, Start, Commit, Rollback – возвращает количество измененных записей (RowsAffected), иначе – Select – значение первого поля первой строки | + | |Выполняет SQL-запрос. Текст запроса должен начинаться с первого символа строки (перед запросом не должно быть пробелов, переносов строк, комментариев и т.д.). Если запрос Insert – возвращает ID вставленной записи. Если запрос – Update, Delete, Replace, Set, Start, Commit, Rollback – возвращает количество измененных записей (RowsAffected), иначе – Select – значение первого поля первой строки результата как текст. |
|- | |- | ||
|FillText(s) | |FillText(s) | ||
− | |Возвращает строку s с замененными названиями полей между знаками процента на соответствующие значения текущей записи. Так же в строке возможно использование интерпретируемого кода, заключенного между тегами "<?>" и ">". При интерпретации система сначала производит замену полей с процентами на значения, потом интерпретирует код. | + | |Возвращает строку s с замененными названиями полей между знаками процента на соответствующие значения текущей записи. Так же в строке возможно использование интерпретируемого кода, заключенного между тегами "<?>" и ">". При интерпретации система сначала производит замену полей с процентами на значения, потом интерпретирует код. ''Внимание! Функция не создает отельный контекст интерпретатора, а использует существующий, в нем доступны все объекты и переменные, вызывающего скрипта.'' Дополнительно автоматически создается объект TSelfADO, подключенный к той же БД, что и контекст, вызвавший функцию, с пустым именем, а так же с именем "dataset". |
|- | |- | ||
|Query(Query) | |Query(Query) | ||
Строка 346: | Строка 558: | ||
|Self | |Self | ||
|Возвращает указатель на подключение к БД для использования в других объектах. | |Возвращает указатель на подключение к БД для использования в других объектах. | ||
+ | |- | ||
+ | |ParseForIn([FieldName='code']) | ||
+ | |Возвращает через запятую значения всех строк в указанном столбце. По умолчанию, используется столбец с именем code. | ||
+ | |- | ||
+ | |GetSQL | ||
+ | |Для отладки. Возвращает последний SQL запрос переданный в методы Open, Query, GetSQLValue | ||
+ | |- | ||
+ | |ExportExcel | ||
+ | |Для отладки. Выгружает в эксель содержимое датасета. Можно использовать в незнакомом окружении для понимания передаваемых полей в : шаблонах, печатных формах и т.д. Аналог команды %echo% в шаблонах, на случай если она не сработает. | ||
+ | |- | ||
+ | |OnGetText | ||
+ | |Функция подменяет текстовый вывод значения поля при выгрузке в эксель. Первый параметр это имя поля, которое надо подменить. Второй параметр это то что необходимо вывести. Работает только с текстовыми полями. | ||
+ | '''''Пример использования''''' | ||
+ | DB.OnGetText('Зона', IF((DB.FieldByName('-Lat') ! 0) * (DB.FieldByName('-Lon') ! 0), | ||
+ | GetPolygonByLatLon(DB.FieldByName('-Lat'), DB.FieldByName('-Lon'), 'TYPE = 1 AND IFNULL(zone, 0) > 0 AND PRICE = ' + DB.FieldByName('-price'), 'zone') | ||
+ | , | ||
+ | '' | ||
+ | )); | ||
|} | |} | ||
+ | |||
Пример использования – см. TSelfADO | Пример использования – см. TSelfADO | ||
Строка 358: | Строка 589: | ||
Пример использования: | Пример использования: | ||
− | + | rem('Копируем данные из "родной" базы данных в базу MSSQL.'); | |
− | rem('Копируем данные из | + | new('TSelfADO', 'MyDB'); |
− | + | new('TADO', 'MSSQL'); | |
− | + | MSSQL.Connect('Provider=SQLOLEDB.1;Password=myPassword;Persist Security Info=True;User ID=myUsername;Initial Catalog=myDataBase;Data Source=myServerAddress'); | |
− | + | MyDB.Open('select code, name, passport from kurier where code>'+Int(MSSQL.Query('select max(code) from kurier'))+' order by code'); | |
− | + | While(MyDB.EOF=0, | |
− | + | MSSQL.Query('insert kurier (code, name, passport) VALUES ('+MyDB.Code+', '+QuotedStr(MyDB.Name)+', '+QuotedStr(MyDB.Passport)+')'); | |
− | + | MyDB.Next; | |
− | + | ); | |
− | |||
− | |||
== Объект TPrinter == | == Объект TPrinter == | ||
Строка 393: | Строка 622: | ||
SetOrientation(Orientation) – Устанавливает ориентацию страницы. При необходимости начинает новый документ, новую страницу. | SetOrientation(Orientation) – Устанавливает ориентацию страницы. При необходимости начинает новый документ, новую страницу. | ||
− | ShowDialog – Показывает пользовательский диалог печати | + | ShowDialog – Показывает пользовательский диалог печати. Возвращает истину, если пользователь нажал "OK". |
NewPage – Начинает новую страницу | NewPage – Начинает новую страницу | ||
Строка 407: | Строка 636: | ||
PrintTable(Y, Table) – Выводит на печать таблицу Table типа TTable, начиная с координаты Y. При необходимости таблица печатается на нескольких страницах. Возвращает координату Y конца таблицы. | PrintTable(Y, Table) – Выводит на печать таблицу Table типа TTable, начиная с координаты Y. При необходимости таблица печатается на нескольких страницах. Возвращает координату Y конца таблицы. | ||
+ | GetDefaultPrinter - Возвращает имя текущего активного принтера. | ||
+ | |||
+ | SetDefaultPrinter(Printer) – Запоминает предыдущий активный принтер и устанавливает новый текущий принтер. Printer - имя принтера. При необходимости нескольких последовательных вызовов SetDefaultPrinter рекомендуется между вызовами использовать RestoreDefaultPrinter. | ||
− | + | RestoreDefaultPrinter - Устанавливает активным принтер, который был текущим перед последним вызовом SetDefaultPrinter. | |
== Объект TCanvas == | == Объект TCanvas == | ||
Строка 427: | Строка 659: | ||
MLTextOut(x1, y1, x2, y2, Alignment, VAlignment, Font, s, Heigth, Indent) – Выводит многострочный текст s в прямоугольнике с координатами x1, y1, x2, y2 с переносом по словам. По горизонтали строки выравниваются в соответствии с Alignment, по вертикали – в соответствии с VAlignment (0 – прижато вверх, 1 – по центру, 2 – прижато вниз). Используя шрифт Font (см описание ниже). Heigth – высота строки. Если опущено или равно нулю – высота определяется автоматически в соответствии с выбранным шрифтом. Indent – отступ по горизонтали, расстояние в пикселях между границей прямоугольника и текстом. Функция возвращает координату Y фактического окончания текста (нижней границы последней строки текста. ''ВНИМАНИЕ! Функция использует координаты прямоугольника для позиционирования текста, однако она не ограничивает его верхней и нижней границами этого прямоугольника!'' | MLTextOut(x1, y1, x2, y2, Alignment, VAlignment, Font, s, Heigth, Indent) – Выводит многострочный текст s в прямоугольнике с координатами x1, y1, x2, y2 с переносом по словам. По горизонтали строки выравниваются в соответствии с Alignment, по вертикали – в соответствии с VAlignment (0 – прижато вверх, 1 – по центру, 2 – прижато вниз). Используя шрифт Font (см описание ниже). Heigth – высота строки. Если опущено или равно нулю – высота определяется автоматически в соответствии с выбранным шрифтом. Indent – отступ по горизонтали, расстояние в пикселях между границей прямоугольника и текстом. Функция возвращает координату Y фактического окончания текста (нижней границы последней строки текста. ''ВНИМАНИЕ! Функция использует координаты прямоугольника для позиционирования текста, однако она не ограничивает его верхней и нижней границами этого прямоугольника!'' | ||
− | DrawPic(x1, y1, x2, y2, Pic, Style, Alignment) – Прорисовывает изображение Pic (ссылка на изображение TPicture.Self) в прямоугольник заданный координатами x1-y2. Style – стиль масштабирования. 0 – растянуть изображение до границ прямоугольника не сохраняя пропорции, 1 – вписать изображение в прямоугольник сохраняя пропорции – вероятно, останутся поля по вертикали или горизонтали, 2 – вписать сохраняя пропорции, обрезав при необходимости изображение по вертикали или горизонтали. Alignment – выравнивание по горизонтали. Работает только в случае если style=1 и при растягивании изображения получились вертикальные поля. 0 – разместить по центру, 1 – прижать влево, 2 – прижать вправо. Функция возвращает координату X правой стороны изображения кроме случая, когда Style=1 и Alignment=2 – в этом случае возвращается координата левой стороны изображения. | + | DrawPic(x1, y1, x2, y2, Pic, Style, Alignment, Mode) – Прорисовывает изображение Pic (ссылка на изображение TPicture.Self) в прямоугольник заданный координатами x1-y2. Style – стиль масштабирования. 0 – растянуть изображение до границ прямоугольника не сохраняя пропорции, 1 – вписать изображение в прямоугольник сохраняя пропорции – вероятно, останутся поля по вертикали или горизонтали, 2 – вписать сохраняя пропорции, обрезав при необходимости изображение по вертикали или горизонтали. Alignment – выравнивание по горизонтали. Работает только в случае если style=1 и при растягивании изображения получились вертикальные поля. 0 – разместить по центру, 1 – прижать влево, 2 – прижать вправо. Функция возвращает координату X правой стороны изображения кроме случая, когда Style=1 и Alignment=2 – в этом случае возвращается координата левой стороны изображения. Mode - способ наложения изображения. 0 (по-умолчанию) - копирование как есть. 1 - Наложение операцией AND (применяется для получения эффекта прозрачности изображения), 2 - наложение операцией XOR (Применяется для возможности повторной операцией убрать изображение), 3 - Наложение операцией OR. |
− | FillRect(x1, y1, x2, y2) – | + | FillRect(x1, y1, x2, y2) – Рисует прямоугольник '''без границ''' и закрашивает цветом BrashColor |
− | Rect(x1, y1, x2, y2) – | + | Rect(x1, y1, x2, y2) – Рисует прямоугольник '''c границами''', задаваемыми текущим пером, и закрашивает цветом BrashColor |
SetFont(Font) – Устанавливает шрифт по-умолчанию. | SetFont(Font) – Устанавливает шрифт по-умолчанию. | ||
+ | |||
+ | SetPen(Width, Color) - Устанавливает параметры "ручки" - толщину и цвет. Если любой параметр опустить, соответствующее значение не будет изменено. | ||
+ | |||
+ | SetBrush(Color, Style) - Устанавливает параметры заливки - цвет и стиль. Если любой параметр опустить, соответствующее значение не будет изменено. Стили заливки: 0 - сплошная, 1 - отсутствует (прозрачная), 2-7 - различные виды штриховки (горизонтальные, вертикальные, в клеточку и т.д.). | ||
TextHeight(s) – Возвращает высоту текста s в пикселях без учета многострочности, с учетом текущего шрифта. | TextHeight(s) – Возвращает высоту текста s в пикселях без учета многострочности, с учетом текущего шрифта. | ||
TextWidth(s) – Возвращает ширину текста s в пикселях без учета многострочности, с учетом текущего шрифта. | TextWidth(s) – Возвращает ширину текста s в пикселях без учета многострочности, с учетом текущего шрифта. | ||
− | |||
− | |||
− | |||
− | |||
Использование шрифта (Font): У объекта TCanvas есть «глобальные» установки шрифта. Однако для некоторых функций возможно указание шрифта, отличающегося от глобального. Параметры шрифта – это текстовая строка, состоящая из 6-ти параметров, разделенных запятыми: Название, размер, жирный, курсив, подчеркнутый, цвет. Например: | Использование шрифта (Font): У объекта TCanvas есть «глобальные» установки шрифта. Однако для некоторых функций возможно указание шрифта, отличающегося от глобального. Параметры шрифта – это текстовая строка, состоящая из 6-ти параметров, разделенных запятыми: Название, размер, жирный, курсив, подчеркнутый, цвет. Например: | ||
Строка 449: | Строка 681: | ||
Любой параметр можно опустить, и тогда вместо него будет использовано значение по-умолчанию: шрифт: arial, размер – 10, не жирный, не курсив, не подчеркнутый, цвет – черный. Например: ', 7' – указывает, что по-умолчанию нужно взять все параметры кроме размера шрифта. Также можно вместо всей строки указать тире ('-') или пустую строку, и шрифт будет использоваться «глобальный». | Любой параметр можно опустить, и тогда вместо него будет использовано значение по-умолчанию: шрифт: arial, размер – 10, не жирный, не курсив, не подчеркнутый, цвет – черный. Например: ', 7' – указывает, что по-умолчанию нужно взять все параметры кроме размера шрифта. Также можно вместо всей строки указать тире ('-') или пустую строку, и шрифт будет использоваться «глобальный». | ||
+ | Объект можно создать отдельно, не создавая объект TPrinter. В таком случае объект создастся как ссылка на текущий холст принтера (принтер должен быть запущен и начат новый документ). Такой подход используется в доп. возможности PrintCustomSticker | ||
== Объект TPicture == | == Объект TPicture == | ||
− | Предоставляет функции для работы с графическими изображениями форматов BMP и | + | Предоставляет функции для работы с графическими изображениями форматов BMP, GIF, JPEG и PNG, а также для формирования штрих-кодов. Обратите внимание, прозрачность изображений не поддерживается, однако в методе TCanvas.DrawPic есть параметр Mode, призванный создавать эффект прозрачности. |
Функции: | Функции: | ||
Строка 460: | Строка 693: | ||
LoadFromDB(DB, Query) – Загружает изображение из базы данных. DB – ссылка на подключение к базе данных TADO.Self, Query – текст запроса. Запрос должен вернуть в первом поле первой строки BLOB-поле с изображением, все остальные данные возвращаемые запросом игнорируются. Возвращает истину, если операция прошла успешно, иначе – ложь. | LoadFromDB(DB, Query) – Загружает изображение из базы данных. DB – ссылка на подключение к базе данных TADO.Self, Query – текст запроса. Запрос должен вернуть в первом поле первой строки BLOB-поле с изображением, все остальные данные возвращаемые запросом игнорируются. Возвращает истину, если операция прошла успешно, иначе – ложь. | ||
− | + | LoadFromStr($s) – Загружает изображение из строки $s. Возвращает истину, если операция прошла успешно, иначе – ложь. | |
− | + | CreateBar(Width, Height, BarCode, Textless, Type) – Формирует штрих-код шириной Width и высотой Height с типом кодирования Type. BarCode – текст штрих-кода. Булево значение Textless указывает, что в штрих-коде не должно быть человеко-читаемых символов если истинно. Type указывает тип кодирования: 0 (по-умолчанию) CODE128, 1 - EAN-13, 2 - Interleaved 2-5, 3-DataMatrix, 4-QRCode. | |
+ | Штрихкод должен быть: Для EAN-13 цифровым 12 или 13 символов (13-й, контрольная сумма рассчитывается автоматически), для CODE128 - должен иметь состоять из допустимого для этого кодирования набора символов. Для Interleaved - должен состоять из четного числа цифр, контрольная сумма автоматически не рассчитывается. Если для Interleaved кода указано значение из 14-ти знаков, подпись цифр выводится в формате Почты России. | ||
+ | Внимание! Для кодов EAN-13 и Interleaved ширина штрих-кода Width не является точным значением получаемого на выходе изображения. Ширина изображения рассчитывается как максимальное кратное минимально возможной ширине, но не меньше минимально возможной. Конечную ширину можно получить в соответствующем свойстве объекта. Для кода CODE128 штрих-код на выходе может оказаться пустым, если указанной ширины штрих-кода не достаточно для его формирования. | ||
+ | Для кода DataMatrix можно установить режим для печати скрытых символов с кодами 29(GS) и 232(FCN1), которые требуются для формирования Честного Знака. Для этого необходимо в начале строки указать символ "[" и все разделители 01, 21, 91, 92 так же экранировать этими скобками. Должно получиться [01]02900002317701[21]k3LInNbH_oG0Q[91]EE06[92]YXiyKfiHjE4YE8b+YVMC1O5r8VtpplA3AwcCqrcG9Dk= . При формировании кода, включится режим формирования штрих-кода DataMatrix GS1, в начале будет добавлен символ с кодом 232 (FCN1), а потом будут добавлены разделители с кодом 29 (GS) | ||
+ | Функция возвращает 1 в случае успеха, или текст ошибки, если такая произошла. | ||
+ | |||
+ | SetSize(Width, Height) - Устанавливает размер изображения. | ||
+ | |||
+ | AsString([ImageFormat]) - Возвращает изображение в виде строки с двоичными данными. ImageFormat принимает значения 1 - Bitmap (по-умолчанию), 2 - jpeg, 3 - png, 4 - gif. | ||
Width – Возвращает ширину изображения. | Width – Возвращает ширину изображения. | ||
Строка 471: | Строка 712: | ||
Self – Ссылка на объект с изображением, используется в качестве параметра для функций, работающих с изображениями из данного объекта. | Self – Ссылка на объект с изображением, используется в качестве параметра для функций, работающих с изображениями из данного объекта. | ||
+ | |||
+ | Canvas - ссылка на объект TCanvas холста изображения. | ||
== Объект TTable == | == Объект TTable == | ||
− | Предоставляет функции для работы с таблицами. | + | Предоставляет функции для работы с таблицами. Удобен для печати таблицы на принтере. Алгоритм таков: Загружаем датасет в таблицу, настраиваем ее (шрифты, штрих-коды и т.д.), потом выводим на принтер функцией TPrinter.PrintTable. |
Функции: | Функции: | ||
− | LoadFromDB(DB) – Загружает таблицу из набора данных, открытого в объекте DB типа TADO. Таблица загружается вместе с заголовками. Если название поля содержит подстроку «_RecNo» - данная подстрока не попадет в заголовок, а все значения поля будут заменены на порядковый номер записи в наборе данных, начиная с «1». Заголовок – это первая строка таблицы. | + | LoadFromDB(DB) – Загружает таблицу из набора данных, открытого в объекте DB типа TADO. Таблица загружается вместе с заголовками. Если название поля содержит подстроку «_RecNo» - данная подстрока не попадет в заголовок, а все значения поля будут заменены на порядковый номер записи в наборе данных, начиная с «1». В одной таблице допускается не более одного поля с порядковой нумерацией. Поля, названия которых начинаются в символа "-" не выгружаются. Заголовок – это первая строка таблицы. |
Cell(С, R) – Возвращает значение ячейки таблицы с координатами (C, R). Нумерация строк и столбцов начинается с 1. | Cell(С, R) – Возвращает значение ячейки таблицы с координатами (C, R). Нумерация строк и столбцов начинается с 1. | ||
+ | |||
+ | SetCell(С, R, Value) – Устанавливает значение ячейки таблицы с координатами (C, R) в Value. Нумерация строк и столбцов начинается с 1. | ||
RowCount – Возвращает количество строк в таблице. | RowCount – Возвращает количество строк в таблице. | ||
Строка 490: | Строка 735: | ||
SetFont(Font) – Задает шрифт всей таблицы кроме заголовка. | SetFont(Font) – Задает шрифт всей таблицы кроме заголовка. | ||
− | SetIndent(Indent) – Задает отступ от границы ячейки до текста в процентах от ширины страницы. | + | SetColFont(C, Font) - Устанавливает шрифт столбца C. |
+ | |||
+ | SetIndent(Indent) – Задает отступ от границы ячейки до текста в процентах от ширины страницы. По-умолчанию значение 0.3 | ||
SetWidth(С, Width) – Задает значение ширины столбца C в процентах от ширины страницы. | SetWidth(С, Width) – Задает значение ширины столбца C в процентах от ширины страницы. | ||
− | SetMinRowHeght (Heght) – Задает значение минимальной высоты строки. | + | SetMinRowHeght (Heght) – Задает значение минимальной высоты строки в пикселях. |
+ | |||
+ | SetBarCode(Col, Type) - Указывает, что данные из столбца Col должны печататься в виде штрих-кода. Тип штрих-кода - Type. Значение '''"1" - EAN13'''. Для кода EAN13 первая строка данных в ячейке должна иметь вид "тип штрих-кода, номер", например "7, 123" (без кавычек, конечно). В этом случае система сформирует штрих-код: "2700000001233". Первая цифра - всегда 2, далее - указанный тип штрих-кода, нули, чтобы получилось 13 символов, номер, указанный в таблице, и один символ - контрольная сумма. Значение '''"2" - CODE128''' (с версии 734). Данные из первой строки ячейки таблицы печатаются в штрих-коде "как есть". Для всех видов штрих-кода (с версии 734) последующие строки печатаются под штрих-кодом в виде текста. | ||
− | + | SetMultiHeader(Active) - Включает печать заголовка при переносе таблицы на несколько страниц. По умолчанию отключено. | |
− | + | SetCustomHeader(script) - Включает печать пользовательского заголовка. Script - это код интерпретатора, который должен печатать заголовок на канву. Печать таблицы может происходить на нескольких листах, по этому скрипт будет вызван для каждого листа. При использовании этого метода, автоматически инициализируются переменные: $TablePageNo - номер страницы, нумерация начинается с нуля; $TableY - координата по оси Y, от которой рисуется заголовок. Чтобы таблица была под заголовком необходимо значение переменной $TableY увеличить на высоту заголовка. | |
Self – Ссылка на объект с таблицей, используется в качестве параметра для функций, работающих с таблицами из данного объекта. | Self – Ссылка на объект с таблицей, используется в качестве параметра для функций, работающих с таблицами из данного объекта. | ||
+ | Пример: | ||
+ | <?> | ||
+ | NEW('TPrinter', 'Prn'); | ||
+ | If(prn.ShowDialog, | ||
+ | NEW('TTable', 'Tbl'); | ||
+ | NEW('TSelfADO', 'MyDB'); | ||
+ | MyDB.Open('SELECT concat("7", ", ", a.code, "\r\n", a.client_id, "\r\n", a.zakaz, "-", a.number) as "Штрих-код", a.target AS "Заказик", address, phone, vlog, poruch FROM address a order by code desc limit 10'); | ||
+ | Tbl.LoadFromDB(MyDB.Self); | ||
+ | Tbl.SetBarcode(1, 1); | ||
+ | Tbl.SetCustomHeader( | ||
+ | if($TablePageNo>0, | ||
+ | Prn.Canvas.TextOut(Prn.Canvas.DPIX*0.1, $TableY, 'Продолжение таблицы'); | ||
+ | set($TableY, $TableY + Prn.Canvas.TextHeight('H')); | ||
+ | ,0) | ||
+ | ); | ||
+ | Prn.BeginDoc; | ||
+ | Prn.PrintTable(0, Tbl.Self); | ||
+ | Prn.EndDoc | ||
+ | , ); | ||
== Объект TBaseUtils == | == Объект TBaseUtils == | ||
Строка 509: | Строка 777: | ||
Функции: | Функции: | ||
− | MakeAddress(s) – возвращает значение, полученное путем преобразований адреса s для приведения его к внутреннему формату программы. В процессе преобразования до нескольких раз происходит замена буквосочетаний по таблице замены (ее редактирование доступно по нажатию кнопки «Автозамена» в интерфейсе импорта БД из Excel системы (см. Руководство пользователя)), поиск улиц по базе КЛАДР с точностью до одного знака, и некоторые другие операции, нацеленные на исправление ошибок в написании адреса. | + | '''MakeAddress(s[,town])''' – возвращает значение, полученное путем преобразований адреса s для приведения его к внутреннему формату программы. В процессе преобразования до нескольких раз происходит замена буквосочетаний по таблице замены (ее редактирование доступно по нажатию кнопки «Автозамена» в интерфейсе импорта БД из Excel системы (см. Руководство пользователя)), поиск улиц по базе КЛАДР с точностью до одного знака, и некоторые другие операции, нацеленные на исправление ошибок в написании адреса. |
+ | |||
+ | С версии программы 2008.0.0.615, при вызове функции в формулах загрузки реестра, в первую очередь происходит проверка строки s на условия: | ||
+ | * в строке s записано число; | ||
+ | * строка s начинается с "ПВЗ ". | ||
+ | Если одно из этих условий выполняется, то функция пытается установить пункт самовывоза - т.е она сама в загружаемой карточке корреспонденции укажет: адрес ПВЗ, город ПВЗ и установит галку самовывоз. <br/>Правила поиска ПВЗ: | ||
+ | * Если s число - считаем его внутренним кодом филиала; | ||
+ | * Если s начинается с "ПВЗ " - Например в адресе передана строка "ПВЗ На Ленинском проспекте", то искать будем филиал с названием "На Ленинском проспекте" который подчиненный, активный, с галкой ПВЗ и в городе town. Если город не указан, то ищем филиал во всех городах, и считаем его найденным если найдем только один филиал. | ||
+ | * Если филиалы найти не удалось, функция makeaddress работает как обычно и выполняет преобразование адреса. | ||
+ | |||
+ | Если адрес не содержит русских букв, только латиница, и курьерская служба находится в одной из стран Россия, Белоруссия, Казахстан или Украина, и город-получатель (второй параметр, town) находится так же в одной из этих стран, функция автоматически делает транслитерацию адреса на русский язык. | ||
− | |||
''SetConnection(DB) – Подключает объект к базе данных DB, где DB – ссылка на объект TADO.Self.'' '''ВРЕМЕННО НЕ РАБОТАЕТ!''' | ''SetConnection(DB) – Подключает объект к базе данных DB, где DB – ссылка на объект TADO.Self.'' '''ВРЕМЕННО НЕ РАБОТАЕТ!''' | ||
Строка 517: | Строка 794: | ||
''SetTown(Town) – Устанавливает код текущего города (используется в некоторых функциях объекта) в значение Town. По-умолчанию текущий город – 1.'' '''ВРЕМЕННО НЕ РАБОТАЕТ!''' | ''SetTown(Town) – Устанавливает код текущего города (используется в некоторых функциях объекта) в значение Town. По-умолчанию текущий город – 1.'' '''ВРЕМЕННО НЕ РАБОТАЕТ!''' | ||
− | SetIndexLength(Length) – Устанавливает длину почтового индекса. По-умолчанию – 6. | + | '''SetIndexLength(Length)''' – Устанавливает длину почтового индекса. По-умолчанию – 6. |
+ | |||
+ | '''GetIndex(Address)''' – Возвращает почтовый индекс из адреса. | ||
+ | |||
+ | '''GetStreet(Address)''' - Возвращает улицу до первой запятой. | ||
+ | |||
+ | '''GetHome(Address)''' - Возвращает номер дома до второй запятой, но не более пяти символов. | ||
+ | |||
+ | '''GetKurierByStation(station, Mass, Cash, Date_Putn)''' | ||
+ | |||
+ | '''TownByIndex(Index[, PriorityName][, PriorityCountry])''' – Возвращает код города по индексу. В случае ошибки поиска – код текущего города. Если нашлось несколько населенных пунктов, и указано приоритетное название - выбирается населенный пункт, название которого начинается с PriorityName (если есть). | ||
+ | |||
+ | '''TownByName(Name[,NotNeedCL=False, City=0])''' – Возвращает код города по имени. В случае ошибки поиска – возвратит код текущего города. Если параметр NotNeedCL (параметр не обязательный) установить в TRUE, тогда функция возвратит 0, если город не удалось найти. Параметр City (код региона) позволяет ограничить поиск одной областью (не обязательный, по умолчанию не используется). | ||
+ | |||
+ | '''FillClientInfo(Excel, client, Sheet, Row, Col)''' – Выводит в эксель информацию о клиенте с кодом client на лист sheet начиная со строки row и столбца col. | ||
+ | |||
+ | '''SavePrintFormToFile(FormType, FormNumber)''' - Сохраняет на диске файл печатной формы и возвращает путь к нему | ||
+ | |||
+ | '''CreateTrans(Address[, Store][, Operator][,Correction])''' - Формирует запись для печати кассового чека для корреспонденции с кодом Address, для выбора кассового аппарата используется код склада Store. Если Store не указано - при исполнении в среде клиентского модуля системы использует склад, указанный пользователем в окне [[Настройка параметров рабочего места|"Настройка" - "Параметры"]], в остальных модулях - код текущего склада из [[Настройка глобальных параметров|переменной]] "CL" ("Текущий филиал"). Поле Operator позволяет указать кассира (передается код справочника сотрудников). Если не указан, в основной системе будет использован код авторизованного пользователя, в других модулях - 1. | ||
+ | Поле Correction позволяет указать данные для корректировочного чека, используется в системе Штрих-М. По умолчанию пустая строка. Возвращает идентификаторы записей чеков. Может вернуть пустую строку, если чек создавать не понадобилось, один или несколько кодов через запятую, если создано несколько чеков. В случае ошибки вызывает ошибку, поэтому рекомендуется использовать с функцией Try. | ||
+ | |||
+ | '''CreateReturnTrans(Address)''' - формирует запись для печати чека возврата для корреспонденции с кодом Address. Чек возврата печатается на полную сумму и с теми же атрибутами, что и чек продажи. Возвращает идентификатор записи чека возврата. В случае ошибки вызывает ошибку, поэтому, как и с CreateTrans, рекомендуется использовать с функцией Try. | ||
+ | |||
+ | '''CalcTownDeliveryDays(Source, Mode, TownTo, TownFrom)''' - возвращает количество дней необходимых на доставку отправления, только для межгорода. Source - код клиента, Mode - режим срочности, TownFrom - код города отправителя, TownTo - код города получателя. | ||
+ | |||
+ | '''CalcDeliveryDate(Source, Mode, TownTo, TownFrom, Date_Beg, Time_beg)''' - Возвращает планируемую дату доставки с учетом сроков доставки. Работает при городской и междугородней доставке. Для межгорода сроки доставки берутся из зон. Для городской доставки, из дополнительных параметров статуса (17 статус, 1 параметр в доп. информации) Если рассчитать дату планируемой доставки не удалось, возвращает пустую строку. Параметры: Source - код клиента, Mode - режим срочности, TownTo - город получатель, TownFrom - город отправитель, date_beg - дата заказа (может быть передана строкой в формате DD.MM.YYYY или в числовом), time_beg - время заказа. | ||
+ | |||
+ | '''GenSpecialSMA(DirectExcel, Code)''' - функция для генерации отчета о доставке по акту передачи денег. Первый параметр - указатель на TDirectExcel, второй параметр - код акта передачи денег. АПД выводится на текущий лист объекта TDirectExcel. | ||
+ | |||
+ | '''CreateSpecialSMA(ClientCode, DateTo)''' - Функция создает исходящий акт передачи денег (АПД). Требует ClientCode - код клиента, DateTo - дату акта. Функция возвращает коды созданных актов. Если возвращаемых параметров два, значит функция пыталась создать два АПД: первым, идет код АПД с наличной оплатой, а вторым с безналичной. Примеры возвращаемого результата: '0'- акт не был создан, отсутствуют корреспонденции; '124' - код созданного акта; '0,0' - пытались создать два акта, но отсутствуют данные; '4556,0' - создан только наличный АПД; '0,445' - создан только безнал.; '4556,445' - созданы нал. и безнал. | ||
+ | |||
+ | '''CreateAddressForActDelivery(ActCode, [DeliveryDateMode=0, Delivery=True])''' - Функция создает корреспонденцию на доставку акта. ActCode - код акта; DeliveryDateMode: 0 - установить план. дату доставки текущим рабочим днем, 1 - установить план. дату доставки следующим рабочим днем, 2 - установить план. дату доставки равной планируемой дате оплаты АПД; Delivery - создать корр. на доставку АПД или создать корреспонденцию на забор АПД (по умолчанию, доставка АПД). Работа функции может быть изменена системной доп. возможностью OnCreateAddressForActDelivery. | ||
+ | |||
+ | '''CreateAddressTransferAct(ClientCode, Store, DateTo, [AdditionalParam])''' - Функция создает исходящий акт передачи корреспонденции (АПК). Требует ClientCode - код клиента, Store - код филиала, для которого будет создан акт, DateTo - дату, до которой в акт попадут возвраты, AdditionalParam - дополнительный строковый параметр для передачи в системную доп. возможность ExceptionsForAPK, позволяющий отобрать в акт, например, только полные возвраты. Возвращает код созданного акта. ВНИМАНИЕ: при создании АПК используется системная функция ExceptionsForAPK. Если в ней используются интерактивные функции (вывод сообщений, диалоговые окна, выполнение скриптов), то акт сформирован не будет, а функция CREATEADDRESSTRANSFERACT вернет ошибку. | ||
+ | |||
+ | '''GetPolygonByAddress(Address, TownCode, where[, field='code'])''' - функция возвращает значение связанное с полигоном в который попал адрес. Если полигон найти не удалось, функция возвратит пустую строку. Address - адрес корреспонденции текстом; TownCode - код города; where - SQL условие; field - необязательный параметр, определяет возвращаемое значение при найденном полигоне, по умолчанию равен "code". | ||
+ | |||
+ | Пример: | ||
+ | GetPolygonByAddress(addressrecord.address, if((addressrecord.number=0)*(addressrecord.strbarcode=<nowiki>''</nowiki>), addressrecord.townfrom, addressrecord.townto), '`schema`=1') - пытаемся найти вхождение адреса в полигоны 1 схемы, при выборе города учитывается корр. на забор, у нее нужно использовать город-отправитель (а для обычной корр. нужен город-получатель). | ||
+ | |||
+ | '''GetPolygonByLatLon(Lat, Lon, where[, field='code'])''' - функция возвращает значение связанное с полигоном в который попали GPS координаты. Если полигон найти не удалось, функция возвратит пустую строку. Lat - широта текстом; Lon - долгота текстом; where - SQL условие; field - необязательный параметр, определяет возвращаемое значение при найденном полигоне, по умолчанию равен "code". | ||
+ | |||
+ | Пример: | ||
+ | GetPolygonByLatLon('55.769064','37.590713','zone is not null and price=0') - пытаемся найти вхождение координат в полигоны, где задана зона, для всех клиентских и курьерских зон. | ||
+ | |||
+ | '''GetLatLonByAddress(AddressText, TownCode)''' - возвращает географические координаты вида lat,lon указанного в AddressText адреса. Поиск производится в городе, имеющем код TownCode в таблице Town. | ||
+ | |||
+ | '''GetRouteCode(AddressText, TownCode, LatLon[, Lon])''' - для адреса AddressText в городе с кодом TownCode (из таблицы Town) по географическим координатам lat, lon возвращает код роута (записи, хранящей координаты адреса в городе). Если роут не найден (для адреса в городе не найдено записи с указанными координатами) - создает новый роут и возвращает его код, если роут найден (был создан ранее) - обновляет у роута координаты. Если параметр Lon задан, то параметр LatLon должен содержать одну координату, иначе LatLon должен содержать строку вида 'lat, lon'. | ||
+ | В случае ошибки возвращает Null. | ||
+ | |||
+ | Пример:<br> | ||
+ | Set($res, GetRouteCode(address, townto, '55.114034, 36.592397'));<br> | ||
+ | Set($res, GetRouteCode('Троицк, Полковника милиции Курочкина ул., 11', 1, '37.467446, 55.740537'));<br> | ||
+ | Set($res, GetRouteCode('Обнинск, Маркса пр., 20', TownByName('Обнинск'), 55.114034, 36.592397)); | ||
+ | |||
+ | '''CalcAgentPrice(AddressCode, AgentCode, TownFrom, TownTo, Mode, [, Count=1])''' - функция возвращает стоимость доставки рассчитанную по тарифу агента. AddressCode - код адреса, AgenCode - код филиала (агента), TownFrom - код города отправителя, TownTo - код города получателя, Mode - режим срочности, count - тарифная сетку от указанного количества отправлений (по умолчанию 1) | ||
+ | |||
+ | '''SetAddrKol_vo(address, getkol_vo)''' - функция делает прием корреспонденции в текущем ответственном филиале. address - внутренний код адреса, getkol_vo - количество принимаемых мест, может принимать значения: "kol_vo" - принять все места, "getKol_vo+1" - принять еще одно место, "число" - сделать количество принятых мест равным указанному числу. | ||
+ | |||
+ | '''CalcClientCnt(client_code, date, is_intown [, date_put=CurrDate(), skipajust=false])''' - функция расчета количество доставленных корреспонденций у клиента с кодом client_code за предыдущий месяц от даты date (Или за текущий месяц, подробнее смотри переменную UseCurrentMonthCount) среди внутригородских (is_intown = true) либо междугородних (is_intown = false) корреспонденций, date_put - дата доставки (для альтернативного способа подсчета, включаемого переменной UseDatePutForCalcCnt), skipajust - не учитывать принудительно введенные количества (таблица priceclientadjust типы записей 0 и 1). | ||
+ | |||
+ | '''GetBasePrice''' - возвращает базовую стоимость доставки посчитанную по тарифной сетке клиента в зависимости от :кол-ва заказов,зоны,типа,срочности,массы, расстояния. В системах с выключенными доп. услугами также считает проценты от суммы и страховки. | ||
+ | Описание параметров: | ||
+ | |||
+ | *ds - ссылка на объект датасета с основными параметрами расчета цены. Значение по умолчанию доступно в формулах тарифа и доп. услуг, через вызов "dataset._self". | ||
+ | Описание некоторых полей датасета: | ||
+ | pmoney - процент от суммы; | ||
+ | pmoneycard - процент от суммы при оплате картой; | ||
+ | pricecode - код прайса (таблица Price) ; | ||
+ | distarea - район метро получателя (актуально при отключённом едином районировании, как правило район от 200 до 299 является признаком области); | ||
+ | region - признак области при включенном едином районировании; | ||
+ | distareaFrom и regionFrom - аналог distarea, region только для отправителя; | ||
+ | pcncode - код записи таблицы pricecnt "количество от"; | ||
+ | Запрос содержит поля таблицы pricelinesnew - начальная стоимость по тарифной сетки, найденные без учета массы,только по типу срочности и режиму. | ||
+ | Запрос содержит поля таблицы price. | ||
+ | |||
+ | *addressrecord - ссылка на объектную модель карточки корреспонденции, следует использовать уже созданную addressrecord._self | ||
+ | *count - количество корреспонденций от клиента. (может показывать кол-во корреспонденции в текущем заказе или за прошлый месяц, в зависимости от выбранной схемы подсчета заказов в тарифе) | ||
+ | *type - тип корреспонденции; | ||
+ | *mode - режим доставки; | ||
+ | *wait - количество минут ожидания (не учитывается при доп. услугах, есть системная услуга "ожидание"); | ||
+ | *mass - масса отправления; | ||
+ | *rur - сумма передаваемых денег (не учитывается при доп. услугах, есть системная услуга "процент от суммы"); | ||
+ | *inshprice - сумма страховки (не учитывается при доп. услугах, есть системная услуга "процент от объявленной стоимости"); | ||
+ | *distance - расстояние до места доставки, обычно поле заполняется при доставке в область (регион в едино районировании). Дополнительная наценка к стоимости доставки; | ||
+ | *forward - направление доставки: true - туда; false - обратно; | ||
+ | *Collection - признак заборной корреспонденции: true - забор, false - доставка (В тарифе есть возможность указать стоимость для забора); | ||
+ | *TownFrom - код города отправителя; | ||
+ | *TownTo - код города получателя. | ||
+ | |||
+ | В тарифе есть возможность указать формулу, которая может влиять на базовый расчет. Формула может объявить служебные переменные, которые: | ||
+ | *$FormulaReplace - если true – возвращаемое значение полностью заменяет базовый расчет; | ||
+ | *$FormulaKoeff - коэффициент на который будет помножена базовая стоимость. | ||
+ | Также внутри формулы объявлены следующие объекты dataset, addressrecord и переменные: | ||
+ | *$ForceIntown - Переменная становится истиной, если междугородний расчет был отменен, т.к. адрес попал в нарисованную зону на карте. | ||
+ | *а также: $forward, $distance, $Count, $Collection, $Wait, $FormulaKoeff, $PriceCode - описание есть выше. | ||
+ | |||
+ | Для направления "туда", Функция GetBasePrice вызывается через доп. услугу "База" (при включенных доп. услугах), для направления "Обратно" всегда вызывается напрямую (т.к. доп. услуги работают только в для направления "туда"). | ||
+ | На расчет этой функции влияют следующие переменные: "Финансы" -> "Расчет стоимости по адресу", "Финансы" -> "Зона клиента по умолчанию", "Финансы" -> "Подсчет кол-ва отправлений за месяц". | ||
+ | |||
+ | '''CalcAddressPrice(AddressCode, [,ZakazCount])''' - полностью пересчитывает стоимость доставки корреспонденции по тарифу клиента. AddressCode - внутренний код адреса, ZakazCount - не обязательный параметр, кол-во заказов от клиента. | ||
+ | |||
+ | '''GetStationCode(s [,town])''' – возвращает код станции метро, ассоциированный в системе с адресом s. В случае невозможности идентифицировать станцию метро – возвращает 0. | ||
+ | Когда включено районирование по карте, необходим второй параметр "town" - код города в котором нужно искать адрес. Возвращает код района если удалось его найти; код станции меж-города - если адрес удалось геокодировать, но район не нашли; код 0 - когда не удалось геокодировать адрес. | ||
+ | |||
+ | '''RecalcSpecialSMA(ActCode)''' - пересчитать акт передачи денег (АПД). Также, у корреспонденций входящих в АПД будет пересчитана стоимость доставки. Для Входящего АПД сумма акта не пересчитывается. Параметр ActCode - внутренний код акта, коды можно перечислять через запятую. | ||
+ | |||
+ | '''UserCode''' - Возвращает код текущего пользователя из таблицы «Пользователи» (users). | ||
− | + | '''UserName''' - Возвращает имя текущего пользователя из таблицы «Пользователи» (users). | |
− | + | '''UserPass''' - Возвращает пароль текущего пользователя. | |
− | + | '''UserBaseCode''' – Возвращает код текущего пользователя из таблицы «Сотрудники» (kurier). | |
− | + | '''UserEmail''' - Возвращает e-mail текущего пользователя. | |
− | + | '''CurrentTown''' – Возвращает код текущего города (из таблицы town). | |
− | + | '''CurrentCity''' – Возвращает код текущего региона (из таблицы city). | |
− | + | '''CurrentLocation''' – Возвращает код текущего филиала (из таблицы store). | |
− | + | '''FillExcelDoc'''(Excel, Dataset, FormType, FormNumber) - Выполняет указанную печатную форму в объекте excel. Dataset объект с данными для скрипта в печатной форме, может быть null. Dataset передавать можно так db.self, тогда переданный dataset внутри печатной формы будет доступен по имени dataset. Например: | |
− | + | new('TExcel', 'excel'); | |
+ | FillExcelDoc(excel.self, null, 12, 1); | ||
+ | excel.DoNotDestroy(true); | ||
+ | excel.SetVisible(true); | ||
+ | ''Покажет эксель с выполненной печатной формой'' | ||
− | + | '''ValutaSign''' – Возвращает название валюты для суммы. | |
− | + | '''SendToMeasoft(xml)''' - Отправляет запрос в клиентское API Measoft. Автоматически добавляет начальный "<?xml version="1.0" encoding="utf-8"?>". | |
− | + | '''InsertFirmAtt(excel, sheet, firmcode)''' - Вставляем на лист эксель по коду фирмы: печать, подпись, подпись бухгалтера, логотип. Тэги <STAMP>, <DIR>, <BUH>, <LOGO> соответственно. После тега можно указать размеры изображения в символах Microsoft Excel. Формат записи: <STAMP> 16, 16 | |
− | + | '''PreCalcSalary(kurier, addressCodes)''' - Рассчитывает предварительную зарплату. Kurier - код курьера, используется для определения тарифа. addressCodes - коды адресов, через запятую для которых необходимо посчитать зарплату. Результаты расчета будут записаны в таблицу kurierpaydetail, так как расчет предварительный то записи не будут прикреплены к конкретному начислению. | |
− | + | select a.code, kpd.price as "туда", kpd2.price as "обратно" from address a | |
+ | left join kurierpaydetail kpd on kpd.sourcetable=3 and kpd.sourcecode=a.code and kpd.rectype = 1 | ||
+ | left join kurierpaydetail kpd2 on kpd2.sourcetable=3 and kpd2.sourcecode=a.code and kpd2.rectype = 2 | ||
+ | where a.code in (...) | ||
− | + | '''CalcSalary(DateTo, [Filter=0, KurierCode = 0, ManagerCode = 0])''' - Полный расчет зарплаты курьерам. DateTo - дата до которой создается начисление. Условия отбора курьеров для начисления. Filter - роль сотрудника: 0 - Все, 1 - курьеры, 2 - менеджеры; KurierCode - код курьера, ограничить расчет зарплаты одним курьером;ManagerCode - код курьера, ограничить расчет зарплаты курьерами указанного менеджера. Внимание фильтры Filter, KurierCode и ManagerCode накладываются друг на друга. Результатом функции является SubSQL с информацией по созданным начислениям. | |
+ | поля ответа: код курьера, код менеджера, начислено, бонусы, штрафы, аванс, итого; | ||
+ | select kurier, manager, profit, bonus, shtraf, prepay, total [union select ...] | ||
− | + | '''SelDistAddr(s)''' – Возвращает строку для вставки в select запрос, для вывода поля с упрощенным адресом. Принимает один необязательный строковый параметр - алиас таблицы из которой будет упрощаться поле address, по умолчанию "a" | |
+ | '''VoiceReadStr(str)''' – Озвучивает фразу str голосовым уведомлением доступными словами из базы. Может содержать тег "{break_off}" для того, чтобы сделать эту фразу не пропускаемой в очереди воспроизведения. | ||
+ | '''CalcStorageCost(ClientCodes, DateFrom, DateTo, NeedReport[, Store])''' – рассчитывает стоимость хранения на складе для выбранных клиентов (ClientCodes - коды клиентов через запятую), в период дат с DateFrom до DateTo, с прикреплением к корреспонденции отчета в зависимости от выставленного параметра NeedReport. Может содержать параметр Store - код филиала, по умолчанию пустой (расчет выполняется для всех филиалов). Возвращает коды созданных корреспонденций через запятую. | ||
== Объект TINIFile == | == Объект TINIFile == | ||
Строка 559: | Строка 954: | ||
Функции: | Функции: | ||
− | IniParam(s) – Существует только если имя экземпляра объекта пустое. Возвращает значение параметра s ini-файла секции «common». В случае отсутствия параметра в файле возвращает пустую строку. | + | IniParam(s[,section='common']) – Существует только если имя экземпляра объекта пустое. Возвращает значение параметра s ini-файла секции «common», изменить секцию можно не обязательным параметром section. В случае отсутствия параметра в файле возвращает пустую строку. |
Param(s) – Синоним IniParam с тем отличием, что существует только если имя объекта непустое. | Param(s) – Синоним IniParam с тем отличием, что существует только если имя объекта непустое. | ||
+ | SetText(s) - Загружает ini файл из строки s. Если в файле нет секции «common», то принудительно объявляет ее в начале. | ||
== Объект TSMS == | == Объект TSMS == | ||
− | + | Предназначен для отправки SMS, а также проверки статуса их доставки. | |
Функции: | Функции: | ||
− | Connect(Provider, Host, User, Pass, SenderName) – Подключает объект к провайдеру provider, используя адрес Host, имя пользователя User и пароль Pass. | + | SetProxy(Server, Port, User, Pass) - Устанавливает настройки прокси-сервера. |
− | Для провайдера доступны значения 'zanzara', ' | + | |
+ | Connect(Provider, Host, User, Pass, SenderName, SMSPrefix) – Подключает объект к провайдеру provider, используя адрес Host, имя пользователя User и пароль Pass. Значение SMSPrefix предназначено для того, чтобы провайдер мог различить сообщения от разных филиалов, если этими филиалами используется одно подключение. Если необходимости разделять сообщения нет - значение SMSPrefix можно не указывать. | ||
+ | Для провайдера доступны значения 'mirsms', 'sms16', 'websms', 'epochta', 'zanzara', 'SMSManager', 'f1sms', 'BitCall', 'mirsmsGET', 'AMD' и другие, либо можно указать числовые значения номера протокола, от 1 до <rspoiler text="20">Набор провайдеров все время дополняется, количество и номера можно смотреть в Справочники - Переменные - Подключения - SMS</rspoiler> соответственно. Эти значения соответствуют значениям переменной SMSProtocol таблицы "Value". | ||
− | SendSMS(Phone, Text, [ID]) – Отправляет SMS с текстом Text на телефон Phone. Для некоторых провайдеров необходим уникальный идентификатор сообщения ID. Возвращает ID провайдера для последующей проверки статуса доставки. | + | SendSMS(Phone, Text, [ID]) – Отправляет SMS с текстом Text на телефон Phone. Для некоторых провайдеров необходим уникальный идентификатор сообщения ID (для провайдера iVoice - идентификатор сценария (кампании)). Возвращает ID провайдера для последующей проверки статуса доставки. |
CheckSMS(ProviderID) – Проверяет состояние доставки сообщения с идентификатором ProviderID. Возвращает: 0 – доставляется, 1 – успешно доставлено, 2 – не доставлено. | CheckSMS(ProviderID) – Проверяет состояние доставки сообщения с идентификатором ProviderID. Возвращает: 0 – доставляется, 1 – успешно доставлено, 2 – не доставлено. | ||
+ | |||
+ | ReceiveSMS(InboxID, DateFrom, DateTo, NewOnly) - Получает входящие SMS, с ящика InboxID (идентификатор выдаётся провайдером). DateFrom, DateTo - задается временной интервал в котором были приняты сообщения(формат 08.04.2013 18:00:00 'DD.MM.YYYY HH:NN:SS'). Чтобы получать только новые сообщение поле NewOnly должно быть True. Возвращает XML с сообщениями. | ||
+ | |||
+ | ExtraResult([ParamName='']) - Вызывается после CheckSMS, возвращает дополнительную информацию по последнему статусу смс. В настоящее время работает только для провайдеров BitCall и iVoice. Для BitCall по умолчанию возвращает кнопки, нажатые абонентом во время работы с голосовым меню. Если в paramname указать 'IdentifyText' то будет возвращен JSON с ответами абонента на заданные вопросы(используется в случае звонков с индивидуальным сценарием). Для iVoice по умолчанию подразумевается параметр 'response', при этом будет возвращен JSON с ответами абонента на заданные вопросы (в зависимости от сценария) | ||
+ | |||
+ | Log - Возвращает последний HTTP запрос и ответ от сервера смс. | ||
== Объект TXML == | == Объект TXML == | ||
Строка 589: | Строка 993: | ||
NodeName – Возвращает имя текущего элемента. | NodeName – Возвращает имя текущего элемента. | ||
− | OpenChild(V) – Ищет дочерний элемент и делает его текущим. Если V – число – ищет по номеру, если V – текст – ищет по названию. Возвращает значение найденного элемента, или пустую строку, если элемент не найден. | + | OpenChild(V) – Ищет дочерний элемент и делает его текущим. Если V – число – ищет по номеру, если V – текст – ищет по названию. Возвращает значение найденного элемента, или пустую строку, если элемент не найден. Нумерация элементов начинается с нуля. |
ChildrenCount – Возвращает количество дочерних элементов. | ChildrenCount – Возвращает количество дочерних элементов. | ||
− | ChildNodeValue – Ищет дочерний элемент и возвращает его значение. Если V – число – ищет по номеру, если V – текст – ищет по названию. | + | ChildNodeValue(V) – Ищет дочерний элемент и возвращает его значение. Если V – число – ищет по номеру, если V – текст – ищет по названию. |
OpenParent – Делает текущим родительский элемент. Возвращает значение найденного элемента. | OpenParent – Делает текущим родительский элемент. Возвращает значение найденного элемента. | ||
Строка 604: | Строка 1008: | ||
Reset – Делает текущим корневой элемент, возвращает его значение. | Reset – Делает текущим корневой элемент, возвращает его значение. | ||
− | + | ||
+ | == Объект TJSON == | ||
+ | |||
+ | Предназачен для парсинга JSON-данных. | ||
+ | |||
+ | Функции: | ||
+ | |||
+ | SetText(S) – Задает текст JSON документа для парсинга, делает текущим корневой элемент. | ||
+ | |||
+ | NodeValue – Возвращает значение текущего элемента. | ||
+ | |||
+ | NodeName – Возвращает имя текущего элемента. | ||
+ | |||
+ | OpenChild(V) – Ищет дочерний элемент и делает его текущим. Если V – число – ищет по номеру, если V – текст – ищет по названию (регистрозависимый поиск). Возвращает значение найденного элемента, или пустую строку, если элемент не найден. Нумерация элементов начинается с нуля. | ||
+ | |||
+ | ChildrenCount – Возвращает количество дочерних элементов. | ||
+ | |||
+ | ChildNodeValue(V) – Ищет дочерний элемент и возвращает его значение. Если V – число – ищет по номеру, если V – текст – ищет по названию (регистрозависимый поиск). Можно проверять наличие элементов, если элемента нет, вернется пустая строка. | ||
+ | |||
+ | OpenParent – Делает текущим родительский элемент. Возвращает значение найденного элемента. | ||
+ | |||
+ | Reset – Делает текущим корневой элемент, возвращает его значение. | ||
+ | |||
+ | isArray - Возвращает true, если текущий элемент является массивом (доступ к дочерним элементам возможен только по индексу, нумерация элементов начинается с нуля) | ||
+ | |||
+ | ==Объект TZip== | ||
+ | Предназначен для работы с Zip архивом. | ||
+ | |||
+ | SetZip(s) - Загружает архив в объект из строки s; | ||
+ | |||
+ | GetZip - Возвращает архив в виде строки; | ||
+ | |||
+ | AddFromFile(SrcPath, ZipPath) - Добавляет файл SrcPath в архив и располагает его по пути ZipPath. ZipPath содержит имя файла в архиве, при необходимости можно указать каталог; | ||
+ | |||
+ | AddFromStr(Data, /*ZipPath*/) - '''параметр ZipPath временно не работает'''. Добавляет файл из строки Data в архив и располагает его по пути ZipPath. -ZipPath содержит имя файла в архиве, при необходимости можно указать каталог; | ||
+ | |||
+ | LoadFromFile(path) - Загружает архив из файла path; | ||
+ | |||
+ | SaveToFile(path) - Сохраняет архив в файл path; | ||
+ | |||
+ | Count - Возвращает кол-во файлов в архиве; | ||
+ | |||
+ | DataByIndex(index) - Возвращает распакованный файл в виде строки. Index - номер файла в архиве; | ||
+ | |||
+ | DataByName(ZipPath) - Возвращает распакованный файл в виде строки. ZipPath - путь к файлу в архиве, может содержать каталоги; | ||
+ | |||
+ | FileName(index) - По номеру файла, функция возвращает полный путь файла в архиве. | ||
+ | |||
+ | ==Объект TBase== | ||
+ | |||
+ | '''Функции общего назначения''': | ||
+ | |||
+ | '''ExecSimpleScript(Caption, Text)''' - Выполняет скрипт "Дополнительных возможностей". Возвращаемые значения, введенные пользователем устанавливает в переменные $scriptvar1..$scriptvarN, Значения кодов списочных переменных - в переменных $scriptvar1codes..$scriptvarNcodes. Функция возвращает истину, если пользователь нажал "OK" в диалоговом окне. | ||
+ | |||
+ | '''FillAdvPriceReport(Excel, AddressCodes, StartLine, StartCol, [ShowSumPrice,InsertColumns,ShowAll])''' - добавляет отчёт по дополнительным услугам. В AddressCodes - указаны коды адресов через запятую, каждый код это отдельная строка отчета. Адреса будут показаны в порядке перечисления их в AddressCodes. Если в отчет нужно добавить пустую строку, то можно указать код адреса -1000. StartLine, StartCol - верхний левый угол выгружаемой таблицы. ShowSumPrice - добавить столбец итоговый столбец с суммой всех услуг, по умолчанию выключено. InsertColumns - раздвинуть таблицу перед вставкой отчета, позволяет встраивать отчет посередине выгрузки, по умолчанию выключено. ShowAll - показать все дополнительные услуги, по умолчанию false и показывает только услуги с начислениями. Функция возвращает количество использованных столбцов. | ||
+ | |||
+ | '''PrintSticker(Codes, [ToBoxes=False])''' | ||
+ | |||
+ | '''GetItemByName(Name)''' | ||
+ | |||
+ | '''GetA4Printer''' - возвращает имя принтера выбранного для печати документов | ||
+ | |||
+ | '''GetStickerPrinter''' - возвращает имя принтера выбранного для печати стикеров | ||
+ | |||
+ | '''GetDuplexPrinter''' - возвращает имя принтера выбранного для двусторонней печати, если принтер не выбран, возвращает пустую строку | ||
+ | |||
+ | '''PrintAttachPDFPage(Code, FileName, Page, Printer)''' - печатает страницу из вложенного файла PDF. Code - код вложения (attachment), Page - номер страницы, Printer - 0 = принтер A4, 1 = принтер этикеток. | ||
+ | |||
+ | '''AttachPDFToText(Code, [TextFileName])''' - преобразует файл PDF из вложений в текст. Code - код вложения (attachment), TextFileName - имя текстового файла, в который записывается результат (если не указан, используется временный файл). Возвращает текст в виде строки. | ||
+ | |||
+ | '''GetActiveForm''' - возвращает код активной формы в программе, где происходит сканирование. | ||
+ | '''Список интерфейсов''': | ||
+ | 0 - неопределенный; | ||
+ | 1 - прием корреспонденции на склад; | ||
+ | 2 - АПД; | ||
+ | 3 - комплектация адресов (ShelfingForm); | ||
+ | 4 - доска приема; | ||
+ | 9 - вкладка «Манифесты»; | ||
+ | 10 - Инвентаризация корреспонденции; | ||
+ | 11 - АПК; | ||
+ | 12 - вкладка «Адреса»; | ||
+ | 13 - вкладка «Выдача»; | ||
+ | 14 - вкладка «Склад». | ||
+ | |||
+ | '''RuleName(alias)''' - Выдает полный путь в дерева прав по псевдониму права. | ||
+ | |||
+ | '''CheckRule(alias)''' - функция проверки разрешения у текущего пользователя системы, alias - псевдоним права. Возвращает 1, если право есть и 0, если права нет. | ||
+ | Пример: if(CheckRule('RSE'), ShowMessage('У пользователя есть право изменять счета'), ShowMessage('У пользователя нет права изменять счета')); | ||
+ | |||
+ | '''Функции, работающие только в импорте БД из эксель:''' | ||
+ | |||
+ | ReplaceAddress | ||
+ | |||
+ | GetItemByCode - Поиск товара по артикулу. Внимание: в пределах одного клиента может быть несколько товаров с одинаковыми артикулами. В этом случае функция найдет последний заведенный товар. | ||
+ | |||
+ | GetPrice | ||
+ | |||
+ | GetNewNumber - используется при импорте реестра, возвращает номер конверта в загружаемом заказе | ||
+ | |||
+ | GetNewPos - используется при импорте реестра, возвращает порядковый номер вложения | ||
+ | |||
+ | GetNewPackagePos- используется при импорте реестра, возвращает порядковый номер места | ||
+ | |||
+ | |||
+ | Zakaz - возвращает номер заказа куда происходит импорт реестра | ||
+ | |||
+ | addresscode - используется при импорте реестра, код созданного адреса | ||
+ | |||
+ | Source - код заказчика | ||
+ | |||
+ | ClientTown - Узнаем город клиента, через филиал с которым он работает. Сам клиент берется из заказа указанного в окне "Импорт БД из Excel". | ||
+ | |||
+ | == Объект TFieldObject == | ||
+ | Объект для доступа к записям, используется в картах и доп.услугах. | ||
+ | |||
+ | _GETTABLEINFO - возвращает данные о полях и примеры данных объекта. | ||
+ | |||
+ | == Объект TMessage == | ||
+ | Объект используется для скриптовой обработки письма в [https://wiki.courierexe.ru/index.php/%D0%9D%D0%B0%D1%81%D1%82%D1%80%D0%BE%D0%B9%D0%BA%D0%B0_%D0%BC%D0%BE%D0%B4%D1%83%D0%BB%D1%8F_%D0%B0%D0%B2%D1%82%D0%BE%D0%BC%D0%B0%D1%82%D0%B8%D0%B7%D0%B0%D1%86%D0%B8%D0%B8#.D0.98.D0.BC.D0.BF.D0.BE.D1.80.D1.82_.D0.B4.D0.B0.D0.BD.D0.BD.D1.8B.D1.85| заданиях импорта данных]. В себе содержит текст письма в очищенном формате и оригинальном формате HTML, отправитель письма, тему письма, дата получения и список прикрепленных файлов. | ||
+ | |||
+ | '''Message.Text''' - возвращает очищенный от HTML-тегов текст письма. | ||
+ | |||
+ | '''Message.HTMLText''' - возвращает оригинальный текст письма со всеми HTML-тегами. | ||
+ | |||
+ | '''Message.Sender''' - возвращает email-адрес отправителя письма. | ||
+ | |||
+ | '''Message.AttachmentsCount''' - возвращает количество вложенных файлов. | ||
+ | |||
+ | '''Message.DateTime''' - возвращает дату и время получения письма. | ||
+ | |||
+ | '''Message.Subject''' - возвращает тему письма. | ||
+ | |||
+ | '''Message.GetAttachmentDataString(Number)''' - возвращает вложенный файл под номером Number в виде строки. | ||
+ | |||
+ | '''Message.GetAttachmentName(Number)''' - возвращает имя вложенного файла под номером Number. | ||
== Применение языка формул == | == Применение языка формул == | ||
Строка 624: | Строка 1162: | ||
Все объекты создаются с пустыми именами. | Все объекты создаются с пустыми именами. | ||
+ | |||
+ | Так же система записывает в переменную $CashRegisterID вычисленный код фискального регистратора, на котором предполагается печать чека. | ||
Результат работы скрипта печатается на создаваемом чеке, если скрипт не возвращает значение “-1” (число или текст) – в этом случае система чек не создает. Подразумевается, что либо скриптом было принято решение об отсутствии необходимости формирования чека, либо скрипт взял эту функцию на себя. | Результат работы скрипта печатается на создаваемом чеке, если скрипт не возвращает значение “-1” (число или текст) – в этом случае система чек не создает. Подразумевается, что либо скриптом было принято решение об отсутствии необходимости формирования чека, либо скрипт взял эту функцию на себя. | ||
− | |||
==== Заполнение шаблонов печатных форм ==== | ==== Заполнение шаблонов печатных форм ==== | ||
Строка 637: | Строка 1176: | ||
==== Импорт БД из Excel ==== | ==== Импорт БД из Excel ==== | ||
+ | В окружении интерпретатора создается объект ZakazRecord, он является списком со значениями таблицы zakaz. Именно в этот заказ будут загружены данные. Из этого объекта также доступно :<br> | ||
+ | *ZakazRecord.userfields - пользовательские поля заказа; | ||
+ | *ZakazRecord.Clients - данные таблицы clients; | ||
+ | *ZakazRecord.Clients.userfields - пользовательские поля заказчика. | ||
+ | ==== Прайс лист клиента ==== | ||
+ | Формула возвращает сумму в валюте клиента для каждой поездки (туда или обратно) единицы корреспонденции, которая добавляется к штатному ценообразованию. Если формула установила в значение «Истина» переменную «$FormulaReplace», то значение, возвращаемое формулой заменяет штатное ценообразование. Помимо стандартных объектов, система создает объект AddressRecord, в котором, как свойства, доступны все поля текущей записи. Так же она выставляет значение переменной $Forward в 1 (истина), если необходимо произвести расчет для направления "Туда" и 0 (ложь) - если обратно. ВНИМАНИЕ! Как и во всех остальных местах, после формулы нельзя ставить ";", иначе скрипт вернет 0! | ||
+ | |||
+ | Например: | ||
+ | |||
+ | if(int(AddressRecord.Time_Put_Max)>19, 100, 0) | ||
+ | |||
+ | ''Прибавляет 100 рублей в случае, если максимальный срок доставки 20 часов или более'' | ||
+ | |||
+ | if(pos(AddressRecord.Address, 'Аренда')>0, | ||
+ | set($FormulaReplace, 1); | ||
+ | 1500 | ||
+ | , 0) | ||
+ | |||
+ | ''В случае наличия подстроки "Аренда" в адресе заменяет штатное ценообразование на 1500 рублей'' | ||
+ | |||
+ | Объект AddressRecord может предоставить доступ к связанным таблицам : | ||
+ | * addressrecord.boxes | ||
+ | * addressrecord.packages | ||
+ | * addressrecord.clients | ||
+ | * addressrecord.price | ||
+ | * addressrecord.advprice | ||
+ | * addressrecord.userfields | ||
+ | * addressrecord.addressfld | ||
+ | * addressrecord.clients.userfields | ||
+ | * addressrecord.price.userfields | ||
+ | * addressrecord.zakaz | ||
+ | * addressrecord.zakaz.userfields | ||
+ | |||
+ | Чтобы получить доступ к полю VarCode из таблицы userfields необходимо записать AddressRecord.Userfields.VarCode. В присоединённой таблице может быть несколько записей чтобы получить к ним доступ предусмотрены функции _First, _EOF, _Next, _RecordCount, _Set. | ||
+ | |||
+ | Пример: | ||
+ | set($value1, 0); set($value2, 0); | ||
+ | while(AddressRecord.userfields._EOF=0, | ||
+ | if(AddressRecord.userfields.varCode=1, | ||
+ | set($value1, if(AddressRecord.userFields.VarValue='Праздничная упаковка', 150, 0)), '''''''); | ||
+ | if(AddressRecord.userfields.varCode=2, | ||
+ | set($value2, AddressRecord.userFields.VarValue), '''''''); | ||
+ | AddressRecord.userFields._Next; | ||
+ | ); | ||
+ | int($value1) + int($value2) | ||
+ | |||
+ | Пример делающий тоже самое что и выше но через поиск Locate: | ||
+ | set($value1, if(addressrecord.userfields.VarValue('VarCode', 1)='Праздничная упаковка', 150, 0)); | ||
+ | set($value2, int(addressrecord.userfields.VarValue('VarCode', 2))); | ||
+ | $value1 + $value2 | ||
+ | |||
+ | |||
+ | В скрипте доступны переменные: | ||
+ | «$FormulaKoeff» - это коэффициент на который умножится конечная цена (по умолчанию равна 1); | ||
+ | «$PriceCode» - код прайса; | ||
+ | «$CurrentPriceConf» - код услуги; | ||
+ | «$BasePrice» - стоимость всех услуг с уровнем (pricelevel) меньше текущего. | ||
+ | |||
+ | Для вызова функции CalcBasePrice (Расчёт базовой цены) в скрипте объявленны переменные: $Count,$Collection,$Distance,$Wait. | ||
+ | |||
+ | Существует поиск по ключевому полю (поиск регистронезависимый), например чтобы найти в таблице advprice введённое значение для текущей услуги, нужно сделать такую запись addressrecord.advprice.value('priceconf', $CurrentPriceConf) - Первый параметр это ключевое поле, второй искомое значение. Если запись найдётся будет возвращено значение поле value, если нет функция вернёт значение 0. | ||
+ | |||
+ | Пример | ||
+ | if(addressrecord.advprice.active('priceconf', 3)='T', addressrecord.advprice.price, 0) | ||
+ | |||
+ | ''Смотрим включена ли услуга и если да, возвращаем рассчитанную стоимость | ||
+ | |||
+ | Чтобы изменить значение записанное в объект addressrecord, нужно воспользоваться методом _set(keyfield, keyvalue, filed, value). Параметр keyfield - ключевое поле, keyvalue - искомое значение, filed - имя столбца, value - новое значение столбца. Сначала происходит поиск строки по ключу, далее меняется значение указанного столбца. | ||
+ | Пример, отключение услуги база: | ||
+ | addressrecord.advprice._Set('priceconf', 1, 'active', 'F') | ||
+ | priceconf - поле где записан код услуги; | ||
+ | 1 - услуга База; | ||
+ | active - поле показывающее включение услуги. | ||
+ | |||
+ | Также существует упрощенный метод _set, с двумя параметрами filed, value - он используется в шаблонах загрузки или в системных доп. возможностях где доступен объект addressrecord. | ||
==== Зарплата курьеров ==== | ==== Зарплата курьеров ==== | ||
− | Формула возвращает сумму в | + | Формула возвращает сумму в основной валюте для каждой единицы корреспонденции, которая добавляется к штатному ценообразованию. Если формула установила в значение «Истина» переменную «$FormulaReplace», то значение, возвращаемое формулой заменяет штатное ценообразование. Переменные «$FormulaTablKoeff» и «$FormulaMoneyKoeff» позволяют установить повышающий или понижающий коэффициент на стоимость доставки (по тарифной сетке) и услуги соответственно (процент от суммы, процент от стоимости доставки, ожидание). Переменная «$UsingZoneName» и «$KurierZone» содержат название и код зоны соответственно, есть возможность поменять название зоны для отчета. |
=== Планировщик === | === Планировщик === | ||
Строка 651: | Строка 1265: | ||
Все объекты создаются с пустыми именами. | Все объекты создаются с пустыми именами. | ||
− | + | ||
+ | Для записи в лог планировщика нужно использовать функцию Print | ||
+ | |||
=== Репликатор === | === Репликатор === | ||
Строка 662: | Строка 1278: | ||
GetNewNumber – Возвращает не занятый номер единицы корреспонденции в текущем заказе. | GetNewNumber – Возвращает не занятый номер единицы корреспонденции в текущем заказе. | ||
+ | |||
+ | ==История изменений== | ||
+ | |||
+ | === Недавние изменения === | ||
+ | |||
+ | {| | ||
+ | ||'''Добавлено:''' | ||
+ | |В объект TExcel добавлен метод ColumnDelete. | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | |В объект TBaseUtils добавлена функция InsertFirmAtt. | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | ||В объект TExcel добавлен метод Align. | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | |Функция CheckEan | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | |В объект функцию FillAdvPriceReport добавлены параметры ShowSumPrice,InsertColumns | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | |В объект TSMS добавлен метод Log. | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | |Добавлена функция Money. | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | |В объект TBaseUtils добавлена функция ValutaSign. | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | |В объект TBaseUtils добавлена функция GetPolygonByLatLon. | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | |В объект TTable добавлена функция SetMultiHeader, SetCustomHeader. | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | |Функция DownloadAttachment | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | |В функцию SetRowHeight объекта TExcel добавлен параметр cnt. | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | |В объект TPicture добавлена функция AsString. | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | |В объект TPicture добавлена функция SetSize. | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | |В объект TADO добавлена функция ParseForIn. | ||
+ | |- | ||
+ | ||'''Изменено:''' | ||
+ | |В объект TBaseUtils из TBase перенесена функция FillExcelDoc. | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | |В объект TBaseUtils функция CalcAddressPrice | ||
+ | |- | ||
+ | ||'''Изменено:''' | ||
+ | |Все функции класса TBaseSupport перенесены в TBaseUtils. Класс TBaseSupport больше не существует. | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | |В функции RowInsert и RowDelete объекта TExcel добавлен параметр count. | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | |В объект TBaseUtils функция SendToMeaSoft | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | |В объект TBaseUtils функция RecalcSpecialSMA | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | |Новая функция Reverse | ||
+ | |} | ||
+ | |||
+ | === Версия 849 22.02.2018 === | ||
+ | |||
+ | {| | ||
+ | ||'''Добавлено:''' | ||
+ | |В функцию TBaseUtils.TownByIndex добавлен параметр PriorityName | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | |В объекте TBase добавлена функция GetNewPackagePos | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | |В объекте TSMS доработан метод ExtraResult, добавлен параметр ParamName | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | |В объект TBase добавлена функция CalcAgentPrice | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | |В объект TBaseUtils добавлена функция CreateAddressForActDelivery | ||
+ | |- | ||
+ | ||'''Изменено:''' | ||
+ | |Функция CalcTownDeliveryDate заменена на CalcDeliveryDate | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | |В объект TBaseUtils добавлена функция CreateSpecialSMA | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | |Функция SignatureUrl | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | |В объект TPicture добавлена функция LoadFromStr. | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | |В объект TCanvas добавлена функция SetPen. | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | |В объект TCanvas добавлена функция SetBrush. | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | |В объект TPicture добавлена поддержка чтения в формате PNG. | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | |В функцию TCanvas.DrawPic параметр Mode | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | |Свойство TPicture.Canvas | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | |Функция DeleteFile | ||
+ | |} | ||
+ | |||
+ | === Версия 758 29.03.2017 === | ||
+ | {| | ||
+ | ||'''Добавлено:''' | ||
+ | |Функция GetPolygonByAddress | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | |Функция ParamsCount | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | |Объект TZip | ||
+ | |- | ||
+ | ||'''Изменено:''' | ||
+ | |Функции CreateEAN и Create128 заменены одной функцией CreateBar, полностью совместимой с Create128, но добавлена поддержка EAN-13 и Interleaved 2-5 (для Почты России). В системе функции оставлены для обратной совместимости, но более не являются документированными и рекомендованными к использованию. | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | |Параметр text в функцию Cell объекта TExcel | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | |Функция UrlEncode | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | |Функция IncDay теперь может принимать параметр count | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | |Функции FtpGet, FtpPut, TTable.SetCell() | ||
+ | |} | ||
+ | |||
+ | === Версия 452 26.02.2014 === | ||
+ | |||
+ | {| | ||
+ | ||'''Добавлено:''' | ||
+ | |Функция Time | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | |Функция FixedIntToStr | ||
+ | |- | ||
+ | ||'''Добавлено:''' | ||
+ | |Функция TimePeriod | ||
+ | |- | ||
+ | |'''Добавлено:''' | ||
+ | |В интерпретатор добавлена функция приёма смс - ReceiveSMS | ||
+ | |- | ||
+ | |'''Добавлено:''' | ||
+ | |Функция STR2UTF | ||
+ | |- | ||
+ | |'''Добавлено:''' | ||
+ | |Функция SAVETOFILE | ||
+ | |- | ||
+ | |'''Добавлено:''' | ||
+ | |Функция TExcel.SetSheetName | ||
+ | |- | ||
+ | |'''Добавлено:''' | ||
+ | |В пользовательские отчеты добавлен тип "FILESTR" | ||
+ | |- | ||
+ | |'''Добавлено:''' | ||
+ | |Расширены возможности объекта addressrecord в формулах тарифов | ||
+ | |} | ||
+ | |||
+ | === Версия 308 24.11.2012 === | ||
+ | |||
+ | {| | ||
+ | |'''Добавлено:''' | ||
+ | |В функции загрузки таблиц из TADO добавлено условие, что поля, названия которых начинаются с "-" не выгружаются. Таким образом можно скрывать служебные поля из результирующего набора. | ||
+ | |- | ||
+ | |'''Добавлено:''' | ||
+ | |Функция TExcel.RowAutoFit | ||
+ | |- | ||
+ | |'''Добавлено:''' | ||
+ | |Функция TExcel.RowInsert | ||
+ | |} | ||
+ | |||
+ | === Версия 300 01.11.2012 === | ||
+ | |||
+ | {| | ||
+ | |'''Добавлено:''' | ||
+ | |В объекте TCSVFile добавилась возможность запрашивать значения не только текущей записи через параметр сдвига | ||
+ | |- | ||
+ | |'''Добавлено:''' | ||
+ | |В пользовательские отчеты добавлен тип "UPDOWN" | ||
+ | |- | ||
+ | |'''Добавлено:''' | ||
+ | |В интерпретатор добавлен объект TCSVFile | ||
+ | |} | ||
+ | |||
+ | === Версия 266 14.09.2012 === | ||
+ | |||
+ | {| | ||
+ | |'''Добавлено:''' | ||
+ | |В интерпретатор добавлена поддержка массивов | ||
+ | |} | ||
+ | |||
+ | === Версия 265 11.09.2012 === | ||
+ | |||
+ | {| | ||
+ | |'''Добавлено:''' | ||
+ | |Функция CreateTrans в интерпретатор | ||
+ | |- |
Версия 16:16, 26 июня 2024
Содержание
- 1 Основные положения
- 2 Описание синтаксиса
- 3 Объект TExcel
- 4 Объект TDirectExcel
- 5 Объект TCSVFile
- 6 Объект TADO
- 7 Объект TSelfADO
- 8 Объект TPrinter
- 9 Объект TCanvas
- 10 Объект TPicture
- 11 Объект TTable
- 12 Объект TBaseUtils
- 13 Объект TINIFile
- 14 Объект TSMS
- 15 Объект TXML
- 16 Объект TJSON
- 17 Объект TZip
- 18 Объект TBase
- 19 Объект TFieldObject
- 20 Объект TMessage
- 21 Применение языка формул
- 22 Прочее
- 23 История изменений
Основные положения
В систему «Курьерская служба 2008» встроен внутренний интерпретируемый язык программирования. Среда состоит из базовой функциональности, и дополнительно создаваемых объектов. Некоторые объекты автоматически создаются средой перед запуском интерпретатора для предоставления доступа к контексту, в котором работает скрипт. Все типы данных приводятся друг к другу автоматически, иногда при необходимости можно использовать функции приведения типов.
Как интерпретатор приводит типы:
1. При использовании значения как параметр функции интерпретатор автоматически приводит значение к типу, необходимому функции.
2. При операциях сложения, а также логических операциях, операнды приводятся к строке если хотя бы один из них имеет тип «строка». Например: 3.3+5 -> 8.3 ‘3.3’+5 -> ‘3.35’ подобную проблему можно решить принудительно преобразовав тип: float(‘3.3’)+5 -> 8.3
3. При операциях умножения, деления и вычитания операнды приводятся к числу с плавающей точкой, однако если результат выполнения операции получается целым числом, то он приводится к целочисленному типу.
Как работают функции приведения типов:
1. При преобразовании строки к числу: функция «читает» строку до первого символа, не позволяющего создать число с плавающей точкой, при этом разделителем целой и дробной частей может быть как точка так и запятая. Если приведение производится к целочисленному типу, то после этого происходит округление. Например: float('3.6qwerty735') -> 3.6 int('3.6qwerty735') -> 4
2. При преобразовании к булевому типу ложью считается пустая строка либо число 0, все остальное - истина
3. При преобразовании булевого типа к числу истина преобразуется в 1, ложь – в 0. Такое преобразование позволяет использовать сложение и умножение в качестве логических «ИЛИ» и «И» соответственно: if((5=5)+(6=7), <a>, [b]) – условие истинно, выполнится код «a».
4. При преобразовании булевого типа к строке сначала происходит преобразование к числу: (5=5)+'qwerty' -> ‘1qwerty’
Описание синтаксиса
Команды разделяются точкой с запятой. Параметры функций разделяются запятыми. Каждая команда (даже цикл while) является функцией, возвращающей некоторое значение. Результатом выполнения составной команды (последовательности функций, разделенных точкой с запятой), является результат выполнения последней функции. Имена переменных, функций, объектов, а также их свойств и методов не чувствительны к регистру. Константы: константы бывают целочисленными, дробными и строковыми. Значения целочисленных и дробных констант указываются «как есть» (в этом случае разделитель целой и дробной частей – точка), шестнадцатеричные значения начинаются с символа «$» и, если первая цифра – буква, она упреждается цифрой 0, а строковые – в одинарных кавычках. При этом, если внутри строковой константы встречается символ одинарной кавычки он должен быть задвоен, для указания интерпретатору того, что он не является признаком конца константы. Операции сравнения: >, <, =, ! - Больше, меньше, равно, не равно соответственно. Логические операции: + (ИЛИ), * (И). Арифметические операции: +, -, *, / Операция конкатенации строк: +
Функциональность базового объекта
SET($a, a) – присваивает переменной (1-й параметр) значение второго параметра. При отсутствии переменной – создает ее. Имена переменных должны начинаться с символа «$», а следующий символ не должен быть цифрой. Возвращает новое значение переменной. Функция используется только для задания значений переменных. Не допускается использования для задания значений свойств объектов. Для этого используются соответствующие методы этих объектов.
IF(a,b,c) или IF(a,b) – Условный оператор. В первом случае возвращает b, если a истинно (не равно нулю или пустой строке), иначе – c. Во втором случае – возвращает a, если оно истинно, иначе – b.
WHILE(a, b) – Оператор цикла. Выполняет b пока a истинно: set($i, 10); set($sum, 0); while($i>0, set($sum, $sum+$i); set($i, $i-1)); $sum Результат – 55
FOR($a, b, c, d) – Оператор цикла. Выполняет d пока $a последовательно присваиваются значения от b до с включительно: set($sum, 0); for($i, 1, 10, set($sum, $sum+$i)); $sum Результат – 55
NEW(ClassName, InstanceName) – Создает экземпляр класса ClassName, назначает ему имя InstanceName. Возвращает порядковый номер созданного объекта. Доступ к свойствам и методам объектов осуществляется по имени объекта и имени свойства/метода, разделенным точкой. Именем объекта может быть и пустая строка, тогда доступ к его свойствам и методам будет осуществляться без указания имени, и, в случае совпадения имен свойств и/или методов со стандартными или свойствами/методами других объектов, использоваться будут соответствующие свойства/методы объекта, созданного ранее, а также такой объект невозможно уничтожить до окончания выполнения скрипта. Все объекты созданные во время выполнения скрипта уничтожаются автоматически после окончания его выполнения.
FREE(InstanceName) – Уничтожает объект с именем InstanceName. Возвращает 0. В случае отсутствия объекта с заданным именем вызывает ошибку.
ShowObjects – Возвращает список созданных объектов – названия классов и имена.
ERROR(message) – Вызывает ошибку с текстом message.
SHOWMESSAGE(message) – Отображает диалоговое окно с текстом message, останавливает выполнение скрипта до закрытия окна пользователем.
SimpleAskUser(Message) – Выводит диалоговое окно с текстом Message и кнопками «Да» и «Нет». Возвращает 1, если пользователь нажал кнопку «Да», иначе – 0.
TRY(a) – Выполняет a в «защищенном от ошибки» режиме. Если в процессе выполнения a возникает ошибка, возвращает текст ошибки, иначе – 0 (ложь).
REM(….) – Код в скобках игнорируется (комментарий).
EXEC(FileName, Params, Wait, WindowState) – Запускает внешнее приложение FileName с параметрами Params. Если Wait истинно – ожидает завершение процесса. Для WindowState доступны следующие числовые значения: 0 - SW_HIDE 1 - SW_SHOWNORMAL (по-умолчанию) 3 - SW_MAXIMIZE 6 - SW_MINIMIZE Функция возвращает истину если приложение запущено успешно. Иначе – Ложь. В случае успеха, при параметре Wait – истина кладет в переменную $LastResult код завершения приложения.
Строковые функции
UpCase(s) – возвращает строку s в верхнем регистре.
LCase(s) – возвращает строку s в нижнем регистре.
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 ничего не нашли, параметр не обязательный, по умолчанию выключен.
Mid(s, i, j) - возвращает подстроку из s начиная с i символа и длиной j символов
Right(s, i [,full]) – возвращает i последних символов строки s. Параметр i, может быть строкой, тогда он считается разделителем, функция ищет разделитель с конца строки, и возвращает строку справа от разделителя. Параметр full разрешает функции вернуть всю строку s, если по параметру i ничего не нашли, параметр не обязательный, по умолчанию выключен.
Reverse(s) - возвращает строку s задом-наперед. Полезно например для поиска с конца функций Pos().
Char(i) – возвращает символ с кодом i.
Ord(s) – возвращает код первого символа строки s.
Replace(s, strFind1, strReplace1, [ strFind2, strReplace2, ... ], [caseInsensetive]) - возвращает строку s, в которой все включения строк strFind заменены строкой strReplace. Параметры поиска и замены всегда должны быть в паре и их может быть несколько. caseInsensetive - неучитывать регистр, не обязательный параметр, по умолчанию включен.
RemSpace(s) – возвращает сроку s без начальных и конечных запятых и пробелов, а также начальных точек.
SumStr(f [, captions, language]) – Возвращает сумму f, написанную прописью, по умолчанию с добавлением валюты. Необязательные параметры captions - позволяет изменить название валюты, формат строки может зависеть от текущего языка(посмотреть формат можно в "Справочники"-"Статусы"-"32 Валюты", в разделе "Дополнительная информация"). Language - код языка на котором необходимо вывести сумму прописью. По умолчанию если не обязательные параметры опущены, используются региональные настройки в переменных.
NumToStrSimple(f [, captions, language]) – Возвращает сумму f, написанную прописью, по умолчанию без валюты. Параметры идентичны функции SUMSTR.
FullNameToShort(Name) – Возвращает фамилию и инициалы по полному ФИО Name.
MonthName1(m) – Возвращает имя месяца с номером m с большой буквы на русском языке в именительном падеже.
MonthName2(m) – Возвращает имя месяца с номером m с большой буквы на русском языке в родительном падеже.
StrForXML(s) - Подготавливает строку к парсингу как xml: Если находит в строке подстроку "UTF-8" - перекодирует ее из utf-8 в win-1251, убирает начальный знак вопроса, если такой встречается.
FixedIntToStr(i, len[, char]) - Возвращает целое число i дополненное слева символами char (по-умолчанию - "0") до длины len.
Translate(format, [param1, param2, ...]) - Функция перевода строки format в язык пользователя. Строка format может содержать параметры %s, %d - строка и число соответственно.
Функции перекодировки
DecodeStr(s, charset) - Производит перекодировку строки s в кодировку CP1251. Кодировка строки s должна быть заранее известна и может быть : KOI8-R, ISO-8859-5, UTF-8, URL, BASE64, QUOTED-PRINTABLE, CP866, UNICODE. Имя кодировки следует передавать в точности без лишних символов.
EncodeStr(s, charset) - Производит перекодировку строки s в кодировку charset. Кодировка строки s должна быть CP1251, возможны следующие варианты перекодировки: KOI8-R, ISO-8859-5, UTF-8, URL, BASE64, QUOTED-PRINTABLE, CP866. Имя кодировки следует передавать в точности без лишних символов. UNICODE не работает с версии 2021, в ней строки по умолчанию в кодировке unicode.
Функции EncodeBase64(s), DecodeBase64(s), UrlEncode(s), UTF8Encode(s), UTF8Decode(s), Str2UTF(s) - устарели, используйте EncodeStr, DecodeStr.
Транслитерация
Translit(s) - транслитерация строки русского текста s латиницей
UnTranslit(s) - транслитерация строки s с латиницы на русский.
Экранирование
QUOTEDSTR(s) – квотирует строку s символом «\» (обратный слеш). Возвращает строку s, помещенную между символами одинарной кавычки, при этом все вхождения в строку s символов: «\», «"» и «'» экранируются квотирующим символом, а символы #0, #10 и #13 заменяются на \0, \n и \r соответственно.
FormatTextXML(s) - квотирует строку s для использования в XML. Производит замены спец. символов для корректности XML-синтаксиса.
FormatTextJSON(s) - переводит строку в формат JSON, экранирует служебные символы.
FormatTextBlob(s) - строка s содержит файл, функция перекодирует переданную строку в байты, используется для заполнения полей формата blob.
Хеширование
HMACHash256(key, text) - создаёт хэш по алгоритму SHA256 для проверки целостности сообщения, key - секретный ключ, text - хэшируемое сообщение
MD5Hash(text) - создаёт хеш по алгоритму MD5
SignatureUrl(url) - Подписывает переданный URL. Функция возвратит переданный URL с добавленным в конце параметром, в котором будет записана подпись.
Функции работы с датой и временем
CurrTime – возвращает текущее время
CurrDate – возвращает текущую дату
CurrMillisecond - Возвращает количество миллисекунд прошедших с начала текущего года. Используется для точного расчета временных интервалов.
Today - возвращает текущую дату в числовом формате.
Day(dt) – возвращает день месяца даты dt.
Month(dt) – возвращает месяц года даты dt.
Year(dt) – возвращает год даты dt.
FirstDayOfMonth(dt) – Возвращает первый день месяца в формате DD.MM.YYYY для даты dt в формате DD.MM.YYYY. Пример вызова: Error( FirstDayOfMonth( CurrDate() ) );
LastDayOfMonth(dt) – Возвращает последний день месяца в формате DD.MM.YYYY для даты dt в формате DD.MM.YYYY. Пример вызова: Error( LastDayOfMonth( CurrDate() ) );
DaysInMonth(month, year) – Возвращает количество дней в указанном месяце.
IncDay(dt, [count=1]) – Возвращает дату, увеличенную на count дней.
SQLDate(dt) – Пытается конвертировать dt в дату, вернуть в формате «'YYYY-MM-DD'» (с апострофами), если не удается – возвращает «NULL».
SQLDateToDate(dt) – Переводит дату из SQL-формата в обычный.
DAYSBETWEEN(dt1, dt2) – Возвращает количество дней между датами dt1 и dt2. В случае ошибки приведения dt1 или dt2 к дате возвращает -1000.
TimeBetween(t1, t2) - Возвращает количество минут между временем t1 и t2. Если t1 > t2 то будет показано количество минут между t2 и t1. Параметр t может быть как в формате "HH:MM", так и в числовом. Если один из параметров не удалось привести к числовому типу возвращает -1000.
WorkDaysBetween(dt1, dt2, [DecreaseFirstDay=0], [DefaultHolidayVarNum=1]) - Возвращает количество рабочих дней между датами dt1 и dt2. Параметр DecreaseFirstDay уменьшает dt1 на указанное количество дней (по умолчанию 0). В случае ошибки приведения dt1 или dt2 к дате возвращает -1000. Параметр DefaultHolidayVarNum - использовать для расчета справочник: 1 - выходных дней(по умолчанию); 2 - выходных дней для доставки по городу; 3 - выходных дней для доставки
TimePeriod(time1, time2) - Оформляет временной период. Возвращаемое значение зависит от наличия значения в параметрах. Возможные варианты: "time1 - time2" , "С time1" , "ДО time2".
StrDateToFloat(s, [time=false]) - Переводит строку с датой s в числовой тип. Если параметр time включен, то в строке s должно быть указано время. Дата должна быть в формате "DD.MM.YYYY", а время "HH:NN". Если строку перевести не удалось возвращает 0
IsAWorkDay(dt) - Когда день dt является рабочим, возвращает true. Если произошла ошибка приведения даты возвращает -1000.
IncWorkDay(dt, [count=1],[DefaultHolidayVarNum=1]) - Прибавляет count рабочих дней к дате dt. Возвращает дату в числовом формате, если произошла ошибка приведения даты возвращает -1000. По умолчанию параметр count равен 1 и не является обязательным. Параметр DefaultHolidayVarNum - использовать для расчета справочник: 1 - выходных дней (по умолчанию); 2 - выходных дней для доставки по городу; 3 - выходных дней для доставки
Sleep(n) - Задержка выполнения на n миллисекунд.
Функции приведения типов
INT(v) – возвращает значение типа “целое”, приводя вариантное значение v к числовому типу, а затем округляя его. В том числе используется как функция округления.
FLOAT(v) – возвращает значение типа “число”, приводя вариантное значение v к числовому типу, переводя в число цепочку символов до первого нецифрового символа (либо точки или запятой).
STR(v) – возвращает значение типа “строка”, приводя вариантное значение v к строковому типу.
Date(v) – возвращает дату, либо пустую строку, если не удается конвертировать v в дату
Time(v) – возвращает время, либо пустую строку, если не удается конвертировать v во время. Понимает числовое представление времени.
Математические функции
ROUNDUP(f) – округляет число f до ближайшего большего по модулю целого числа.
ROUNDDN(f) – округляет число f до ближайшего меньшего по модулю целого числа.
Money(f, CouldBeEmpty, ZeroFill, MakeSpace) - Округляет число f, до двух знаков после запятой. CouldBeEmpty - заменить число меньше 0,0001 на пустую строку. ZeroFill - Следить чтобы после запятой было два знака, если будет один, то добавить ноль. MakeSpace - Разделить разряды пробелом.
Подсказка: для простого округления используется функция int()
Константы
Null – Возвращает пустое значение.
Да, True, Нет, False – константы, соответствующие булевым значениям.
Прочие функции
SQLFloat(f) – Приводит число с плавающей точкой к виду, пригодному для SQL-запроса, т.е. к тексту с разделителем дробной части – точка.
SetPhoneParams(CountryCode, TownCode) – Устанавливает глобальные настройки кода телефонных кодов страны и города соответственно. По-умолчанию код страны – 7, код города – 495.
PhonesCount(s) – Возвращает количество корректных телефонных номеров, найденных в строке s.
GetPhone(s[, n]) – Возвращает n-й корректный телефонный номер, найденный в строке s. Нумерация начинается с 1.
GetEmail(s) – Возвращает все корректные адреса email, найденный в строке s, разделенные запятыми (т.е. готовыми к передаче в функцию SendEmail).
SendEmail(Server, Port, User, Pass, AddressFrom, AddressTo, MsgText, Subject[, FileName]) – Отправляет письмо по e-mail с указанными параметрами. В случае ошибки отправки вызывает ошибку (рекомендуется использовать совместно с TRY).
SendEmail(EmailFromStr, AddressTo, MsgText, Subject[, FileName]) – Отправляет письмо по e-mail с указанными параметрами. В случае ошибки отправки вызывает ошибку (рекомендуется использовать совместно с TRY). EmailFromStr – строка, содержащая данные для отправки письма – адрес SMTP-сервера (также к имени сервера можно добавить протокол ssl:// или tls://), порт, логин, пароль и email отправителя, разделенные символом переноса строки.
GenEan(ID, Code) – Формирует штрих-код EAN 13 Состоящий из идентификатора типа сущности ID и кода сущности Code, Выравнивает до 13-ти символов, первый – «2», последний – контрольная сума.
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, возвращает в виде строки. При ошибке чтения вызывает ошибку.
DownloadAttachment(code, [savefilepath, tablename='attachment', fieldBlob='file', fieldLDtime='ldtime', fieldUID='uid']) - Функция выкачивает аттачмент из базы, по внутреннему коду - Code, всегда возвращает содержимое файла в виде строки, а также может сохранить файл по указанному пути в параметре savefilepath. По умолчанию, функция настроена на таблицу attachment. Code - внутренний код вложения, tablename - название таблицы, fieldBlob - название поля с содержимым файла, fieldLDtime - название поля с временем последнего изменения строки (для работы кэша). Функция использует кэш и умеет выкачивать файлы зауженные на внешние серверы (http, ftp,sftp, measoft). Для выкачивания с сервера measoft обязательно необходимо указывать параметр fieldUID.
DeleteFile(FileName) - Удаляет файл FileName с диска, возвращает истину, если операция прошла успешно и ложь - в противном случае.
HTTPPOST(host, PostParams, Proxy, ContentType, HTTPUser, HTTPPass, Method, CustomHeader, Reconnects) - Отправляет HTTP запрос по адресу host с данными PostParams. Proxy - объект Proxy, задающий прокси-сервер (по-умолчанию - пусто - не использовать прокси). ContentType - Заголовок ContentType. По-умолчанию - "application/x-www-form-urlencoded; Charset=UTF-8". HTTPUser и HTTPPass - данные для http-авторизации на сервере. Method - метод отправки запроса, по-умолчанию - "POST". CustomHeader - Дополнительные заголовки HTTP запроса, передается в виде списка параметров через запятую и всегда образуют пару: 1 параметр - название заголовка, 2 параметр - значение. Если значение содержит запятую то его нужно экранировать в двойные кавычки. Reconnects - Количество попыток подключения (по-умолчанию - 2), если больше 100 - это таймаут единственной попытки подключения в миллисекундах.
Функция возвращает ответ сервера.
Обратите внимание: Для имитации отправки данных html-формы методом POST может понадобиться перед передаваемыми параметрами добавить "Data=".
FTPPUT(host, User, Pass, FileName[, Active]) - Отправляет файл на FTP/SFTP-сервер. Параметр Host может иметь в себе путь к папке. По-умолчанию работает в пассивном режиме.
FTPGET(host, User, Pass, SourceFileName, DestFileName[, Active]) - Загружает файл SourceFileName с FTP/SFTP-сервера, сохраняет его в файл DestFileName. Параметр Host может иметь в себе путь к папке. По-умолчанию работает в пассивном режиме.
GetTempDir - Возвращает путь к временной папке.
ApplicationDir - Возвращает путь к файлу программы.
Interpretate(script) - Интерпретирует скрипт указанный в script. Выполнение происходит в текущем инстансе.
LastHttpError - Выводит последний запрос выполненный с ошибкой в функции HttpPost. Содержит подробную информацию по запросу и ответу.
LastHttpResponse - Выводит последний запрос и ответ от сервера после выполнения Http-запроса в функции HttpPost.
Объект TExcel
Предназначен для доступа к данным документов MS Excel. Требует установленного приложения MS Excel. Для работы без установленного MS Excel предусмотрен объект TDirectExcel.
Ввод данных
LoadFromDB(DB[, Headered=true][, Col=1][, Row=1][, TranslateHeader=False]) – Загружает таблицу из набора данных, открытого в объекте DB типа TADO. Если Headered истинно (по-умолчанию), таблица загружается вместе с заголовками. Если название поля содержит подстроку «_RecNo» - данная подстрока не попадет в заголовок, а все значения поля будут заменены на порядковый номер записи в наборе данных, начиная с «1». В одной таблице допускается не более одного поля с порядковой нумерацией. Поля, названия которых начинаются в символа "-" не выгружаются. Если TranslateHeader истинно, то заголовки таблицы будут автоматически переведены.
MyDB.Open('select * from kurier'); xl.LoadFromDB(MyDB.Self); xl.DoNotDestroy(true); xl.SetVisible(true);
Post2Sheet(DB[, Headered=true][, Col=1][, Row=1][, TranslateHeader=False]) - Почти полный аналог LoadFromDB. В отличии от LoadFromDB если есть открытый файл, выгрузка данных будет выполнена прямо в него.
OpenFile(aFileName) – Выполняет функции SetFileName и Open.
FileName – Возвращает имя текущего файла.
SetFileName(aFileName) – Задает значение свойства FileName.
Open - Открывает файл с именем, заданным свойством FileName. Если имя файла не задано - создает чистую книгу.
Close – Закрывает текущий файл.
Ячейки
A..ZZ – Возвращает значение соответствующего поля текущей строки. Может вызываться с целочисленным аргументом, указывающим на сдвиг относительно текущей строки. Например: AC(-1) – вернет значение столбца AC предыдущей строки. Если номер строки окажется вне допустимых значений вернет пустую строку.
Cell(x, y, text) – Возвращает значение ячейки, заданной координатами x, y. Необязательный булевый параметр text, в случае истинности, указывает на необходимость возврата данных с учетом формата ячейки, т.е. то, что пользователь видит на экране. Обратите внимание, что если в ячейке число, и ширина столбца не достаточна для отображения, Excel выводит "#####", что и будет возвращено программе, если text=ИСТИНА. Поэтому перед таким использованием рекомендуется выполнить функцию AutoFit.
SetCell(x, y, v[, x2, y2]) – Устанавливает значение ячейки, заданной координатами x и y, в значение v. Если заданы параметры x2, y2 - объединяет (merge) диапазон ячеек заданных координатами, устанавливает значение объединенной ячейки.
Строки
RecNo – Возвращает номер текущей строки. Нумерация строк начинается с 1.
SetRecNo(aRecNo) – Устанавливает значение свойства RecNo.
First – Делает первую запись листа текущей.
Next – Увеличивает значение свойства RecNo на единицу в случае, если конец файла не достигнут. Иначе – выставляет свойство EOF в истину.
EOF – Возвращает признак достижения конца файла.
RecordCount – Возвращает количество строк в листе.
RowAutoFit - Устанавливает автоматическую высоту строк.
SetRowHeight(r, h[, cnt]) – Устанавливает высоту cnt строк (по-умолчанию 1) начиная со строки r в h пикселей.
RowInsert(i[, count]) - Вставляет count (по-умолчанию - 1) строк НАД строкой с номером i.
RowDelete(i[, count]) - Удаляет count (по-умолчанию - 1) строк начиная с номера i.
Столбцы
ColCount - Возвращает количество столбцов в листе.
AutoFit – Устанавливает автоматическую ширину столбцов.
ColumnDelete(i[, count]) - Удаляет count (по-умолчанию - 1) столбцов начиная с номера i.
SetColWidth (c, w) – Устанавливает ширину столбца c в w символов.
Листы
SetSheet(No) – Устанавливает номер текущего листа. Если лист с таким номером не существует - он будет создан (и все листы до него). Нумерация начинается с 1.
SetSheetName(Name) - Устанавливает название текущего листа.
SheetsCount – Возвращает количество листов в книге.
CopySheetAfter([SheetFrom[, SheetAfter]]) - Копирует лист SheetFrom (по-умолчанию - текущий), создавая новый лист после листа SheetAfter (по-умолчанию - совпадает с копируемым).
SheetDelete(i) - Удаляет лист с номером i.
Форматирование
Align(x1, y1, x2, y2 [,HAlign, VAlign]) - Устанавливает выравнивание данных в указанном диапазоне. HAlign - горизонтальное выравнивание (0 – прижато влево , 1 – по центру , 2 – прижато вправо), VAlign - Вертикальное выравнивание (0 – прижато к верху , 1 – по центру , 2 – прижато к низу).
WrapText(x1, y1, x2, y2, value) – Устанавливает перенос текста прямоугольника в значение value. Если координаты опущены, или 0 – устанавливает границы всей используемой области. Для Value значение по-умолчанию - true.
NumberFormat(x1, y1, x2, y2, Format) - Устанавливает формат вывода чисел в указанном диапазоне ячеек. Например, если Format='0.00' - числа будут выводиться c обязательными 2 знаками после десятичного разделителя.
SetBorders(x1, y1, x2, y2) – Устанавливает границы прямоугольника. Если координаты опущены, или 0 – устанавливает границы всей используемой области.
SetFont(Font[, x1, y1[, x2, y2]]) - Устанавливает шрифт Font для ячеек диапазона. Можно указать координаты только одной ячейки, можно - вообще не указать, тогда будет использован последний выделенный диапазон. Шрифт задается как обычно: 'Arial, 16, T, T, T', порядок параметров: Имя шрифта, размер, жирное начертание, курсивное начертание, одиночное подчеркивание. Если параметры не заданы, то у текущего шрифта они меняться не будут. Примеры: SetFont('Arial, 10, T, F, F', 1,1) - в ячейке A1 будет установлен шрифт Arial жирным начертанием (не курсив и без подчеркивания). SetFont(', , , T, F', 2,1) - в ячейке B1 будет поменяется только начертание курсив и будет отменено подчеркивание (если оно было).
Цвета
SetRowFontColor(Row,Color) - Устанавливает цвет шрифта в строке Row. Color - целое значение (RGB)
SetRowColor(Row,Color) - Устанавливает цвет фона в строке Row. Color - целое значение (RGB)
SetColumnFontColor(Col,Color) - Устанавливает цвет шрифта в столбце Col. Color - целое значение (RGB)
SetColumnColor(Col,Color) - Устанавливает цвет фона в столбце Col. Color - целое значение (RGB)
SetCellFontColor(Row,Col,Color) - Устанавливает цвет шрифта в ячейке с координатами [Row,Col]. Color - целое значение, равное номеру цвета в палитре (ColorIndex,не RGB)
SetCellColor(Row,Col,Color) - Устанавливает цвет фона в ячейке с координатами [Row,Col]. Color - целое значение (RGB)
GetRowFontColor(Row)- Возвращает RGB значение цвета шрифта строки Row
GetRowColor(Row)- Возвращает RGB значение цвета фона строки Row
GetColumnFontColor(Col)- Возвращает RGB значение цвета шрифта столбца Col
GetColumnColor(Col)- Возвращает RGB значение цвета фона столбца Col
GetCellFontColor(Row,Col) - Возвращает номер цвета шрифта в палитре (ColorIndex) в ячейке с координатами [Row,Col]
GetCellColor(Row,Col) - Возвращает RGB значение цвета фона в ячейке с координатами [Row,Col]
Копи-паст
Copy(x1, y1, x2, y2) - Копирует в буфер экселя
Cut(x1, y1, x2, y2) - Вырезает в буфер экселя
Paste(x1, y1) - Вставляет из буфера экселя. Команды copy-paste неразрывны, если что нибудь сделать в промежутке между ними, например вставить значение в ячейку, то копирование сброситься. (Последовательность использования: copy - paste, cut - paste)
PasteStyle(x1, x2, y1, y2) - Вставляет только оформление из буфера экселя (Последовательность использования: Copy - PasteStyle)
Изображения
InsertPicture(TPicture, [x=1, y=1, DispX=0, DispY=0, width=0, height=0]) - Функция вставляет рисунок на текущий активный лист. x, y - координаты ячейки, относительно которых размещается рисунок, DispX, DispY - смещение рисунка относительно верхнего левого угла этой ячейки, width, height (не работает для DirectExcel) - ширина и высота области рисунка в пойнтах-единицах Excel
InsertFirmLogo(FirmCode, [x=1, y=1, DispX=0, DispY=0]) - Функция вставляет логотип фирмы с кодом FirmCode на текущий активный лист. x, y - координаты ячейки, относительно которых размещается рисунок, DispX, DispY - смещение рисунка относительно верхнего левого угла этой ячейки.
Вывод
SendEmail(Server, Port, User, Pass, AddressFrom, AddressTo, MsgText, Subject) – Отправляет письмо по e-mail с указанными параметрами. В случае ошибки отправки вызывает ошибку (рекомендуется использовать совместно с TRY). Функция закрывает текущий файл, и не может использоваться для файлов, закрытие которых запрещено.
SendEmail(EmailFromStr, AddressTo, MsgText, Subject) – Отправляет письмо по e-mail с указанными параметрами. В случае ошибки отправки вызывает ошибку (рекомендуется использовать совместно с TRY). EmailFromStr – строка, содержащая данные для отправки письма – адрес SMTP-сервера, порт, логин, пароль и email отправителя, разделенные символом переноса строки. Функция закрывает текущий файл, и не может использоваться для файлов, закрытие которых запрещено.
SheetFitPageWidth - устанавливает режим масштабирования печати, чтобы печатная форма помещалась в ширину на один лист.
SetOrientation(value) - Устанавливает ориентацию страницы. True (по-умолчанию) - альбомная (ландшафтная), Ложь - портретная.
PrintOut([copies]) - Печатает текущий лист на принтере по умолчанию. Параметр copies - количество копий, по умолчанию равен 1.
Save(filename) - Сохраняет в файл filename. Если файл существует, в основной системе он будет перезаписан, в других проектах - вызовет ошибку "Файл уже существует".
SetVisible(b) – Устанавливает видимость приложения Excel для пользователя. По-умолчанию – false (не видимо).
DoNotDestroy(b) – При уничтожении объекта TExcel (а он уничтожается, как и все остальные объекты автоматически при завершении выполнения скрипта), приложение Excel уничтожается вместе с ним. DoNotDestroy(true) отключает уничтожение приложения.
Пример использования
new('TExcel', 'myxl'); myxl.OpenFile('c:\asdf.xlsx'); set($sum, 0); while (myxl.EOF=0, set($sum, $sum+int(myxl.c)); myxl.next ); $sum Возвращает сумму всех числовых данных столбца C файла 'c:\asdf.xlsx'
Объект TDirectExcel
Объект позволяет работать с файлами Excel напрямую, без установленного пакета MsOffice. Применяется в сервисах и при отсутствии экселя. Он максимально совместим с объектом TExcel, однако некоторые методы могут быть не реализованы.
Объект TCSVFile
Предназначен для доступа к данным документов CSV. Разделителем столбцов является символ точка с запятой ;
Функции:
FileName – Возвращает имя текущего файла.
OpenFile(FileName) – Открывает файл FileName.
LoadFromDB(DB[, Headered=false]) – Загружает таблицу из набора данных, открытого в объекте DB типа TADO.
LoadFromText(s) - Загружает таблицу из строки s.
RecNo – Возвращает номер текущей строки. Нумерация строк начинается с 1.
SetRecNo(aRecNo) – Устанавливает значение свойства RecNo.
A..ZZ – Возвращает значение соответствующего поля текущей строки. Может вызываться с целочисленным аргументом, указывающим на сдвиг относительно текущей строки. Например: AC(-1) – вернет значение столбца AC предыдущей строки. Если номер строки окажется вне допустимых значений вернет пустую строку.
First – Делает первую запись листа текущей.
Next – Увеличивает значение свойства RecNo на единицу в случае, если конец файла не достигнут. Иначе – выставляет свойство EOF в истину.
EOF – Возвращает признак достижения конца файла.
RecordCount – Возвращает количество строк в листе.
SendEmail(Server, Port, User, Pass, AddressFrom, AddressTo, MsgText, Subject) – Отправляет письмо по e-mail с указанными параметрами. В случае ошибки отправки вызывает ошибку (рекомендуется использовать совместно с TRY).
SendEmail(EmailFromStr, AddressTo, MsgText, Subject) – Отправляет письмо по e-mail с указанными параметрами. В случае ошибки отправки вызывает ошибку (рекомендуется использовать совместно с TRY). EmailFromStr – строка, содержащая данные для отправки письма – адрес SMTP-сервера, порт, логин, пароль и email отправителя, разделенные символом переноса строки.
SaveToFile(Filename) - Сохраняет в файл с именем filename.
Объект TADO
Предназначен для доступа к базам данных.
Функции:
Функция | Описание |
---|---|
Connect(ConnectionString) | Подключает к источнику данных. ConnectionString – Строка подключения ADO. |
ConnectMySQL(DBServer, DBPort, DBUser, DBPass, DBName) | Подключает к базе данных MySQL. |
Open(Query) | Открывает набор данных выполнив запрос Query. |
FieldByNo(i) | Возвращает значение поля с номером i. Нумерация полей – с нуля. |
FieldName(i) | Возвращает имя поля с номером i. |
FieldCount | Возвращает количество полей. |
RecordCount | Возвращает количество записей. |
RecNo | Возвращает номер текущей записи. ВНИМАНИЕ! В зависимости от способа подключения к БД нумерация может начинаться как с 0 так и с 1! |
EOF | Возвращает признак достижения конца набора данных. Становится истиной когда выполняется команда Next на последней записи. |
Next | Переход на следующую запись набора. |
First | Переход на первую запись набора. |
Last | Переход на последнюю запись набора. |
FieldByName(FieldName) | Возвращает значение поля по имени. Также возможно указание имени поля как свойства объекта. |
Field(Table, ID, FieldName) | Возвращает значение поля FieldName записи с кодом ID таблицы Table. Набор данных, если он открыт, при этом не закрывается. Первичный ключ таблицы должен называться «code». Гарантированно работает только с MYSQL!!! |
GetSQLValue(Query) | Выполняет SQL-запрос. Текст запроса должен начинаться с первого символа строки (перед запросом не должно быть пробелов, переносов строк, комментариев и т.д.). Если запрос Insert – возвращает ID вставленной записи. Если запрос – Update, Delete, Replace, Set, Start, Commit, Rollback – возвращает количество измененных записей (RowsAffected), иначе – Select – значение первого поля первой строки результата как текст. |
FillText(s) | Возвращает строку s с замененными названиями полей между знаками процента на соответствующие значения текущей записи. Так же в строке возможно использование интерпретируемого кода, заключенного между тегами "<?>" и ">". При интерпретации система сначала производит замену полей с процентами на значения, потом интерпретирует код. Внимание! Функция не создает отельный контекст интерпретатора, а использует существующий, в нем доступны все объекты и переменные, вызывающего скрипта. Дополнительно автоматически создается объект TSelfADO, подключенный к той же БД, что и контекст, вызвавший функцию, с пустым именем, а так же с именем "dataset". |
Query(Query) | Синоним GetSQLValue. |
Close | Закрывает набор данных. |
Self | Возвращает указатель на подключение к БД для использования в других объектах. |
ParseForIn([FieldName='code']) | Возвращает через запятую значения всех строк в указанном столбце. По умолчанию, используется столбец с именем code. |
GetSQL | Для отладки. Возвращает последний SQL запрос переданный в методы Open, Query, GetSQLValue |
ExportExcel | Для отладки. Выгружает в эксель содержимое датасета. Можно использовать в незнакомом окружении для понимания передаваемых полей в : шаблонах, печатных формах и т.д. Аналог команды %echo% в шаблонах, на случай если она не сработает. |
OnGetText | Функция подменяет текстовый вывод значения поля при выгрузке в эксель. Первый параметр это имя поля, которое надо подменить. Второй параметр это то что необходимо вывести. Работает только с текстовыми полями.
Пример использования DB.OnGetText('Зона', IF((DB.FieldByName('-Lat') ! 0) * (DB.FieldByName('-Lon') ! 0), GetPolygonByLatLon(DB.FieldByName('-Lat'), DB.FieldByName('-Lon'), 'TYPE = 1 AND IFNULL(zone, 0) > 0 AND PRICE = ' + DB.FieldByName('-price'), 'zone') , )); |
Пример использования – см. TSelfADO
Объект TSelfADO
Наследник объекта TADO. Служит для подключения к «родной» для программы, в которой выполняется скрипт, базе данных. Обладает всеми свойствами и методами объекта TADO, кроме Connect. Иногда автоматически создается системой для обеспечения простого доступа к базе данных, а также иногда создается системой с уже открытым набором данных для передачи обрабатываемого системой набора данных в скрипт. В этом случае для скрипта недоступны функции Open и Close.
Пример использования:
rem('Копируем данные из "родной" базы данных в базу MSSQL.'); new('TSelfADO', 'MyDB'); new('TADO', 'MSSQL'); MSSQL.Connect('Provider=SQLOLEDB.1;Password=myPassword;Persist Security Info=True;User ID=myUsername;Initial Catalog=myDataBase;Data Source=myServerAddress'); MyDB.Open('select code, name, passport from kurier where code>'+Int(MSSQL.Query('select max(code) from kurier'))+' order by code'); While(MyDB.EOF=0, MSSQL.Query('insert kurier (code, name, passport) VALUES ('+MyDB.Code+', '+QuotedStr(MyDB.Name)+', '+QuotedStr(MyDB.Passport)+')'); MyDB.Next; );
Объект TPrinter
Предназначен для доступа к принтерам.
Функции:
BeginDoc – Начинает новый документ.
EndDoc – Закрывает документ
PageHeight – Возвращает высоту страницы в пикселях
PageWidth – Возвращает ширину страницы в пикселях
PageNumber – Возвращает номер текущей страницы документа
Orientation – Возвращает текущую ориентацию страницы (0 – портретная, 1 – ландшафтная)
Printing – Возвращает истину если документ открыт
SetOrientation(Orientation) – Устанавливает ориентацию страницы. При необходимости начинает новый документ, новую страницу.
ShowDialog – Показывает пользовательский диалог печати. Возвращает истину, если пользователь нажал "OK".
NewPage – Начинает новую страницу
Canvas – Предоставляет доступ к объекту TCanvas, связанному с принтером.
PrinterNames – Возвращает список принтеров, установленных в системе, разделенный переносами строк
PrintersCount – Возвращает количество установленных в системе принтеров
SetPrinter(Printer) – Устанавливает текущий принтер. Если передана строка – ищет принтер по названию, иначе – по номеру. Нумерация начинается с 0.
PrintTable(Y, Table) – Выводит на печать таблицу Table типа TTable, начиная с координаты Y. При необходимости таблица печатается на нескольких страницах. Возвращает координату Y конца таблицы.
GetDefaultPrinter - Возвращает имя текущего активного принтера.
SetDefaultPrinter(Printer) – Запоминает предыдущий активный принтер и устанавливает новый текущий принтер. Printer - имя принтера. При необходимости нескольких последовательных вызовов SetDefaultPrinter рекомендуется между вызовами использовать RestoreDefaultPrinter.
RestoreDefaultPrinter - Устанавливает активным принтер, который был текущим перед последним вызовом SetDefaultPrinter.
Объект TCanvas
Предоставляет доступ к холсту объекта для прорисовки изображения.
Функции:
DPIX – Возвращает разрешение холста по горизонтали в точках на дюйм
DPIY – Возвращает разрешение холста по вертикали в точках на дюйм
TextOut(x, y, s[, x1, y1, x2, y2]) – Выводит строку s начиная с точки с координатами x и y. Если указаны параметры x1, y1, x2, y2 – то выводимый текст ограничивается заданным прямоугольником.
TextOutEx(x1, y1, x2, y2, Alignment, Font, s, Indent) – Выводит строку s в прямоугольнике с координатами x1, y1, x2, y2. По горизонтали строка выравнивается в соответствии с Alignment (0 – прижато влево, 1 – вправо, 2 – по центру), по вертикали выравнивается по центру. Используя шрифт Font (см описание ниже). Indent – отступ по горизонтали, расстояние в пикселях между границей прямоугольника и текстом. Функция возвращает координату X фактического окончания текста (правой стороны – если строка прижата влево, и левой – в остальных случаях)
MLTextOut(x1, y1, x2, y2, Alignment, VAlignment, Font, s, Heigth, Indent) – Выводит многострочный текст s в прямоугольнике с координатами x1, y1, x2, y2 с переносом по словам. По горизонтали строки выравниваются в соответствии с Alignment, по вертикали – в соответствии с VAlignment (0 – прижато вверх, 1 – по центру, 2 – прижато вниз). Используя шрифт Font (см описание ниже). Heigth – высота строки. Если опущено или равно нулю – высота определяется автоматически в соответствии с выбранным шрифтом. Indent – отступ по горизонтали, расстояние в пикселях между границей прямоугольника и текстом. Функция возвращает координату Y фактического окончания текста (нижней границы последней строки текста. ВНИМАНИЕ! Функция использует координаты прямоугольника для позиционирования текста, однако она не ограничивает его верхней и нижней границами этого прямоугольника!
DrawPic(x1, y1, x2, y2, Pic, Style, Alignment, Mode) – Прорисовывает изображение Pic (ссылка на изображение TPicture.Self) в прямоугольник заданный координатами x1-y2. Style – стиль масштабирования. 0 – растянуть изображение до границ прямоугольника не сохраняя пропорции, 1 – вписать изображение в прямоугольник сохраняя пропорции – вероятно, останутся поля по вертикали или горизонтали, 2 – вписать сохраняя пропорции, обрезав при необходимости изображение по вертикали или горизонтали. Alignment – выравнивание по горизонтали. Работает только в случае если style=1 и при растягивании изображения получились вертикальные поля. 0 – разместить по центру, 1 – прижать влево, 2 – прижать вправо. Функция возвращает координату X правой стороны изображения кроме случая, когда Style=1 и Alignment=2 – в этом случае возвращается координата левой стороны изображения. Mode - способ наложения изображения. 0 (по-умолчанию) - копирование как есть. 1 - Наложение операцией AND (применяется для получения эффекта прозрачности изображения), 2 - наложение операцией XOR (Применяется для возможности повторной операцией убрать изображение), 3 - Наложение операцией OR.
FillRect(x1, y1, x2, y2) – Рисует прямоугольник без границ и закрашивает цветом BrashColor
Rect(x1, y1, x2, y2) – Рисует прямоугольник c границами, задаваемыми текущим пером, и закрашивает цветом BrashColor
SetFont(Font) – Устанавливает шрифт по-умолчанию.
SetPen(Width, Color) - Устанавливает параметры "ручки" - толщину и цвет. Если любой параметр опустить, соответствующее значение не будет изменено.
SetBrush(Color, Style) - Устанавливает параметры заливки - цвет и стиль. Если любой параметр опустить, соответствующее значение не будет изменено. Стили заливки: 0 - сплошная, 1 - отсутствует (прозрачная), 2-7 - различные виды штриховки (горизонтальные, вертикальные, в клеточку и т.д.).
TextHeight(s) – Возвращает высоту текста s в пикселях без учета многострочности, с учетом текущего шрифта.
TextWidth(s) – Возвращает ширину текста s в пикселях без учета многострочности, с учетом текущего шрифта.
Использование шрифта (Font): У объекта TCanvas есть «глобальные» установки шрифта. Однако для некоторых функций возможно указание шрифта, отличающегося от глобального. Параметры шрифта – это текстовая строка, состоящая из 6-ти параметров, разделенных запятыми: Название, размер, жирный, курсив, подчеркнутый, цвет. Например:
'Times New Roman, 8, Y, N, N, 255'
Любой параметр можно опустить, и тогда вместо него будет использовано значение по-умолчанию: шрифт: arial, размер – 10, не жирный, не курсив, не подчеркнутый, цвет – черный. Например: ', 7' – указывает, что по-умолчанию нужно взять все параметры кроме размера шрифта. Также можно вместо всей строки указать тире ('-') или пустую строку, и шрифт будет использоваться «глобальный».
Объект можно создать отдельно, не создавая объект TPrinter. В таком случае объект создастся как ссылка на текущий холст принтера (принтер должен быть запущен и начат новый документ). Такой подход используется в доп. возможности PrintCustomSticker
Объект TPicture
Предоставляет функции для работы с графическими изображениями форматов BMP, GIF, JPEG и PNG, а также для формирования штрих-кодов. Обратите внимание, прозрачность изображений не поддерживается, однако в методе TCanvas.DrawPic есть параметр Mode, призванный создавать эффект прозрачности.
Функции:
LoadFromFile(FileName) – Загружает изображение из файла FileName. Возвращает истину, если операция прошла успешно, иначе – ложь.
LoadFromDB(DB, Query) – Загружает изображение из базы данных. DB – ссылка на подключение к базе данных TADO.Self, Query – текст запроса. Запрос должен вернуть в первом поле первой строки BLOB-поле с изображением, все остальные данные возвращаемые запросом игнорируются. Возвращает истину, если операция прошла успешно, иначе – ложь.
LoadFromStr($s) – Загружает изображение из строки $s. Возвращает истину, если операция прошла успешно, иначе – ложь.
CreateBar(Width, Height, BarCode, Textless, Type) – Формирует штрих-код шириной Width и высотой Height с типом кодирования Type. BarCode – текст штрих-кода. Булево значение Textless указывает, что в штрих-коде не должно быть человеко-читаемых символов если истинно. Type указывает тип кодирования: 0 (по-умолчанию) CODE128, 1 - EAN-13, 2 - Interleaved 2-5, 3-DataMatrix, 4-QRCode. Штрихкод должен быть: Для EAN-13 цифровым 12 или 13 символов (13-й, контрольная сумма рассчитывается автоматически), для CODE128 - должен иметь состоять из допустимого для этого кодирования набора символов. Для Interleaved - должен состоять из четного числа цифр, контрольная сумма автоматически не рассчитывается. Если для Interleaved кода указано значение из 14-ти знаков, подпись цифр выводится в формате Почты России. Внимание! Для кодов EAN-13 и Interleaved ширина штрих-кода Width не является точным значением получаемого на выходе изображения. Ширина изображения рассчитывается как максимальное кратное минимально возможной ширине, но не меньше минимально возможной. Конечную ширину можно получить в соответствующем свойстве объекта. Для кода CODE128 штрих-код на выходе может оказаться пустым, если указанной ширины штрих-кода не достаточно для его формирования. Для кода DataMatrix можно установить режим для печати скрытых символов с кодами 29(GS) и 232(FCN1), которые требуются для формирования Честного Знака. Для этого необходимо в начале строки указать символ "[" и все разделители 01, 21, 91, 92 так же экранировать этими скобками. Должно получиться [01]02900002317701[21]k3LInNbH_oG0Q[91]EE06[92]YXiyKfiHjE4YE8b+YVMC1O5r8VtpplA3AwcCqrcG9Dk= . При формировании кода, включится режим формирования штрих-кода DataMatrix GS1, в начале будет добавлен символ с кодом 232 (FCN1), а потом будут добавлены разделители с кодом 29 (GS) Функция возвращает 1 в случае успеха, или текст ошибки, если такая произошла.
SetSize(Width, Height) - Устанавливает размер изображения.
AsString([ImageFormat]) - Возвращает изображение в виде строки с двоичными данными. ImageFormat принимает значения 1 - Bitmap (по-умолчанию), 2 - jpeg, 3 - png, 4 - gif.
Width – Возвращает ширину изображения.
Height – Возвращает высоту изображения.
Rotate(Angle) – Поворачивает изображение по часовой стрелке на угол Angle. Угол указывается в градусах и может принимать любые значения.
Self – Ссылка на объект с изображением, используется в качестве параметра для функций, работающих с изображениями из данного объекта.
Canvas - ссылка на объект TCanvas холста изображения.
Объект TTable
Предоставляет функции для работы с таблицами. Удобен для печати таблицы на принтере. Алгоритм таков: Загружаем датасет в таблицу, настраиваем ее (шрифты, штрих-коды и т.д.), потом выводим на принтер функцией TPrinter.PrintTable.
Функции:
LoadFromDB(DB) – Загружает таблицу из набора данных, открытого в объекте DB типа TADO. Таблица загружается вместе с заголовками. Если название поля содержит подстроку «_RecNo» - данная подстрока не попадет в заголовок, а все значения поля будут заменены на порядковый номер записи в наборе данных, начиная с «1». В одной таблице допускается не более одного поля с порядковой нумерацией. Поля, названия которых начинаются в символа "-" не выгружаются. Заголовок – это первая строка таблицы.
Cell(С, R) – Возвращает значение ячейки таблицы с координатами (C, R). Нумерация строк и столбцов начинается с 1.
SetCell(С, R, Value) – Устанавливает значение ячейки таблицы с координатами (C, R) в Value. Нумерация строк и столбцов начинается с 1.
RowCount – Возвращает количество строк в таблице.
ColCount – Возвращает количество столбцов в таблице.
SetTitleFont(Font) – Задает шрифт заголовка таблицы (первой строки).
SetFont(Font) – Задает шрифт всей таблицы кроме заголовка.
SetColFont(C, Font) - Устанавливает шрифт столбца C.
SetIndent(Indent) – Задает отступ от границы ячейки до текста в процентах от ширины страницы. По-умолчанию значение 0.3
SetWidth(С, Width) – Задает значение ширины столбца C в процентах от ширины страницы.
SetMinRowHeght (Heght) – Задает значение минимальной высоты строки в пикселях.
SetBarCode(Col, Type) - Указывает, что данные из столбца Col должны печататься в виде штрих-кода. Тип штрих-кода - Type. Значение "1" - EAN13. Для кода EAN13 первая строка данных в ячейке должна иметь вид "тип штрих-кода, номер", например "7, 123" (без кавычек, конечно). В этом случае система сформирует штрих-код: "2700000001233". Первая цифра - всегда 2, далее - указанный тип штрих-кода, нули, чтобы получилось 13 символов, номер, указанный в таблице, и один символ - контрольная сумма. Значение "2" - CODE128 (с версии 734). Данные из первой строки ячейки таблицы печатаются в штрих-коде "как есть". Для всех видов штрих-кода (с версии 734) последующие строки печатаются под штрих-кодом в виде текста.
SetMultiHeader(Active) - Включает печать заголовка при переносе таблицы на несколько страниц. По умолчанию отключено.
SetCustomHeader(script) - Включает печать пользовательского заголовка. Script - это код интерпретатора, который должен печатать заголовок на канву. Печать таблицы может происходить на нескольких листах, по этому скрипт будет вызван для каждого листа. При использовании этого метода, автоматически инициализируются переменные: $TablePageNo - номер страницы, нумерация начинается с нуля; $TableY - координата по оси Y, от которой рисуется заголовок. Чтобы таблица была под заголовком необходимо значение переменной $TableY увеличить на высоту заголовка.
Self – Ссылка на объект с таблицей, используется в качестве параметра для функций, работающих с таблицами из данного объекта.
Пример:
<?> NEW('TPrinter', 'Prn'); If(prn.ShowDialog, NEW('TTable', 'Tbl'); NEW('TSelfADO', 'MyDB'); MyDB.Open('SELECT concat("7", ", ", a.code, "\r\n", a.client_id, "\r\n", a.zakaz, "-", a.number) as "Штрих-код", a.target AS "Заказик", address, phone, vlog, poruch FROM address a order by code desc limit 10'); Tbl.LoadFromDB(MyDB.Self); Tbl.SetBarcode(1, 1); Tbl.SetCustomHeader( if($TablePageNo>0, Prn.Canvas.TextOut(Prn.Canvas.DPIX*0.1, $TableY, 'Продолжение таблицы'); set($TableY, $TableY + Prn.Canvas.TextHeight('H')); ,0) ); Prn.BeginDoc; Prn.PrintTable(0, Tbl.Self); Prn.EndDoc , );
Объект TBaseUtils
Предоставляет функции, базирующиеся на БД системы «Курьерская служба 2008». По-умолчанию, при создании подключается к основной базе данных модуля, в котором выполняется скрипт, если такая определена контекстом, однако это можно изменить, см SetConnection.
Функции:
MakeAddress(s[,town]) – возвращает значение, полученное путем преобразований адреса s для приведения его к внутреннему формату программы. В процессе преобразования до нескольких раз происходит замена буквосочетаний по таблице замены (ее редактирование доступно по нажатию кнопки «Автозамена» в интерфейсе импорта БД из Excel системы (см. Руководство пользователя)), поиск улиц по базе КЛАДР с точностью до одного знака, и некоторые другие операции, нацеленные на исправление ошибок в написании адреса.
С версии программы 2008.0.0.615, при вызове функции в формулах загрузки реестра, в первую очередь происходит проверка строки s на условия:
- в строке s записано число;
- строка s начинается с "ПВЗ ".
Если одно из этих условий выполняется, то функция пытается установить пункт самовывоза - т.е она сама в загружаемой карточке корреспонденции укажет: адрес ПВЗ, город ПВЗ и установит галку самовывоз.
Правила поиска ПВЗ:
- Если s число - считаем его внутренним кодом филиала;
- Если s начинается с "ПВЗ " - Например в адресе передана строка "ПВЗ На Ленинском проспекте", то искать будем филиал с названием "На Ленинском проспекте" который подчиненный, активный, с галкой ПВЗ и в городе town. Если город не указан, то ищем филиал во всех городах, и считаем его найденным если найдем только один филиал.
- Если филиалы найти не удалось, функция makeaddress работает как обычно и выполняет преобразование адреса.
Если адрес не содержит русских букв, только латиница, и курьерская служба находится в одной из стран Россия, Белоруссия, Казахстан или Украина, и город-получатель (второй параметр, town) находится так же в одной из этих стран, функция автоматически делает транслитерацию адреса на русский язык.
SetConnection(DB) – Подключает объект к базе данных DB, где DB – ссылка на объект TADO.Self. ВРЕМЕННО НЕ РАБОТАЕТ!
SetTown(Town) – Устанавливает код текущего города (используется в некоторых функциях объекта) в значение Town. По-умолчанию текущий город – 1. ВРЕМЕННО НЕ РАБОТАЕТ!
SetIndexLength(Length) – Устанавливает длину почтового индекса. По-умолчанию – 6.
GetIndex(Address) – Возвращает почтовый индекс из адреса.
GetStreet(Address) - Возвращает улицу до первой запятой.
GetHome(Address) - Возвращает номер дома до второй запятой, но не более пяти символов.
GetKurierByStation(station, Mass, Cash, Date_Putn)
TownByIndex(Index[, PriorityName][, PriorityCountry]) – Возвращает код города по индексу. В случае ошибки поиска – код текущего города. Если нашлось несколько населенных пунктов, и указано приоритетное название - выбирается населенный пункт, название которого начинается с PriorityName (если есть).
TownByName(Name[,NotNeedCL=False, City=0]) – Возвращает код города по имени. В случае ошибки поиска – возвратит код текущего города. Если параметр NotNeedCL (параметр не обязательный) установить в TRUE, тогда функция возвратит 0, если город не удалось найти. Параметр City (код региона) позволяет ограничить поиск одной областью (не обязательный, по умолчанию не используется).
FillClientInfo(Excel, client, Sheet, Row, Col) – Выводит в эксель информацию о клиенте с кодом client на лист sheet начиная со строки row и столбца col.
SavePrintFormToFile(FormType, FormNumber) - Сохраняет на диске файл печатной формы и возвращает путь к нему
CreateTrans(Address[, Store][, Operator][,Correction]) - Формирует запись для печати кассового чека для корреспонденции с кодом Address, для выбора кассового аппарата используется код склада Store. Если Store не указано - при исполнении в среде клиентского модуля системы использует склад, указанный пользователем в окне "Настройка" - "Параметры", в остальных модулях - код текущего склада из переменной "CL" ("Текущий филиал"). Поле Operator позволяет указать кассира (передается код справочника сотрудников). Если не указан, в основной системе будет использован код авторизованного пользователя, в других модулях - 1. Поле Correction позволяет указать данные для корректировочного чека, используется в системе Штрих-М. По умолчанию пустая строка. Возвращает идентификаторы записей чеков. Может вернуть пустую строку, если чек создавать не понадобилось, один или несколько кодов через запятую, если создано несколько чеков. В случае ошибки вызывает ошибку, поэтому рекомендуется использовать с функцией Try.
CreateReturnTrans(Address) - формирует запись для печати чека возврата для корреспонденции с кодом Address. Чек возврата печатается на полную сумму и с теми же атрибутами, что и чек продажи. Возвращает идентификатор записи чека возврата. В случае ошибки вызывает ошибку, поэтому, как и с CreateTrans, рекомендуется использовать с функцией Try.
CalcTownDeliveryDays(Source, Mode, TownTo, TownFrom) - возвращает количество дней необходимых на доставку отправления, только для межгорода. Source - код клиента, Mode - режим срочности, TownFrom - код города отправителя, TownTo - код города получателя.
CalcDeliveryDate(Source, Mode, TownTo, TownFrom, Date_Beg, Time_beg) - Возвращает планируемую дату доставки с учетом сроков доставки. Работает при городской и междугородней доставке. Для межгорода сроки доставки берутся из зон. Для городской доставки, из дополнительных параметров статуса (17 статус, 1 параметр в доп. информации) Если рассчитать дату планируемой доставки не удалось, возвращает пустую строку. Параметры: Source - код клиента, Mode - режим срочности, TownTo - город получатель, TownFrom - город отправитель, date_beg - дата заказа (может быть передана строкой в формате DD.MM.YYYY или в числовом), time_beg - время заказа.
GenSpecialSMA(DirectExcel, Code) - функция для генерации отчета о доставке по акту передачи денег. Первый параметр - указатель на TDirectExcel, второй параметр - код акта передачи денег. АПД выводится на текущий лист объекта TDirectExcel.
CreateSpecialSMA(ClientCode, DateTo) - Функция создает исходящий акт передачи денег (АПД). Требует ClientCode - код клиента, DateTo - дату акта. Функция возвращает коды созданных актов. Если возвращаемых параметров два, значит функция пыталась создать два АПД: первым, идет код АПД с наличной оплатой, а вторым с безналичной. Примеры возвращаемого результата: '0'- акт не был создан, отсутствуют корреспонденции; '124' - код созданного акта; '0,0' - пытались создать два акта, но отсутствуют данные; '4556,0' - создан только наличный АПД; '0,445' - создан только безнал.; '4556,445' - созданы нал. и безнал.
CreateAddressForActDelivery(ActCode, [DeliveryDateMode=0, Delivery=True]) - Функция создает корреспонденцию на доставку акта. ActCode - код акта; DeliveryDateMode: 0 - установить план. дату доставки текущим рабочим днем, 1 - установить план. дату доставки следующим рабочим днем, 2 - установить план. дату доставки равной планируемой дате оплаты АПД; Delivery - создать корр. на доставку АПД или создать корреспонденцию на забор АПД (по умолчанию, доставка АПД). Работа функции может быть изменена системной доп. возможностью OnCreateAddressForActDelivery.
CreateAddressTransferAct(ClientCode, Store, DateTo, [AdditionalParam]) - Функция создает исходящий акт передачи корреспонденции (АПК). Требует ClientCode - код клиента, Store - код филиала, для которого будет создан акт, DateTo - дату, до которой в акт попадут возвраты, AdditionalParam - дополнительный строковый параметр для передачи в системную доп. возможность ExceptionsForAPK, позволяющий отобрать в акт, например, только полные возвраты. Возвращает код созданного акта. ВНИМАНИЕ: при создании АПК используется системная функция ExceptionsForAPK. Если в ней используются интерактивные функции (вывод сообщений, диалоговые окна, выполнение скриптов), то акт сформирован не будет, а функция CREATEADDRESSTRANSFERACT вернет ошибку.
GetPolygonByAddress(Address, TownCode, where[, field='code']) - функция возвращает значение связанное с полигоном в который попал адрес. Если полигон найти не удалось, функция возвратит пустую строку. Address - адрес корреспонденции текстом; TownCode - код города; where - SQL условие; field - необязательный параметр, определяет возвращаемое значение при найденном полигоне, по умолчанию равен "code".
Пример: GetPolygonByAddress(addressrecord.address, if((addressrecord.number=0)*(addressrecord.strbarcode=''), addressrecord.townfrom, addressrecord.townto), '`schema`=1') - пытаемся найти вхождение адреса в полигоны 1 схемы, при выборе города учитывается корр. на забор, у нее нужно использовать город-отправитель (а для обычной корр. нужен город-получатель).
GetPolygonByLatLon(Lat, Lon, where[, field='code']) - функция возвращает значение связанное с полигоном в который попали GPS координаты. Если полигон найти не удалось, функция возвратит пустую строку. Lat - широта текстом; Lon - долгота текстом; where - SQL условие; field - необязательный параметр, определяет возвращаемое значение при найденном полигоне, по умолчанию равен "code".
Пример: GetPolygonByLatLon('55.769064','37.590713','zone is not null and price=0') - пытаемся найти вхождение координат в полигоны, где задана зона, для всех клиентских и курьерских зон.
GetLatLonByAddress(AddressText, TownCode) - возвращает географические координаты вида lat,lon указанного в AddressText адреса. Поиск производится в городе, имеющем код TownCode в таблице Town.
GetRouteCode(AddressText, TownCode, LatLon[, Lon]) - для адреса AddressText в городе с кодом TownCode (из таблицы Town) по географическим координатам lat, lon возвращает код роута (записи, хранящей координаты адреса в городе). Если роут не найден (для адреса в городе не найдено записи с указанными координатами) - создает новый роут и возвращает его код, если роут найден (был создан ранее) - обновляет у роута координаты. Если параметр Lon задан, то параметр LatLon должен содержать одну координату, иначе LatLon должен содержать строку вида 'lat, lon'. В случае ошибки возвращает Null.
Пример:
Set($res, GetRouteCode(address, townto, '55.114034, 36.592397'));
Set($res, GetRouteCode('Троицк, Полковника милиции Курочкина ул., 11', 1, '37.467446, 55.740537'));
Set($res, GetRouteCode('Обнинск, Маркса пр., 20', TownByName('Обнинск'), 55.114034, 36.592397));
CalcAgentPrice(AddressCode, AgentCode, TownFrom, TownTo, Mode, [, Count=1]) - функция возвращает стоимость доставки рассчитанную по тарифу агента. AddressCode - код адреса, AgenCode - код филиала (агента), TownFrom - код города отправителя, TownTo - код города получателя, Mode - режим срочности, count - тарифная сетку от указанного количества отправлений (по умолчанию 1)
SetAddrKol_vo(address, getkol_vo) - функция делает прием корреспонденции в текущем ответственном филиале. address - внутренний код адреса, getkol_vo - количество принимаемых мест, может принимать значения: "kol_vo" - принять все места, "getKol_vo+1" - принять еще одно место, "число" - сделать количество принятых мест равным указанному числу.
CalcClientCnt(client_code, date, is_intown [, date_put=CurrDate(), skipajust=false]) - функция расчета количество доставленных корреспонденций у клиента с кодом client_code за предыдущий месяц от даты date (Или за текущий месяц, подробнее смотри переменную UseCurrentMonthCount) среди внутригородских (is_intown = true) либо междугородних (is_intown = false) корреспонденций, date_put - дата доставки (для альтернативного способа подсчета, включаемого переменной UseDatePutForCalcCnt), skipajust - не учитывать принудительно введенные количества (таблица priceclientadjust типы записей 0 и 1).
GetBasePrice - возвращает базовую стоимость доставки посчитанную по тарифной сетке клиента в зависимости от :кол-ва заказов,зоны,типа,срочности,массы, расстояния. В системах с выключенными доп. услугами также считает проценты от суммы и страховки. Описание параметров:
- ds - ссылка на объект датасета с основными параметрами расчета цены. Значение по умолчанию доступно в формулах тарифа и доп. услуг, через вызов "dataset._self".
Описание некоторых полей датасета: pmoney - процент от суммы; pmoneycard - процент от суммы при оплате картой; pricecode - код прайса (таблица Price) ; distarea - район метро получателя (актуально при отключённом едином районировании, как правило район от 200 до 299 является признаком области); region - признак области при включенном едином районировании; distareaFrom и regionFrom - аналог distarea, region только для отправителя; pcncode - код записи таблицы pricecnt "количество от"; Запрос содержит поля таблицы pricelinesnew - начальная стоимость по тарифной сетки, найденные без учета массы,только по типу срочности и режиму. Запрос содержит поля таблицы price.
- addressrecord - ссылка на объектную модель карточки корреспонденции, следует использовать уже созданную addressrecord._self
- count - количество корреспонденций от клиента. (может показывать кол-во корреспонденции в текущем заказе или за прошлый месяц, в зависимости от выбранной схемы подсчета заказов в тарифе)
- type - тип корреспонденции;
- mode - режим доставки;
- wait - количество минут ожидания (не учитывается при доп. услугах, есть системная услуга "ожидание");
- mass - масса отправления;
- rur - сумма передаваемых денег (не учитывается при доп. услугах, есть системная услуга "процент от суммы");
- inshprice - сумма страховки (не учитывается при доп. услугах, есть системная услуга "процент от объявленной стоимости");
- distance - расстояние до места доставки, обычно поле заполняется при доставке в область (регион в едино районировании). Дополнительная наценка к стоимости доставки;
- forward - направление доставки: true - туда; false - обратно;
- Collection - признак заборной корреспонденции: true - забор, false - доставка (В тарифе есть возможность указать стоимость для забора);
- TownFrom - код города отправителя;
- TownTo - код города получателя.
В тарифе есть возможность указать формулу, которая может влиять на базовый расчет. Формула может объявить служебные переменные, которые:
- $FormulaReplace - если true – возвращаемое значение полностью заменяет базовый расчет;
- $FormulaKoeff - коэффициент на который будет помножена базовая стоимость.
Также внутри формулы объявлены следующие объекты dataset, addressrecord и переменные:
- $ForceIntown - Переменная становится истиной, если междугородний расчет был отменен, т.к. адрес попал в нарисованную зону на карте.
- а также: $forward, $distance, $Count, $Collection, $Wait, $FormulaKoeff, $PriceCode - описание есть выше.
Для направления "туда", Функция GetBasePrice вызывается через доп. услугу "База" (при включенных доп. услугах), для направления "Обратно" всегда вызывается напрямую (т.к. доп. услуги работают только в для направления "туда"). На расчет этой функции влияют следующие переменные: "Финансы" -> "Расчет стоимости по адресу", "Финансы" -> "Зона клиента по умолчанию", "Финансы" -> "Подсчет кол-ва отправлений за месяц".
CalcAddressPrice(AddressCode, [,ZakazCount]) - полностью пересчитывает стоимость доставки корреспонденции по тарифу клиента. AddressCode - внутренний код адреса, ZakazCount - не обязательный параметр, кол-во заказов от клиента.
GetStationCode(s [,town]) – возвращает код станции метро, ассоциированный в системе с адресом s. В случае невозможности идентифицировать станцию метро – возвращает 0. Когда включено районирование по карте, необходим второй параметр "town" - код города в котором нужно искать адрес. Возвращает код района если удалось его найти; код станции меж-города - если адрес удалось геокодировать, но район не нашли; код 0 - когда не удалось геокодировать адрес.
RecalcSpecialSMA(ActCode) - пересчитать акт передачи денег (АПД). Также, у корреспонденций входящих в АПД будет пересчитана стоимость доставки. Для Входящего АПД сумма акта не пересчитывается. Параметр ActCode - внутренний код акта, коды можно перечислять через запятую.
UserCode - Возвращает код текущего пользователя из таблицы «Пользователи» (users).
UserName - Возвращает имя текущего пользователя из таблицы «Пользователи» (users).
UserPass - Возвращает пароль текущего пользователя.
UserBaseCode – Возвращает код текущего пользователя из таблицы «Сотрудники» (kurier).
UserEmail - Возвращает e-mail текущего пользователя.
CurrentTown – Возвращает код текущего города (из таблицы town).
CurrentCity – Возвращает код текущего региона (из таблицы city).
CurrentLocation – Возвращает код текущего филиала (из таблицы store).
FillExcelDoc(Excel, Dataset, FormType, FormNumber) - Выполняет указанную печатную форму в объекте excel. Dataset объект с данными для скрипта в печатной форме, может быть null. Dataset передавать можно так db.self, тогда переданный dataset внутри печатной формы будет доступен по имени dataset. Например:
new('TExcel', 'excel'); FillExcelDoc(excel.self, null, 12, 1); excel.DoNotDestroy(true); excel.SetVisible(true); Покажет эксель с выполненной печатной формой
ValutaSign – Возвращает название валюты для суммы.
SendToMeasoft(xml) - Отправляет запрос в клиентское API Measoft. Автоматически добавляет начальный "<?xml version="1.0" encoding="utf-8"?>".
InsertFirmAtt(excel, sheet, firmcode) - Вставляем на лист эксель по коду фирмы: печать, подпись, подпись бухгалтера, логотип. Тэги <STAMP>, <DIR>, <BUH>, <LOGO> соответственно. После тега можно указать размеры изображения в символах Microsoft Excel. Формат записи: <STAMP> 16, 16
PreCalcSalary(kurier, addressCodes) - Рассчитывает предварительную зарплату. Kurier - код курьера, используется для определения тарифа. addressCodes - коды адресов, через запятую для которых необходимо посчитать зарплату. Результаты расчета будут записаны в таблицу kurierpaydetail, так как расчет предварительный то записи не будут прикреплены к конкретному начислению.
select a.code, kpd.price as "туда", kpd2.price as "обратно" from address a left join kurierpaydetail kpd on kpd.sourcetable=3 and kpd.sourcecode=a.code and kpd.rectype = 1 left join kurierpaydetail kpd2 on kpd2.sourcetable=3 and kpd2.sourcecode=a.code and kpd2.rectype = 2 where a.code in (...)
CalcSalary(DateTo, [Filter=0, KurierCode = 0, ManagerCode = 0]) - Полный расчет зарплаты курьерам. DateTo - дата до которой создается начисление. Условия отбора курьеров для начисления. Filter - роль сотрудника: 0 - Все, 1 - курьеры, 2 - менеджеры; KurierCode - код курьера, ограничить расчет зарплаты одним курьером;ManagerCode - код курьера, ограничить расчет зарплаты курьерами указанного менеджера. Внимание фильтры Filter, KurierCode и ManagerCode накладываются друг на друга. Результатом функции является SubSQL с информацией по созданным начислениям.
поля ответа: код курьера, код менеджера, начислено, бонусы, штрафы, аванс, итого; select kurier, manager, profit, bonus, shtraf, prepay, total [union select ...]
SelDistAddr(s) – Возвращает строку для вставки в select запрос, для вывода поля с упрощенным адресом. Принимает один необязательный строковый параметр - алиас таблицы из которой будет упрощаться поле address, по умолчанию "a"
VoiceReadStr(str) – Озвучивает фразу str голосовым уведомлением доступными словами из базы. Может содержать тег "{break_off}" для того, чтобы сделать эту фразу не пропускаемой в очереди воспроизведения.
CalcStorageCost(ClientCodes, DateFrom, DateTo, NeedReport[, Store]) – рассчитывает стоимость хранения на складе для выбранных клиентов (ClientCodes - коды клиентов через запятую), в период дат с DateFrom до DateTo, с прикреплением к корреспонденции отчета в зависимости от выставленного параметра NeedReport. Может содержать параметр Store - код филиала, по умолчанию пустой (расчет выполняется для всех филиалов). Возвращает коды созданных корреспонденций через запятую.
Объект TINIFile
Предоставляет функции работы с ini-файлами. В некоторых контекстах создается автоматически для предоставления доступа к настроечному файлу модуля, выполняющего скрипт.
Функции:
IniParam(s[,section='common']) – Существует только если имя экземпляра объекта пустое. Возвращает значение параметра s ini-файла секции «common», изменить секцию можно не обязательным параметром section. В случае отсутствия параметра в файле возвращает пустую строку.
Param(s) – Синоним IniParam с тем отличием, что существует только если имя объекта непустое.
SetText(s) - Загружает ini файл из строки s. Если в файле нет секции «common», то принудительно объявляет ее в начале.
Объект TSMS
Предназначен для отправки SMS, а также проверки статуса их доставки.
Функции:
SetProxy(Server, Port, User, Pass) - Устанавливает настройки прокси-сервера.
Connect(Provider, Host, User, Pass, SenderName, SMSPrefix) – Подключает объект к провайдеру provider, используя адрес Host, имя пользователя User и пароль Pass. Значение SMSPrefix предназначено для того, чтобы провайдер мог различить сообщения от разных филиалов, если этими филиалами используется одно подключение. Если необходимости разделять сообщения нет - значение SMSPrefix можно не указывать.
Для провайдера доступны значения 'mirsms', 'sms16', 'websms', 'epochta', 'zanzara', 'SMSManager', 'f1sms', 'BitCall', 'mirsmsGET', 'AMD' и другие, либо можно указать числовые значения номера протокола, от 1 до 20SendSMS(Phone, Text, [ID]) – Отправляет SMS с текстом Text на телефон Phone. Для некоторых провайдеров необходим уникальный идентификатор сообщения ID (для провайдера iVoice - идентификатор сценария (кампании)). Возвращает ID провайдера для последующей проверки статуса доставки.
CheckSMS(ProviderID) – Проверяет состояние доставки сообщения с идентификатором ProviderID. Возвращает: 0 – доставляется, 1 – успешно доставлено, 2 – не доставлено.
ReceiveSMS(InboxID, DateFrom, DateTo, NewOnly) - Получает входящие SMS, с ящика InboxID (идентификатор выдаётся провайдером). DateFrom, DateTo - задается временной интервал в котором были приняты сообщения(формат 08.04.2013 18:00:00 'DD.MM.YYYY HH:NN:SS'). Чтобы получать только новые сообщение поле NewOnly должно быть True. Возвращает XML с сообщениями.
ExtraResult([ParamName=]) - Вызывается после CheckSMS, возвращает дополнительную информацию по последнему статусу смс. В настоящее время работает только для провайдеров BitCall и iVoice. Для BitCall по умолчанию возвращает кнопки, нажатые абонентом во время работы с голосовым меню. Если в paramname указать 'IdentifyText' то будет возвращен JSON с ответами абонента на заданные вопросы(используется в случае звонков с индивидуальным сценарием). Для iVoice по умолчанию подразумевается параметр 'response', при этом будет возвращен JSON с ответами абонента на заданные вопросы (в зависимости от сценария)
Log - Возвращает последний HTTP запрос и ответ от сервера смс.
Объект TXML
Предназачен для парсинга XML-данных.
Функции:
SetText(S) – Задает текст XML документа для парсинга, делает текущим корневой элемент.
NodeValue – Возвращает значение текущего элемента.
NodeName – Возвращает имя текущего элемента.
OpenChild(V) – Ищет дочерний элемент и делает его текущим. Если V – число – ищет по номеру, если V – текст – ищет по названию. Возвращает значение найденного элемента, или пустую строку, если элемент не найден. Нумерация элементов начинается с нуля.
ChildrenCount – Возвращает количество дочерних элементов.
ChildNodeValue(V) – Ищет дочерний элемент и возвращает его значение. Если V – число – ищет по номеру, если V – текст – ищет по названию.
OpenParent – Делает текущим родительский элемент. Возвращает значение найденного элемента.
AttribCount – Возвращает количество атрибутов текущего элемента.
AttribName(i) – Возвращает имя атрибута с номером i.
Attrib(V) – Ищет атрибут и возвращает его значение. Если V – число – ищет по номеру, если V – текст – ищет по названию.
Reset – Делает текущим корневой элемент, возвращает его значение.
Объект TJSON
Предназачен для парсинга JSON-данных.
Функции:
SetText(S) – Задает текст JSON документа для парсинга, делает текущим корневой элемент.
NodeValue – Возвращает значение текущего элемента.
NodeName – Возвращает имя текущего элемента.
OpenChild(V) – Ищет дочерний элемент и делает его текущим. Если V – число – ищет по номеру, если V – текст – ищет по названию (регистрозависимый поиск). Возвращает значение найденного элемента, или пустую строку, если элемент не найден. Нумерация элементов начинается с нуля.
ChildrenCount – Возвращает количество дочерних элементов.
ChildNodeValue(V) – Ищет дочерний элемент и возвращает его значение. Если V – число – ищет по номеру, если V – текст – ищет по названию (регистрозависимый поиск). Можно проверять наличие элементов, если элемента нет, вернется пустая строка.
OpenParent – Делает текущим родительский элемент. Возвращает значение найденного элемента.
Reset – Делает текущим корневой элемент, возвращает его значение.
isArray - Возвращает true, если текущий элемент является массивом (доступ к дочерним элементам возможен только по индексу, нумерация элементов начинается с нуля)
Объект TZip
Предназначен для работы с Zip архивом.
SetZip(s) - Загружает архив в объект из строки s;
GetZip - Возвращает архив в виде строки;
AddFromFile(SrcPath, ZipPath) - Добавляет файл SrcPath в архив и располагает его по пути ZipPath. ZipPath содержит имя файла в архиве, при необходимости можно указать каталог;
AddFromStr(Data, /*ZipPath*/) - параметр ZipPath временно не работает. Добавляет файл из строки Data в архив и располагает его по пути ZipPath. -ZipPath содержит имя файла в архиве, при необходимости можно указать каталог;
LoadFromFile(path) - Загружает архив из файла path;
SaveToFile(path) - Сохраняет архив в файл path;
Count - Возвращает кол-во файлов в архиве;
DataByIndex(index) - Возвращает распакованный файл в виде строки. Index - номер файла в архиве;
DataByName(ZipPath) - Возвращает распакованный файл в виде строки. ZipPath - путь к файлу в архиве, может содержать каталоги;
FileName(index) - По номеру файла, функция возвращает полный путь файла в архиве.
Объект TBase
Функции общего назначения:
ExecSimpleScript(Caption, Text) - Выполняет скрипт "Дополнительных возможностей". Возвращаемые значения, введенные пользователем устанавливает в переменные $scriptvar1..$scriptvarN, Значения кодов списочных переменных - в переменных $scriptvar1codes..$scriptvarNcodes. Функция возвращает истину, если пользователь нажал "OK" в диалоговом окне.
FillAdvPriceReport(Excel, AddressCodes, StartLine, StartCol, [ShowSumPrice,InsertColumns,ShowAll]) - добавляет отчёт по дополнительным услугам. В AddressCodes - указаны коды адресов через запятую, каждый код это отдельная строка отчета. Адреса будут показаны в порядке перечисления их в AddressCodes. Если в отчет нужно добавить пустую строку, то можно указать код адреса -1000. StartLine, StartCol - верхний левый угол выгружаемой таблицы. ShowSumPrice - добавить столбец итоговый столбец с суммой всех услуг, по умолчанию выключено. InsertColumns - раздвинуть таблицу перед вставкой отчета, позволяет встраивать отчет посередине выгрузки, по умолчанию выключено. ShowAll - показать все дополнительные услуги, по умолчанию false и показывает только услуги с начислениями. Функция возвращает количество использованных столбцов.
PrintSticker(Codes, [ToBoxes=False])
GetItemByName(Name)
GetA4Printer - возвращает имя принтера выбранного для печати документов
GetStickerPrinter - возвращает имя принтера выбранного для печати стикеров
GetDuplexPrinter - возвращает имя принтера выбранного для двусторонней печати, если принтер не выбран, возвращает пустую строку
PrintAttachPDFPage(Code, FileName, Page, Printer) - печатает страницу из вложенного файла PDF. Code - код вложения (attachment), Page - номер страницы, Printer - 0 = принтер A4, 1 = принтер этикеток.
AttachPDFToText(Code, [TextFileName]) - преобразует файл PDF из вложений в текст. Code - код вложения (attachment), TextFileName - имя текстового файла, в который записывается результат (если не указан, используется временный файл). Возвращает текст в виде строки.
GetActiveForm - возвращает код активной формы в программе, где происходит сканирование.
Список интерфейсов: 0 - неопределенный; 1 - прием корреспонденции на склад; 2 - АПД; 3 - комплектация адресов (ShelfingForm); 4 - доска приема; 9 - вкладка «Манифесты»; 10 - Инвентаризация корреспонденции; 11 - АПК; 12 - вкладка «Адреса»; 13 - вкладка «Выдача»; 14 - вкладка «Склад».
RuleName(alias) - Выдает полный путь в дерева прав по псевдониму права.
CheckRule(alias) - функция проверки разрешения у текущего пользователя системы, alias - псевдоним права. Возвращает 1, если право есть и 0, если права нет.
Пример: if(CheckRule('RSE'), ShowMessage('У пользователя есть право изменять счета'), ShowMessage('У пользователя нет права изменять счета'));
Функции, работающие только в импорте БД из эксель:
ReplaceAddress
GetItemByCode - Поиск товара по артикулу. Внимание: в пределах одного клиента может быть несколько товаров с одинаковыми артикулами. В этом случае функция найдет последний заведенный товар.
GetPrice
GetNewNumber - используется при импорте реестра, возвращает номер конверта в загружаемом заказе
GetNewPos - используется при импорте реестра, возвращает порядковый номер вложения
GetNewPackagePos- используется при импорте реестра, возвращает порядковый номер места
Zakaz - возвращает номер заказа куда происходит импорт реестра
addresscode - используется при импорте реестра, код созданного адреса
Source - код заказчика
ClientTown - Узнаем город клиента, через филиал с которым он работает. Сам клиент берется из заказа указанного в окне "Импорт БД из Excel".
Объект TFieldObject
Объект для доступа к записям, используется в картах и доп.услугах.
_GETTABLEINFO - возвращает данные о полях и примеры данных объекта.
Объект TMessage
Объект используется для скриптовой обработки письма в заданиях импорта данных. В себе содержит текст письма в очищенном формате и оригинальном формате HTML, отправитель письма, тему письма, дата получения и список прикрепленных файлов.
Message.Text - возвращает очищенный от HTML-тегов текст письма.
Message.HTMLText - возвращает оригинальный текст письма со всеми HTML-тегами.
Message.Sender - возвращает email-адрес отправителя письма.
Message.AttachmentsCount - возвращает количество вложенных файлов.
Message.DateTime - возвращает дату и время получения письма.
Message.Subject - возвращает тему письма.
Message.GetAttachmentDataString(Number) - возвращает вложенный файл под номером Number в виде строки.
Message.GetAttachmentName(Number) - возвращает имя вложенного файла под номером Number.
Применение языка формул
в различных контекстах системы «Курьерская служба 2008» и сопутствующих проектах
Курьерская служба 2008
Дополнительная информация на чеке
В карточке клиента на закладке «Касса» имеется поле для ввода текста, который будет отображаться на кассовых чеках, печатаемых для корреспонденции от данного клиента. В поле может быть введен как просто текст, так и интерпретируемый скрипт, начинающийся с признака скрипта: «<?>». В контексте выполнения скрипта система создает объекты:
TSelfDB с открытым набором данных со строчкой корреспонденции, заказа и клиента, на которую печатается чек
TBaseSupport
TBaseValue
Все объекты создаются с пустыми именами.
Так же система записывает в переменную $CashRegisterID вычисленный код фискального регистратора, на котором предполагается печать чека.
Результат работы скрипта печатается на создаваемом чеке, если скрипт не возвращает значение “-1” (число или текст) – в этом случае система чек не создает. Подразумевается, что либо скриптом было принято решение об отсутствии необходимости формирования чека, либо скрипт взял эту функцию на себя.
Заполнение шаблонов печатных форм
Дополнительные возможности
Импорт БД из Excel
В окружении интерпретатора создается объект ZakazRecord, он является списком со значениями таблицы zakaz. Именно в этот заказ будут загружены данные. Из этого объекта также доступно :
- ZakazRecord.userfields - пользовательские поля заказа;
- ZakazRecord.Clients - данные таблицы clients;
- ZakazRecord.Clients.userfields - пользовательские поля заказчика.
Прайс лист клиента
Формула возвращает сумму в валюте клиента для каждой поездки (туда или обратно) единицы корреспонденции, которая добавляется к штатному ценообразованию. Если формула установила в значение «Истина» переменную «$FormulaReplace», то значение, возвращаемое формулой заменяет штатное ценообразование. Помимо стандартных объектов, система создает объект AddressRecord, в котором, как свойства, доступны все поля текущей записи. Так же она выставляет значение переменной $Forward в 1 (истина), если необходимо произвести расчет для направления "Туда" и 0 (ложь) - если обратно. ВНИМАНИЕ! Как и во всех остальных местах, после формулы нельзя ставить ";", иначе скрипт вернет 0!
Например:
if(int(AddressRecord.Time_Put_Max)>19, 100, 0) Прибавляет 100 рублей в случае, если максимальный срок доставки 20 часов или более
if(pos(AddressRecord.Address, 'Аренда')>0, set($FormulaReplace, 1); 1500 , 0) В случае наличия подстроки "Аренда" в адресе заменяет штатное ценообразование на 1500 рублей
Объект AddressRecord может предоставить доступ к связанным таблицам :
- addressrecord.boxes
- addressrecord.packages
- addressrecord.clients
- addressrecord.price
- addressrecord.advprice
- addressrecord.userfields
- addressrecord.addressfld
- addressrecord.clients.userfields
- addressrecord.price.userfields
- addressrecord.zakaz
- addressrecord.zakaz.userfields
Чтобы получить доступ к полю VarCode из таблицы userfields необходимо записать AddressRecord.Userfields.VarCode. В присоединённой таблице может быть несколько записей чтобы получить к ним доступ предусмотрены функции _First, _EOF, _Next, _RecordCount, _Set.
Пример:
set($value1, 0); set($value2, 0); while(AddressRecord.userfields._EOF=0, if(AddressRecord.userfields.varCode=1, set($value1, if(AddressRecord.userFields.VarValue='Праздничная упаковка', 150, 0)), ''); if(AddressRecord.userfields.varCode=2, set($value2, AddressRecord.userFields.VarValue), ''); AddressRecord.userFields._Next; ); int($value1) + int($value2)
Пример делающий тоже самое что и выше но через поиск Locate:
set($value1, if(addressrecord.userfields.VarValue('VarCode', 1)='Праздничная упаковка', 150, 0)); set($value2, int(addressrecord.userfields.VarValue('VarCode', 2))); $value1 + $value2
В скрипте доступны переменные: «$FormulaKoeff» - это коэффициент на который умножится конечная цена (по умолчанию равна 1); «$PriceCode» - код прайса; «$CurrentPriceConf» - код услуги; «$BasePrice» - стоимость всех услуг с уровнем (pricelevel) меньше текущего.
Для вызова функции CalcBasePrice (Расчёт базовой цены) в скрипте объявленны переменные: $Count,$Collection,$Distance,$Wait.
Существует поиск по ключевому полю (поиск регистронезависимый), например чтобы найти в таблице advprice введённое значение для текущей услуги, нужно сделать такую запись addressrecord.advprice.value('priceconf', $CurrentPriceConf) - Первый параметр это ключевое поле, второй искомое значение. Если запись найдётся будет возвращено значение поле value, если нет функция вернёт значение 0.
Пример
if(addressrecord.advprice.active('priceconf', 3)='T', addressrecord.advprice.price, 0) Смотрим включена ли услуга и если да, возвращаем рассчитанную стоимость
Чтобы изменить значение записанное в объект addressrecord, нужно воспользоваться методом _set(keyfield, keyvalue, filed, value). Параметр keyfield - ключевое поле, keyvalue - искомое значение, filed - имя столбца, value - новое значение столбца. Сначала происходит поиск строки по ключу, далее меняется значение указанного столбца. Пример, отключение услуги база:
addressrecord.advprice._Set('priceconf', 1, 'active', 'F') priceconf - поле где записан код услуги; 1 - услуга База; active - поле показывающее включение услуги.
Также существует упрощенный метод _set, с двумя параметрами filed, value - он используется в шаблонах загрузки или в системных доп. возможностях где доступен объект addressrecord.
Зарплата курьеров
Формула возвращает сумму в основной валюте для каждой единицы корреспонденции, которая добавляется к штатному ценообразованию. Если формула установила в значение «Истина» переменную «$FormulaReplace», то значение, возвращаемое формулой заменяет штатное ценообразование. Переменные «$FormulaTablKoeff» и «$FormulaMoneyKoeff» позволяют установить повышающий или понижающий коэффициент на стоимость доставки (по тарифной сетке) и услуги соответственно (процент от суммы, процент от стоимости доставки, ожидание). Переменная «$UsingZoneName» и «$KurierZone» содержат название и код зоны соответственно, есть возможность поменять название зоны для отчета.
Планировщик
В поле текста задания может быть введен как текст с командами планировщика (см ниже), так и интерпретируемый скрипт, начинающийся с признака скрипта: «<?>». В контексте выполнения скрипта система создает объекты:
TIniFile, Указывает на настроечный ini-файл планировщика.
Все объекты создаются с пустыми именами.
Для записи в лог планировщика нужно использовать функцию Print
Репликатор
Прочее
ReplaceAddress(target, address) – Возвращает адрес последней доставки корреспонденции получателю target по адресу address от текущего клиента. При отсутствии такой доставки, возвращает address.
GetPrice –возвращает рассчитанное значение цены, на основе прайс-листа клиента и данных о корреспонденции.
GetKurierByStation(i) – возвращает код курьера, ассоциированного со станцией метро с кодом i.
GetNewNumber – Возвращает не занятый номер единицы корреспонденции в текущем заказе.
История изменений
Недавние изменения
Добавлено: | В объект TExcel добавлен метод ColumnDelete. |
Добавлено: | В объект TBaseUtils добавлена функция InsertFirmAtt. |
Добавлено: | В объект TExcel добавлен метод Align. |
Добавлено: | Функция CheckEan |
Добавлено: | В объект функцию FillAdvPriceReport добавлены параметры ShowSumPrice,InsertColumns |
Добавлено: | В объект TSMS добавлен метод Log. |
Добавлено: | Добавлена функция Money. |
Добавлено: | В объект TBaseUtils добавлена функция ValutaSign. |
Добавлено: | В объект TBaseUtils добавлена функция GetPolygonByLatLon. |
Добавлено: | В объект TTable добавлена функция SetMultiHeader, SetCustomHeader. |
Добавлено: | Функция DownloadAttachment |
Добавлено: | В функцию SetRowHeight объекта TExcel добавлен параметр cnt. |
Добавлено: | В объект TPicture добавлена функция AsString. |
Добавлено: | В объект TPicture добавлена функция SetSize. |
Добавлено: | В объект TADO добавлена функция ParseForIn. |
Изменено: | В объект TBaseUtils из TBase перенесена функция FillExcelDoc. |
Добавлено: | В объект TBaseUtils функция CalcAddressPrice |
Изменено: | Все функции класса TBaseSupport перенесены в TBaseUtils. Класс TBaseSupport больше не существует. |
Добавлено: | В функции RowInsert и RowDelete объекта TExcel добавлен параметр count. |
Добавлено: | В объект TBaseUtils функция SendToMeaSoft |
Добавлено: | В объект TBaseUtils функция RecalcSpecialSMA |
Добавлено: | Новая функция Reverse |
Версия 849 22.02.2018
Добавлено: | В функцию TBaseUtils.TownByIndex добавлен параметр PriorityName |
Добавлено: | В объекте TBase добавлена функция GetNewPackagePos |
Добавлено: | В объекте TSMS доработан метод ExtraResult, добавлен параметр ParamName |
Добавлено: | В объект TBase добавлена функция CalcAgentPrice |
Добавлено: | В объект TBaseUtils добавлена функция CreateAddressForActDelivery |
Изменено: | Функция CalcTownDeliveryDate заменена на CalcDeliveryDate |
Добавлено: | В объект TBaseUtils добавлена функция CreateSpecialSMA |
Добавлено: | Функция SignatureUrl |
Добавлено: | В объект TPicture добавлена функция LoadFromStr. |
Добавлено: | В объект TCanvas добавлена функция SetPen. |
Добавлено: | В объект TCanvas добавлена функция SetBrush. |
Добавлено: | В объект TPicture добавлена поддержка чтения в формате PNG. |
Добавлено: | В функцию TCanvas.DrawPic параметр Mode |
Добавлено: | Свойство TPicture.Canvas |
Добавлено: | Функция DeleteFile |
Версия 758 29.03.2017
Добавлено: | Функция GetPolygonByAddress |
Добавлено: | Функция ParamsCount |
Добавлено: | Объект TZip |
Изменено: | Функции CreateEAN и Create128 заменены одной функцией CreateBar, полностью совместимой с Create128, но добавлена поддержка EAN-13 и Interleaved 2-5 (для Почты России). В системе функции оставлены для обратной совместимости, но более не являются документированными и рекомендованными к использованию. |
Добавлено: | Параметр text в функцию Cell объекта TExcel |
Добавлено: | Функция UrlEncode |
Добавлено: | Функция IncDay теперь может принимать параметр count |
Добавлено: | Функции FtpGet, FtpPut, TTable.SetCell() |
Версия 452 26.02.2014
Добавлено: | Функция Time |
Добавлено: | Функция FixedIntToStr |
Добавлено: | Функция TimePeriod |
Добавлено: | В интерпретатор добавлена функция приёма смс - ReceiveSMS |
Добавлено: | Функция STR2UTF |
Добавлено: | Функция SAVETOFILE |
Добавлено: | Функция TExcel.SetSheetName |
Добавлено: | В пользовательские отчеты добавлен тип "FILESTR" |
Добавлено: | Расширены возможности объекта addressrecord в формулах тарифов |
Версия 308 24.11.2012
Добавлено: | В функции загрузки таблиц из TADO добавлено условие, что поля, названия которых начинаются с "-" не выгружаются. Таким образом можно скрывать служебные поля из результирующего набора. |
Добавлено: | Функция TExcel.RowAutoFit |
Добавлено: | Функция TExcel.RowInsert |
Версия 300 01.11.2012
Добавлено: | В объекте TCSVFile добавилась возможность запрашивать значения не только текущей записи через параметр сдвига |
Добавлено: | В пользовательские отчеты добавлен тип "UPDOWN" |
Добавлено: | В интерпретатор добавлен объект TCSVFile |
Версия 266 14.09.2012
Добавлено: | В интерпретатор добавлена поддержка массивов |
Версия 265 11.09.2012
Добавлено: | Функция CreateTrans в интерпретатор |