Рядом сидит "программер", дали ему задание сделать отчет по старой БД: сделать 5 форм по данным с начала года. Все данные получаются 1-м запросом. Так мало того что он сделал 5 разных отчетов, так он накодил это:

Процедура ВыделитьФамилию(печСотрудник,Фамилия,ИО);
   Если Сред(печСотрудник,3,1)=" " Тогда
       Фамилия=Лев(печСотрудник,2);
       ИО=Сред(печСотрудник,4);
   ИначеЕсли Сред(печСотрудник,4,1)=" " Тогда
       Фамилия=Лев(печСотрудник,3);
       ИО=Сред(печСотрудник,5);
   ИначеЕсли Сред(печСотрудник,5,1)=" " Тогда
       Фамилия=Лев(печСотрудник,4);
       ИО=Сред(печСотрудник,6);
   ИначеЕсли Сред(печСотрудник,6,1)=" " Тогда
       Фамилия=Лев(печСотрудник,5);
       ИО=Сред(печСотрудник,7);
   ИначеЕсли Сред(печСотрудник,7,1)=" " Тогда
       Фамилия=Лев(печСотрудник,6);
       ИО=Сред(печСотрудник,8);
   ИначеЕсли Сред(печСотрудник,8,1)=" " Тогда
       Фамилия=Лев(печСотрудник,7);
       ИО=Сред(печСотрудник,9);
   ИначеЕсли Сред(печСотрудник,9,1)=" " Тогда
       Фамилия=Лев(печСотрудник,8);
       ИО=Сред(печСотрудник,10);
   ИначеЕсли Сред(печСотрудник,10,1)=" " Тогда
       Фамилия=Лев(печСотрудник,9);
       ИО=Сред(печСотрудник,11);
   ИначеЕсли Сред(печСотрудник,11,1)=" " Тогда
       Фамилия=Лев(печСотрудник,10);
       ИО=Сред(печСотрудник,12);
   ИначеЕсли Сред(печСотрудник,12,1)=" " Тогда
       Фамилия=Лев(печСотрудник,11);
       ИО=Сред(печСотрудник,13);
   ИначеЕсли Сред(печСотрудник,13,1)=" " Тогда
       Фамилия=Лев(печСотрудник,12);
       ИО=Сред(печСотрудник,14);
   ИначеЕсли Сред(печСотрудник,14,1)=" " Тогда
       Фамилия=Лев(печСотрудник,13);
       ИО=Сред(печСотрудник,15);
   ИначеЕсли Сред(печСотрудник,15,1)=" " Тогда
       Фамилия=Лев(печСотрудник,14);
       ИО=Сред(печСотрудник,16);
   ИначеЕсли Сред(печСотрудник,16,1)=" " Тогда
       Фамилия=Лев(печСотрудник,15);
       ИО=Сред(печСотрудник,17);
   ИначеЕсли Сред(печСотрудник,17,1)=" " Тогда
       Фамилия=Лев(печСотрудник,16);
       ИО=Сред(печСотрудник,18);
   ИначеЕсли Сред(печСотрудник,18,1)=" " Тогда
       Фамилия=Лев(печСотрудник,17);
       ИО=Сред(печСотрудник,19);
   ИначеЕсли Сред(печСотрудник,19,1)=" " Тогда
       Фамилия=Лев(печСотрудник,18);
       ИО=Сред(печСотрудник,20);
   ИначеЕсли Сред(печСотрудник,20,1)=" " Тогда
       Фамилия=Лев(печСотрудник,19);
       ИО=Сред(печСотрудник,21);
   ИначеЕсли Сред(печСотрудник,21,1)=" " Тогда
       Фамилия=Лев(печСотрудник,20);
       ИО=Сред(печСотрудник,22);
   КонецЕсли;
КонецПроцедуры

и *** его не увольняют нифига...

да, нет бы циклом сделать....

(1) о_О а команду "Найти" уже отменили?

(0) не завидуй

http://habrastorage.org/storage2/ab5/285/56e/ab528556e8e7f685795b6b7797d51ea3.jpg

(2) http://pics.livejournal.com/so_wenok/pic/00099479

20 символов на фамилию - ниочем, нормальный кодер минимум бы до 50 написал

(6) +1
скажи ему, чтобы дописал

(0) Работает? Задание выполнено?

(0) Спасибо, классный код, сейчас в типовую конфу эту процедуру вставлю.

(9) да в типовых такого добра и так завались.

(9) +1. Доделать только с учетом (6)

(0) Зачем тему завел?

(0) буээээ

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

А может он за строки кода получает?

(14) я ему уже высказал всё... он сказал "Работает? Иди нафих..."

(16) =))))))))) ну ведь работает же ?

сейчас идут работы по переходу на УПП... и он еще требует чтобы организация его обучила...

(17) думаешь не будет фамилии бульше 21 символа? Через дефис например...

(18) Таки он веско аргументировал свои требования

(16) ну и по скорости эта фигня наверняка побыстрее отработает, чем Найти. В Найти там наверняка цикл тормозной зашит.

у меня от предыдущего прога такого гамнокода до хрена. вот щас просят его отчет модифицировать. А он очень любит найти по коду элемент справочника и по нему процедуру влупить, потом найти по коду следующий и прыдыдущую процедуру скопировать и т.д. Проще переделать нах чем за ним гомнокодить.

(22) я на это уже внимания не обращаю...

(18) Радуйся, что в Вашей организации есть программеры тупее тебя. Прикинь - возьмете крутяка, который каждый день твой код на форуме выкладывать будет и изгаляться.

(24) посмеялся...

(19) ты не путай, задание по старой БД. Он там посмотрел длину всех фамилий. И вариант с длиной 20 подошел.

(26) Просмотрел, ессесно, вручную ))))))

(22)Соболезную, пиши вот таким кодом группировок
http://narod.ru/disk/62774664001.ac3abd5e6382e20d9dca3f886521826f/ПечатьПрайса.7z.html

Любой Гвно-Кодер должен будет осилить логику сего алгоритма или пойти в ОПУ на другую работу :)

(24)Ради бога, пускай, я не комплексую :)

(0) человек сделал свою работу
сделал хорошо
и
правильно

все работает
заказчики довольны


ты то что возмущаешся, мелкий мелочный завистник?

(30)Человек сделал работу, по принципу Франчайзи, т.е. шаг влево, шаг в право и нужно опять работать.
...
А принцип Фикси, сделать, на раз и на всегда :)
...
Есть разница?

а давайте пофантазируем что это совместное предприятие и там есть испанцы.. и у них фамилией считается не то что первое отсекается пробелом, а?

(31) т.е. это ценный работник для франча?

(32)Это не фантазия и тут планета Земля. Это всего лишь пример кода... так сказать, последняя капля терпения :)

кстати, (0) - а почему ТЕБЯ не уволили за то что ты не работу работаешь а на мисте постишь конфиденциальную информацию в рабочее время?

(33)Правильно!

(32) ну тут нужно как в 8-ке регистр сведений с отдельными реквизитами по Ф.И.О.

(35) я работаю слишком хорошо чтобы не иметь времени сидеть на мисте...

(35)В чем именно конфиденциальность, гвн-кода?

+(38) она у меня 2-м монитором и не отвлекает...

(39) вот сейчас он сболтнул про г.внокод
а завтра выложит на депозит ключи от клиентбанка...

(32)В украинской типовой ЗиКе одно поле отведено под ФИО. И пофих, испанцы у тебя там, татары... Так что какие учителя, такие и ученики.

(0) Пичалька! :)

Реально, какая разница - работает же! Или вам важнее то, как написано, а не работает или нет?

(44) а представляешь что нас ждет от его кода на 8-ке?

(44) ему важно подсидеть коллегу..

(45) нас? :)

(47) предприятие...

Судя по камментам тут каждый второй так пишет..

тут (12) задал действительно серьезный вопрос... отвечу честно - постебаться. Потому что ему пытаешься ему объяснять подсказываешь а он обижается. А так хоть в понедельник себе настроение поднял читая ваши комменты.

(32)
http://habrahabr.ru/post/146901/

(0) в тихую перепиши, вот чувак удивится :)

(51) спсб, ушло в закладки

(50)а хер ли ты с советами лезешь, когда не просят?)

и вообще чо удивляться, что в Энгельсе такие коды пишут, спасибо хоть кто-то там работает)

(55) а у вас даже жить нельзя, ни дня без коммунальных проишествий: то воды нет, то еще пздц какой...

Черезтризаборуногузадерищенский-Забеганский Сысой Акакиевич негодует

(55) а по существу, как говорил наш предыдущий финдир: "Нам не нужны специалисты которые таблички делают в Ворде"...
и это печалит т.к. он прав а таких спецов 2/3

И зачем тему завел? Пожаловался, себя похвалил, вот уж воистину делать нечего.

(59) тебе уже ответили в (50), что-то непонятно?

(56)а у вас дороги хорошие, и аварии каждый день лобовым столкновением)

(58)раз ты такой крутой спец, чего засел в деревне? покоряй давай нерезиновск)

(50) Этот человек работает на твоем предприятии, в твоем отделе => это ТВОЙ ковнокод.

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

(63)ты не понимаешь. нет спецов. вообще совсем) страдают предприятия. берут ВСЕХ

(61) не будем пререкаться... аварий везде хватает
(62) я здесь имею заработок посволяющий мне комфортно жить в деревне, посещая 2 раза в месяц загранку для отдыха и развлечений. не вижу смысла напрягать своим присутствием Нерезиновск и травмировать свою нежную психику
(63) я не начальник и быть им не стремлюсь поэтому это НЕ МОЙ ковнокод...

(66)в год может быть? а ему платят столько же сколько и тебе?

(67) упс... да, в год
ну конечно же нет

(68)тогда остается тебе просто ждать наступления справедливости. либо начальство заметит и его уволят, либо научится) а за терпение воздастся)

(68) упс... aвнопост написал, надо тему срочно новую создать :)

(0) код рабочий, а ты старый педант что-ле?

(70) про себя темы не создаю, я скромный...

(72) выложи свой код, мы поржем

(72) Необязательно говорить, что ты Д"Артаньян - достаточно сказать, что кругом все овнокодеры.
Автор, не обижайся пожалуйста. Ты выложил код повеселиться - мы и веселимся как умеем :)

Нащелся еще один д'артаньян в окружении пи-пи-расов...

короче стебутся уже над автором, чтд...

(0) Будь мужиком, блеать, подойди к нему и скажи, что он овнокодер и место его на помойке.
Чего тут ноешь, боишься в глаза сказать?

(21)
Врядли. Сред то тоже наверняка цикл

(0)
Зачем тебе надо, чтоб его уволили?
Он пиво плохо пьет?

(73) +500!

(73)(80) развлекайтесь...

Процедура ВыделитьФамилию(печСотрудник,Фамилия,ИО);
   Пробел = Найти(печСотрудник," ");
   Фамилия = Лев(печСотрудник,Пробел - 1);
   ИО = Сред(печСотрудник, Пробел + 1);
КонецПроцедуры

+(81) а вообще, оно не стоит отдельной процедуры...

(81) Фуууу!!!

(81)
Копрокод. Где СокрЛП?

(82) Процедуры, да...  А вот функция понадобится! :)

(79) нет не хочу, хочу чтобы перестал играть в танчики и занялся самообразованием...

+(84)
Илип хотя бы СкорЛ

(84) накуя?

(86)
Тебе то это зачем? Сын?

(81) А если будет такая фамилия "Гарма Цирен Доржиев"?

(81) вроде во всех типовых присутствует глФИО(), не?

А сколько получают вот за такую?

(88)
А подумать?

(89) чур тебя..

(93)Он крутой спец, ему не положено думать.

(81) вот это истинный онсамый код, который матофильтр не пускает :)
А если написано Иванов Иван Иваныч, плохо у тебя будет, смотри типовую глФИО()

(90) нет такой, я проверил )))))

(88) у сотра в ФИО может быть вначале н пробелов

(97) У тебя даже не хватило мозга, что под Ф.И.О. надо три отдельных строковых поля.

(100)

(90) никакой код не определит положение фамилии в ФИО, поэтому используется допущение, что фамилия первая

(81) Учиться Вам у своего коллеги и учиться.

(0) Ну, не умеет работать, так тебе-то что? А бы не гадил.

(101) ну да, ни одному овнокодеру не придет в голову, что надо завести три отдельных поля в справочнике сотрудников под Фамилию, Имя и Отчество.

Овнокодер будет кодить под фамилию сотрудника.

(99) тему не читай быстро отвечай? см выше...
(96) у нас не типовая... у нас... занавес... Комплексная 2.0
Ее переписывали все кому не лень... она вся один большой ковно код с моими вкраплениями алмазов... ;)

(0) Напиши книгу "Основы дермокодирования в 1С", и стань миллионером.

(105) Скромность украшает...

(107) алмазами :)

(105) какой ты специалист, если ты даже не знаешь, что во всех конфах 1С предусмотрены отдельные поля для Ф.И.О.?

(190) ты такой смешной

(109) чо правда?

(111) А чё, в комплексной не предусмотрены?

(109) ты похоже почище его... ты хоть знаешь что такое Комплексная 2.0 ?

(112) назови хоть одну типовую, где у сотров ФИО<>Наименование

(114) аудитория нашла следующую жертву?

(113) т.е. ты утверждаешь, что в комплексной 2.0 по сотрудникам нет полей Фамилия, Имя, Отчество?

(115) тут два дятла, похоже знакомые строки нашли в (0)

(117) ага, иначе трудно объяснить их агрессию к ТС

(114) извлеки фамилию из Дашинимбай Гарма Цирен Доржиев

(119) а ты мне за это заплатишь?

чукча похоже не читатель

На самом деле это все грустно... Вот лично у меня был случай... Пришел в контору, там бывший программер наплодил нечто подобное... (только это были элементы справочника материалов, причем себестоимость была заложена в коде программы) и каждый раз, когда приходил новый материал (по 10 счету) он нисколько не сомневаясь дописывал свой бессмертный опус... Но вот блин уволился... А я сначала в ступоре разглядывал сие творение, после требования бухов подправить программу, потому что пришел новый материал, потом долго валялся под столом... Но самое трудное было втолковать бухам, что начиная с сегодняшнего дня это справочник, где они сами должны писать ту цифирку, какую им надо...

Грустен не код, а последствия...

(120) именно потому ты и сам пишешь овнокод, но при этом втихаря стучишь на своего товарища

(123) чушь сморозил... извлеку достаточно легко... и где здесь стучишь? я просто см (50)... если человек не желает учиться то пусть хоть народ повеселит...

(91) Да, но автор, видимо, недалеко ушел от "программиста" рядом :)
Этих кривых лисапетов уже миллионы

(124) ты раскритиковал овнокод своего товарища, а сам написал тоже овнокод, но покороче.

(126) давай свой код на суд общественности...

(51) "Вася-брось-таблицу" порвало :)

(126) да харэ стебаться. Вы реально считаете, что на код в (0) можно смотреть молча?

(127) если ты умеешь читать, то выше я тебе сказал получить фамилию, имя и отчество из одноименных полей справочника Сотрудники или ФизЛица.

(129) на код ТС тоже без плача смотреть нельзя. Чел вообще не знает типовых конф от 1С.

(122) А, бухи еще поди "в кулуарах" перешептывались - мол де был Вася - делал нам все за несколько минут, а пришел новенький - смотри уже полдня сидит разбирается... Такого специалиста потеряли... :)

(130) ответь на (114)

(133) ответ читай в (119)

(132)под столом)))))))))

(134) в (119) не ответ, а уйня какая-то

(136) Если извилину напряжешь, то возможно поймешь

>> и *** его не увольняют нифига... <<
(0) Так ты на него настучал что ли?

(137) ты если лажанулся, тык признай это
"какой ты специалист, если ты даже не знаешь, что во всех конфах 1С предусмотрены отдельные поля для Ф.И.О.?"

"назови хоть одну типовую, где у сотров ФИО<>Наименование"

и в ответ тишина

(131) ты уже доказал свою некомпетентность... молчи...
или сначала ответь на вопросы (113)(114)

(129) Да может код и действительно смешной, но сопровождать его комментариями - вон рядом дегенерат а я то такой Д`Артарьян знаешь тоже поганенько.

(119) ну вот типовая выдала
Ф: Дашинимбай
И: Гарма
О: Цирен Доржиев

это правильно? :)

(0) Для кидания говн информации не достаточно. Может автор кода это падаван тс? И именно ТС должен быть его научить кодить?

(138) чур с тобой... мне он не мешает... я боюсь за его карьеру через пару месяцев...

(139) и что ты этим хотел сказать?
Что логично извлекать фамилию, имя, отчество из наименования, а не собрать их из соответствующих одноименных полей?

(139) Смотрю вот в комплексную 4.5 не вижу отдельных полей... Где они?

Специально потестил код в (81). Если нет пробелов - фамилия пустая, а ИО - весь текст.
(129) Коду в (0) есть оправдание как разовой работе, сделанной за 5 минут и на конкретной базе отработавшей правильно, а затем выброшенной.
Если что - я сам тот еще овнокодер. Но у меня тоже есть сотрудник, за 12 лет ни разу не открывший ЖКК и СП. Каждую буковку за ним аккуратно проверяю, при необходимости правлю, в случае серьезной ошибки разжевываю ему. И не грею голову.

(145) Там 2 крутых кодера, зачем поля? Извлекут что хочешь, по самое нимагу!

(143) его стаж не меньше моих 12-ти лет...
и да: мои знания умрут вместе со мной, чтобы мне в гробу не ворочаться когда меня будут вспоминать проги которые придут после меня. Пока правда даже не икается...

(132) Сначала да... ))) Было такое... До первой автоматизации. Цех вел все вручную и "записульки" носил в бухгалтерию. Бардак вечный. Пришлось накидать собственное сильно заточенное производство, установить комп в цехе... синхронизировали с бухгалтерией... после этого отношение поменялось... Ну еще.. по мелочам...

(146) тык это к (109), а не ко мне

(147) Здесь каждый имеет свой овнокод, каждый с него начинал... Но всему есть предел.

(146)
1. да ладно, хочешь сказать, что в типовых клюшках нет процедуры, извлекающей Ф.И.О и разбивающей её на составные части?
2. Хочешь сказать, что в типовых комплексных клюшках Ф.И.О. не разбито на составные части а хранится только в наименовании целиком?

(145) чукча писатель? Я хотел сказать, что (109) лажа и автор поста ламер

(153) Процедура есть. глФамилияИмяОтчествоНазывается.
А вот отдельных полей нема...
Такие они, клюшечные конфы.

(154) зря ты так сказал. Только себя опустил.

(122) Поддерживаю. На прежней работе - данные по материальной ответственности собирали по бух счету, одновременно занося циферки в таблицу групп, при этом где-то косячили и сумма по этим группам не сходилась с суммой по счету, немного, рублей на 100.
Выкинул этот код нафиг, закинул выборку в Индексированную таблицу, добавил нужные поля, свернул с группировкой, конечный, нормальный, результат выдал бухам. У тех началась истерика, "Как у товарища ХХХ сумма мат. ответственности поменялась?". Я им в ответ выдал распечатку бух счета по данному товарищу, где суммы сходились "копейка в копейку". А вот на вопрос бухов, как же мы ему теперь объясним, что сумма изменилась, у меня не было ответа.

(152) Есть люди, паталогически не способные к программированию. Изменить их невозможно. Выход:
1. Уволить
2. Уволиться самому
3. Забить

(155) значит, наверно, там фамилия, имя, отчество хранится в одном строковом поле, где составляющие разделены разделителями, а глФамилияИмяОтчество их извлекает.

(144) Как знать... как знать... может он глубоко захватывает у ИТ-Директора?
А тебя, после отсылки этой ветки на работу, возможно и попросят :)

(159) так значит или наверное? Будь точнее, а если не знаешь - не лезь...

(159) открой любую типовую и посмотри ФИО=Наименование. Смешно читать абсолютную некомпетентность, хотя теперь понятно почему ты на ТС наезжал

(161) ты не пытайся оправдаться, когда сам лажанулся и при этом еще и настучал на товарища.

На месте руководства, я бы уволил тебя, как человека, обладающего необоснованными амбициями и оставил товарища, на которого ты настучал, как старательного и исполнительного сотрудника.

(162) Вообщето ФИО=Наименование в типовых заполняется автоматом из большого поля Фамилия, Имя, Отчество. Так что ты тоже не особо прав

(163) бгг

(163) вряд ли ты бы оставил этого "исполнительного сотрудника", будь он у тебя в прямом подчинении...

(0) "И И Иванович" - вот такую строку криво обработает.
"Виноградов-Волжинский Иван Иванович" - тоже

(164) в какой конфе?

(162) Ты читать умеешь?
Открыл типовую БП 2.0. В справочнике ФизЛиц есть поля Фамилия, Имя, Отчество.
Хранятся они отдельно от Наименования РегистрыСведений.ФИОФизЛиц
Наименование можно указать произвольно.

Что сказать-то хотел?

(168) Ну у меня под рукой только ТиС есть, там ФИО, оно же Наименование заполняется из поля ПолнНаименование.

(170) тык к чему тогда (164)?

(169) то что ты снеговичок, это понятно было. Ветка по клюшкам, свою БП засунь себе а одно место

(171) К тому, ламерок, что в поле ПолнНаименование хранится Фамилия, Имя, Отчество с разделителями. А процедура глФамилияИмяОтчество извлекает их.

+(173) Хоть я клюшки давно не видел, но до сих пор помню

(174) ты клюшки вообще не видел

(0) А че мне нравиться, главное же результат=))

(173) никакой разницы ФИО=Наименование или ФИО=ПолнНаименование нет

(177) да ты что?
Идиоты из фирмы 1С, которые в разы глупее тебя, зачем тогда создали два поля Наименование и ПолнНаименование?

(1) Ну, что такого. Очень трудолюбивый человек. Мне было бы лень стока буковок писать.

(177) Ты пи..шь :)
Наимнование  = глФамилияИмяОтчество(ПолнНаименование);

Берется фамилия полностью, из имени и отчетсва первые буквы в верхнем регистре.

(173)извлеки фамилию Дашинимбай Гарма Цирен Доржиев

(0) Ну это нормально... я тут недавно переписывал отчет за таким спецом - так этого спеца к УПП допустили на годик, он там такого наваял - капец... шерсть дыбом, хвост трубой.

(181) кодом ТС и кодом товарища, на которого он настучал, это не извлечь.

Самое печальное, что часто некогда такие отчеты с нуля переписывать, и приходится дописывать гамнокод, чтобы работало. Я обычно так и пишу потом в коментах типа
//дописываю гамнокод за предыдущим, переделать нах когда нибудь когда время будет.
Типа отмазка перед потомками. )

удивлена количеством комментариев "работает - и так сойдет"..

(183) типовым кодом извлечь?

У меня в прежней организации девочка работала. Мы разными подсистемами одной конфигурации занимались(насколько в 7-ке это можно назвать подсистемами), но когда она уходила в отпуск, у меня от её кода добавлялись целые пучки седых волос.

(184) такая же фигня, а времени на рефакторинг нет, рук-во постоянно подкидывает задачи

(180) весь сыр-бор из-за тупого наезда на ТС в (99)(109) так что (180) не принципиально

(177)
Что ты мне чухаешь? Ф.И.О. в клюшечной бухгалтерии хранится с разделителями.

//******************************************************************************
//    глФамилияИмяОтчество(Объект,Фамилия,Имя,Отчество)
//
//    Параметры:
//        Объект     - элемент справочника Сотрудники или Строка
//        Фамилия     - в этот параметр будет записана фамилия сотрудника
//        Имя         - в этот параметр будет записано имя сотрудника
//        Отчество - в этот параметр будет записано отчество сотрудника
//
//    Возвращаемое значение:
//        фамилия и инициалы сотрудника
//
//    Описание:
//        разбирает "наименование" сотрудника по Фамилия, Имя, Отчество
//        и возвращает фамилию и инициалы сотрудника
//
Функция глФамилияИмяОтчество(Объект,Фамилия="",Имя="",Отчество="") Экспорт
   
   Если ТипЗначения(Объект)=2 Тогда
       Список = глРазложить(СтрЗаменить(Объект, ".",". "), " ");
   Иначе
       Список = глРазложить(СтрЗаменить(Объект.Наименование, ".", ". ")," ");        
   КонецЕсли;
   
   Фамилия  = ?(0 < Список.РазмерСписка(), Список.ПолучитьЗначение(1), "");
   Имя         = ?(1 < Список.РазмерСписка(), Список.ПолучитьЗначение(2), "");

   Если Список.РазмерСписка() > 2 Тогда
       // а вот отчество бывает и не из одного слова                
       Для Сч = 3 По Список.РазмерСписка() Цикл
           Отчество = Отчество + Список.ПолучитьЗначение(Сч) + " ";
       КонецЦикла;

       Если ПустоеЗНачение(Отчество) = 0 Тогда
           Отчество = Лев(Отчество,СтрДлина(Отчество)-1);
       КонецЕсли;
   КонецЕсли;

   Возврат Фамилия+?(ПустоеЗначение(Имя)=0," "+Лев(Имя,1)+"."+?(ПустоеЗначение(Отчество)=0,Лев(Отчество,1)+".",""),"")

КонецФункции    // глФамилияИмяОтчество

Функция глРазложить(Знач Стр, Разделитель = ",") Экспорт
   
   Список = СоздатьОбъект("СписокЗначений");
   Длина  = СтрДлина(Разделитель);
   
   Стр = СокрЛП(Стр);
   Поз = Найти(Стр, Разделитель);
   
   Пока 0 < Поз Цикл
       Список.ДобавитьЗначение(СокрП(Лев(Стр, Поз-1)));
       
       Стр = СокрЛ(Сред(Стр, Поз+Длина));
       Поз = Найти(Стр, Разделитель);
   КонецЦикла;

   Список.ДобавитьЗначение(Стр);
   
   Возврат Список;
   
КонецФункции // глРазложить()

(181) У меня как-то был сотрудник то ли кореец, то ли помесь корейца с киргизом. ФИО из 5 слов 1 через черточку. :)

(190) как пользук забил так и хранится, что-то непонятно? Ты мне ещё весь глобальник выложи, а то я его не видел

+(191) Не помню, чтоб у меня были с ним проблемы, когда пришлось писать выгрузку в банк.

(192) короче, ТС тоже однозначно овнокодер и не знает конфигурацию, с которой работает.

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

(192) не оправдывайся, это твоя задача следить за тем, чтобы пользователи правильно заносили информацию.

А не писать овнокод в зависимости от того, как пользователи забили инфу.

(194) слив не засчитан

Йюхйюх свой код приведи, чтобы извлечь фамилию из Дашинимбай Гарма Цирен Доржиев, когда это ФИО записано в одно поле.

(194) Хе-хе... Пацан к успеху шел... А вы так его слили...

(194) ты юный подаван. тебе ещё учиться и учиться.

(196) итак ещё раз: перечитай свои посты (99)(109) признай, что был неправ и вали с клюшечной ветки

че ТС уже лохонулся?

ветка-детектор прям

(0) работает? какие претензии ;)

(204) букв много

(198) Нету такого кода, ибо не соблюдены региональные стандарты, а вот чтобы их соблюсти должны инструкции быть.

(206) это у тебя нет, а у него, наверное, есть.
Он же заявляет тут.

(204) криво написано, что будет если фамилия длиннее 20 символов? что будет если в начале ПечСотрудник будут 3 пробела?

+(208) куча затраченного времени на написание кода, время которое оплачивает работодатель, за такой код увольнять надо

(198) признаю, что в БП 7.7 не разложить.

Но что мешало ТС написать так:
   Фамилия = "";
   Имя = "";
   Отчество = "";
   
   глФамилияИмяОтчество(Объект,Фамилия,Имя,Отчество);

Вместо того, чтобы стучать на товарища и выдавать себя за Д'артаньяна?

(205) смотри (210)

(210) фамилия ТС-ом озвучена не была, руководству, как я понял ,он ничего не сообщил, так что стук вам померещился

(212) > и *** его не увольняют нифига...

Это говорит о том, что он уже реально на него стучал.

(213) не говорит, это ваши домыслы

(204)Это тоже работает:

Пока Истина Цикл
   Если Час(ТекущаяДата()) = 12 Тогда
       Сообщить("Пора на обед");
       Прервать;
   КонецЕсли;
КонецЦикла;

(214) Исходя из того, что руководство никогда не вникает в код программиста и не видит, что написано внутри, то фраза "и *** его не увольняют нифига... " очень четко говорит о том, что ТС уже пытался донести до руководства свои мысли.

+(216) При том, что сам является прогом-полуфабрикатом.

(216) домыслы

(218) не скажи

Задумался, кстати, как можно такого уволить... Руководство не оценивает код, его может оценить только специалист. Доказать что такого человека нужно уволить можно только методом экспертных оценок. Обосновать можно тем, что такой код трудно модифицируем и в дальнейшем убыточен для работодателя.

(213) это чистые домыслы, знали бы ты сколько задач он загубил на корню... например слабо данные собирать в табличную часть документа а итоговые данные кидать в текстовый файл и все это сохранять?.. как вам?

А теперь представим, что напарник ТС быдлокодит так уже не первый год, а оно, зараза, работает себе и работает. И что теперь - увольнять человека только за оскорбление религиозно-эстетических чувств ТС?

(221) чем ты отличаешься от него?
И ты и он оба не знаете, что есть функция глФамилияИмяОтчество(Объект,Фамилия,Имя,Отчество).

(221) А чем ты отличаешься от него?
И ты и он оба не знаете, что есть функция глФамилияИмяОтчество(Объект,Фамилия,Имя,Отчество).

Скользящий его ники Configurator и Configurator_ в танчиках... это у него получается больше всего...

(225) А вот после этого ветку можно закрывать

(225) Хорошая стата. В тысяче лучших по победам. )

Попробую догадаться, на работе шпилит. )

+(224) Хочется посоветовать ТС, что предже чем стучать на товарища и выдавать себя за Д'Артаньяна, стоит критически посмотреть на свои знания и возможности и помочь товарищу и поделиться с ним опытом, а не подсиживать его, при том, что ты сам полноценный полуфабрикат, не сильно выгодно отличающийся от него.

(229) вангую, ТС вас пошлет

(230) И ванговать не надо - на форуме танчиков такие же даратаньяны донесли напарнику ТС, что его здеь лажают и у них идет махач

(231) о, много наших полегло? :)

(231) видео есть?

(232) А кто именно из них "наш"?
:)

Функция глФИО(Сотрудник, ВидФИО=0) Экспорт
     
     Перем ПолноеИмя, Фамилия, ИмяОтчество, Имя, Отчество;
     Перем ПозицияПервогоПробела, ПозицияВторогоПробела;
     ПолноеИмя = СокрЛП(Сотрудник);
     Если ПустоеЗначение(ПолноеИмя)=0 Тогда
           
           ПозицияПервогоПробела = Найти(ПолноеИмя, " ");
           Если ПозицияПервогоПробела = 0 Тогда
                 Возврат ПолноеИмя;
           Иначе
                 Фамилия = Лев(ПолноеИмя, ПозицияПервогоПробела);
                 ИмяОтчество = Сред(ПолноеИмя, ПозицияПервогоПробела+1);
                 ИмяОтчество = СокрЛ(ИмяОтчество);
                 Имя = Лев(ИмяОтчество, 1)+".";
     
                 ПозицияВторогоПробела = Найти(ИмяОтчество, " ");
                 Если ПозицияВторогоПробела = 0 Тогда
                       Если ВидФИО=0 Тогда
                             Возврат Фамилия+Имя;
                       Иначе
                             Возврат Имя+" "+Фамилия;
                       КонецЕсли;
                 Иначе
                       Отчество = Сред(ИмяОтчество, ПозицияВторогоПробела+1);
                       Отчество = СокрЛ(Отчество);
                       Отчество = Лев(Отчество, 1)+".";
                       Если ВидФИО=0 Тогда
                             Возврат Фамилия+Имя+Отчество;
                       Иначе
                             Возврат Имя+Отчество+" "+Фамилия ;
                       КонецЕсли;
                 КонецЕсли;
           КонецЕсли;  
     Иначе
           Возврат "";
     КонецЕсли;
КонецФункции

(229) если не читать через коммент то увидишь что попытки были...

(235) что это?

(236) расслабься, ты тоже далеко не @Гений1С :)

(237) gthtltkfyysq ,.l;tn &

*переделанный бюджет

(236) "...копирование произведения или его части без разрешения автора..." нарушаем?

(240) я уж хотел написать: сам дурак :)

(241) к (235)

Йюхйюх иди на Йюхйюх, ты нуб и опозорился...

(244) +1

Йюхйюх просто пытается неумело троллить, но поскольку сам днище, у него это получается преотвратно. )

(244)(245) танкисты, идите на хутор бабочек ловить

(247) децкий сад

+(247) весь мозг в танчиках просидели, а на работе сиками меряетесь и стучите друг на друга при нулевых знаниях.

(0) какая гнилая тема.. Надо бы ее ухнуть, автора жалко, не понимает, что садомазохизЬма и эксгибиционизЬма не так хороши как кажутся кому-то

Как всегда, темы о том как лучше сделать простейший как три копейки фрагментик собирают толпы желающих поучаствовать))

(251) Пора заводить тему об удалении строк из таблицы ;-)
На колу висит мочало, начинаем всё с начала.

Очень правильная мысль в статье: Так вот, я не видел ни одной компьютерной системы, которая бы правильно обрабатывала имена, и я сомневаюсь, что такая система вообще существует хоть где-нибудь. http://habrahabr.ru/post/146901/
Делить ФИО на Ф И О вообще не нужно. Нужно всё писать в одну строку. Жаль что такая простая мысль ещё долго будет пробивать себе дорогу в стандарты.