Установка МНН - История изменений

Avo: /* Если МНН вообще нет в базе ниже полный текст: */

2019-03-28T13:59:40Z

‎Если МНН вообще нет в базе ниже полный текст:

Avo: /* Исправление от 28.03.2019 */

2019-03-28T13:59:04Z

‎Исправление от 28.03.2019

Avo в 13:58, 28 марта 2019

2019-03-28T13:58:03Z

Avo в 13:51, 28 марта 2019

2019-03-28T13:51:18Z

Внесённые изменения

Natali в 12:32, 27 мая 2015

2015-05-27T12:32:15Z

Natali в 12:37, 29 апреля 2015

2015-04-29T12:37:44Z

Natali в 13:21, 22 апреля 2015

2015-04-22T13:21:42Z

Natali в 13:21, 22 апреля 2015

2015-04-22T13:21:14Z

Natali в 13:19, 22 апреля 2015

2015-04-22T13:19:32Z

Внесённые изменения

Natali в 11:50, 22 апреля 2015

2015-04-22T11:50:15Z

Внесённые изменения

@@ Строка 362: / Строка 362: @@
    MNN = '';
    TNN = '';
-   PR_LENGTH = 4;
+   PR_LENGTH = 5;
    for select M.SNAME, M.MNN_RUS, M.PREPARED_SNAME, M.REPLACE_SNAME
        from OUT$MNN M

@@ Строка 30: / Строка 30: @@
    MNN = '';
    TNN = '';
-   PR_LENGTH = 4;
+   PR_LENGTH = 5;
    for select M.SNAME, M.MNN_RUS, M.PREPARED_SNAME, M.REPLACE_SNAME
        from OUT$MNN M
@@ Строка 138: / Строка 138: @@
     end
   end;
 == Если МНН вообще нет в базе ниже полный текст: ==

← Предыдущая		Версия 13:58, 28 марта 2019
Строка 1:		Строка 1:
		+	==Исправление от 28.03.2019 ==
		+	1. Выполнить скрипт исправления процедуры:
		+	SET TERM ^ ;
		+	create or alter procedure PR_GET_MNN (
		+	SNAME DM_TEXT,
		+	TYPE_FIND DM_TEXT)
		+	returns (
		+	MNN DM_TEXT,
		+	TNN DM_TEXT,
		+	PR_TNN DM_TEXT,
		+	R_TNN DM_TEXT)
		+	as
		+	declare variable NAME DM_TEXT;
		+	declare variable TEK_MNN DM_TEXT;
		+	declare variable TEK_TNN DM_TEXT;
		+	declare variable TEMP_TNN DM_TEXT;
		+	declare variable P1 DM_ID_NULL;
		+	declare variable P2 DM_ID_NULL;
		+	declare variable PR_LENGTH DM_ID_NULL;
		+	declare variable SNAME1 DM_TEXT;
		+	declare variable TEKMNN1 DM_TEXT;
		+	declare variable TEKTNN1 DM_TEXT;
		+	declare variable KOEF1 DM_DOUBLE;
		+	declare variable STATUS1 DM_STATUS;
		+	begin
		+	if (TYPE_FIND = 'SNAME') then
		+	begin
		+	NAME = (select RES
		+	from PR_DELETE_SYMBOL(:SNAME));
		+	MNN = '';
		+	TNN = '';
		+	PR_LENGTH = 4;
		+	for select M.SNAME, M.MNN_RUS, M.PREPARED_SNAME, M.REPLACE_SNAME
		+	from OUT$MNN M
		+	into :TEK_TNN, :TEK_MNN, :PR_TNN, :R_TNN
		+	do
		+	begin
		+	if (position(upper(trim(:TEK_TNN)), upper(trim(:SNAME))) = 1) then --неприведенные наименования вхождение с начало слова
		+	begin
		+	sname1 =:sname;
		+	tekmnn1=:TEK_MNN;
		+	TEKTNN1=:TEK_TNN;
		+	KOEF1=(100 * char_length(:TEK_TNN) / char_length(:SNAME));
		+	STATUS1=2;
		+	end
		+	if (position(upper(trim(:R_TNN)), upper(trim(:NAME))) = 1 and
		+	char_length(trim(replace(:R_TNN, ' ', ''))) > :PR_LENGTH) then --приведенные наименования, тнн поменяно местами вхождение c начала слова
		+	begin
		+	sname1 = :NAME;
		+	tekmnn1=:TEK_MNN;
		+	TEKTNN1=:R_TNN \|\| ' == ' \|\| :TEK_TNN;
		+	KOEF1=(100 * char_length(:R_TNN) / char_length(:NAME));
		+	STATUS1=1;
		+	end
		+	P1 = position(upper(trim(:PR_TNN)), upper(trim(:NAME)));
		+	if (P1 = 1 and
		+	char_length(trim(replace(:PR_TNN, ' ', ''))) > :PR_LENGTH) then --приведенные наименования, вхождение с начало слова
		+	begin
		+	sname1 = :NAME;
		+	tekmnn1=:TEK_MNN;
		+	TEKTNN1=:PR_TNN \|\| ' == ' \|\| :TEK_TNN;
		+	KOEF1=(100 * char_length(:PR_TNN) / char_length(:NAME));
		+	STATUS1=1;
		+	end
		+	if (P1 > 1 and
		+	P1 < round(char_length(:NAME) / 2) and
		+	char_length(trim(replace(:PR_TNN, ' ', ''))) > :PR_LENGTH) then --приведенные наименования, но вхождение раньше половины слова
		+	begin
		+	sname1 = :NAME;
		+	tekmnn1=:TEK_MNN;
		+	TEKTNN1=:PR_TNN \|\| ' == ' \|\| :TEK_TNN;
		+	KOEF1=(100 * char_length(:PR_TNN) / char_length(:NAME));
		+	STATUS1=0;
		+	end
		+	P2 = position(upper(trim(:R_TNN)), upper(trim(:NAME)));
		+	if (P2 > 1 and
		+	P2 < round(char_length(:NAME) / 2) and
		+	char_length(trim(replace(:R_TNN, ' ', ''))) > :PR_LENGTH) then --приведенные наименования, тнн поменяно местами, но вхождение раньше половины слова
		+	begin
		+	sname1 = :NAME;
		+	tekmnn1=:TEK_MNN;
		+	TEKTNN1=:R_TNN \|\| ' == ' \|\| :TEK_TNN;
		+	KOEF1=(100 * char_length(:R_TNN) / char_length(:NAME));
		+	STATUS1=0;
		+	end
		+	end
		+	if ((:KOEF1>75) and (:status1=2)) then
		+	begin
		+	mnn= :tekmnn1;
		+	exit;
		+	end
		+	if ((:KOEF1>75) and (:status1=2)) then
		+	begin
		+	tnn=:TEKTNN1;
		+	exit;
		+	end
		+	if ((mnn='') or (mnn is null)) then if (:KOEF1>99) then begin mnn=:tekmnn1; end
		+	if ((tnn='') or (tnn is null)) then if (:KOEF1>99) then begin tnn=:TEKTNN1; end
		+	if ((mnn='') or (mnn is null)) then if ((:KOEF1>10) and (:status1=2)) then mnn=:tekmnn1; --можт меньше 20 ?
		+	if ((tnn='') or (tnn is null)) then if ((:KOEF1>10) and (:status1=2)) then tnn=:TEKTNN1;
		+	if ((mnn='') or (mnn is null)) then if ((:KOEF1>10) and (:status1=1)) then mnn=:tekmnn1;
		+	if ((tnn='') or (tnn is null)) then if ((:KOEF1>10) and (:status1=1)) then tnn=:TEKTNN1;
		+	if ((mnn='') or (mnn is null)) then if (:KOEF1>10) then mnn=:tekmnn1;
		+	if ((tnn='') or (tnn is null)) then if (:KOEF1>10) then tnn=:TEKTNN1;
		+	if ((mnn='') or (mnn is null)) then if ((char_length(:TEKTNN1)>=3) and (:status1=2)) then mnn=:tekmnn1;
		+	if ((tnn='') or (tnn is null)) then if ((char_length(:TEKTNN1)>=3) and (:status1=2)) then mnn=:TEKTNN1;
		+	end
		+	suspend;
		+	end^
		+	SET TERM ; ^
		+	COMMENT ON PARAMETER PR_GET_MNN.TYPE_FIND IS
		+	'SNAME наименование, BARCODE - шк изготовителя';
		+	/* Следующие операторы GRANT сгенерированы автоматически */
		+	GRANT EXECUTE ON PROCEDURE PR_DELETE_SYMBOL TO PROCEDURE PR_GET_MNN;
		+	GRANT SELECT ON OUT$MNN TO PROCEDURE PR_GET_MNN;
		+	/* Существующие привилегии на эту процедуру */
		+	GRANT EXECUTE ON PROCEDURE PR_GET_MNN TO PROCEDURE PR_GETVAL_ID;
		+	GRANT EXECUTE ON PROCEDURE PR_GET_MNN TO SYSDBA;
		+
		+	DROP TABLE TEMP_MNN;
		+	DROP TABLE MNN_VALS;
		+
		+	2. Выполнить если требуется обновление всех названий в базе ('''процедура очень длительная делать только по согласованию клиента''':
		+	execute block
		+	as
		+	declare variable id dm_uuid;
		+	declare variable sname dm_text;
		+	declare variable mnn dm_text;
		+	declare variable mnn_old dm_text;
		+	begin
		+	for select id,svalue,preparedvalue from vals v
		+	where (v.preparedvalue is not null or v.preparedvalue<>'') and v.vtype=0 into :id, :sname, :mnn_old do
		+	begin
		+	mnn = (select mnn from pr_get_mnn(:sname,'SNAME'));
		+	if ((mnn<>'') or (mnn is NOT null)) then
		+	if (mnn<>mnn_old) then
		+	update vals set preparedvalue=:mnn where id=:id;
		+	end
		+	end;
		+
		+
		+
		+	== Если МНН вообще нет в базе ниже полный текст: ==
		+
	1) Просим всех выйти из базы.		1) Просим всех выйти из базы.

@@ Строка 1229: / Строка 1229: @@
 SET TERM ; ^
   </nowiki>
-) Если в кассире нет кнопочки "МНН", то заходим в менеджере в "Сервис - Привилегии".
+) Если в кассире нет кнопочки "МНН", то заходим в менеджере в "Сервис - Привилегии" - Справочники. Находим справочник "МНН" и устанавливаем разрешения для группы кассиров.

← Предыдущая		Версия 12:37, 29 апреля 2015
Строка 1229:		Строка 1229:
	SET TERM ; ^		SET TERM ; ^
	</nowiki>		</nowiki>
		+	19) Если в кассире нет кнопочки "МНН", то заходим в менеджере в "Сервис - Привилегии".

@@ Строка 3: / Строка 3: @@
 ) Создаем резервную копию базы данных
-) если нет таблицу OUT$MNN, то добавляем ее
+) если нет таблицы OUT$MNN, то добавляем ее
   <nowiki>

@@ Строка 5: / Строка 5: @@
 ) если нет таблицу OUT$MNN, то добавляем ее
-<nowiki>
+ <nowiki>
 /******************************************************************************/
 /***               Generated by IBExpert 22.04.2015 17:43:35                ***/
@@ Строка 93: / Строка 93: @@
 /******************************************************************************/
-</nowiki>
+ </nowiki>
@@ Строка 1179: / Строка 1179: @@
 ) В кассире под каждым пользователем в верхней панели выводим кнопку МНН (Горячая клавиша "Ctrl+M")
-) Открываем справочник по этой кнопке и загружаем сетку для справочника в кассире (необходимо под каждым пользователем открывать этот справочник и подгружать сетку)[[Файл: Сетка_для_справочника_mnn_в_кассире.zip|Сетка для справочника МНН в кассире]].
+) Открываем справочник по этой кнопке и загружаем сетку для справочника в кассире (необходимо под каждым пользователем открывать этот справочник и подгружать сетку)
 ) В настройках кассира в поле поиска добавляем поле "mnn".
@@ Строка 1189: / Строка 1191: @@
 ) Применяем профиль текущего пользователя ко остальным кассирам (кроме специфических, например пользователь "Заказ" или "Выручка ФАП" или др.).
-) В менеджере нажимаем F3 проверяем наличие справочника МНН.[[Файл: Сетка_для_справочника_mnn_в_менеджере.zip|Сетка для справочника МНН в менеджере]].
+) В менеджере нажимаем F3 проверяем наличие справочника МНН.
 ). В менеджере проверяем редактируется ли поле МНН, если нет то идем в подпрограмму "редактирование поля" и добавляем это поле в разрешенное для редактирования "