ЕГАИС постановка на баланс - История изменений

Agk: /* Выполнить скрипт */

2018-11-26T13:49:54Z

‎Выполнить скрипт

BeTePoK: /* Инструкции по пользованию */

2016-10-18T05:18:31Z

‎Инструкции по пользованию

BeTePoK: /* Инструкции по пользованию */

2016-10-18T05:18:07Z

‎Инструкции по пользованию

BeTePoK в 05:17, 18 октября 2016

2016-10-18T05:17:18Z

Olgav: /* Выполнить скрипт */

2016-10-10T05:22:44Z

‎Выполнить скрипт

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

BeTePoK: /* Выполнить скрипт */

2016-10-10T04:51:43Z

‎Выполнить скрипт

BeTePoK: /* изменить триггер DOC_DETAIL_ACTIVE_BI */

2016-10-08T10:10:11Z

‎изменить триггер DOC_DETAIL_ACTIVE_BI

BeTePoK: /* Заменить и запустить версию Менеджера */

2016-10-08T10:09:40Z

‎Заменить и запустить версию Менеджера

BeTePoK: /* Скрипты для постановки на баланс */

2016-10-08T10:09:26Z

‎Скрипты для постановки на баланс

BeTePoK: /* Выполнить скрипт */

2016-10-08T10:08:17Z

‎Выполнить скрипт

@@ Строка 144: / Строка 144: @@
        begin
-         select QUANTITY from EGAIS_SKLAD es where es.PRODUCER_CLIENTREGID = :PRODUCER_ID and es.ALCCODE = :ALCCODE into :QUANT;
+         select first 1 QUANTITY from EGAIS_SKLAD es where es.PRODUCER_CLIENTREGID = :PRODUCER_ID and es.ALCCODE = :ALCCODE into :QUANT;
          if (QUANT is null) then
@@ Строка 159: / Строка 159: @@
        begin
-       select EGAIS_QUANT from EGAIS_SHOP es where es.producer_id = :PRODUCER_ID and es.alccode = :ALCCODE into :QUANT;
+       select first 1 EGAIS_QUANT from EGAIS_SHOP es where es.producer_id = :PRODUCER_ID and es.alccode = :ALCCODE into :QUANT;
        if (QUANT is null) then
@@ Строка 174: / Строка 174: @@
        if (:DOC_TYPE in (44)) then
        begin
-         select QUANTITY from EGAIS_SKLAD es where es.PRODUCER_CLIENTREGID = :PRODUCER_ID and es.ALCCODE = :ALCCODE into :QUANT;
+         select first 1 QUANTITY from EGAIS_SKLAD es where es.PRODUCER_CLIENTREGID = :PRODUCER_ID and es.ALCCODE = :ALCCODE into :QUANT;
          if (QUANT is null) then
@@ Строка 184: / Строка 184: @@
            update EGAIS_SKLAD es set es.QUANTITY = :QUANT-new.quant where es.PRODUCER_CLIENTREGID = :PRODUCER_ID and es.ALCCODE = :ALCCODE;
-       select EGAIS_QUANT from EGAIS_SHOP es where es.producer_id = :PRODUCER_ID and es.alccode = :ALCCODE into :QUANT;
+       select first 1 EGAIS_QUANT from EGAIS_SHOP es where es.producer_id = :PRODUCER_ID and es.alccode = :ALCCODE into :QUANT;
        if (QUANT is null) then
@@ Строка 200: / Строка 200: @@
        begin
-         select QUANTITY from EGAIS_SKLAD es where es.PRODUCER_CLIENTREGID = :PRODUCER_ID and es.ALCCODE = :ALCCODE into :QUANT;
+         select first 1 QUANTITY from EGAIS_SKLAD es where es.PRODUCER_CLIENTREGID = :PRODUCER_ID and es.ALCCODE = :ALCCODE into :QUANT;
          if (QUANT is null) then
@@ Строка 210: / Строка 210: @@
            update EGAIS_SKLAD es set es.QUANTITY = :QUANT+new.quant where es.PRODUCER_CLIENTREGID = :PRODUCER_ID and es.ALCCODE = :ALCCODE;
-       select EGAIS_QUANT from EGAIS_SHOP es where es.producer_id = :PRODUCER_ID and es.alccode = :ALCCODE into :QUANT;
+       select first 1 EGAIS_QUANT from EGAIS_SHOP es where es.producer_id = :PRODUCER_ID and es.alccode = :ALCCODE into :QUANT;
        if (QUANT is null) then

← Предыдущая		Версия 05:18, 18 октября 2016
Строка 234:		Строка 234:

	==Инструкции по пользованию==		==Инструкции по пользованию==
−	[[~~Инструкции по пользованию\|~~ Постановка на баланс ЕГАИС]]	+	[[Постановка на баланс ЕГАИС \| Инструкции по пользованию]]

← Предыдущая		Версия 05:18, 18 октября 2016
Строка 234:		Строка 234:

	==Инструкции по пользованию==		==Инструкции по пользованию==
−	[[Инструкции по пользованию\| ~~'''~~Постановка на баланс ЕГАИС~~'''~~]]	+	[[Инструкции по пользованию\| Постановка на баланс ЕГАИС]]

← Предыдущая		Версия 05:17, 18 октября 2016
Строка 232:		Строка 232:
	==изменить триггер DOC_DETAIL_ACTIVE_BI==		==изменить триггер DOC_DETAIL_ACTIVE_BI==
	в той части триггера, где берутся данные из таблицы parts, добавить чтобы заполнялось поле EGAIS_PRODUCER_ID		в той части триггера, где берутся данные из таблицы parts, добавить чтобы заполнялось поле EGAIS_PRODUCER_ID
		+
		+	==Инструкции по пользованию==
		+	[[Инструкции по пользованию\| '''Постановка на баланс ЕГАИС''']]

@@ Строка 140: / Строка 140: @@
    if (((MMBSH containing '-21={') or (MMBSH containing '-20={')) and ((PRODUCER_ID is not null) and (ALCCODE is not null))) then
    begin
-       --работа только со складом
+       --работа со складом +
-       if (:DOC_TYPE in (40,41,42,46)) then
+       if (:DOC_TYPE in (40,45,46)) then
        begin
          select QUANTITY from EGAIS_SKLAD es where es.PRODUCER_CLIENTREGID = :PRODUCER_ID and es.ALCCODE = :ALCCODE into :QUANT;
@@ Строка 155: / Строка 154: @@
        end
-       --работа только со торговым залом
+       --работа со складом -
-       if (:DOC_TYPE in (43,47)) then
+       if (:DOC_TYPE in (41,42,44)) then
-      begin
-−
-      select EGAIS_QUANT from EGAIS_SHOP es where es.producer_id = :PRODUCER_ID and es.alccode = :ALCCODE into :QUANT;
-−
-      if (QUANT is null) then
-      begin
-            insert into EGAIS_SHOP (PART_ID,SNAME,EGAIS_QUANT,ALCCODE,UNITTYPE,ALCVOLUME,PRODUCTVCODE,PRODUCER_ID)
-                values (new.part_id, :SNAME,  new.quant,:ALCCODE,:UNITTYPE,:ALCVOLUME,:PRODUCTVCODE,:PRODUCER_ID);
-      end
-      else
-          update EGAIS_SHOP es set es.EGAIS_QUANT = :QUANT+new.quant where es.producer_id = :PRODUCER_ID and es.alccode = :ALCCODE;
-−
-      end
-−
-      --перемещение со склада в торговый зал
-      if (:DOC_TYPE in (44)) then
        begin
          select QUANTITY from EGAIS_SKLAD es where es.PRODUCER_CLIENTREGID = :PRODUCER_ID and es.ALCCODE = :ALCCODE into :QUANT;
@@ Строка 183: / Строка 166: @@
          else
            update EGAIS_SKLAD es set es.QUANTITY = :QUANT-new.quant where es.PRODUCER_CLIENTREGID = :PRODUCER_ID and es.ALCCODE = :ALCCODE;
        select EGAIS_QUANT from EGAIS_SHOP es where es.producer_id = :PRODUCER_ID and es.alccode = :ALCCODE into :QUANT;
@@ Строка 196: / Строка 184: @@
        end
-     --перемещение из торгового зала на склад
+      --работа с торговым залом -
-       if (:DOC_TYPE in (45)) then
+       if (:DOC_TYPE in (43,45)) then
        begin
        select EGAIS_QUANT from EGAIS_SHOP es where es.producer_id = :PRODUCER_ID and es.alccode = :ALCCODE into :QUANT;
@@ Строка 215: / Строка 193: @@
        begin
              insert into EGAIS_SHOP (PART_ID,SNAME,EGAIS_QUANT,ALCCODE,UNITTYPE,ALCVOLUME,PRODUCTVCODE,PRODUCER_ID)
-                 values (new.part_id, :SNAME,  -new.quant,:ALCCODE,:UNITTYPE,:ALCVOLUME,:PRODUCTVCODE,:PRODUCER_ID);
+                 values (new.part_id, :SNAME,  new.quant,:ALCCODE,:UNITTYPE,:ALCVOLUME,:PRODUCTVCODE,:PRODUCER_ID);
        end
        else
-           update EGAIS_SHOP es set es.EGAIS_QUANT = :QUANT-new.quant where es.producer_id = :PRODUCER_ID and es.alccode = :ALCCODE;
+           update EGAIS_SHOP es set es.EGAIS_QUANT = :QUANT+new.quant where es.producer_id = :PRODUCER_ID and es.alccode = :ALCCODE;
        end
    end

← Предыдущая		Версия 10:10, 8 октября 2016
Строка 231:		Строка 231:

	==изменить триггер DOC_DETAIL_ACTIVE_BI==		==изменить триггер DOC_DETAIL_ACTIVE_BI==
−	где берутся данные из таблицы parts, добавить чтобы заполнялось поле EGAIS_PRODUCER_ID	+	в той части триггера, где берутся данные из таблицы parts, добавить чтобы заполнялось поле EGAIS_PRODUCER_ID

@@ Строка 5: / Строка 5: @@
 ==Заменить и запустить версию Менеджера==
-Менеджер выполнит некоторые скрипты уже в него заложенные
+Менеджер выполнит некоторые скрипты уже в него заложенные<br>
 Для скриптов ниже актуальная версия Менеджера ManagerXP2_272_78 и выше

@@ Строка 4: / Строка 4: @@
 [[Изменения представления| '''PR_ALTER_VIEW''']]
-==Заменить версию Менеджера==
+==Заменить и запустить версию Менеджера==
 Для скриптов ниже актуальная версия Менеджера ManagerXP2_272_78 и выше

@@ Строка 126: / Строка 126: @@
 DECLARE VARIABLE UNITTYPE DM_TEXT;
 DECLARE VARIABLE ALCVOLUME DM_TEXT;
-DECLARE VARIABLE PRODUCTVCODE DM_DOUBLE;
+DECLARE VARIABLE PRODUCTVCODE DM_TEXT;
 begin
    /* учёт егаис остатков в реальном времени */
    select first 1 MMBSH,SNAME from warebase where part_id = new.part_id into :MMBSH,:SNAME;
@@ Строка 136: / Строка 139: @@
    if (((MMBSH containing '-21={') or (MMBSH containing '-20={')) and ((PRODUCER_ID is not null) and (ALCCODE is not null))) then
    begin
        select EGAIS_QUANT from EGAIS_SHOP es where es.producer_id = :PRODUCER_ID and es.alccode = :ALCCODE into :QUANT;
@@ Строка 141: / Строка 162: @@
        if (QUANT is null) then
        begin
-        insert into EGAIS_SHOP (PART_ID,SNAME,EGAIS_QUANT,ALCCODE,UNITTYPE,ALCVOLUME,PRODUCTVCODE,PRODUCER_ID)
+            insert into EGAIS_SHOP (PART_ID,SNAME,EGAIS_QUANT,ALCCODE,UNITTYPE,ALCVOLUME,PRODUCTVCODE,PRODUCER_ID)
-            values (new.part_id, :SNAME,  new.quant,:ALCCODE,:UNITTYPE,:ALCVOLUME,:PRODUCTVCODE,:PRODUCER_ID);
+                values (new.part_id, :SNAME,  new.quant,:ALCCODE,:UNITTYPE,:ALCVOLUME,:PRODUCTVCODE,:PRODUCER_ID);
        end
        else
            update EGAIS_SHOP es set es.EGAIS_QUANT = :QUANT+new.quant where es.producer_id = :PRODUCER_ID and es.alccode = :ALCCODE;
    end