From 4312df847b7f6c974331aaa674f0fe052c0b3833 Mon Sep 17 00:00:00 2001 From: Anton Ivanov <iab@bk.ru> Date: Tue, 23 Jan 2018 08:40:11 +0300 Subject: [PATCH] =?UTF-8?q?=D0=98=D1=81=D0=BF=D1=80=D0=B0=D0=B2=D0=B8?= =?UTF-8?q?=D0=BB=20=D0=BE=D1=88=D0=B8=D0=B1=D0=BA=D1=83=20=D0=BF=D1=80?= =?UTF-8?q?=D0=B8=20=D0=BF=D0=BE=D0=BB=D1=83=D1=87=D0=B5=D0=BD=D0=B8=D0=B8?= =?UTF-8?q?=20=D1=81=D1=82=D1=80=D0=BE=D0=BA=D0=B8=20=D1=80=D0=BE=D0=B4?= =?UTF-8?q?=D0=B8=D1=82=D0=B5=D0=BB=D1=8F=20=D0=BF=D0=BE=20OBJID.=20=D0=9E?= =?UTF-8?q?=D0=BA=D0=B0=D0=B7=D1=8B=D0=B2=D0=B0=D0=B5=D1=82=D1=81=D1=8F=20?= =?UTF-8?q?=D0=BE=D0=BD=20=D0=BC=D0=BE=D0=B6=D0=B5=D1=82=20=D0=BF=D0=BE?= =?UTF-8?q?=D0=B2=D1=82=D0=BE=D1=80=D1=8F=D1=82=D1=8C=D1=81=D1=8F,=20?= =?UTF-8?q?=D0=B5=D1=81=D0=BB=D0=B8=20=D1=81=D1=82=D0=B0=D1=80=D1=8B=D0=B9?= =?UTF-8?q?=20=D0=BE=D0=B1=D1=8A=D0=B5=D0=BA=D1=82=20=D0=B1=D1=8B=D0=BB=20?= =?UTF-8?q?=D1=83=D0=B4=D0=B0=D0=BB=D0=B5=D0=BD,=20=D1=82=D0=BE=20=D0=B4?= =?UTF-8?q?=D0=BB=D1=8F=20=D0=BD=D0=BE=D0=B2=D0=BE=D0=B3=D0=BE=20=D0=BC?= =?UTF-8?q?=D0=BE=D0=B6=D0=B5=D1=82=20=D0=BF=D1=80=D0=B8=D1=81=D0=B2=D0=BE?= =?UTF-8?q?=D0=B8=D1=82=D1=8C=D1=81=D1=8F=20=D1=8D=D1=82=D0=BE=D1=82=20?= =?UTF-8?q?=D0=B6=D0=B5=20OBJID.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../узПросмотрИсторииХранилища/Ext/ObjectModule.bsl | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/src/cf/DataProcessors/узПросмотрИсторииХранилища/Ext/ObjectModule.bsl b/src/cf/DataProcessors/узПросмотрИсторииХранилища/Ext/ObjectModule.bsl index d88642a5d..6aafef613 100644 --- a/src/cf/DataProcessors/узПросмотрИсторииХранилища/Ext/ObjectModule.bsl +++ b/src/cf/DataProcessors/узПросмотрИсторииХранилища/Ext/ObjectModule.bsl @@ -210,8 +210,18 @@ НайденныеСтроки = мТЗHistory.НайтиСтроки(ПараметрыОтбора); ВсегоНайденныеСтроки = НайденныеСтроки.Количество(); ТекстОшибки = ""; - Если ВсегоНайденныеСтроки >= 1 Тогда + Если ВсегоНайденныеСтроки = 1 Тогда СтрокаРодителя = НайденныеСтроки[0]; + ИначеЕсли ВсегоНайденныеСтроки > 1 Тогда + МаксVERNUM = 0; + Для каждого СтрокамТЗHistory из НайденныеСтроки цикл + Если МаксVERNUM < СтрокамТЗHistory.VERNUM Тогда + МаксVERNUM = СтрокамТЗHistory.VERNUM; + СтрокаРодителя = СтрокамТЗHistory; + Конецесли; + Конеццикла; + Иначе + ТекстОшибки = "Ошибка! не удалось найти строку родителя"; Конецесли; Если ЗначениеЗаполнено(ТекстОшибки) Тогда