DEPO: обработка BJ_ORDER_REJECTED (отказ НРД по поручению) — MSSQL и Firebird

По ответу программиста Fancy от 28.10.2026:
- операция не создаётся, входящая запись D_FILER не меняется (поручение было);
- в строке D_CLISER_M2M_DOL.DEP_TEXT — «Отказ НРД: » + PARAMETERS (номер и дата
  отчёта НРД, без номера — текст отказа);
- документ: все строки отвергнуты — «Отмена обработки» (3); строки разошлись
  (одна исполнена, другая отвергнута, в любом порядке) — «Частично обработан»
  (OD_DOC_STATES.SYS_NAME = IN_PROCESS, ID у баз разный: 869 / 762); по другим
  строкам ответа ещё нет — состояние не меняется. BJ_ORDER_ACCEPTED при уже
  отвергнутой строке ставит «Частично обработан» вместо «Конец обработки».

Проверено: MSSQL — тестовая DEPO в транзакции с откатом (A: 2→869, B: 127→869,
D: 127→3); Firebird — база SPI с триггерами Fancy (A–D, OUT с отказом без номера)
и smoke на заглушках.

Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_01Q7eREaYwUt1i4fNLZcGnjn

internal/lkgateway/depoprocs/firebird/10_FTV_M2M_PROCS.sql

@@ -388,6 +388,9 @@ DECLARE VARIABLE OPER_ID INTEGER;
 DECLARE VARIABLE ST INTEGER;
 DECLARE VARIABLE EV_S VARCHAR(19);
 DECLARE VARIABLE NOW_S VARCHAR(19);
+DECLARE VARIABLE LINES INTEGER;
+DECLARE VARIABLE LINES_ACCEPTED INTEGER;
+DECLARE VARIABLE LINES_REJECTED INTEGER;
 BEGIN
   SELECT FIRST 1 ME.GUID, ME.REFERENCE, ME.EVENT_TYPE, ME.EVENT_DATE, ME.M2M_REJECT_CODE, ME.PARAMETERS, M.DIRECTION,
          H.DOC, F.DOL, D.D_DATE, D.NUM, F.SHARE, F.AMOUNT, F.PLACE, F.CLIENT, H.DEPONENT
@@ -424,6 +427,19 @@ BEGIN
             :EV_S || ' - ' || :EVENT_TYPE || COALESCE(' (референс - ' || :REFERENCE || ')', '') || COALESCE(' (параметры - ' || :PARAMETERS || ')', ''),
             'Время начала обработки: ' || :NOW_S);
 
+  /* 3a. Исход по строкам документа: у каждой бумаги своё поручение НРД, строки могут разойтись
+     (одна исполнена BJ_ORDER_ACCEPTED, другая отвергнута BJ_ORDER_REJECTED) — тогда документ «Частично обработан» */
+  IF (EVENT_TYPE IN ('BJ_ORDER_ACCEPTED', 'BJ_ORDER_REJECTED')) THEN
+    SELECT COUNT(*), COUNT(A.REFERENCE), COUNT(R.REFERENCE)
+      FROM D_CLISER_M2M_DOL F
+        JOIN OD_DOLS L ON L.ID = F.DOL
+        LEFT JOIN (SELECT DISTINCT E.REFERENCE FROM FTV_M2M_EVENTS E WHERE E.GUID = :GUID AND E.EVENT_TYPE = 'BJ_ORDER_ACCEPTED'
+                   AND E.STATE <> 'ERROR') A ON A.REFERENCE = F.DOL_REF
+        LEFT JOIN (SELECT DISTINCT E.REFERENCE FROM FTV_M2M_EVENTS E WHERE E.GUID = :GUID AND E.EVENT_TYPE = 'BJ_ORDER_REJECTED'
+                   AND E.STATE <> 'ERROR') R ON R.REFERENCE = F.DOL_REF
+      WHERE L.DOC = :CLISER_ID
+      INTO :LINES, :LINES_ACCEPTED, :LINES_REJECTED;
+
   /* 4. Обработка каждого типа события. ID = 0 в UPDATE OD_DOCS — служебное изменение Fancy (триггер оставляет
      прежний ID и не проверяет права оператора). */
   IF (EVENT_TYPE = 'BJ_RECEIVED') THEN
@@ -449,7 +465,25 @@ BEGIN
   ELSE IF (EVENT_TYPE = 'BJ_ORDER_ACCEPTED') THEN
   BEGIN
     EXECUTE PROCEDURE FTV_M2M_PROCESS_OPERATION (:GUID, :REFERENCE, :EVENT_DATE, :PARAMETERS) RETURNING_VALUES :OPER_ID;
-    UPDATE OD_DOCS SET ID = 0, STATE = 2 WHERE ID = :CLISER_ID;                 /* FINAL — конец обработки */
+    ST = NULL;
+    IF (LINES_REJECTED > 0) THEN                                                 /* другая строка отвергнута НРД */
+      SELECT FIRST 1 S.ID FROM OD_DOC_STATES S WHERE S.SYS_NAME = 'IN_PROCESS' INTO :ST;
+    UPDATE OD_DOCS SET ID = 0, STATE = COALESCE(:ST, 2) WHERE ID = :CLISER_ID;  /* FINAL — конец обработки или «Частично обработан» */
+  END
+  ELSE IF (EVENT_TYPE = 'BJ_ORDER_REJECTED') THEN
+  BEGIN
+    /* НРД отверг поручение по строке (отчёт MS010). В PARAMETERS — номер и дата отчёта НРД, если номера нет — текст отказа.
+       Операцию не создаём; входящую запись D_FILER не трогаем — поручение было (ответ на вопрос от 16.10.2026) */
+    UPDATE D_CLISER_M2M_DOL SET DEP_TEXT = SUBSTRING('Отказ НРД: ' || COALESCE(:PARAMETERS, '') FROM 1 FOR 255) WHERE DOL = :DOL_ID;
+    ST = NULL;
+    IF (LINES_ACCEPTED > 0) THEN                                                 /* другая строка исполнена */
+    BEGIN
+      SELECT FIRST 1 S.ID FROM OD_DOC_STATES S WHERE S.SYS_NAME = 'IN_PROCESS' INTO :ST;
+      UPDATE OD_DOCS SET ID = 0, STATE = COALESCE(:ST, 2) WHERE ID = :CLISER_ID; /* «Частично обработан» */
+    END
+    ELSE IF (LINES_REJECTED = LINES) THEN
+      UPDATE OD_DOCS SET ID = 0, STATE = 3 WHERE ID = :CLISER_ID;               /* REJECT — отмена обработки: отвергнуты все строки */
+    /* иначе по другим строкам ответа НРД ещё нет — состояние документа не меняем */
   END
   ELSE IF (EVENT_TYPE = 'BJ_EXECUTED') THEN
     EXIT;                                                                        /* уже исполнено по BJ_ORDER_ACCEPTED */