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

    −174

    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
    Стр = ТЗОбщая.Добавить();
    Стр.сотрудник = Выборка.сотрудник;
    Стр.Результат = ВЫборка.Результат;
    ИскомаяСтрока = ТЗСотрДатаПриема.Найти(Стр.сотрудник,"Сотрудник");
    Если ИскомаяСтрока <> Неопределено Тогда
    	месяц_ = Месяц(ИскомаяСтрока.ДатаПриемаНаРаботу);
    	если месяц_ > 7 тогда  // чел принят после июля
    		число_ = 12 - месяц_;  //кол-во отработанных месяцев
    	иначе	  
    		число_ = 6 ; 
    	конецесли;	  
    КонецЕсли;	
    число_ = число_+ Месяц(ВыбДата) ;
    если число_ >=12 тогда
    	число_=12;
    конецесли;	 
    Стр.СреднийЗаработок = Окр(ВЫборка.Результат/29.4/число_,2);

    Вот так у нас считают средний заработок за последний год)))

    Запостил: doom2good, 17 Июля 2013

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

    • АПД: когда спросил "а нахера эти черточки у переменных?" ответ убил - "так я отличаю свои переменные"
      Ответить
      • > "так я отличаю свои переменные"
        Ладно бы они глобальными были... а локальные то зачем отличать?
        Ответить
        • а как иначе подать на авторские отчисления после увольнения?
          Ответить
        • Да причем тут глобальные? "отмечание" своих переменных говорит о нежелании (или неумении) разобраться в алгоритме. А судя по тексту, речь здесь именно о "неумении"))
          Ответить
    • Стр.сотрудник = Выборка.сотрудник;
      Стр.Результат = ВЫборка.Результат;

      ВЫборка - пусто будет. ИЛИ упадет. Точно не помню как она себя ведет в таких ситуациях.
      Ответить
    • У нас в ЗУПе постоянно создают новый документ, когда появляется новый вид расчета, и кодят туды алгоритм расчета.
      Как-то раз ко мне обратились с вопросом, мол алгоритм неправильно работает, исправь. Я х... положил на их документ, и просто нормально настроил формулу у вида расчета.
      Ну что я могу сказать... Идея моя, видать, не понравилась, до сих пор плодят новые документы для каждой премии, но в то же время моя-то формула до сих пор работает...
      И это - внимание - попросили меня методологи. Меня, программиста, попросили решить по сути методологический вопрос. Без единой строки кода.
      Ответить

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