Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / 1С [игнор отключен] [закрыт для гостей] / Добавить к коду число / 6 сообщений из 6, страница 1 из 1
11.02.2010, 12:37
    #36462864
LogvinovSerj
LogvinovSerj
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавить к коду число
День добрый! Подскажите пож-та, как можно программным способом добавить к реквизиту код любого справочника чило? То есть в итоге получится новое число с незначащими нулями вначале.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.02.2010, 12:44
    #36462892
Хитроглазый
Хитроглазый
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавить к коду число
LogvinovSerj,
телепатирую, код - строка?
перевести в число, добавить число, перевести в строку, добавить нули/формат()
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.02.2010, 12:48
    #36462903
leaf
leaf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавить к коду число
в каком смысле?

Код: plaintext
Прав("00000000"+(Число(Код)+ 1 ), 8 )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.02.2010, 13:09
    #36462968
LogvinovSerj
LogvinovSerj
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавить к коду число
В общем да! Сделал тупо:

Функция ДогбавитьККоду(СтрокаКод, Число);
ДлинаСтроки = СтрДлина(СтрокаКод);
Если ДлинаСтроки > 0 Тогда
ЧислоКод = Число(СтрокаКод) + Число;
СтрокаНовыйКод = СтрЗаменить(Строка(ЧислоКод), Символы.НПП, "");
Стр = "";
Для Номер = 1 По ДлинаСтроки - СтрДлина(СтрокаНовыйКод) Цикл
Стр = Стр + "0";
КонецЦикла;
СтрокаКод = Стр + СтрокаНовыйКод;
КонецЕсли;
Возврат СтрокаКод;
КонецФункции // ДогбавитьККоду()

Долго не мог понять почему СтрЗаменить(Строка(ЧислоКод), " ", "") не убирает посередине пробел, пока не выяснил, что нужно так СтрЗаменить(Строка(ЧислоКод), Символы.НПП, "");
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.02.2010, 13:30
    #36463077
Шурыгин Иван Сергеевич
Шурыгин Иван Сергеевич
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавить к коду число
LogvinovSerjВ общем да! Сделал тупо:

Долго не мог понять почему СтрЗаменить(Строка(ЧислоКод), " ", "") не убирает посередине пробел, пока не выяснил, что нужно так СтрЗаменить(Строка(ЧислоКод), Символы.НПП, "");

Насчет строки
Код: plaintext
СтрЗаменить(Строка(ЧислоКод), Символы.НПП, "")
Согласен! покурите функцию
Формат() в синтакс помощнике, и попробуйте использовать такую конструкцию
Код: plaintext
СтрокаРезультат = Формат(ЧислоКод, "ЧГ=");

будет и значительно красивей и будет заранее преобразовать точно к необходимому результату!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.02.2010, 13:47
    #36463149
leaf
leaf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавить к коду число
Код: plaintext
Формат(Число(Код)+ 1 , "ЧЦ="+СтрДлина(Код)+"; ЧВН");

это круто когда функции и циклы используешь ?
второй вариант
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / 1С [игнор отключен] [закрыт для гостей] / Добавить к коду число / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 511ms
Закрыть
start [/forum/topic.php?fid=28&tablet=1&tid=1522723]:
 0ms
get settings:
 10ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 165ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 46ms
get tp. blocked users:
 2ms
others: 249ms
total:  511ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]