1. 1C / Говнокод #17549

    −118

    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
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    Если Сумма<=0 тогда
    		
    		НС = Док.СуммыДолга.Добавить();
    		НС.ВидЗадолженности     = Перечисления.ВидыЗадолженности.Кредиторская;
    		НС.ДоговорКонтрагента     = ПолучитьДоговор(Клиент,Док.ВалютаДокумента);
    		НС.КурсВзаиморасчетов   = Док.КурсДокумента;
    		НС.КратностьВзаиморасчетов=Док.КратностьДокумента;
    		НС.Сумма = -Сумма;
    		НС.СуммаРегл = НС.Сумма*НС.КурсВзаиморасчетов/НС.КратностьВзаиморасчетов;
    		
    		НС.СчетУчетаАвансов  = СчетКонтрагента;
    		НС.СчетУчетаРасчетов = СчетКонтрагента;
    	Иначе
    		
    		НС = Док.СуммыДолга.Добавить();
    		НС.ВидЗадолженности     = Перечисления.ВидыЗадолженности.Дебиторская;
    		НС.ДоговорКонтрагента     = ПолучитьДоговор(Клиент,Док.ВалютаДокумента);
    		НС.КурсВзаиморасчетов   = Док.КурсДокумента;
    		НС.КратностьВзаиморасчетов=Док.КратностьДокумента;
    		НС.Сумма = Сумма;
    		НС.СуммаРегл = НС.Сумма*НС.КурсВзаиморасчетов/НС.КратностьВзаиморасчетов;
    		
    		НС.СчетУчетаАвансов  = СчетКонтрагента;
    		НС.СчетУчетаРасчетов = СчетКонтрагента;
    	
    	КонецЕсли;

    Код исправный, но... любит один наш программер "чтоб побольше строк"... а если добавить дополнительные отступы ("для удобства прочтения"), то будет казаться, что программа невообразимо длинная и сложная

    Запостил: dsfix, 30 Января 2015

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

    • 1Сколопендра
      НС.СчетУчетаАвансов, НС.СчетУчетаРасчетов = СчетКонтрагента;

      1Сколопендра++
      НС.СчетУчета\Аванс|Расчет\ов = СчетКонтрагента;
      Ответить
    • клетоки, размножаются делением.

      то что ты здесь видишь, есть зародышь позиции неувольняемого консультанта. код уже начал делится.

      еще пара копипаст. еще какие мелкие изменения тут и там. через пару месяцов и багов много и деятельности по их выщемлению нужно много. самое главное: с каждым разом, кода все больше.
      Ответить
    • Такое говно обычно начинающие строчат
      Ответить
      • Согласен. Но этот - уже руководитель группы разработки.
        Ответить
        • живьем сжечь такого руководителя.
          Ответить
        • Наверно через постель директора попал на эту должность :D
          Ответить
      • Это точно, сам такое писал, но все таки быстро осознал что не то делаю.
        Ответить
    • Епть:
      НС = Док.СуммыДолга.Добавить();
      НС.ВидЗадолженности = Перечисления.ВидыЗадолженности.Кредиторс кая;
      НС.ДоговорКонтрагента = ПолучитьДоговор(Клиент,Док.ВалютаДокумен та);
      НС.КурсВзаиморасчетов = Док.КурсДокумента;
      НС.КратностьВзаиморасчетов=Док.Кратность Документа;
      НС.Сумма = Макс(Сумма, -Сумма);
      НС.СуммаРегл = НС.Сумма*НС.КурсВзаиморасчетов/НС.КратностьВзаиморасчетов;
      НС.СчетУчетаАвансов = СчетКонтрагента;
      НС.СчетУчетаРасчетов = СчетКонтрагента;
      Ответить

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