1. Куча / Говнокод #1349

    +151

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

    Больше циклов по одним и тем же данным!

    Запостил: guest, 09 Июля 2009

    Комментарии (4) RSS

    • страйкер:
      1С?
      Ответить
    • Sania:
      Терпеть не могу 1С 7.7 за такой набор объектов над которыми нужно так извращаться чтобы сделать примитивные вещи. Забываю 7.7 как страшный сон - да здравствует 1С 8.х !
      Ответить
    • Негодующий1С-ник:
      [quote]Больше циклов по одним и тем же данным![/quote]
      кури мануалы по 1С, хоть это и говнокод, данные там разные
      Документ.Документ1 и Документ.Документ2 - это два разных документа
      [quote]Терпеть не могу 1С 7.7 за такой набор объектов над которыми нужно так извращаться чтобы сделать примитивные вещи. Забываю 7.7 как страшный сон - да здравствует 1С 8.х ![/quote]
      и чем же он лучше? тем что программистов ЗАСТАВИЛИ использовать запросы? а кто мешает использовать их на 7-й платформе?
      Ответить

    Добавить комментарий