0
Optan
15.07.16
✎
12:06
|
Всем привет!
Подрядили разобраться с чудесами в 7.7
1С Предприятие для SQL (7.70.027)
БУ 4.5 (7.70.597) доработанная
База файловая, работа многопользовательская через RDP.
Сворачивается с 2011 года (стандартным WRAP). Объем примерно 5Гб.
С недавних пор Отчет "Акт сверки расчетов" срабатывает через раз.
Начальное сальдо всегда получает правильно.
А вот проводки то выходит все пустое, то заполняет все верно.
Можно сформировать отчет с разницей в 20-30 сек и удивиться разнице.
В отладчике все правильно, даты, фильтр по набору счетов Дт/Кт, но периодически не срабатывает и всё - хоть ты тресни)
Разделитель учета не используется.
Кроме пересчета итогов и переиндексации этой ночью идей нет(
Но меня терзают смутные сомнения, что появление и пропажа данных с этим не связана(
Может кто сталкивался?
[CODE]
Процедура Заполнить()
Если КонДата < НачДата Тогда
Предупреждение("Неверно задан период сверки расчетов.", "!");
Возврат;
КонецЕсли;
Если ПустоеЗначение(Контрагент) = 1 Тогда
Предупреждение("Сначала, пожалуйста, выберите контрагента.");
Возврат;
КонецЕсли;
Форма.ИспользоватьСлой("Таблица, Основной", 2);
Форма.Закладки.ТекущаяСтрока(2);
Если ТаблицаДвижений.КоличествоСтрок() > 0 Тогда
Если Вопрос("Перед заполнением таблица движений будет очищена.
|Продолжать?", "Да+Нет") = "Нет" Тогда
Возврат;
КонецЕсли;
КонецЕсли;
ТаблицаДвижений.УдалитьСтроки();
ТКонтрагент = Контрагент;
ТДоговор = Договор;
//ищем документы, в т.ч. операции, по расчетам с выбранным контрагентом, по проводкам
СписокВыбранныхСчетов = СоздатьОбъект("СписокЗначений");
Фильтр = "";
Для СчетчикЦикла = 1 По СписокСчетов.РазмерСписка() Цикл
Если СписокСчетов.Пометка(СчетчикЦикла) = 1 Тогда
Сч = СписокСчетов.ПолучитьЗначение(СчетчикЦикла);
СписокВыбранныхСчетов.ДобавитьЗначение(Сч);
КодСчета = СокрЛП(Сч.Код);
Фильтр = Фильтр + КодСчета + ",*;*," + КодСчета + ";";
КонецЕсли;
КонецЦикла;
Если ПустоеЗначение(Фильтр) = 0 Тогда
Фильтр = Лев(Фильтр, СтрДлина(Фильтр)-1);
КонецЕсли;
ЕстьВалютныеОперации = 0;
Опер = СоздатьОбъект("Операция");
Опер.ИспользоватьСубконто(ВидыСубконто.Контрагенты, Контрагент);
Если ПустоеЗначение(Договор) = 0 Тогда
Если Договор.ЭтоГруппа() = 0 Тогда
Опер.ИспользоватьСубконто(ВидыСубконто.Договоры, Договор);
Иначе
//Опер.ИспользоватьСубконто(ВидыСубконто.Договоры,);
КонецЕсли;
КонецЕсли;
Опер.ВыбратьОперацииСПроводками(НачДата, КонДата, Фильтр);
Пока Опер.ПолучитьПроводку() = 1 Цикл
[/CODE]
|
|