8.х Краткая дата и краткий номер документа

1) используй формат(твоядата,"ДФ=dd.MM.yyyy")
2)используй Число(ТвойНомер)

По поводу даты все просто - Формат (Дата,"ДФ=dd.MM.yyyy").
а по поводу номера, либо сами напишите процедурку, которая убирает лидирующие нули или в типовых конфах есть функция которая это делает, сейчас поищу

а вы так удачно описались или номер еще и преобразовать надо помимо того, что отрезать лидирующие нули? Про них кстати много на форуме велось разговоров

очепятка

может, но я на всякий спросила

2ТС посотрите _/topic52183.html/page__p__285881__hl__+лидирующие%20+нули__fromsearch__1#entry285881

ну пятнЫца скоро

Вот нашел в УПП по кране мере есть в общем модуле функция

ПолучитьНомерНаПечать(Ссылка на документ)

Код:

Функция ПолучитьНомерНаПечать(Документ, МассивПрефиксов = Неопределено) Экспорт
Если Документ = Неопределено Тогда
Возврат 0;
КонецЕсли;
Номер   = СокрЛП(Документ.Номер);
Префикс = "";
Если МассивПрефиксов = Неопределено Тогда

Организация = Неопределено;

Если ТипЗнч(Документ) = Тип("ВыборкаИзРезультатаЗапроса")
ИЛИ ТипЗнч(Документ) = Тип("Структура") Тогда
Организация = Документ.Организация;

Иначе
МетаданныеДокумента = Документ.Метаданные();
Если МетаданныеДокумента.Реквизиты.Найти("Организация") <> Неопределено Тогда
Организация = Документ.Организация;
КонецЕсли;
КонецЕсли;

МассивПрефиксовДляОбхода = СформироватьМассивПрефиксовДляРИБИОрганизации(Организация)

Иначе

МассивПрефиксовДляОбхода = МассивПрефиксов;

КонецЕсли;

Для Каждого ТекущийПрефикс ИЗ МассивПрефиксовДляОбхода Цикл

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

// так же, может остаться "минус" впереди
Если Лев(Номер, 1) = "-" Тогда
Номер = Сред(Номер, 2);
КонецЕсли;

// удаление ведущих нулей
Пока Лев(Номер, 1)="0" Цикл
Номер = Сред(Номер, 2);
КонецЦикла;
КонецЦикла;
Возврат Номер;
КонецФункции // ПолучитьНомерНаПечать()

НУ это если у Вас префикса нет . А если перфиксы есть, тогда не прохляет.

тогда циклом с обрезкой по одному левому символу (пока не прокатит ))))

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

НомерОбрезки="ло0000001";
НайденоЧисло=0;
Пока СтрДлина(НомерОбрезки)>0 Цикл
Попытка
НайденоЧисло=Число(НомерОбрезки);
Прервать;
Исключение
КонецПопытки;
НомерОбрезки=Сред(НомерОбрезки,2);
Конеццикла;

более компактно))

А если у Вас в базе две и более организации с разными по длине префиксами

а разница ?

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

А если в префиксе есть циферка ?
Напрмер А1А000100. приведенный код выдаст 1000100...

У вас строчка
НомерОбрезки=Сред(НомерОбрезки,2);

Обрезает два символа, как я сказал что если в базе есть три фирмы с разнывми префиксами по длине
Вот четыре номера
А000000001
А100000001
АВ00000001
ААА0000001

НомерОбрезки=Сред(НомерОбрезки,2);
для второго и четвертого даст неверный номер. Вам надо сделать так
НомерОбрезки=Сред(НомерОбрезки,стрДлина(Организация.Префикс));

Доброго всем,
можно честно отпарсить строку, например :

Код:

Функция ОбрезкаСимволовВНомере(СтрокаНомера)
ЧислаВСтроке = "0123456789";

ПозицияКурсора = СтрДлина(СтрокаНомера);
// Парсим строку на предмет символов
Пока Найти(ЧислаВСтроке, Сред(СтрокаНомера,ПозицияКурсора,1)) > 0 И ПозицияКурсора > 0 Цикл
ПозицияКурсора = ПозицияКурсора - 1;
КонецЦикла;

Попытка
ИскомоеЧисло = Число(Сред(СтрокаНомера,ПозицияКурсора));
Исключение
ИскомоеЧисло = Неопределено;
Сообщить("Не удалось преобразовать !", СтатусСообщения.Важное);
КонецПопытки;

Возврат ИскомоеЧисло;
КонецФункции

IMHO
+ Нет необходимости в цикле повторять "попытку"