- 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) = Док.Контрагент) Тогда
Сумма = Сумма + Опер.Сумма;
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецЦикла;
КонецЦикла;
guest 10.07.2009 02:07 # +1
1С?
guest 10.07.2009 13:32 # −1
Терпеть не могу 1С 7.7 за такой набор объектов над которыми нужно так извращаться чтобы сделать примитивные вещи. Забываю 7.7 как страшный сон - да здравствует 1С 8.х !
roskomgovno 11.07.2018 00:40 # 0
guest 15.07.2009 14:32 # +1
[quote]Больше циклов по одним и тем же данным![/quote]
кури мануалы по 1С, хоть это и говнокод, данные там разные
Документ.Документ1 и Документ.Документ2 - это два разных документа
[quote]Терпеть не могу 1С 7.7 за такой набор объектов над которыми нужно так извращаться чтобы сделать примитивные вещи. Забываю 7.7 как страшный сон - да здравствует 1С 8.х ![/quote]
и чем же он лучше? тем что программистов ЗАСТАВИЛИ использовать запросы? а кто мешает использовать их на 7-й платформе?