Привет, Хабр!
Редакторы советуют начинать статью именно с такого приветствия, ну так я спорить не буду:) Меня зовут Баранов Михаил, работаю программистом более 20 лет. В далеком, примерно 2003-м, году умные люди мне сказали: «Бросай этот язык программирования Progress 4Gl, он устарел, срочно переходи на какой-нибудь другой». Я не согласился. «На этом языке написано несколько банковских систем, и я буду востребован», - подумал я. Тогда я устроился работать с банковской системой Банкир/Про, написанной на языке Progress. Работал с ней около 5 лет. Но потом банки стали от нее отказываться. Тогда я стал работать с системой Бисквит тоже написанной на языке Progress.
Прошло еще 10 лет и от Бисквита стали банки отказываться. И вот в 2019 году я оказался в крайне неприятной ситуации: я отлично знаю только то, что уже мало кому нужно. Осенью 2019 года я получил отличное предложение от РСХБ-ИНТЕХ, где я сейчас и работаю. Я устроился туда выполнять задачи по разработке в системе Бисквит и одновременно изучать систему ЦФТ на языке программирования Pl Plus. Уже на испытательном сроке мне назначили 14 учебных курсов на учебном портале ЦФТ и стали давать элементарные задачки по разработке в системе ЦФТ. А примерно с лета 2020 года я полностью перешел на разработку в системе ЦФТ (и этому очень рад).
Эта статья о том, как сделать в ЦФТ то, что мы привыкли делать в Бисквите. Начинал я ее писать только для себя, чтобы упорядочить свои знания. Однако потом оказалась, что эта тема важна для всех разработчиков, которые переходят на ЦФТ и не только с Бисквита. Именно поэтому я решил разместить ее на Хабре.
Покажу на примерах
Примеры из Бисквита будут курсивом, примеры из ЦФТ - жирные или виде блоков кода:
Сообщение в поток:
MESSAGE “Hello world”.
debug_pipe('Hello world', 0);Сообщение в окно:
MESSAGE “Hello world” VIEW-AS ALERT-BOX.
debug('Hello world', 0); Операторы:
+ (для цифр) +
+ (для строк) || (конкатенация)
= (для сравнения) =
= (для присваивания) :=
<> !=
В остальном так же.
Если:
if ….. then do:
программный код
end.
else do:
программный код
end.
If …. then
программный код
elsif …. then
программный код
else
программный код
end if;Разбор строк через разделитель:
ENTRY
Inp_str string; --строка для разбора с разделителем ‘;’
item_command rtl.string_table; --специальный массив
item_command := STR_2.split(p_expression == Inp_str, p_delimiter == ';');
debug_pipe(item_command(1) , 0); -- Это как MESSAGE ENTRY(1…
debug_pipe(item_command(2) , 0); -- Это как MESSAGE ENTRY(2…Выбор данных из базы
1) Простой поиск уникальной записи в таблице (в ТБП)
FIND
Пример:
Поиск счета по номеру
s_ac_str string_100; --входная строка с номером счета
r_ac_fin ref [AC_FIN]; --ссылка на счет
r_AC_FIN := ::[AC_FIN]([MAIN_V_ID] = s_ac_str); --получение ссылки
debug_pipe(‘Имя счета: ‘ || r_AC_FIN.[NAME], 0); --вывод в сообщение имени счетаПри таком поиске нужно быть уверенным, что запись существует и что запись действительно уникальная. Если уверенности нет, то его применять нельзя.
Также в ЦФТ есть важная особенность. В нем, в отличие от Бисквита, часто записи вообще не нужно искать, чтобы получить из них информацию. В этом помогает механизм, который называется «разыменованность».
Пример:
У нас есть ссылка на счет (нашли в предыдущем примере), а нам нужно вывести имя владельца счета.
Это имя лежит в другой таблице клиентов CLIENT, но нам не нужно там осуществлять поиск самой записи, достаточно написать так:
debug_pipe(r_AC_FIN. [CLIENT_V].[NAME], 0); В реквизите CLIENT_V на счете хранится ссылка на клиента - владельца счета.
2) Поиск первой записи с обработкой ситуации, когда запись не найдена.
FIND FIRST …… NO-ERROR.
….
IF NOT AVAILABLE
…..
s_ac_str string_100; --входная строка с номером счета
r_ac_fin ref [AC_FIN]; --ссылка счет
begin
locate r_ac_fin in ::[AC_FIN]
where r_ac_fin.[MAIN_V_ID] = s_ac_str
order by r_ac_fin.[MAIN_V_ID] asc;
debug_pipe(‘Имя счета: ‘ || r_AC_FIN.[NAME], 0);
exception when NO_DATA_FOUND then
debug_pipe('Запись не найдена', 0);
end;3) Поиск последней записи.
FIND LAST
Аналогично, но вместо asc нужно писать desc
4) Перебор всех записей по некоторому условию одной таблицы.
FOR EACH
Способ 1:
s_ac_str string_100; --входная строка с номером счета
for acc in ::[AC_FIN] all where acc.[MAIN_V_ID] = s_ac_str loop
debug_pipe(‘Имя счета: ‘ || acc.[NAME], 0);
end loop;Способ 2:
s_ac_str string_100; --входная строка с номером счета
for (
select acc(
acc.[NAME] : C_NAME
)
in ::[AC_FIN] all
where acc.[MAIN_V_ID] = s_ac_str
) loop
debug_pipe(‘Имя счета: ‘ || acc.[C_NAME], 0);
end loop;Слышал (но не проверял), что оба способа абсолютно одинаковы по быстродействию, поскольку код этих примеров Pl Plus во время компиляции преобразуется в одинаковый код Pl SQL.
5) Перебор всех записей по некоторому условию для нескольких таблиц.
FOR EACH….
,EACH…
Вывести имя счета и имя владельца.
for (
select acc(
acc.[NAME] : C_NAME,
cl.[NAME] : C_NAME2
)
in ::[AC_FIN], (::[CLIENT] all : cl) all
where acc.[MAIN_V_ID] = s_ac_str
and acc.[CLIENT_V] = cl
) loop
debug_pipe('Имена_: ' || acc.[C_NAME] || ' ' || acc.[C_NAME2], 0);
end loop;Для выполнения этой задачи необязательно было работать с 2-мя таблицами, можно сделать запрос к одной [AC_FIN] и использовать разыменованность.
Точно такой же результат выдаст такой код:
for (
select acc(
acc.[NAME] : C_NAME,
acc.[CLIENT_V].[NAME] : C_NAME2
)
in ::[AC_FIN] all
where acc.[MAIN_V_ID] = s_ac_str
) loop
debug_pipe('Имена2_ : ' || acc.[C_NAME] || ' ' || acc.[C_NAME2], 0);
end loop;Если вы написали такой код, но у вас ничего не отбирается, то вы забыли написать в коде слово "all", также как постоянно забывал я :)
Запуск одной операции из другой:
RUN oper.p (par1, par2).
Способ 1. В этом случае запускается только «тело» операции.
::[tbp_oper].[oper](
P_PAR1 == par1,
P_PAR2 == par1
);Способ 2. В этом случае запускается вся операция вместе с формой.
На вызывающей операции должна стоять галочка «Выводить команды в буфер сессии».
stdio.put_line_buf('<% PLPCALL [TBP_OPER].[OPER](%PARAM%.P_PAR1 => %VAR%.PAR1, %PARAM%.P_PAR2 => %VAR%.PAR2) %>'); Переменные PAR1 и PAR2 должны быть заданы в свойствах вызывающей операции в разделе «Переменные».
Способ 3. Вызов из клиент-скрипта тоже всей операции.
Runtime.PlayEx("<% PLPCALL [TBP_OPER].[OPER](%PARAM%.P_PAR1 => %VAR%.PAR1, %PARAM%.P_PAR2 => %VAR%.PAR2) %>")Инклюды:
{globals.i}
pragma include(::[RUNTIME].[MACRO_LIB]);Препроцессоры:
&GLOBAL-DEFINE DELIM ";" /* разделитель для csv формата */
pragma macro(DELIM, ';'); -- разделитель для csv форматаИспользовать в коде: &DELIM
NO-UNDO, NO-LOCK:
Можно считать, что все переменные описываются как NO-UNDO.
bank.[DEPART] --NO-LOCK
EXCLUSIVE-LOCK:
Способ 1.
bank=>[DEPART] –-блокировка одного реквизита записи
Способ 2.
bank%lock –-блокировка всей записи
Где bank – ссылка на банки.
Первый способ обращения к записи типа bank.[DEPART], в отличие от NO-LOCK Бисквита, дает возможность изменить запись, поэтому bank=>[DEPART] применяется редко.
Транзакции:
DO TRANSACTION:
………
END.
Для управления транзакциями существует ряд операторов:
commit;
Фиксирует сделанные изменения в базе данных и делает их видимыми для других пользователей.
savepoint < имя >;
Устанавливает точку отката с именем < имя >.
rollback [ to < имя > ]
Отменяет сделанные изменения, начиная от последнего commit или начиная с места, где была установлена точка отката с именем < имя >.
Следует иметь ввиду, что операторы commit и rollback снимают все установленные пользователем физические блокировки и дают возможность другим пользователям изменять блокированные ранее данные.
Обмен данными между базой и файлами в разных форматах:
1) Выгрузка в XLS.
Для вывода в XLS используется шаблон. Его необходимо подгрузить в справочник «Справочник шаблонов документов».
pragma macro(xl, '::[OOXML].[API_XL]'); --препроцессор
pragma macro(lib_ooxml,'::[SHABLON_DOC].[LIB_OOXML]'); --препроцессор
&lib_ooxml.xl_init(p_shablon_code == 'RSB_REP_KSPL'); -- вызов шаблона
&xl.Open_Sheet(1); -- установим нужный лист
&xl.put(3, 6, ‘информация для вывода в ячейку 3 6 листа 1’)); -- вывод в строку 3, колонку 6
&lib_ooxml.xl_finish; --вывод xls на экран2) Выгрузка в word.
Для вывода в word используется шаблон. Его необходимо подгрузить в справочник «Справочник шаблонов документов».
pragma macro(wd, '::[OOXML].[API_DOC_SAX]'); --препроцессор
p_shablon_ref ref [SHABLON_DOC]; --переменная для ссылки на шаблон
v_tf_field constant.MEMO_TABLE_S; --массив для переменных шаблона
p_shablon_ref := ::[SHABLON_DOC]%locate(x where x.CODE = 'SHABLON_CODE'); --поиск шаблона по коду
v_report_data := ::[SHABLON_DOC].[LIB_OOXML].wd_init(
p_shablon_ref == p_shablon_ref
,p_filial == stdlib.userid().[FILIAL]
,p_stop_on_error == false); --подгрузка шаблона
v_tf_field := &wd.GetDocVars; --подгрузка переменных из шаблона в массив
v_tf_field('ДАТА'):= vDate_Str; --заполнение переменной ДАТА неким значением
v_tf_field('ФИО'):= P_CLIENT; --заполнение переменной ФИО неким значением
&wd.PutDocVars(v_tf_field); --возврат значений с массива на документ
&wd.finish(v_report_data); --вывод документа на экран3) Загрузка из файла csv (файл лежит на сервере, клиентом не выбирается, имя файла прописывается в операции)
--Необходимые переменные
ifile integer;
ofile [FILE$LOAD];sbuffer varchar2(1000);
--Определим путь и имя файла
ofile.[SRC_PATH] := stdio.Get_Env('FIO_ROOT_DIR');
ofile.[SRC_NAME] := 'for_test.csv';
ofile.[SRC_TYPE] := true;
--Вычитали данные
ifile := stdio.open(ofile.[SRC_PATH], ofile.[SRC_NAME], 'r');
while stdio.get_line(ifile, sbuffer, True, stdio.WINTEXT, Null) loop
if sbuffer is not null then
sbuffer:= replace(replace(sbuffer, chr(10), ''), chr(13), '');
--В переменной sbuffer строки из файла for_test.csv.
--Далее их можно обрабатывать, например разбирать
--используя аналог функции ENTRY (описано выше)
end if;
end loop;
stdio.f_close(ifile);4) Загрузка из XLS (файл лежит на клиенте или сервере и выбирается пользователем).
У операции необходимо создать параметр P_FILE типа FILE$LOAD и переменные V_FILEPATH типа STRING_4000, V_FILENAME типа STRING_4000.
P_FILE необходимо разместить на экранной форме.
В секции «Локальные описания» необходимо написать код:
pragma macro (xl, '::[OOXML].[API_XL]'); --препроцессор для работы с xls
pragma macro (get, '&xl.getSheetRowColVal(
p_row == [1] --Строка адреса ячейки
,p_col == [2] --Колонка адреса ячейки
,p_sheet == 1 --Номер листа
,p_tp == v_s_tp --Тип ячейки см. xl_tp_...
,p_st == v_n_st --Индекс стиля ячейки
)', substitute); --препроцессор для получения данных из ячейки xlsv_s_tp string(128); --переменная для &get
v_n_st number; --переменная для &get
v_blob_file blob := empty_blob(); --переменная для загрузки данных
В секции «Проверка» для p_message = 'VALIDATE' и p_info = 'OK' необходимо написать код:
if nvl(P_FILE.[SRC_TYPE], false) then
P_FILE.[SRC_TYPE] := null;
P_FILE.[DST_TYPE] := null;
end if;
P_FILE.[DST_NAME] := P_FILE.[SRC_NAME];
V_FILEPATH := P_FILE.[SRC_PATH];
V_FILENAME := P_FILE.[SRC_NAME];
В секции «тело» разбор файла XLS:
::[SHABLON_DOC].[LIB_OOXML].read_from_file( p_blob == v_blob_file --Содержимое файла (BLOB)
,p_dir == V_FILEPATH --Путь к файлу на сервере
,p_fname == V_FILENAME --Имя файла на сервере
,p_delete == false --Удаление файла на сервере после чтения
); -- чтение файла в переменную v_blob_file
if v_blob_file is null then
pragma error('Файл не выбран!');
end if;
if not &xl.open_file(v_blob_file) then
pragma error('Ошибка чтения файла!');
end if;
&xl.open_sheet(1); -- открытие страницы 1 файла
Debug_pipe(&get(6, 3), 0); --данные из ячейки (строка 6,столбец 3,страница 1) А где в ЦФТ настроечные параметры и классификаторы?
В справочнике Настройки. (FP_TUNE) и то, и другое.
А где с ЦФТ шедулер и бисмарк?
SYSTEM_JOBS (Выполнение заданий по расписанию): в навигаторе настраивается в Система/Выполнение заданий по расписанию
TEXT_JOBS (Выполнение текстовых заданий): в навигаторе настраивается в Система/Выполнение текстовых заданий.
Справочник BGP(Фоновые процессы)
Временные таблицы:
DEFINE temp-table
Как известно, функциональность временных таблиц Бисквита ничуть не хуже постоянных таблиц. Полноценного аналога в ЦФТ я не нашел. Есть 3 аналога хуже.
Вариант 1. Тип TEMP_TABLE_S (Временная таблица).
Она так называется, а на самом деле это постоянная таблица. Она описана в базе.
Можно использовать, хотя это делают редко.
Вариант 2. Создать свою таблицу в базе данных и использовать ее как временную. Необходимо на закладке "Таблица" указывать параметр "Время жизни" = "Пропадет по окончании сессии". Тогда она гарантированно будет чиститься и не будет загрязнять БД.
Вариант 3. Массивы, описанные в операциях (применяются часто).
Массивы действительно временные, но функциональность их сильно ограничена по сравнению с temp-table Бисквита. В массивах всего 1 индекс, он может быть целочисленный или строковый. Нельзя осуществлять поиск по полю массива. Можно осуществить поиск по индексу или полный перебор.
Пример описания массива:
type strucType is record ( FileName string,
helloString string,
procName string );
type rezType is table of strucType index by integer;
rez rezType;Как массив применять, описывать не буду – примеров огромное множество.
Показать табличные данные пользователю
Объекты browse, navigate.
Способ 1. Представления.
Тема обширная, раскрывать не буду. Можно делать SQL-представления и писать для них запросы. Можно создавать простые представления, для них есть удобный конструктор. Простые представления можно конвертировать в SQL-представления при загрузке в Admin 2.0 (Eclipse).
Способ 2. GRID на форме операции.
Создать параметр операции как массив, например:
В качестве источника можно применить существующий в базе массив с данными или задействовать временную таблицу (пример 2, пункта 22 данной статьи).
Открыть в редакторе формы список параметров и оттуда перетащить на форму созданный параметр, а также необходимые реквизиты массива для вывода в GRID.
Задать пользователю вопрос после запуска операции по кнопке «OK»:
Эта задача меня поразила тем, как легко она реализуется в Бисквите и как сложно в ЦФТ.
Спасибо за пример и консультацию Олегу Опалихину.
В Бисквите:
if is_question then DO:
MESSAGE "Вы хотите продолжить?"
VIEW-AS ALERT-BOX QUESTION BUTTONS YES-NO UPDATE is_need_bl_process AS LOGICAL.
if not is_need_bl_process then RETURN.
end.
В ЦФТ:
1. Создать переменную операции V_IS_QUESTION типа Логика
2. Разместить переменную V_IS_QUESTION на форме операции. Поставить свойства переменной V_IS_QUESTION на форме Visible=False и ValidateName=V_IS_QUESTION. Поставить свойство кнопки OK на форме CheckValidate=True
3. Поставить в дополнительных свойствах операции «при смене элемента управления»= «Сервер,Клиент».
4. Написать в разделе операции «Клиент-скрипт» код на языке VBScript, который поднимет форму для вопроса пользователю:
Public Function Main(LastControl)
Main = True
If LastControl Is Ok Then
Main = Null
if Form1.ScriptServerValidate(Nothing, "QUESTION") then
if V_IS_QUESTION then
call Runtime.ShowMonitor
if MsgBox("Вы хотите продолжить?", vbYesNo + vbQuestion + vbDefaultButton2, "Вопрос") = vbYes then
if Form1.ScriptServerValidate(Nothing, "PROCESS_BL_YES") then
Main = True
end if
else
if Form1.ScriptServerValidate(Nothing, "PROCESS_BL_NO") then
Main = True
end if
end if
else
Main = True
end if
end if
End If
End Function
5. В разделе «Локальные описания» задать переменную:
v_b_need_bl_process boolean;6. В разделе «Проверка» написать код:
begin
if p_message = 'VALIDATE' then if p_info = 'QUESTION' then
--Здесь некий код который определяет нужно ли задавать вопрос пользователю
V_IS_QUESTION := TRUE; --например нужно
elsif p_info = 'PROCESS_BL_YES' then
v_b_need_bl_process := true;
elsif p_info = 'PROCESS_BL_NO' then
v_b_need_bl_process := false;
end if;
end if;
end;7. В разделе «Тело» написать код:
begin
if not v_b_need_bl_process then
return;
end if; --Здесь код, который выполняется если пользователь ответил «Да»
-- и не выполняется если пользователь ответил «Нет».
debug_pipe('Сработало!', 0); --например так
end;
Вопрос будет выглядеть так:
То, что нельзя сделать в Бисквите, но есть в ЦФТ:
1. В Бисквите практически нельзя создавать свои таблицы, поля для таблиц и индексы. Теоретическая такая возможность есть, но не практическая. В ЦФТ никаких проблем с этим нет. Создавайте столько, сколько нужно для ваших задач.
2. В Бисквите отсутствует полноценный отладчик. В ЦФТ в новой среде разработки Admin 2.0 появилась возможность запускать полноценный отладчик с точками останова и соответственно с просмотром значения всех переменных во время остановки выполнения операции.
3. Разыменованность. Об этом писал выше.
Заключение
Я не претендую на полноту данных, а также на абсолютную правильность, я отображаю свое понимание на данный момент, которое возможно вскоре изменится. Буду благодарен опытным разработчикам ЦФТ за комментарии, замечания и исправления.
Хочу выразить благодарность людям, благодаря которым данная статья появилась:
Харченко Сергею, опытному разработчику Бисквита, с которым мы часто обсуждаем темы данной статьи. Именно во время этих бесед у меня появилась идея ее написания.
Саламову Камилю за непосредственный импульс в написании статьи, за ценные замечания к тексту статьи, за моральную поддержку и за постоянные напоминания, что нужно переходить на Admin 2.0 :)
Наумкину Анатолию за организацию обучения на учебном портале ЦФТ.
Миниярову Ринату, Давыдову Денису и Опалихину Олегу за ответы на вопросы в начале моего обучения ЦФТ и за примеры исходного кода.
Руфееву Максиму за внимательность. За то, что заметил мою ошибку в слове elsif :)
Шершову Андрею на помощь в публикации на Хабре.