Я новичек. Решил написать обработку которая просматрвает все документы определенного вида и удаляет у них нули если таковые имеются (например номер 0123 заменится на 123) но не выходит . Может кто видит ошибку.

Процедура Удалить()

ПР = СоздатьОбъект("Документ.Докуентпоставщика");
ПР.ВыбратьДокументы();

Пока ПР.ПолучитьСтроку() > 0 Цикл
                   
   Пока ПР.ПолучитьДокумент() > 0 Цикл                  

       номер=ПР.НомерДок;
       номерсокр=СокрЛ(номер);

       Если номерсокр=0 тогда
   
           ПР.НомерДок= номерсокр;

           ПР.Записать();    

       Конецесли;
           
   КонецЦикла;

КонецЦикла;

КонецПроцедуры

Ошибку вижу и не одну, а код где?

в смысле? это и есть обработка

что делает Пока ПР.ПолучитьСтроку() > 0 Цикл ???
и что ты будешь делать с документами у которых стоит префикс?? типа (До-0001)

самая главная ошибка здесь: Докуентпоставщика
правильно так: ДокуЁнтпоставщика

Пока ПР.ПолучитьСтроку() > 0 Цикл
                   
   Пока ПР.ПолучитьДокумент() > 0 Цикл    
В мемориз

новая версия


Процедура Удалить()

ПР = СоздатьОбъект("Документ.Докуентпоставщика");
ПР.ВыбратьДокументы();
               
   Пока ПР.ПолучитьДокумент() > 0 Цикл                  

       номер=ПР.НомерДок;
       номерсокр=СокрЛ(номер);

       Если номерсокр=0 тогда
   
           ПР.НомерДок= номерсокр;

           ПР.Записать();    

       Конецесли;

    КонецЦикла;

КонецПроцедуры

Если номерсокр=0 тогда че за хрень??

(6) Все хуже и хуже

ответь на 2-й вопрос (3)

а в конфиге точно есть "Докуентпоставщика"?

(3) только если есть ноль и он первый, тогда удалить (хотя вообще-то нужно удалять если первый ноль или первый и второй ноль но это уже потом)

лимбическая система

(10) там другой документ просто на той базе на которой я пробую- есть

1. Имя процедуры. Не рекомендуется использовать предопределенные имена методов в качестве имен процедур.
2. Докуентпоставщика - как минимум орфографическая ошибка.
3. ВыбратьДокументы() используется совместно с ПолучитьДокумент(), а ПолучитьСтроку() с ВыбратьСтроки(). "Коньяк закусывается лимоном, а не запивается пивом" (с)
4. СокрЛ убирает ПРОБЕЛЫ слева, а не нули.
5. Запись документа в выборке по документу с использованием одной переменной не рекомендуется. В восьмерке для этого сделали отдельно ДокументВыборка и ДокументОбъект, а семерошники должны помнить сами, что ничто - это тоже нечто.
6. После использования СокрЛ возвращается строка. Сравнение строки с числом "Если номерсокр=0 тогда" всегда будет иметь один и тот же результат, отрицательный.
7. Смысл условия "Если номерсокр=0 тогда" неясен совершенно. Так не надо.
Вердикт - оставить на второй год.

(11) то есть если есть префикс то мы его оставляем

ПР = СоздатьОбъект("Документ.Докуентпоставщика");
ПР.ВыбратьДокументы();
               
   Пока ПР.ПолучитьДокумент() = 1 Цикл                  

       номер=ПР.НомерДок;
       ПОпытка
       номерсокр=число(номер);
       исключение
         продолжить;
       конецпопытки;

            ПР.НомерДок= номерсокр;

           ПР.Записать();    


    КонецЦикла;

можешь так попробывать

Помоему это вброс

Ничего не вборос просто я бухгалтер по образованию

(15)пробую вроде заработало- проверяю...

(17)Вот ты бухгалтер. Ты доверишь составлять баланс предприятия человеку, знакомому единственно с 4 правилами арифметики? Зайди http://mista.ru/tutor_1c/index.htm на этом сайте и учись с начала.

(17)Тогда что по твоему такое СокрЛ? Интересно.

Думал

СокрЛ= Прав

2 DrHiHi,Темный Эльф
Спасибо

Проблема была в том что в номерах документа появились нули перед числовым значениям и счас после знакомство с
номерсокр=число(номер);

я понял что просто в конфигураторе нужно вернуть тип номера на числовой)))

Начнем по серьезному. Кто сказал что номер 00123 неверен при пятизначной нумерации? Допустим отрежешь все нули а потом? Документу номер ручками присваивать будешь? Далее: почитай про функцию число. Может поможет.)))))

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

Ой ну конечно в 2011 году

я сказал что у меня образование бухгалтера- а так я консультант 1с и просто бухгалтера требовали вернуть все назад- убрать нули в номерах документа

))

(24) если нет выручки то на 90 счету убыток за месяц (я не из РФ)

Ну понятно. Какой консультант такие и бухи. Нули появились от того что ктото получил сообщение о неуникальности номера своего доккмента. По неизведанным причинам именно этот номер был ему нужен. Он добавил нули и обощел проверку уникальности.

Забавно, только на двадцать третьем посту сказали, что в корне неверна сама постановка задачи. А вообще для буха это решается типовой перенумерацией с диска итс

у меня на задачи нет времени (куча звонков и внедрений) клиент дорогой- проще вернуть КАК БЫЛО НА ПРОТЯЖЕНИИ 2-3 ЛЕТ ДО ЭТОГО

(0)Правильно пишется "новичОк"...

(28) что не из рф так уж и быть. Нумерация документов какая? Числовая или текстовая? Если текстовая то в цикле запускай по докам:
Сообщить(док.номердок);
Док.номердок=прав(„0000000000" + число(номердок),а вот тут число - длина номера из конфигуратора);


На ошибочном вылетит но он у тебя в окне сообщений будет. Скажи бухам что доков с таким номером два пусть один перенумеровывают

(30) типовую перенумерацию пусть нуралиев в своих актах выполненных работ использует и акты сверок потом подписывает

+33 ну и после этого в цикле по докам конечно док.записать() поставь

>> Док.номердок=прав(„0000000000" + число(номердок),а вот тут число - длина номера из конфигуратора

Некошерно...

(35) что-то мне говорит, что нумерация у докуентпоставщика вряд ли будет соответствовать реальным номерам доков, поэтому перенумеровать можно

А что в юмор то занесли?

проще же так
НовыйНомер=СтрЗаменить(СокрЛП(Номер),"0"," ");
НовыйНомер=СокрЛ(НовыйНомер);
НовыйНомер=СтрЗаменить(СтрЗаменить," ","0");

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

(40)+ Снимаю, удалятся ВСЕ нули, правильно (39)!