При выводе на печать в строке не должны появляться первые 3 символа.
Решение нашел такое
СтрЗаменить(Номер, Лев (Номер,3), "" )
Так правильно ?

Сред(Номер,3)

что не устраивает? и так нормально. вариантов то много, а суть одна

жесть...

Сред(Номер, 3, )

(2) гыгы

абвабвприветдятлам

(1) перечитал вопрос то?)

(4) ась?

(2) его вариант неправильный.

представим Номер = "123123123"

(0) вот тебе строка, поиграйся: "123123"

(4)(7) дада, каюсь, понедельник день суровый)

>что не устраивает?

патамучта кривой в ж.пу... на строке "ооовываываоооыаыва" будет очень мило работать...

(9) мне ещё покайся ;)

Сред("Номер", 4) :)

Кажется что автор пытается префикс документа удалить? А почему нельзя воспользоваться типовой процедурой? Или самописка?

(12) ну да, ну да...

щас всё друг перед другом покаемся :)

если префикс, то его вариант прокатит.

(12) а не, кавычки лишние.

все неправы :)

Сред(Сред(Сред(Номер, 2), 2), 2);

(13) Да удаляю префикс документа. О стандартной даже не подумал, но она не идет т.к. самописка

Прав(Номер,СтрДлина(Номер)-3);

(17) это какой-то Песец

(18) Зато из типовой можно код вытянуть и к себе вставить.

(18) Продам клавиши "Ctrl", "С" и "V", недорого.

запросом нужно, через выразить :)

(21) Лучше не надо. Там тупой перебор и "найти"

// Процедура предназначена для преобразования номера документа.
//
// Параметры:
//  Документ - (ДокументСсылка), документ, чей номер надо получить для печати.
//
// Возвращаемое значение.
//  Строка - номер документа для печати
//
Функция ПолучитьНомерНаПечать(Документ, МассивПрефиксов = Неопределено) Экспорт

   Если Документ = Неопределено Тогда
       Возврат 0;
   КонецЕсли;

   Номер   = СокрЛП(Документ.Номер);
   
   // {ОбменДаннымиБСП
   // Если номер документа по стандарту БСП 8.2, сформируем номер через стандартную процедуру БСП.
   Если ПолучитьФункциональнуюОпцию("ИспользоватьОбменДанными") = Истина Тогда
       
       Если Сред(Номер, 5, 1) = "-" Тогда
           Номер = ПрефиксацияОбъектовКлиентСервер.ПолучитьНомерНаПечать(Номер,
           Ложь, // УдалитьПрефиксИнформационнойБазы
           Истина // УдалитьПользовательскийПрефикс
           );
           Возврат Номер;
       КонецЕсли;
       
   КонецЕсли;
   // }ОбменДаннымиБСП
   
   Префикс = "";
   Если МассивПрефиксов = Неопределено Тогда
       
       Организация              = Неопределено;
       ПодразделениеОрганизации = Неопределено;
       
       Если ТипЗнч(Документ) = Тип("ВыборкаИзРезультатаЗапроса")
           ИЛИ ТипЗнч(Документ) = Тип("Структура") Тогда

           Организация = Документ.Организация;
           
       Иначе

           МетаданныеДокумента = Документ.Метаданные();

           Если ЕстьРеквизитДокумента("Организация", МетаданныеДокумента) Тогда

               Организация = Документ.Организация;

           КонецЕсли;
           
       КонецЕсли;
       
       МассивПрефиксовДляОбхода = СформироватьМассивПрефиксовДляРИБИОрганизации(Организация);
       
   Иначе
       
       МассивПрефиксовДляОбхода = МассивПрефиксов;
       
   КонецЕсли;
   
   Для Каждого ТекущийПрефикс ИЗ МассивПрефиксовДляОбхода Цикл
       
       // удаление префикса из номера документа
       Если Найти(Номер, ТекущийПрефикс)=1 Тогда
           Номер = Сред(Номер, СтрДлина(ТекущийПрефикс)+1);
       КонецЕсли;
       
       // так же, может остаться "минус" впереди
       Если Лев(Номер, 1) = "-" Тогда
           Номер = Сред(Номер, 2);
       КонецЕсли;
       
       // удаление ведущих нулей
       Пока Лев(Номер, 1)="0" Цикл
           Номер = Сред(Номер, 2);
       КонецЦикла;
   КонецЦикла;

   Возврат Номер;

КонецФункции // ПолучитьНомерНаПечать()

(21) для любителей приколов код из типовой

       
// удаление префикса из номера документа
Если Найти(Номер, ТекущийПрефикс)=1 Тогда
  Номер = Сред(Номер, СтрДлина(ТекущийПрефикс)+1);
КонецЕсли;

(26) мега код... без него - никак...

(26) А в чем прикол?

(28) зачем функция Найти здесь? Чего ищем?

(29) префикс, вестимо. а вдруг его нет?

(30) Проверяется, есть ли в начале номера искомый префикс. Если есть, удаляет с учетом того, что длина префикса м.б. разная.

(31) и?

(32) ... в чем прикол? Надо удалять префикс, не проверив его наличие?

(30) ну а просто проверить первую позицию нельзя? Типа

Если ЛЕВ(Номер, СтрДлина(ТекущийПрефикс)) = ТекущийПрефикс Тогда

(33) я чо, против что-ли? я ж так и написал в (30).

зануды

(36) ага :)
(34) ну и в чём разница? алгоритмически это то же самое. можно, конечно, было бы поспорить за быстродействие, если бы это был не номер, а какая-нибудь реально длинная строка

(36) педанты
А страна Педантов между прочим не плохо живет так что присоеденяйся и друзей подтягивай

(34) Так не проще: Найти+СтрДлина вместо Найти.

Ну в типовых ещё не такие приколы есть, но когда надо быстро что-то получить почему бы не использовать код из типовой, особенно адаптировав его под себя.

39+ Ну и читабельность. И заведомо известно, что номер не должен быть длинным.

(31) "Проверяется, есть ли в начале номера искомый префикс"

Проверяется, есть ли В ЛЮБОМ месте номера искомый префикс.

Читабельность - она разная. Для меня (к примеру), когда ищут по всей строке, а потом меняют вначале (а не там где нашли) - читабельность ухудшается. Я замечаю эти моменты и теряю секунды. Код должен быть точным. Имхо :P

(42) Прогнал, не в любом, сверяют с 1.
Что косвенно доказывает, что для меня это код хуже читаем ;))

(43) Хмм...

Если Найти(Номер, ТекущийПрефикс)=1  Тогда
<=>
если нашли в номере текущий префикс в 1 позиции, тогда

Если ЛЕВ(Номер, СтрДлина(ТекущийПрефикс)) = ТекущийПрефикс Тогда
<=>
Если слева в номере количество символов, равное длине текущего префикса равно текущему префиксу, тогда