v7: Была ли проводка по счету

1C 7.7

0 mirror1982

31.10.16

✎

07:48

УСН 1.3

Как узнать была ли проводку по счету 60 для определенного контрагента. Такой вариант работает очень медленно:

Ит=СоздатьОбъект("БухгалтерскиеИтоги");
Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты,спрК.ТекущийЭлемент(),1,1);
Ит.ВыполнитьЗапрос(ДатаНач,ДатаКон,СчетПоКоду("60"),,,3,,"СК");

Надо узнать является ли контрагент поставщиком! Помогите!

1 Dmitry1c

31.10.16

✎

07:51

(0) если переходишь на 1с8, то как правило в новой конфе есть обработка для проставления покупатель/поставщик при добавлении реквизитов в 7.7

а вообще там и код можно посмотреть... для УПП 1.3 точно в комплект входит такая обработка, поищи

2 mirror1982

31.10.16

✎

07:58

(1) ну а без обработки. логика то какая должна быть? если по сальдо нули на конец периода, то мне надо удостовериться была ли проводка.

3 Это_mike

31.10.16

✎

08:00

(2) так обороты смотреть надо

4 mirror1982

31.10.16

✎

08:03

ОД=Ит.ДО(1);
ОК=Ит.КО(1);

5 mirror1982

31.10.16

✎

08:06

так медленно проходит:

СпрК.ВыбратьЭлементы();
Пока СпрК.ПолучитьЭлемент()=1 Цикл
         Ит=СоздатьОбъект("БухгалтерскиеИтоги");
         Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты,спрК.ТекущийЭлемент(),1,1);
      Ит.ВыполнитьЗапрос(ДатаН,ДатаК,СчетПоКоду("60"),,,3,,"СК");
      ОД=Ит.ДО(1);
      ОК=Ит.КО(1);
КонецЦикла;

6 НЕА123

31.10.16

✎

08:11

как вариант
запросом
.....
Счет = Операция.Дебет.Счет;
    Контрагенты = Операция.Дебет.Контрагенты;
    Условие(Контрагенты = ytyyt);
.....

7 Это_mike

31.10.16

✎

08:12

попробуй прямым запросом...
Класс "БыстрыеИтоги"

8 mirror1982

31.10.16