1С:предприятие 7.7 НЕКОРРЕКТНОЕ ОТОБРАЖЕНИЕ ОТВЕТСТВЕННОГО ЛИЦА

Подведём итог.<br>Если устраивает вариант в подписи ИП Иванов С. Г., то заводить между словами "ИП" и "Иванов" надо не пробел, а символ с кодом 255.<br>

"Да! И в сотрудниках писать полностью "ИП255Иванов Иван Иванович"! Из полного ФИО программа делает инициалы, по моему, в этой функции:<br><br>Функция ФИО(Сотрудник) Экспорт<br> Перем ПолноеИмя, Фамилия, ИмяОтчество, Имя, Отчество;<br> Перем ПозицияПервогоПробела, ПозицияВторогоПробела;<br><br> ПолноеИмя = Сотрудник.Наименование;<br><br> ПозицияПервогоПробела = Найти(ПолноеИмя, " ");<br> Если ПозицияПервогоПробела = 0 Тогда<br> Возврат ПолноеИмя;<br> Иначе<br> Фамилия = Лев(ПолноеИмя, ПозицияПервогоПробела);<br> ИмяОтчество = Сред(ПолноеИмя, ПозицияПервогоПробела+1);<br> ИмяОтчество = СокрЛ(ИмяОтчество);<br> Имя = Лев(ИмяОтчество, 1)+".";<br><br> ПозицияВторогоПробела = Найти(ИмяОтчество, " ");<br> Если ПозицияВторогоПробела = 0 Тогда<br> Возврат Фамилия+Имя;<br> Иначе<br> Отчество = Сред(ИмяОтчество, ПозицияВторогоПробела+1);<br> Отчество = СокрЛ(Отчество);<br> Отчество = Лев(Отчество, 1)+".";<br> Возврат Фамилия+Имя+Отчество;<br> КонецЕсли;<br> КонецЕсли;<br>КонецФункции"

"Читал долго, много смеялся. В общем решил все-таки помочь человеку. вот значит то, что нужно изменить:<br><br>Заходим в Конфигуратор, открываем Глобальный модуль, найти и изменить следующие функции на то, что я предлагаю:<br><br>__Первая функция:<br><br>Функция глФамилияИмяОтчество(Объект,Фамилия="""",Имя="""",Отчество="""") Экспорт<br> <br> Если ТипЗначения(Объект)=2 Тогда<br> Список = глРазложить(СтрЗаменить(Объект, ".",". "), " ");<br> Иначе <br> Список = глРазложить(СтрЗаменить(Объект.Наименование, ".", ". ")," "); <br> КонецЕсли;<br> <br> Фамилия = ?(0 < Список.РазмерСписка(), Список.ПолучитьЗначение(1), """");<br> Имя = ?(1 < Список.РазмерСписка(), Список.ПолучитьЗначение(2), """");<br><br> Если Список.РазмерСписка() > 2 Тогда<br> //Начало Изменено Безденежных Д.Е.<br> //вот тут нам нужно учесть дополнения к отчеству, например что нибудь типа "оглы". поэтому меняем процедуру на это вот<br> //// а вот отчество бывает и не из одного слова <br> //Для Сч = 3 По Список.РазмерСписка() Цикл<br> // Отчество = Отчество + Список.ПолучитьЗначение(Сч) + " ";<br> //КонецЦикла;<br> Если Список.РазмерСписка() > 3 Тогда<br> Отчество = Список.РазмерСписка(3);<br> Для Сч = 4 По Список.РазмерСписка() Цикл<br> ДопОтчество = ДопОтчество + Список.ПолучитьЗначение(Сч) + " ";<br> КонецЦикла;<br> ИначеЕсли Список.РазмерСписка() = 3 Тогда<br> Отчество = Список.РазмерСписка(3);<br> КонецЕсли;<br> //Конец Изменено Безденежных Д.Е.<br> <br> Если ПустоеЗНачение(Отчество) = 0 Тогда<br> Отчество = Лев(Отчество,СтрДлина(Отчество)-1);<br> КонецЕсли;<br> КонецЕсли;<br><br> //Начало Изменено Безденежных Д.Е.<br> //учитываем ДопОтчество<br> //Возврат Фамилия+?(ПустоеЗначение(Имя)=0," "+Лев(Имя,1)+"."+?(ПустоеЗначение(Отчество)=0,Лев(Отчество,1)+".",""""),"""")<br> Возврат Фамилия+?(ПустоеЗначение(Имя)=0," "+Лев(Имя,1)+"."+?(ПустоеЗначение(Отчество)=0,Лев(Отчество,1)+".","""") + ?(ПустоеЗначение(ДопОтчество) = 0, " " + ДопОтчество, """"),"""")<br> //Конец Изменено Безденежных Д.Е.<br><br>КонецФункции // глФамилияИмяОтчество<br><br>__Вторая функция:<br><br>Функция ФИО(Сотрудник) Экспорт<br> Перем ПолноеИмя, Фамилия, ИмяОтчество, Имя, Отчество;<br> Перем ПозицияПервогоПробела, ПозицияВторогоПробела;<br><br> ПолноеИмя = Сотрудник.Наименование;<br><br> ПозицияПервогоПробела = Найти(ПолноеИмя, " ");<br> Если ПозицияПервогоПробела = 0 Тогда<br> Возврат ПолноеИмя;<br> Иначе<br> Фамилия = Лев(ПолноеИмя, ПозицияПервогоПробела);<br> ИмяОтчество = Сред(ПолноеИмя, ПозицияПервогоПробела+1);<br> ИмяОтчество = СокрЛ(ИмяОтчество);<br> Имя = Лев(ИмяОтчество, 1)+".";<br><br> ПозицияВторогоПробела = Найти(ИмяОтчество, " ");<br> Если ПозицияВторогоПробела = 0 Тогда<br> Возврат Фамилия+Имя;<br> Иначе<br> Отчество = Сред(ИмяОтчество, ПозицияВторогоПробела+1);<br> Отчество = СокрЛ(Отчество);<br> //Начало Изменено Безденежных Д.Е.<br> //вот тут сделаем красивость, учтем дополнительно отчество, например "оглы"<br> //Отчество = Лев(Отчество, 1)+".";<br> //Возврат Фамилия+Имя+Отчество;<br> ДопОтчество = """";<br> Список = глРазложить(СтрЗаменить(Отчество, ".",". "), " ");<br> Если Список.РазмерСписка() > 1 Тогда<br> Отчество = Лев(Список.ПолучитьЗначение(1), 1)+".";<br> Для Сч = 2 По Список.РазмерСписка() Цикл<br> ДопОтчество = ДопОтчество + Список.ПолучитьЗначение(Сч) + " ";<br> КонецЦикла;<br> Иначе<br> Отчество = Лев(Отчество, 1)+".";<br> КонецЕсли;<br> Возврат Фамилия+Имя+Отчество + ?(ПустоеЗначение(ДопОтчество) = 0, " " + ДопОтчество, """");<br> //Конец Изменено Безденежных Д.Е.<br> КонецЕсли;<br> КонецЕсли;<br>КонецФункции<br><br><br>у меня работает... Оптишитесь плиз, буду ждать..."

Надо так: Иванов255С.Г.255ИП<br>тогда на печати будет Иванов С.Г. ИП

Хотя это наверное способ уйти от типовой платформы о_О ну да ладно, работает ведь

"Вот она - ИСТИНА! Katerinkaj! Пузырь Вьюн!!! И нам по стопочке! "

А Вьюн нашел путь проще!

Да вижу уже пока писал, опередили меня тут)) хотя все равно ведь вариант, не так ли? ))

"Я не п-пь-ю-ю...." (с) х/ф "Кавказская пленница"<br>Замечу, кто про код 255 первым сказал?<br>

А за здоровье дамы? А в тяпницу? А для "сугреву" перед грядущими морозами?