Приведение наименований в менеджере - История изменений

Aleksnick в 05:53, 16 августа 2016

2016-08-16T05:53:37Z

Aleksnick в 04:56, 16 августа 2016

2016-08-16T04:56:58Z

Aleksnick в 04:56, 16 августа 2016

2016-08-16T04:56:42Z

Aleksnick в 15:16, 15 августа 2016

2016-08-15T15:16:42Z

Aleksnick в 14:46, 15 августа 2016

2016-08-15T14:46:23Z

Aleksnick в 13:46, 12 августа 2016

2016-08-12T13:46:26Z

Aleksnick: Новая страница: «Устанавливаем процедуру '''PR_GET_WARE'''.

 SET TERM ^ ;  create or alter procedure PR_INSTALL_PR_GET_WARE as declare variable IDX_U_EX…»

2016-08-12T13:22:52Z

Новая страница: «Устанавливаем процедуру '''PR_GET_WARE'''. <pre> SET TERM ^ ; create or alter procedure PR_INSTALL_PR_GET_WARE as declare variable IDX_U_EX…»

Новая страница

Устанавливаем процедуру '''PR_GET_WARE'''.
<pre>
SET TERM ^ ;

create or alter procedure PR_INSTALL_PR_GET_WARE
as
declare variable IDX_U_EXISTS DM_STATUS;
declare variable IDX_100_EXISTS DM_STATUS;
declare variable GLOBAL_ID DM_STATUS;
declare variable INDEX_NAME DM_TEXT;
declare variable S DM_TEXT_BIG;
declare variable FIELD DM_TEXT;
begin

if ((select upper(RF.RDB$FIELD_SOURCE)
from RDB$RELATION_FIELDS RF
where 1 = 1
and RF.RDB$FIELD_NAME = 'ID'
and RF.RDB$RELATION_NAME = 'WARES') = 'DM_UUID') then
GLOBAL_ID = 1;
else
GLOBAL_ID = 0;

if ((select first 1 count(1)
from RDB$INDICES RIN
where RIN.RDB$INDEX_NAME = 'WARES_IDX_U'
and RIN.RDB$RELATION_NAME = 'WARES') > 0) then
IDX_U_EXISTS = 1;
else
IDX_U_EXISTS = 0;

if (IDX_U_EXISTS = 1) then
INDEX_NAME = 'WARES_IDX_U';
else
INDEX_NAME = 'WARES_IDX1';

if ((select first 1 count(1)
from RDB$INDICES RIN
where RIN.RDB$INDEX_NAME = 'WARES_IDX100'
and RIN.RDB$RELATION_NAME = 'WARES') > 0) then
IDX_100_EXISTS = 1;
else
IDX_100_EXISTS = 0;

S = '
create or alter procedure PR_GET_WARE (
SNAME type of DM_TEXT,
SIZG type of DM_TEXT,
SCOUNTRY type of DM_TEXT,
ORIG_CODE type of DM_TEXT = '''',
SORIG_NAME type of DM_TEXT = '''',
SORIG_IZG type of DM_TEXT = '''',
SORIG_COUNTRY type of DM_TEXT = '''',
BARCODE type of DM_TEXT = '''',
Z_ID type of DM_ID = 0,
SKLAD_ID DM_TEXT = '''',
ALTTYPE DM_STATUS = 0,
MNN DM_TEXT = '''')
returns (
';

if (GLOBAL_ID = 1) then
S = S || 'W_ID type of DM_UUID_NULL)';
else
S = S || 'W_ID type of DM_ID)';

S = S || ' as
declare variable OLD_BARCODE DM_TEXT1024;';

if (GLOBAL_ID = 1) then
S = S || '
declare variable NAME_ID type of DM_UUID_NULL;
declare variable IZG_ID type of DM_UUID_NULL;
declare variable COUNTRY_ID type of DM_UUID_NULL;
declare variable ORIG_NAME_ID type of DM_UUID_NULL;
declare variable ORIG_IZG_ID type of DM_UUID_NULL;
declare variable ORIG_COUNTRY_ID type of DM_UUID_NULL;
declare variable WHASH DM_ID;
';
else

S = S || '
declare variable NAME_ID type of DM_ID;
declare variable IZG_ID type of DM_ID;
declare variable COUNTRY_ID type of DM_ID;
declare variable ORIG_NAME_ID type of DM_ID;
declare variable ORIG_IZG_ID type of DM_ID;
declare variable ORIG_COUNTRY_ID type of DM_ID;
declare variable WHASH DM_ID;
';

S = S || '
begin
';

if (GLOBAL_ID = 1) then
S = S || ' /* BASE WITH GLOBAL ID */
';
else
S = S || ' /* BASE WITHOUT GLOBAL ID */
';

if (IDX_U_EXISTS = 1) then
S = S || ' /* BASE WITH WARES_IDX_U */
';
else
S = S || ' /* BASE WITHOUT WARES_IDX_U */
';

if (IDX_100_EXISTS = 1) then
S = S || ' /* BASE WITH WARES_IDX100 */
';
else
S = S || ' /* BASE WITHOUT WARES_IDX100 */
';

S = S || ' if (ORIG_CODE is null) then
ORIG_CODE = '''';
select VAL_ID
from PR_GETVAL_ID(:SNAME, 0, :ALTTYPE, :MNN)
into :NAME_ID;
select VAL_ID
from PR_GETVAL_ID(:SIZG, 3, :ALTTYPE)
into :IZG_ID;
select VAL_ID
from PR_GETVAL_ID(:SCOUNTRY, 2, :ALTTYPE)
into :COUNTRY_ID;
select VAL_ID
from PR_GETVAL_ID(:SORIG_NAME, 1, :ALTTYPE)
into :ORIG_NAME_ID;
select VAL_ID
from PR_GETVAL_ID(:SORIG_IZG, 6, :ALTTYPE)
into :ORIG_IZG_ID;
select VAL_ID
from PR_GETVAL_ID(:SORIG_COUNTRY, 5, :ALTTYPE)
into :ORIG_COUNTRY_ID;
';

if (IDX_100_EXISTS = 0) then

begin

S = S || '
select ID,
BARCODE
from WARES
where 1 = 1
';

select list('and ' || trim(RIS.RDB$FIELD_NAME) || ' = :' || trim(RIS.RDB$FIELD_NAME), ascii_char(13))
from RDB$INDEX_SEGMENTS RIS
where RIS.RDB$INDEX_NAME = :INDEX_NAME
into :FIELD;

S = S || :FIELD || '
into :W_ID,
:OLD_BARCODE;
if (W_ID is null) then
begin
';

end

else

begin

S = S || '
whash = (';

select list(':' || trim(RIS.RDB$FIELD_NAME), ',')
from RDB$INDEX_SEGMENTS RIS
where RIS.RDB$INDEX_NAME = :INDEX_NAME
into :FIELD;

S = S || :FIELD || ');';

S = S || '
select ID,
BARCODE
from WARES
WHERE WHASH = :WHASH
into :W_ID,
:OLD_BARCODE;
';

end

if (GLOBAL_ID = 1) then
S = S || ' W_ID = uuid_to_char(gen_uuid());
';
else
S = S || ' W_ID = gen_id(GEN_WARES_ID, 1);
';

S = S || ' insert into WARES (ID, NAME_ID, IZG_ID, COUNTRY_ID, ORIG_CODE, ORIG_NAME_ID, ORIG_IZG_ID, ORIG_COUNTRY_ID,
BARCODE, Z_ID, SKLAD_ID)
values (:W_ID, :NAME_ID, :IZG_ID, :COUNTRY_ID, :ORIG_CODE, :ORIG_NAME_ID, :ORIG_IZG_ID, :ORIG_COUNTRY_ID, :BARCODE,
:Z_ID, :SKLAD_ID);
end
else
if (OLD_BARCODE <> BARCODE) then
update WARES
set BARCODE = :BARCODE
where ID = :W_ID;
';

S = S || '
suspend;
end
';

execute statement(S);

end^

SET TERM ; ^

/* Existing privileges on this procedure */

GRANT EXECUTE ON PROCEDURE PR_INSTALL_PR_GET_WARE TO SYSDBA;
EXECUTE PROCEDURE PR_INSTALL_PR_GET_WARE;
DROP PROCEDURE PR_INSTALL_PR_GET_WARE;
</pre>

@@ Строка 35: / Строка 35: @@
    end
 </pre>
 * Если готовую карточку не нашли, то снова пытаемся ее найти, вызывая процедуру '''PR_GETWARE_BY_IDS''', но уже с параметром searchinlogs=null
 <pre>
    select ware_id from PR_GETWARE_BY_IDS(:name_id,:izg_id,:country_id,:orig_code,:orig_name_id,:orig_izg_id,:orig_country_id,0,null, :barcode) into :ware_id;
 </pre>
 * Если всетаки нашлась карточка, то берем из нее реальные поля:
 <pre>
@@ Строка 57: / Строка 57: @@
   select first 1 id from wares where orig_name_id=:orig_name_id order by id desc into :ware_id;
 </pre>
-'''Зачем??? В таблице wares оригинальные поля вообще не будут актуальными!!!'''
+'''5. Зачем??? В таблице wares оригинальные поля вообще не будут актуальными!!!'''
 ** Если не нашли, то приводим значение через связки:
 <pre>
@@ Строка 63: / Строка 63: @@
    select first 1 iif(actual_ware_id is null, id, actual_ware_id) from wares_log where orig_name_id=:orig_name_id order by log_id desc into :ware_id;
 </pre>
-'''Поле log_id имеет тип d$uuid - связка может найтись не самая актуальная.'''
+'''6. Поле log_id имеет тип d$uuid - связка может найтись не самая актуальная.'''
 * Если мы ничего не нашли, то ищем по реальному полю. Точно также: сначала в таблице wares, затем wares_log.
 <pre>
@@ Строка 73: / Строка 73: @@
   end
 </pre>
-'''Почему бы сразу не искать в таблице wares_log???'''
+'''7. Почему бы сразу не искать в таблице wares_log???'''
 ** Затем точно также делаем по изготовителю и стране.
 * Возвращаем полученные значения.

@@ Строка 16: / Строка 16: @@
   order by log_insertdt desc
 </pre>
-'''1. В таблице wares_log есть записи с одинаковыми реальными полями, но они ссылаются на разные товары, а сортировка по log_insertdt неправильна, т.к. это поле не везде заполнено.'''
+'''1. В таблице wares_log есть записи с одинаковыми реальными полями, но они ссылаются на разные товары, а сортировка по log_insertdt неправильна, т.к. это поле не везде заполнено.'''<br>
-'''2. Вроде бы записи с actual_ware_id должны удаляться.'''
+'''2. Вроде бы записи с actual_ware_id должны удаляться.'''<br>
 '''3. Есть записи, которые ни по id ни по actual_ware_id не ссылаются на существующий варес.'''
 <pre>

@@ Строка 16: / Строка 16: @@
   order by log_insertdt desc
 </pre>
-'''Зачем??? В таблице wares_log есть записи с одинаковыми реальными полями, но они ссылаются на разные товары, а сортировка по log_insertdt неправильна, т.к. это поле не везде заполнено.'''
+'''1. В таблице wares_log есть записи с одинаковыми реальными полями, но они ссылаются на разные товары, а сортировка по log_insertdt неправильна, т.к. это поле не везде заполнено.'''
 <pre>
    select min(iif(wl.actual_ware_id is null, wl.id, wl.actual_ware_id)), max(iif(wl.actual_ware_id is null, wl.id, wl.actual_ware_id))

← Предыдущая		Версия 15:16, 15 августа 2016
Строка 74:		Строка 74:
	** Затем точно также делаем по изготовителю и стране.		** Затем точно также делаем по изготовителю и стране.
	* Возвращаем полученные значения.		* Возвращаем полученные значения.
		+
		+	==Этап 2: Проведение активного документа==
		+	На каждый товар срабатывает процедура '''PR_GET_WARE'''.
		+	* Берутся и при необходимости создаются справочные значения для всех реальных и оригинальных полей:
		+	<pre>
		+	select VAL_ID from PR_GETVAL_ID(:SNAME, 0, :ALTTYPE, :MNN) into :NAME_ID;
		+	...
		+	</pre>
		+	* Идет поиск карточки товара по реальным полям:
		+	<pre>
		+	select ID from WARES where NAME_ID = :NAME_ID and IZG_ID = :IZG_ID and COUNTRY_ID = :COUNTRY_ID and BARCODE = :BARCODE into :W_ID;
		+	</pre>
		+	* Если карточка нашлась, то выходим из процедуры, иначе создаем новую карточку:
		+	<pre>
		+	if (W_ID is null) then
		+	begin
		+	W_ID = uuid_to_char(gen_uuid());
		+	insert into WARES (ID, NAME_ID, IZG_ID, COUNTRY_ID, ORIG_CODE, ORIG_NAME_ID, ORIG_IZG_ID, ORIG_COUNTRY_ID, BARCODE, Z_ID, SKLAD_ID)
		+	values (:W_ID, :NAME_ID, :IZG_ID, :COUNTRY_ID, :ORIG_CODE, :ORIG_NAME_ID, :ORIG_IZG_ID, :ORIG_COUNTRY_ID, :BARCODE, :Z_ID, :SKLAD_ID);
		+	end
		+	suspend;
		+	</pre>

← Предыдущая		Версия 14:46, 15 августа 2016
Строка 1:		Строка 1:
		+	=Алгоритм работы приведения с Единым Окном=
		+	==Этап 1: Открытие электронной накладной==
		+	При открытии накладной срабатывает процедура '''PR_MAKEGOODWAREVALUES'''.
		+	* Вначале неё по каждому полю (sname, sizg, scountry, sorig_name, sorig_izg, sorig_country) ищем id значений из таблицы vals.
		+	<pre>
		+	select id from vals where vtype=0 and alttype=:alttype and svalue=:sname into :name_id;
		+	...
		+	</pre>
		+	* Затем вызывается процедура '''PR_GETWARE_BY_IDS'''
		+	<pre>
		+	select ware_id from PR_GETWARE_BY_IDS(:name_id,:izg_id,:country_id,:orig_code,:orig_name_id,:orig_izg_id,:orig_country_id,0,1, :barcode) into :ware_id;
		+	</pre>
		+	* В данной процедуре идет поиск карточки товара по реальным полям в таблице связок wares_log.
		+	<pre>
		+	select first 1 iif(actual_ware_id is null, id, actual_ware_id) from wares_log where name_id=:name_id and izg_id=:izg_id and country_id=:country_id and barcode=:barcode
		+	order by log_insertdt desc
		+	</pre>
		+	'''Зачем??? В таблице wares_log есть записи с одинаковыми реальными полями, но они ссылаются на разные товары, а сортировка по log_insertdt неправильна, т.к. это поле не везде заполнено.'''
		+	<pre>
		+	select min(iif(wl.actual_ware_id is null, wl.id, wl.actual_ware_id)), max(iif(wl.actual_ware_id is null, wl.id, wl.actual_ware_id))
		+	from wares_log wl
		+	group by wl.name_id, wl.izg_id, wl.country_id, wl.barcode
		+	having count(iif(wl.actual_ware_id is null, wl.id, wl.actual_ware_id))>1
		+	</pre>
		+	* Если мы нашли готовую карточку товара, в связках, то затем находим ее в таблице wares и берем все ее значения. После чего выходим из процедуры:
		+	<pre>
		+	if (ware_id is not null) then
		+	begin
		+	select sname, sizg, scountry, barcode from VW_WARES where id=:ware_id into :goodname, :goodizg, :goodcountry, :goodbarcode;
		+	if (goodname is null) then goodname = sname;
		+	...
		+	exit;
		+	end
		+	</pre>
		+	'''ЗАЧЕМ??? Если нет связки, то нет и карточки!!!'''
		+	* Если готовую карточку не нашли, то снова пытаемся ее найти, вызывая процедуру '''PR_GETWARE_BY_IDS''', но уже с параметром searchinlogs=null
		+	<pre>
		+	select ware_id from PR_GETWARE_BY_IDS(:name_id,:izg_id,:country_id,:orig_code,:orig_name_id,:orig_izg_id,:orig_country_id,0,null, :barcode) into :ware_id;
		+	</pre>
		+	* Если всетаки нашлась карточка, то берем из нее реальные поля:
		+	<pre>
		+	if (ware_id is not null) then
		+	begin
		+	goodname=sname;
		+	goodizg=sizg;
		+	goodcountry=scountry;
		+	goodbarcode=barcode;
		+	suspend;
		+	exit;
		+	end
		+	</pre>
		+	* Затем пытаемся отдельно привести каждое из реальных полей.
		+	** Если есть оригинальное значение, то ищем первую попавшуюся карточку товара с данным значением:
		+	<pre>
		+	select first 1 id from wares where orig_name_id=:orig_name_id order by id desc into :ware_id;
		+	</pre>
		+	'''Зачем??? В таблице wares оригинальные поля вообще не будут актуальными!!!'''
		+	** Если не нашли, то приводим значение через связки:
		+	<pre>
		+	if (ware_id is null) then
		+	select first 1 iif(actual_ware_id is null, id, actual_ware_id) from wares_log where orig_name_id=:orig_name_id order by log_id desc into :ware_id;
		+	</pre>
		+	'''Поле log_id имеет тип d$uuid - связка может найтись не самая актуальная.'''
		+	* Если мы ничего не нашли, то ищем по реальному полю. Точно также: сначала в таблице wares, затем wares_log.
		+	<pre>
		+	if ((ware_id is null) and (name_id is not null)) then
		+	begin
		+	select first 1 id from wares where name_id=:name_id into :ware_id;
		+	if (ware_id is null) then
		+	select first 1 iif(actual_ware_id is null, id, actual_ware_id) from wares_log where name_id=:name_id order by log_id desc into :ware_id;
		+	end
		+	</pre>
		+	'''Почему бы сразу не искать в таблице wares_log???'''
		+	** Затем точно также делаем по изготовителю и стране.
		+	* Возвращаем полученные значения.
		+
		+
		+	=Установка процедур=
		+
	Устанавливаем процедуру '''PR_GET_WARE'''.		Устанавливаем процедуру '''PR_GET_WARE'''.
	<pre>		<pre>

@@ Строка 12: / Строка 12: @@
 declare variable FIELD DM_TEXT;
 begin
+ /* определяем база с глобальными наименованиями или нет */
   if ((select upper(RF.RDB$FIELD_SOURCE)
        from RDB$RELATION_FIELDS RF
@@ Строка 22: / Строка 22: @@
    GLOBAL_ID = 0;
   if ((select first 1 count(1)
        from RDB$INDICES RIN
@@ Строка 30: / Строка 31: @@
    IDX_U_EXISTS = 0;
   if (IDX_U_EXISTS = 1) then
    INDEX_NAME = 'WARES_IDX_U';
@@ Строка 35: / Строка 37: @@
    INDEX_NAME = 'WARES_IDX1';
   if ((select first 1 count(1)
        from RDB$INDICES RIN
@@ Строка 43: / Строка 46: @@
    IDX_100_EXISTS = 0;
   S = '
      create or alter procedure PR_GET_WARE (
@@ Строка 60: / Строка 64: @@
    ';
   if (GLOBAL_ID = 1) then
    S = S || 'W_ID type of DM_UUID_NULL)';
@@ Строка 65: / Строка 70: @@
    S = S || 'W_ID type of DM_ID)';
   S = S || ' as
     declare variable OLD_BARCODE DM_TEXT1024;';
   if (GLOBAL_ID = 1) then
    S = S || '
@@ Строка 81: / Строка 88: @@
    S = S || '
      declare variable NAME_ID type of DM_ID;
@@ Строка 95: / Строка 103: @@
     ';
   if (GLOBAL_ID = 1) then
    S = S || ' /* BASE WITH GLOBAL ID */
@@ Строка 116: / Строка 125: @@
    ';
   S = S || ' if (ORIG_CODE is null) then
     ORIG_CODE = '''';
@@ Строка 138: / Строка 148: @@
    ';
   if (IDX_100_EXISTS = 0) then
@@ Строка 150: / Строка 161: @@
    ';
    select list('and ' || trim(RIS.RDB$FIELD_NAME) || ' = :' || trim(RIS.RDB$FIELD_NAME), ascii_char(13))
    from RDB$INDEX_SEGMENTS RIS
@@ Строка 158: / Строка 170: @@
    into :W_ID,
         :OLD_BARCODE;
-   if (W_ID is null) then
+   ';
-  begin
-   ';
   end
@@ Строка 167: / Строка 177: @@
   begin
@@ Строка 172: / Строка 183: @@
    whash = (';
-   select list(':' || trim(RIS.RDB$FIELD_NAME), ',')
+  /* генерируем хэш по поляем в индексе */
    from RDB$INDEX_SEGMENTS RIS
    where RIS.RDB$INDEX_NAME = :INDEX_NAME
@@ Строка 179: / Строка 191: @@
    S = S || :FIELD || ');';
    S = S || '
    select ID,
@@ Строка 187: / Строка 200: @@
         :OLD_BARCODE;
    ';
   end
   if (GLOBAL_ID = 1) then
    S = S || ' W_ID = uuid_to_char(gen_uuid());
@@ Строка 198: / Строка 217: @@
     ';
   S = S || ' insert into WARES (ID, NAME_ID, IZG_ID, COUNTRY_ID, ORIG_CODE, ORIG_NAME_ID, ORIG_IZG_ID, ORIG_COUNTRY_ID,
                                 BARCODE, Z_ID, SKLAD_ID)
@@ Строка 204: / Строка 224: @@
    end
    else
    if (OLD_BARCODE <> BARCODE) then
     update WARES
@@ Строка 224: / Строка 248: @@
 GRANT EXECUTE ON PROCEDURE PR_INSTALL_PR_GET_WARE TO SYSDBA;
 EXECUTE PROCEDURE PR_INSTALL_PR_GET_WARE;
 DROP PROCEDURE PR_INSTALL_PR_GET_WARE;
 </pre>