После ввода штрихкода в меню поиска штрихкода в подборе номенклатуры (клавиша F7) окно сразу закріваться и для вібора новой номенклатурі его нужно снова открівать. Как сделать так, что б окно не закрывалось до нажатия кнопки Нет. 1с 8,3.
Помогите пожалуйста.


Результат = РаботаСТорговымОборудованием.ВвестиШтрихкод();

    Если Не ПустаяСтрока(Результат) Тогда
        ПолучитьСерверТО().ОбработатьВведенныйШтрихкод(Результат, ЭтаФорма);
        
    КонецЕсли;




Функция ВвестиШтрихкод() Экспорт

   Результат = "";    

    ВвестиСтроку(Результат, "Введите штрихкод");
    
    Возврат Результат;

КонецФункции // ВвестиШтрихкод()

Это ты ищешь исполнителя?

(1) Ищу помощь. Может кто-то направит меня в нужное русло.

Может подскажете как цикл сделать ?

(3)
Пока ВвестиСтроку() Цикл

КонецЦикла;

(4) Пока ВвестиСтроку ругается (((

Попробовал

ЧислоСтрок = 10;
    Для Сч = 1 По ЧислоСтрок Цикл
    Результат = РаботаСТорговымОборудованием.ВвестиШтрихкод();
        Если Не ПустаяСтрока(Результат) Тогда
        ПолучитьСерверТО().ОбработатьВведенныйШтрихкод(Результат, ЭтаФорма);
        КонецЕсли;    

Работает, но делает 10 попыток, как сделать, чтоб окно закрывалось после нажатия "Отмена"

(5) "ругается", сделай, чтоб не ругалось

(5) "как сделать, чтоб окно закрывалось после нажатия "Отмена""
об этом написано в (4)

(7) {ОбщийМодуль.РаботаСТорговымОборудованием.Модуль(174,6)}: Змінна не визначена (ВвестиСтроку)
Пока <<?>>ВвестиСтроку Цикл (Перевірка: Товстий клієнт (звичайна прикладна програма))

(8) everything is simple: the variable is not defined, see (4) and look for the differences

(9) Сделал Следущие изменения и пишет что Недостаточно фактичесских параметров ВвестиСтроку((( Прошу помочь.


Функция ВвестиШтрихкод() Экспорт
    
    Пока ВвестиСтроку() Цикл

   Результат = "";  
  
    ВвестиСтроку(Результат, "Введите штрихкод");
            Возврат Результат;
    КонецЦикла;

КонецФункции // ВвестиШтрихкод()

(10) уже лучше, теперь почитай СП, посмотри свой код в (0) и добавь параметров

(10) и зачем 2 раза ВвестиСтроку()?
ты точно понимаешь, что делаешь?

(11) Спасибо!
Сделал, чтоб не ругалось. Но Ожидаемый результат не достигнут. При первом вводе штрихкода он не добавляется, при втором добавляется и окно само закрывается.


Функция ВвестиШтрихкод() Экспорт
    

   Результат = "";  
         Пока ВвестиСтроку(Результат, "Введите штрихкод") Цикл
    ВвестиСтроку(Результат, "Введите штрихкод");
            Возврат Результат;
    КонецЦикла;

КонецФункции // ВвестиШтрихкод()

(12) Сделал так. Окно закрывается после первого ввода. Результат не достигнут

Функция ВвестиШтрихкод() Экспорт
    

   Результат = "";  
         Пока ВвестиСтроку(Результат, "Введите штрихкод") Цикл
                Возврат Результат;
    КонецЦикла;

КонецФункции // ВвестиШтрихкод()

(14) " Возврат Результат;"
так ты выходишь из цикла после первого ввода

Уже получается то что хотел, но только после двойного введения штрихкода.


Результат = РаботаСТорговымОборудованием.ВвестиШтрихкод();
Пока ВвестиСтроку(Результат, "Введите штрихкод") Цикл
    Если Не ПустаяСтрока(Результат) Тогда
        ПолучитьСерверТО().ОбработатьВведенныйШтрихкод(Результат, ЭтаФорма);
    КонецЕсли;    
КонецЦикла;

(16) не делай двойное введение, ты ж сам его написал

(15) Если убираю Возврат Результат, то окно действительно не закрывается, но и штрихкод не ищется (

(18) ну в (16) убери одну лишнюю строку и всё

(19) Убрал, ничего не поменялось (( Я Вам уже надоел, наверное....



Результат = РаботаСТорговымОборудованием.ВвестиШтрихкод();
Пока ВвестиСтроку(Результат, "Введите штрихкод") Цикл
            ПолучитьСерверТО().ОбработатьВведенныйШтрихкод(Результат, ЭтаФорма);
                КонецЦикла;

(20) жесть...
зачем ты убрал то, что не влияет на открытие диалога ввода строки?

(21) Ура! Сделал!!!! Спасибо большое!!!!!


Функция ВвестиШтрихкод() Экспорт
    

    Результат = "";    

        
    Возврат Результат;


КонецФункции // ВвестиШтрихкод()


Процедура КоманднаяПанельТоварыПоискПоШтрихКоду(Кнопка)
        
        Результат = РаботаСТорговымОборудованием.ВвестиШтрихкод();
Пока ВвестиСтроку(Результат, "Введите штрихкод") Цикл
            ПолучитьСерверТО().ОбработатьВведенныйШтрихкод(Результат, ЭтаФорма);
                КонецЦикла;

КонецПроцедуры // КоманднаяПанельТоварыПоискПоШтрихКоду()

(21) Спасибо, что учили, а не сделали все за меня! Для меня это урок!!

(23) думай дальше, в (22) еще есть лишний код)

(24) Я нашел косяк. Это отлично работает в одном документе и убило функцию у остальных документах. Для решения задачи я создал еще одну функцию ВвестиШтрихкодЦиклом и код, который Вы помогли написать вставил туда. Соответсвенно документы у которых нужен новый функционал будут ссылаться на функцию с циклом, а остальные по старому.

Тыкните носом в ошибку.