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

    −120

    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
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    Функция Счет(УсловныйКодСчета, СоответствиеСчетов = Неопределено) Экспорт
	
	ПС = ПланыСчетов.Хозрасчетный;
	Результат = ПС.ПустаяСсылка();
	
	Если УсловныйКодСчета = "01" Тогда
		Результат = ПС.ОсновныеСредства;
	ИНачеЕсли УсловныйКодСчета = "01.01" Тогда
		Результат = ПС.ОСвОрганизации;
	ИначеЕсли УсловныйКодСчета = "01.08" Тогда
		Результат = ПС.ОСБезГосРегистрации;
	ИначеЕсли УсловныйКодСчета = "01.09" Тогда
		Результат = ПС.ВыбытиеОС;
	ИначеЕсли УсловныйКодСчета = "02" Тогда
		Результат = ПС.АмортизацияОсновныхСредств;
//Далее идет подобный треш более чем на 500 строк

        ИначеЕсли УсловныйКодСчета = "008" Тогда
		Результат = ПС.ОбеспеченияОбязательствПолученные;
	ИначеЕсли УсловныйКодСчета = "009" Тогда
		Результат = ПС.ОбеспеченияОбязательствВыданные;
	ИначеЕсли УсловныйКодСчета = "011" Тогда
		Результат = ПС.ОсновныеСредстваСданныеВАренду;
	Иначе
		ОписаниеОшибки = НСтр("ru='Не определен счет с условным кодом %1 в соответствии счетов'");
		ОписаниеОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ОписаниеОшибки, УсловныйКодСчета);
		ВызватьИсключение ОписаниеОшибки;
	КонецЕсли;
	
	Возврат Результат;
	
КонецФункции

//СоответствиеСчетов так нигде и не используется :(

    Типовая Бухгалтерия КОРП 3.0, модуль ЗаполнениеБухгалтерскойОтчетностиИтоги

    Запостил: planaric, 07 Февраля 2015

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

    • ava DesmondHume 07.02.2015 14:40 # −1

      КонецЕсли;
      Возврат Результат;
      Ответить

    • ava Dummy00001 07.02.2015 16:39 # 0

      не уникально для 1С.

      типичный код недоделаных ДБшников которые не способны осознать что столбцы таблиц можно также строками делать.
      Ответить

    • ava artembegood 07.02.2015 16:44 # −1

      сам 1с это говно
      Ответить

    • ava alexinzaz 09.02.2015 10:35 # 0

      да ладно, гоните. Не верю, что в типовых такой жестяк бывает.
      Ответить

      • ava planaric 09.02.2015 11:09 # 0

        Можешь сам посмотреть. Бухгалтерия КОРП 3.0, версия 3.0.36.17 пруф - скриншот
        https://www.dropbox.com/s/gqnja3vksd2tlwf/1c.png?dl=0
        Ответить

    • ava guest 14.03.2017 09:06 # −7

      показать все, что скрытону да столкнулся, пришлось дописывать для своих нужд:
      ИначеЕсли ПС.НайтиПоКоду(СокрЛП(УсловныйКодСчета)) <>ПС.ПустаяСсылка() Тогда
      Результат = ПС.НайтиПоКоду(СокрЛП(УсловныйКодСчета)) ;
      Ответить

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