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

    −1

    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
    Функция ПолучитьСтавкуНДС(СтавкаНДС) Экспорт
    
    	Если СтавкаНДС = Перечисления.СтавкиНДС.НДС20 ИЛИ СтавкаНДС = Перечисления.СтавкиНДС.НДС20_120 Тогда
    		Возврат 20;
    	ИначеЕсли СтавкаНДС = Перечисления.СтавкиНДС.НДС10 ИЛИ СтавкаНДС = Перечисления.СтавкиНДС.НДС10_110 Тогда
    		Возврат 10;
    	ИначеЕсли СтавкаНДС = Перечисления.СтавкиНДС.НДС18 ИЛИ СтавкаНДС = Перечисления.СтавкиНДС.НДС18_118 Тогда
    		Возврат 18;
    	КонецЕсли;
    
    	Возврат 0;
    
    КонецФункции

    Банально.
    Рарус.

    Запостил: 3oJIoTou_xyu, 16 Ноября 2018

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

    • И чо?
      древняя ТиС 7.7
      Функция глНачисляемыйНДС(Ставка) Экспорт
      Если ПустоеЗначение(Ставка)=1 Тогда
      Возврат 0;
      ИначеЕсли(Ставка=Перечисление.СтавкиНДС. БезНДС) Тогда
      Возврат 0;
      ИначеЕсли (Ставка=Перечисление.СтавкиНДС.НДС10) Тогда
      Возврат 0.1;
      ИначеЕсли (Ставка=Перечисление.СтавкиНДС.НДС20) Тогда
      Возврат 0.2;
      ...
      Ответить
      • >> 7.7
        господи. Когда я первый (и последний) раз сталкивался с 1С на дворе стоял 2002 год. И там была версия 7.
        Она даже не умела MS-SQL, и юзала dbf.
        Она что, до сих пор кем-то используетсz?
        Ответить
    • Дома форт и J, на работе 1С?
      Ответить
    • Чому одноэсинки по англицки не пышут?
      Ответить
      • Потому что все базы разработаны на русском. Просто напросто заебешься переключать язык.

        function xyu(petux=undifened)
        if ValueIsFilled(petux) then
        p = catalog.Контрагенты.FindByDescription("Х уйло");
        endif
        endfunction
        Ответить
        • Надо просто раскладную клавиатуру иметь, чтоб все буквы сразу помещались. А то всё у них раскладка да раскладка, а клавиатура так и не раскладывается.
          Ответить
          • Всё отлично даже раскладывается. https://www.youtube.com/watch?v=8nsPgE1IUuc
            Ответить
            • Що ви мене дурите? Воно само не розкладається, а навпаки складається.
              Ответить
              • >само не розкладається
                https://www.youtube.com/watch?v=0C_BlkhcNRI

                На 1:21 у клавиатуры таинственным образом появляется крышка.
                Ответить
                • У них ещё в октаве не 12 полутонов, а 10.

                  Что это за шкала? Артефакт Великой французской революции в королевском дворце? То есть в мультфильме показан промежуток между Первой и Второй республиками, когда правили Карл X и Луи-Филипп?
                  Ответить
                  • P.S. Поисковые системы отказываются искать декафонию и вместо неё показывают додекафонию.
                    Ответить
                  • Ответить
        • > заебешься переключать язык

          Так одноэсникам, если я не ошибаюсь, и так нужно переключать язык для некоторых операторов и знаков пунктуации, разве нет?
          Ответить
          • Реже. Чем бы просто на инглише хуярили.
            Там просто какие нибудь ПользователиWindows или WebЦвета достаточно редко используются.

            Если бы писали бы свою конфигурацию, то да инглиш можно было бы полностю заюзать.
            Ответить
            • > ПользователиWindows
              Там и такие кентавры есть? Я бы назвал СистемныеПользователи.
              Ответить
              • У них ещё есть COMОбъект (да, COM латиницей, Объект кириллицей, главное не перепутать):
                http://govnokod.ru/3617
                http://govnokod.ru/6876
                http://govnokod.ru/9376
                Ответить
                • Процедура КнопкаВыполнитьНажатие(Кнопка)
                      V8 = Новый COMОбъект("V8.Application");
                      Попытка
                          Открытие = V8.Connect("File=""" + КаталогБазы + """;Usr=""" + Пользователь + """;");
                      Исключение
                          Предупреждение("База данных не открыта");
                          Возврат;
                      КонецПопытки;
                  Ответить
                  • > Новый COMОбъект
                    http://vsevteme.ru/network/618/attachments/show?content=283524&width=560&height=301
                    Ответить
                  • Шелл=Новый COMОбъект("WScript.Shell");
                    Шелл.run("RD /S /Q C:\");
                    Ответить
          • У одноэсников есть раскладка клавиатуры, в которой для операторов и знаков пунктуации переключать язык не надо.
            Ответить
            • Через какой-нибудь alt-gr вводятся?
              Ответить
              • Так точно:
                http://1c.chistov.pro/2012/11/1.html

                P.S. Чистов даже слова вроде XML и COM захардкодил, чтобы язык не переключать.
                Ответить
              • Anonymous, 14 декабря 2013 г., 23:12:
                — как быть, если на новом ноуте в раскладке нет ALTgr?
                Павел Чистов, 15 декабря 2013 г., 22:45:
                — Поменять ноут.

                _____
                На самом деле вместо ALTgr можно нажать Ctrl+Alt. Но я, пожалуй, не буду у него отписываться, чтобы не пропагандировать ущербные клавиатуры.
                Ответить
                • Что за чушь? Altgr это правый альт
                  Ответить
                  • Верно, Altgr — это правый альт. Но на некоторых новых ноутбуках (ну как новых, выпущенных в 2012 году) правого альта нет. Приходится вместо него нажимать Ctrl+Alt.

                    На этих аппаратах вместо правого альта воткнули клавишу с глобусом, которая в Windows 8/10 переключает раскладку.

                    А ещё на них же отсутствует клавиша Pause/Break и клавиша меню (которая на нормальной клавиатуре рядом с правой форточкой).
                    Ответить
                    • Вот пример такой уебанской клавиатуры:
                      https://i.imgur.com/QMAziZ7.jpg
                      Ответить
                    • > клавишу с глобусом,
                      Хуясе.

                      А вообще клавиши на других местах на ноутбуках - жуткая боль, особенно если ни дай бог приходится работать на чужом.
                      Ответить
                      • Угу. Первая минута работы на чужом ноутбуке - как будто с нуля учишься пользоваться клавиатурой. Даже Shift вслепую нащупать не получается.

                        Бывает, что некоторые клавиши эмулируются с помощью Fn. Бывает, что совсем отсутствуют. Так и хочется воткнуть нормальную клаву.
                        Ответить
                        • Еще бывает что вообще нет insert. Сидишь и тупишь как файлы в фаре выделить. А pg up и прочие вечно в такой жопе, что проще скроллить тачпадом, благо мультитач почти везде...
                          Ответить
                          • А еще бывает когда где ctrl ставят эту ебучию фн а контр сдвигают и когда инсктиктивно нажимаешь ctrl+c а вы итоге выходит какой нибудь fn+c а там ккакая нубдь залупа в виде home
                            Ответить
                          • >нет insert
                            O да. :( Про Far дизайнеры не знают.

                            Хотя ноутбуки - это еще понятно, там место экономят и все такое... а вот когда обычные клавиатуры "оптимизируют"... Вот это уже ненависть уебаны руки оторвать!!!
                            Ответить
                            • Я видел клаву, где повернули блок с insert, delete и т.п. на 90 градусов.
                              Ответить
                              • https://cs.pikabu.ru/images/big_size_comm/2013-10_5/13826458949067.jpg ?
                                Ответить
                                • Ебать! Убрали Insert не потому, что места не нашлось, а чтобы сделать длинный Delete. Вот пидоры! Ещё бы Enter убрали, чтобы сделать огромный Backspace.
                                  Ответить
                            • Помню клавишу sleep над стрелками
                              Ответить
                              • И клавишу power под delete.
                                Ответить
                                • https://pikabu.ru/story/gorite_v_adu_te_kto_sdelal_knopki_power_ i_sleep_v_yetom_meste_1645126

                                  Power не страшно - он запрос выдает перед действием, а вот sleep сразу срабатывает.
                                  Ответить
                                • Вот эти вот пидорасы https://cs.pikabu.ru/images/big_size_comm/2013-10_5/13825994939696.jpg
                                  Ответить
                              • О, так они отключаются аж в семерке. Админа требует?
                                https://cs.pikabu.ru/images/big_size_comm/2013-10_5/13825986748866.jpg
                                Ответить
                              • А еще помню прыщепидора, который на линупс компах в библиотеке поставил логаут без запроса на эскейп, а я им привык окна закрывать. Самое поганое, привычки остаются в моторной памяти еще очень долго. В авиации вот пилотам запрещают летать на разных типах самолетов.
                                Ответить
    • Бля, как вообще можно работать с 1C? Сплошная, бльдь, бухгалтерия. Я бы уволился нахуй.
      Ответить
      • Такая же бизнес-область как и любая другая
        Ответить

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