Печать номера

Форум Учет и отчетность Складской учет и логистика (WMS)

1С:Управление торговлей 10 Платформа 1С v8.3

1. chimzar 24.02.15 10:46 Сейчас в теме

Помогите написать обработку печати номера
Например номер 000001-15, а на печать выводилось 1-15.

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

7. deniseek77 86 24.02.15 12:19 Сейчас в теме

(1) chimzar, Посмотрите как у вас выводится номер счета фактуры, все уже есть в программе.

2. Cooler 22 24.02.15 11:09 Сейчас в теме

ПечНомер=НомерДок;
Пока Лев(ПечНомер,1)="0" Цикл
   ПечНомер=Сред(ПечНомер,2);
КонецЦикла;

P.S. Ну почему никогда не встречаются ветки: "Помогите потратить зарплату"?

3. izidavld 111 24.02.15 11:11 Сейчас в теме

СтрЗаменить(Номер,"0","") ???

4. Cooler 22 24.02.15 11:14 Сейчас в теме

Эх, молодежь... (3) izidavld, а если номер будет "000001-10", "000001-105" или "000001-1005"?

5. izidavld 111 24.02.15 11:19 Сейчас в теме

(4) Нда, я уже нажав "Ответить" сам об этом подумал, да поздно было. )))) Но цикл то же не вариант. Я тогда бы лучше разбил по "-" и далее "Формат" с убиранием лидирующих нулей.

6. Cooler 22 24.02.15 11:27 Сейчас в теме

(5) izidavld,

Я тогда бы лучше разбил по "-"

Ну да, сегодня "-", а завтра перейдут на "/", вместо которого однажды кто-то по невнимательности влепит "\". И начинай по новой.

Если уж такая аллергия на цикл, то можно и без него, но будет так же красиво, как пяткой ухо чесать:

ПечНомер=СтрЗаменить(СокрЛ(СтрЗаменить(НомерДок,"0"," "))," ","0");

8. akink 1 24.02.15 13:11 Сейчас в теме

В УТ-10 функция ПолучитьНомерНаПечать() (функция удаляет префиксы и лидирующие нули)

если хочешь сам то, тебе нужно удалить лидирующие нули. это если у тебя не будет префиксов в номере
Пока Лев(Номер, 1)="0" Цикл
Номер = Сред(Номер, 2);
КонецЦикла;

Оставьте свое сообщение

E-mail: