- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
Док = СоздатьОбъект("Документ.Документ1");
Док.ВыбратьДокументы(Дата1, Дата2);
Пока Док.ПолучитьДокумент()=1 Цикл
Док.ВыбратьСтроки();
Пока Док.ПолучитьСтроку() = 1 Цикл
Док2 = СоздатьОбъект("Документ.Документ2");
Док2.ВыбратьДокументы(Дата1,Дата2);
Сумма = 0;
Пока Док2.ПолучитьДокумент()=1 Цикл
Опер = СоздатьОбъект("Операция");
Если Опер.НайтиОперацию(Док2) = 1 Тогда
Опер.ВыбратьПроводки();
Пока Опер.ПолучитьПроводку() = 1 Цикл
Если (Опер.Кредит.Субконто(1) = Док.Контрагент) Тогда
Сумма = Сумма + Опер.Сумма;
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецЦикла;