|
0
laeg
25.06.13
✎
11:48
|
Клиенты обратились за помощью обновить конфигурацию ЗУП 2.5.68, абсолютно типовую и на замках. Говорят что при обновлении зависает ...
Засучил рукава, залез в отладчик, нашел место. Однако 1с-ники чудят.
ВременнаяТаблица = Объект.ДниБолезниУходаЗаДетьми.Выгрузить();
Н = ВременнаяТаблица.Количество() - 1;
Пока Н > 0 Цикл
ТекущаяЗапись = ВременнаяТаблица[Н];
Если Не ЗначениеЗаполнено(ТекущаяЗапись.НаименованиеПериода) Тогда
Продолжить;
КонецЕсли;
ПредшествующаяЗапись = ВременнаяТаблица[Н-1];
Если ТекущаяЗапись.НаименованиеПериода = ПредшествующаяЗапись.НаименованиеПериода
И Год(ТекущаяЗапись.ПериодС) = Год(ПредшествующаяЗапись.ПериодС)
И (ТекущаяЗапись.ПериодС = КонецДня(ПредшествующаяЗапись.ПериодПо) + 1
Или КонецДня(ТекущаяЗапись.ПериодС) = КонецДня(ПредшествующаяЗапись.ПериодПо)) Тогда
// объединим записи в одну
ПредшествующаяЗапись.Дни = ПредшествующаяЗапись.Дни + ТекущаяЗапись.Дни;
ПредшествующаяЗапись.ПериодПо = ТекущаяЗапись.ПериодПо;
ВременнаяТаблица.Удалить(ТекущаяЗапись);
КонецЕсли;
Н = Н - 1;
КонецЦикла;
Как вам ?
|
|