заблокировать ввод номенклатуры

Форум Программирование Общие вопросы программирования (Dev)

1. user1226763 15.10.19 14:15 Сейчас в теме

Добрый день. Подскажите как можно реализовать следующее. При сканировании номенклатуры создаются две таблицы (количество номенклатуры и СерийныйНомер) и когда они правильно заполняются : Вопрос "Продолжить?". Если ответ Нет, то как заблокировать дальнейший ввод этой номенклатуры. Просто при повторном сканировании штрихКода процедура начинает работать заново, но СерийныйНомер заполняется дальше, а количество номенклатуры сначала. Конфигурация УТ10.4 обычные формы

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

Ответы

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

Свернуть все

6. user5300 1010 15.10.19 15:12 Сейчас в теме

(1)

Вопрос "Продолжить?"

Пропиши до начала заполнения таблиц, в процедуре ВнешнееСобытие(Источник, Событие, Данные)

2. VmvLer 15.10.19 14:20 Сейчас в теме

Возврат;

3. user1226763 15.10.19 14:34 Сейчас в теме

(2) при вводе штрихКода отрабатывает Процедура ВнешнееСобытие(Источник, Событие, Данные)
и потом заполняются табличные части.
Пробовала переменную задать не вышло.

4. VmvLer 15.10.19 14:44 Сейчас в теме

(3) продолжайте искать решение, я буду вести наблюдение.
пока нет кода решение можно искать всю жизнь

5. Blacksli 15.10.19 15:07 Сейчас в теме

здесь явно надо изменить подход к логике отработки данных сканирования...

7. VmvLer 15.10.19 15:17 Сейчас в теме

Если ОФ - это одно решение
Если УФ - это другое с оповещением

пока тс утаивает детали можно просто фантазировать

8. user1226763 15.10.19 15:36 Сейчас в теме

(7) забыла указать. УТ 10.4 ОФ
Код очень большой
вот часть

Если НайденныеСтроки[0].КоличествоФакт = НайденныеСтроки[0].КоличествоСчет Тогда
				Если Вопрос("КоличествоФакт равно КоличетсвоСчет Продолжить?" , РежимДиалогаВопрос.ДаНет) = КодВозвратаДиалога.Да Тогда 
					ВводСерийныхНомеров = Истина;
					Подсказка = "Введите Серийный номер";
				
				Иначе
					ВводСерийныхНомеров = Ложь;
					НайденныеСтроки.Доступность = Ложь;
					ПровереннаяНоменклатура = ТекущаяНоменклатура;
				КонецЕсли;

Показать

9. user1226763 15.10.19 15:39 Сейчас в теме

(8)Здесь я пыталась создать новую переменную ПровереннаяНоменкатура, но понятное она срабатывает до следующего заполнения

10. VmvLer 15.10.19 15:49 Сейчас в теме

(8) да в первом сообщении было, это мне повылазило)

11. VmvLer 15.10.19 15:53 Сейчас в теме

Если НайденныеСтроки[0].КоличествоФакт = НайденныеСтроки[0].КоличествоСчет Тогда
	Если Вопрос("КоличествоФакт равно КоличетсвоСчет Продолжить?" , РежимДиалогаВопрос.ДаНет) = КодВозвратаДиалога.Да Тогда
		ВводСерийныхНомеров = Истина;
		Подсказка = "Введите Серийный номер";
		
	Иначе
		ВводСерийныхНомеров = Ложь;
		НайденныеСтроки.Доступность = Ложь;
		ПровереннаяНоменклатура = ТекущаяНоменклатура;
	КонецЕсли; 
	//....
КонецЕсли;

Показать

12. user1226763 15.10.19 16:07 Сейчас в теме

(11) эти значения могут отличаться, но пробую по другим проверить количество серийный и количествоФакт.

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

E-mail: