Проверка заполнения

@Антон Машенцев · Регистрация: 01.10.2013

Author24 — интернет-сервис помощи студентам

есть обработка при помощи нее можно ЗАПИСАТЬ документ. как сделать чтобы если реквизит ТЧ "Номенклатура"не заполнен обработка не могла записать док

1C

1
2
3

Если Не ЭлементыФормы.ТабличнаяЧасть.Колонки.Номенклатура=ПроверкаЗаполнения Тогда 
    Сообщить("НЕ ВАРИАНТ")
    КонецЕсли;

в данном случае он запрещает записть при любом варианте.

Tklwegsd · 21.03.2014, 16:49

В коде обработки перед записью документа сделать проверку заполнения реквизита, и если он незаполнен, отказаться от записи.

@Антон Машенцев · 21.03.2014, 16:57 **[ТС]**

Сообщение от Tklwegsd

В коде обработки перед записью документа сделать проверку заполнения реквизита, и если он незаполнен, отказаться от записи.

вот весь код для большего понимания

1C

Процедура КнопкаВыполнитьНажатие(Кнопка)
    Док=Документы.ВнутреннийЗаказ.СоздатьДокумент();
    Если Не ЭлементыФормы.ТабличнаяЧасть.Колонки=ПроверкаЗаполнения Тогда 
    Сообщить("НЕ ВАРИАНТ");
        Иначе  Для Каждого ТекСтрока  Из ТабличнаяЧасть Цикл 
    Строка=Док.Товары.Добавить();
    Строка.Количество=ТекСтрока.Заказать;
    Строка.Номенклатура=ТекСтрока.Номенклатура;  
       КонецЦикла; 
    Юзер=ПользователиИнформационнойБазы.ТекущийПользователь();
    Док.Комментарий=Юзер.Имя;
    Док.Дата=ТекущаяДата();
    Док.Записать();
    Сообщить("Заказ оформлен");
    КонецЕсли;     
        
КонецПроцедуры

@GreenkA · 21.03.2014, 17:01

1C

Процедура КнопкаВыполнитьНажатие(Кнопка)
    Док=Документы.ВнутреннийЗаказ.СоздатьДокумент();
    Если Не ЗначениеЗаполнено(ЭлементыФормы.ТабличнаяЧасть.Колонки.Номенклатура) Тогда 
        Сообщить("НЕ ВАРИАНТ");
        Возврат;
    Иначе  Для Каждого ТекСтрока  Из ТабличнаяЧасть Цикл 
    Строка=Док.Товары.Добавить();
    Строка.Количество=ТекСтрока.Заказать;
    Строка.Номенклатура=ТекСтрока.Номенклатура; 
       КонецЦикла; 
    Юзер=ПользователиИнформационнойБазы.ТекущийПользователь();
    Док.Комментарий=Юзер.Имя;
    Док.Дата=ТекущаяДата();
    Док.Записать();
    Сообщить("Заказ оформлен");
    КонецЕсли;          
КонецПроцедуры

@duk337 · 21.03.2014, 17:06

Сообщение от GreenkO

ЗначениеЗаполнено(ЭлементыФормы.ТабличнаяЧасть.Колонки.Номенклатура)

И что выдаёт сиё выражение? Акцепт существования колонки "Номенклатура"?

Не по теме:

При обследовании желудка у пациента обнаружили желудок.

@Антон Машенцев · 21.03.2014, 17:06 **[ТС]**

Сообщение от GreenkO

Если Не ЗначениеЗаполнено(ЭлементыФормы.ТабличнаяЧасть.Колонки.Номенклатура) Тогда

@GreenkA · 21.03.2014, 17:08

поправочка

1C

Процедура КнопкаВыполнитьНажатие(Кнопка)
    Док=Документы.ВнутреннийЗаказ.СоздатьДокумент();
    Отказ = Ложь;
    Для Каждого ТекСтрока  Из ТабличнаяЧасть Цикл 
      Если ЗначениеЗаполнено(ТекСтрока.Номенклатура) Тогда 
           Строка=Док.Товары.Добавить();
           Строка.Количество=ТекСтрока.Заказать;
           Строка.Номенклатура=ТекСтрока.Номенклатура; 
      Иначе
           Отказ = Истина;
      КонецЕсли;
      Юзер=ПользователиИнформационнойБазы.ТекущийПользователь();
    КонецЦикла; 
    Док.Комментарий=Юзер.Имя;
    Док.Дата=ТекущаяДата();
    Если Не Отказ Тогда
           Док.Записать();
           Сообщить("Заказ оформлен");
    Иначе
           Сообщить("НЕ ВАРИАНТ");
    КонецЕсли;          
КонецПроцедуры

@duk337 · 21.03.2014, 17:13

Можно, правда тупо

1C

1	Если НЕ ТабличнаяЧасть.Найти(Справочники.Номенклатура.ПустаяСсылка(),"Номенклатура")=Неопределено

@Антон Машенцев · 21.03.2014, 17:33 **[ТС]**

Сообщение от duk337

Если НЕ ТабличнаяЧасть.Найти(Справочники.Номенклатура.ПустаяСсылка(),"Номенклатура")=Нео пределено

отличный вариант но как и в предыдущем у GreenkO, обработка позволяла записывать документ если не добавлена строчка в ТЧ, если добавлена и пустая она то тогда НЕ ВАРИАНТ.
исправил таким образом добавил еще условие

1C

1 2	ИначеЕсли ЗначениеЗаполнено(ТабличнаяЧасть)=Ложь Тогда Сообщить("ВЫБЕРЕТЕ НОМЕНКЛАТУРУ!!!");

@duk337 · 21.03.2014, 20:07

1.

1C

Процедура КнопкаВыполнитьНажатие(Кнопка)
ф="Данные не введены. Документ не будет создан.";
Если ТабличнаяЧасть.Количество()=0 Тогда Предупреждение(ф);Возврат;КонецЕсли;
...

2.Сообщить("ВЫБЕРИТЕ НОМЕНКЛАТУРУ!!!"); - так можно в на форуме, а не у клиента косячить.

Проверка заполнения

Решение

Решение

Tklwegsd 843 / 606 / 211 Регистрация: 24.07.2013 Сообщений: 2,102
	21.03.2014, 16:49	2
	В коде обработки перед записью документа сделать проверку заполнения реквизита, и если он незаполнен, отказаться от записи. 0

@duk337 2955 / 1767 / 82 Регистрация: 03.11.2011 Сообщений: 8,280
	21.03.2014, 17:06	5
	Сообщение от GreenkO ЗначениеЗаполнено(ЭлементыФормы.ТабличнаяЧасть.Колонки.Номенклатура) И что выдаёт сиё выражение? Акцепт существования колонки "Номенклатура"? Не по теме: При обследовании желудка у пациента обнаружили желудок. 0

@Антон Машенцев 0 / 0 / 0 Регистрация: 01.10.2013 Сообщений: 102
	21.03.2014, 17:06 [ТС]	6
	Сообщение от GreenkO Если Не ЗначениеЗаполнено(ЭлементыФормы.ТабличнаяЧасть.Колонки.Номенклатура) Тогда Если Не ЗначениеЗаполнено(ЭлементыФормы.ТабличнаяЧасть.Колонки.Номенклатура) Тогда 0

	21.03.2014, 20:07