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

    −172

    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
    Наименование=Выборка.Наименование;
АдресМестонахождения=Выборка.АдресМестонахождения;
ВнешнийОбъект=Выборка.ВнешнийОбъект;
ДатаВводаВЭксплуатацию=Выборка.ДатаВводаВЭксплуатацию;
ДатаВыпуска=Выборка.ДатаВыпуска;
ДоговорКонтрагента=Выборка.ДоговорКонтрагента;
ЗаводскойНомер=Выборка.ЗаводскойНомер;
Изготовитель=Выборка.Изготовитель;
ИнвентарныйНомер=Выборка.ИнвентарныйНомер;
КодРегиона=Выборка.КодРегиона;
КодПоОКОФ=Выборка.КодПоОКОФ;
Комментарий=Выборка.Комментарий;
Контрагент=Выборка.Контрагент;
КонтрагентИсполнительРемонта=Выборка.КонтрагентИсполнительРемонта;
НомерПаспорта=Выборка.НомерПаспорта;
ОбъектОсновныхСредств=Выборка.ОбъектОсновныхСредств;
Организация=Выборка.Организация;
ПлановыйГрафикРаботы=Выборка.ПлановыйГрафикРаботы;
Подразделение=Выборка.Подразделение;
ПодразделениеИсполнительРемонта=Выборка.ПодразделениеИсполнительРемонта;
Приоритет=Выборка.Приоритет;
РемонтнаяГруппа=Выборка.РемонтнаяГруппа;
СрокПолезногоИспользования=Выборка.СрокПолезногоИспользования;
ТехНомер=Выборка.ТехНомер;
ТипОборудования=Выборка.ТипОборудования;
ЭтоГруппаОбъектов=Выборка.ЭтоГруппаОбъектов;

    "Архитектор" явно не был знаком с методом ЗаполнитьЗначенияСвойств()

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

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

    • ava rdifb0 31.07.2013 18:58 # +5

      Слишком читаемо, нужно склеить в одну строку.
      Ответить

    • ava wvxvw 31.07.2013 19:28 # 0 

      (defun shuffle (begin end)
  (interactive "r")
  (loop for line in (split-string (buffer-substring begin end) "\n")
        initially (delete-region begin end)
        do (insert
            (loop with temp = ?x
                  for i from (1- (length line)) downto 0
                  for rand = (random (1+ i)) do
                  (rotatef (aref line i) (aref line rand))
                  finally (return line)) "\n")))


      Бох в помощь!
      книаыамВмаНеоаноине=.бНеванив;оиер
ярахед=Ах.брМоножоонсскВннетыесМоатяжс;иАиеедредад
ОтВктоВВбнб=кйбеишеОнаыъ;ъш.инкеейрн
аооютаЭсбсВкууВакц=ввт;тааидВцаюл.рВкЭВтаоДплДиааыадпа
ткрпас=уаВы.опас;ВатуыкДДыВааабк
ертыаоК;гДоовартакнорВрнгДогоангот=оеаобрвтК.н
вйокамооеоЗркНревйНооысмсд;р.дВааб=Зко
тез=.ыьгоотлл;зовИогрИтиоктвбьиеаВ
баВеййотрНнвмернреаыоымнтанвркн;Н.И=еИоныр
кдеоиоаи=;КоКВдгыРаонраебРг.он
Ф=ОборОоодК;ВККПыФакПо.ОоКдО
;рВраймо.мтиыейКоорнбмамтКкие=на
Кн;онтт=кыКВа.геабоорнреатгрнт
ноггиалтпаенКннмссо;аИирьмкненааеттРтпрлрнлтеы.тоВтноеоКтоИб=ьРеол
оарыбппсоасарарр=Вто;тПаекмо.еНПНрмо
тбОыокартоСнвсовевОсОнОъд;=беъсхынбВтеыкде.ктвсррхнС
цяазг.;=рбигВяныазцОираОониаиакр
ПыаиГтрлнийыооВоао;нГакфй=бРот.каблыыаРвфррПвкыааб
оедП;раиооаер=аизлдеыбз.еекндлПдВерн
лдИс=лзрмроелнн;еедиснеоаоИо.етпдеолиьаРеаыбоельдПнлПтканпиеортВземРаитн
бтПеоркиеаи.ыВтр;ррПириоотт=
таГбана.Гя;трпкРонунРмепрыянпр=Воуеаомап
СоСеозкбгПиыо=орпкьо;ИВролооПзрзннсо.анооакгвллеяяиИаовпзонсль
ыоехТ=;кмхрмарВорНТ.обНеее
аянри=поОподОаыТибобуВоТрд.бкяа;оувиинрв
крГОтоуппептббуЭв=втыбетрапОоГЭкВкооаоъа.ръ;
      Ответить

      • ava wvxvw 31.07.2013 19:42 # 0 

        (defun shuffle (begin end)
  (interactive "r")
  (loop for line in (split-string (buffer-substring begin end) "\n")
        initially (delete-region begin end)
        do (insert
            (loop for i from (1- (length line)) downto 0
                  for rand = (random (1+ i))
                  unless (or
                          (member (aref line rand) '(?= ?\; ?\.))
                          (member (aref line i) '(?= ?\; ?\.)))
                  do (rotatef (aref line i) (aref line rand))
                  finally (return line)) "\n")))


        О, не, так лучше, пунктуация на месте останется.
        Ответить

    • ava vistefan 31.07.2013 21:31 # +2

      > "Архитектор" явно не был знаком с методом ЗаполнитьЗначенияСвойств()
      Это хорошо или плохо?
      Ответить

      • ava doom2good 01.08.2013 07:42 # −3

        Ты с 1с знаком?
        если нет, поясню - всю портянку можно заменить одной строкой:
        ЗаполнитьЗначенияСвойств(ЭтотОбъект, Выборка);
        ВСЁ!
        Ответить

        • ava vistefan 01.08.2013 10:36 # 0

          У вас ус отклеился. Вроде #5k, там уже за 7k перевалило, а вы всё гринколор по дефолту не воспринимаете.
          Ответить

        • ava guest 09.08.2013 12:40 # −1

          Из кода непонятно, это 7-я ветка 1С или 8-я...(хотя по наличию "Выборка." можно предположить, что это 8-ка). ЗаполнитьЗначенияСвойств есть только в 8х
          Ответить

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