Имя: Пароль:
1C
1C 7.7
v7: ВыбратьОперацииСПроводками() работает через раз....(пропадают проводки)
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]
1 Optan
 
15.07.16
12:29
Причем если открыть журнал проводок и сделать отбор по конкретному контрагенту, то периодически с экрана в журнале могут пропасть все записи, а при повторном отборе появится...
2 Optan
 
15.07.16
14:13
up