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

    • ava sysctl 30.01.2015 19:17 # −1

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

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

    • ava Dummy00001 30.01.2015 20:58 # 0

      клетоки, размножаются делением.

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

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

    • ava alexinzaz 30.01.2015 22:16 # +2

      Такое говно обычно начинающие строчат
      Ответить

      • ava dsfix 31.01.2015 00:26 # +1

        Согласен. Но этот - уже руководитель группы разработки.
        Ответить

        • ava alexinzaz 02.02.2015 01:00 # +4

          живьем сжечь такого руководителя.
          Ответить

        • ava doom2good 05.02.2015 15:10 # +1

          Наверно через постель директора попал на эту должность :D
          Ответить

      • ava guest 20.03.2015 17:28 # 0

        Это точно, сам такое писал, но все таки быстро осознал что не то делаю.
        Ответить

    • ava HomoAlbus 12.11.2015 17:37 # 0

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

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