Рядом сидит "программер", дали ему задание сделать отчет по старой БД: сделать 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);
   КонецЕсли;
КонецПроцедуры

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

(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/
Делить ФИО на Ф И О вообще не нужно. Нужно всё писать в одну строку. Жаль что такая простая мысль ещё долго будет пробивать себе дорогу в стандарты.