Куча говна / Говнокод #1349 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  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 guest, (Updated )

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

  • ava guest # Ссылка на оригинал 0

    Sania:
    Терпеть не могу 1С 7.7 за такой набор объектов над которыми нужно так извращаться чтобы сделать примитивные вещи. Забываю 7.7 как страшный сон - да здравствует 1С 8.х !
    Ответить

  • ava guest # Ссылка на оригинал 0

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

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

Помни, guest, за тобой могут следить!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓