Народ подскажите пожалуйста как организовать вывод сообщения об ошибке в документе. Если человек заказывает в документе большее количество товара, чем осталось на складе.

Окно сообщений, предупреждение, отдельная форма сообщений об ошибках и т. д. и т. п.

в модуле проведения поставь проверку остатка.

Настройки дополнительных прав..

в событие "передЗаписью" вставить проверку остатков.

А никто не может кусок привести в пример. Может кто то делал это?

(4) Логичнее проверять при проведении
(5) В типовой УТ было

правильно сделать так:

допустим у тебя есть реквизиты

реквизит1
реквизит2
реквизит3
реквизит4

в процедуре при записи, или лучше в обработке проведения ставишь проверку

если НЕ ЗначениеЗаполнено(Реквизит1) Тогда
Предупреждение("не заполнен реквизит1",60);
Отказ=Истина;
Возврат;
КонецЕсли;

если НЕ ЗначениеЗаполнено(Реквизит2) Тогда
Предупреждение("не заполнен реквизит2",60);
Отказ=Истина;
Возврат;
КонецЕсли;


если НЕ ЗначениеЗаполнено(Реквизит3) Тогда
Предупреждение("не заполнен реквизит3",60);
Отказ=Истина;
Возврат;
КонецЕсли;


если НЕ ЗначениеЗаполнено(Реквизит4) Тогда
Предупреждение("не заполнен реквизит4",60);
Отказ=Истина;
Возврат;
КонецЕсли;


пользователи скажут тебе спасибу.

(7) Предупреждение() в модуле дока юзать нельзя

(7) За такой код руки оторвать.

А вот как в типовой. При проведении:
-------
   Если НЕ ЗначениеЗаполнено(КлючЗначение.Значение) Тогда
       ПредставлениеРеквизита = МетаданныеРеквизиты[КлючЗначение.Ключ].Представление();
       СтрокаСообщения = "Не заполнено значение реквизита """ + СокрЛП(ПредставлениеРеквизита) + """!";
   Иначе
       СтрокаСообщения = КлючЗначение.Значение;
       КонецЕсли;
   ОбщегоНазначения.СообщитьОбОшибке(СтрокаНачалаСообщенияОбОшибке + СтрокаСообщения, Отказ, Заголовок);

-------
Модуль ОбщегоНазначения

Процедура СообщитьОбОшибке(ТекстСообщения, Отказ = Ложь, Заголовок = "", Статус = Неопределено) Экспорт

   Если Статус = Неопределено Тогда
       Статус = СтатусСообщения.Важное;
   КонецЕсли;
   
   ТекстСообщения = СформироватьТекстСообщения(ТекстСообщения);

   Отказ = Истина;
   
   #Если ВнешнееСоединение Тогда
       
       Если ЗначениеЗаполнено(Заголовок) Тогда
           ТекстСообщения = Заголовок + Символы.ПС + ТекстСообщения;
           Заголовок = "";
       КонецЕсли;
       
       ВызватьИсключение (ТекстСообщения);
       
   #Иначе
       
       Если ЗначениеЗаполнено(Заголовок) Тогда
           Сообщить(Заголовок);
           Заголовок = "";
       КонецЕсли;
       
       Сообщить(ТекстСообщения, Статус);
       
   #КонецЕсли
   
КонецПроцедуры // СообщитьОбОшибке()

в (7) будет выскакивать Предупреждение по каждой позиции, а если ошибок несколько, то неудобно.
я накапливаю Предупреждения, типа:

ТекстПредупреждения="":

Для каждого СтрокаТЧ из Таблица цикл
  Если СтрокаТЧ.Количество>СтрокаТЧ.КолНаСкладе тогда
     ТекстПредупреждения=ТекстПредупреждения+СтрокаТЧ.Наименование+" НаСкладе меньше!"+Символы.ПС;
  КонецЕсли;
Если ТекстПредупреждения<>"" тогда
  Предупреждение(ТекстПредупреждения,60);
  Отказ=Истина;
КонецЕсли;

(5)>>А никто не может кусок привести в пример. Может кто то делал это?

Если Количество>КоличествоНаСкладе Тогда
  Сообщить("НЕ хватает однака....");
  Отказ=Истина;
  Возврат;
КонецЕсли;

+(11) А главное - "Недоступен на сервере 1С:Предприятие. Не используется в модуле внешнего соединения"

Вот вот мне как раз такая нужна ерунда чтобы с регистром сверял. Завтра злому преподу ) на растерзание.

в 11 надо цикл закрыть только перед вторым если Если

(15) А лучше сразу вывести всё, что не хватает, чтоб юзер видел полную картину. Но только в Сообщить()

(16) можно и Сообщить, просто я не люблю окно Сообщений, Предупреждение как-то цивильней смотрится :-)

(17) Угу, особенно при программном групповом проведении.

А это в обработке проведения?

Если СтрокаТЧ.Количество>СтрокаТЧ.КолНаСкладе тогда
     ТекстПредупреждения=ТекстПредупреждения+СтрокаТЧ.Наименование+" НаСкладе меньше!"+Символы.ПС;
  КонецЕсли;
Если ТекстПредупреждения<>"" тогда
  Предупреждение(ТекстПредупреждения,60);
  Отказ=Истина;
КонецЕсли;

(19) В обработке проведения Предупреждение() НЕЛЬЗЯ.
Если даже завернуть в #ЕСЛИ КЛИЕНТ, то как тогда (18)???

правильно так

ТекстПредупреждения="";

Для каждого СтрокаТЧ из Таблица цикл
  Если СтрокаТЧ.Количество>СтрокаТЧ.КолНаСкладе тогда
     ТекстПредупреждения=ТекстПредупреждения+СтрокаТЧ.Наименование+" НаСкладе меньше!"+Символы.ПС;
  КонецЕсли;
КонецЦикла;
Если ТекстПредупреждения<>"" тогда
  Предупреждение(ТекстПредупреждения,60);
  Отказ=Истина;
КонецЕсли;

Да, у меня в ОбработкеПроведения, про ЕслиКлиент, я не в курсе, не пользую Клиента... пусть поправят профиПроги

А вместо Предупреждение Сообщить не покатит тоже

(22) Покатит, тк.к "Не используется" и "Недоступен" - разные вещи

AndreyFAN а как из регистра достать значение остатка и записать в нужную ячейку

(21) А всё равно задолбаешься клаву бить, если понадобится оперативно (с проверкой) проводить групповой обработкой :)

(25) групповой обработкой будут проводиться уже проведённые и проверенные документы, у меня так во всяком случае... и ошибки не выскакивают...
хотя для этого надо ещё кучу капканов в конфе понаставить, типа проведение задним числом, слетание галочек для товароведа при таких проведениях, и много ещё чего...

эх, показал бы я вам свою ПроцедуруПроверки в Приходной... да уж слишком большая...
накоплено за 15 лет практики... реализовано...

лучше так

если Не ЗначениеЗаполнено(Реквизит1) Тогда
Предупреждение("Ты все сделал неправильно");
ЗавершитьРаботуСистемы(ложь);
КонецЕсли;

(24) самое простое, в процедуру ПриВыбореТовара, или как у тебя там зазывается реквизит

   СтрокаТЧ=ЭлементыФормы.ТМЦ.ТекущаяСтрока;
   Отбор = Новый Структура;
   Отбор.Вставить("Товар", СтрокаТЧ.Товар);
   Отбор.Вставить("Фирма", глФирма);
   Отбор.Вставить("Склад", Склад);
СтрокаТЧ.ОстатокНаСкладе=РегистрыНакопления.ОстаткиТоваров.Остатки(Дата,Отбор).Итог("Количество");

ну и набор параметров твой соответственно, как и имя Регистра

Вообще-то проверять надо еще до записи. Я в форме перед записью это делаю. Программно заполняемые документы - забота программиста. Для подстраховки ЗаписатьВФорме() использовать можно.

А остатки при проведении, при первом косяке проведение прекращается, в сообщить описание "ошибки".

при моём варианте проведение не прекращается при первой ошибке... накапливается текстовая переменнная, и при окончании проверки всего документа производится Отмена проведения с одновременным выводом Предупреждения с ошибками

(32) Предупреждение - зло, все подробности лучше в сообщить.

(30) проверять, кончено, нужно и до записи, чтобы юзер сразу видел что он ввёл например количество больше чем есть на складе, НО
надо и при проведении опять проверить, потому что может другой юзер уже выбрать тот же товар со склада

(33) я уже ответил в (26)

(34) До записи дока остатки вообще смысла нет проверять. Я проверяю только заполненность обязательных реквизитов, влияющих на работу программы и проведение документа, дубли строк в ТЧ и т. п. Остатки только при проведении, имхо так правильнее.

(35) Предупреждение зло потому что при выполнении на стороне сервера ошибки повалятся.

Сделал так - ошибку не выдает, но и не заполняет ячейку. Может я сморозил где (

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

(38) может у тебя реквизит в таблице ЗаказТовар? а в отборе Товар.

попробуй поменять

  Отбор.Вставить("Товар", СтрокаТабличнойЧасти.ЗаказТовар);

Для проверки закоментил и единицу поставил - результат положительный. Если комент уберу ошибку не выдает - все ОК, но ничего не добавляет в ячейку ((
Процедура РасчитатьОстаток(СтрокаТабличнойЧасти)
   Отбор = Новый Структура;
   Отбор.Вставить("Товар", СтрокаТабличнойЧасти.Товар);
   СтрокаТабличнойЧасти.КоличествоНаСкладе=1;//РегистрыНакопления.Остатки.Остатки(Дата,Отбор).Итог("Количество");
КонецПроцедуры

у тебя в табличной части документа реквизит ЗаказТовара или Товар?
регистр накопления точно называется Остатки?
в регистре накопления реквизит точно Количество?

+(42) Товар точно есть в наличии на эту Дату?

Еще почитай "Система стандартов и методик разработки конфигураций для платформы 1С:Предприятие 8". Статья "Требования по локализации модулей".

(43) :-)))))) ржал... убились бы искать!

(45) Не понял. Регистр накопления. На эту Дату могло быть накоплено 0. Вот и не выводится.

+(46) Ну или я не поянл твой смех. Вероятно и правда смешно :)

(46) дык и я про это... если не учесть твоё замечание можно до декабря 2012 года искать почему ячейка пустая...  :-))))

Не понял Slon747, я чайник в чем ошибка

(48) :)

Млин в декабре 2012 меня уже в армию заберут )

Не уже выпустят. Помогите народ

(49) Я обычно запросом получаю (внутри 1с все равно все в запрос превращается).
Если надо - напишу запрос

ну ты же не отвечаешь на вопросы в 42 и 43, а мы не телепаты...

чтобы написал запрос, пусть точно даст реквизиты

Ааа сори. Документ ЗаказКлиента с реквизитами Товар, КоличествоНаСкладе
РегистрНакопления.Остатки с Измерением - Товар и Ресурсом Количество

Бли

ТабличнаяЧасть - Заказ в ней строки - Товар, КоличествоНаСкладе

ЗаказКлиент.Заказ в ней - Товар, КоличествоНаСкладе и т.д.
РегистрыНакопления.Остатки в нем - Товар, Количество

(( Вроде все верно по реквезитам было.

ну и осталось ответить на: А точно на складе на дату документа есть остаток этого товара?

хотя Слон счес сделает что если 0, то пусть ругается :-)

Да. На складе куча товара. Добавил еще и все равно

Попробуй так:
   Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
                  |    ОстаткиТоваров.Количество
                  |ИЗ
                  |    РегистрНакопления.ОстаткиТоваров.Остатки(&Дата, Товар = &Товар) КАК ОстаткиТоваров";
                 
   Запрос.УстановитьПараметр(Товар, СтрокаТабличнойЧасти.Товар);
   Выборка = Запрос.Выполнить().Выбрать();
   
   СтрокаТабличнойЧасти.КоличествоНаСкладе = ?(Выборка.Следующий(), Выборка.Количество, 0);

+(63) И дату в параметры добавь. Я забыл

по тем параметрам, что ты дал то в (38) должно работать

(63) у него регистр Остатки а не ОстаткиТоваров...
Гош, исправь

(66) ОстаткиТоваров я в (29) увидел :)

Процедура РасчитатьОстаток(СтрокаТабличнойЧасти)
   Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
                  |    Остатки.Количество
                  |ИЗ
                  |    РегистрНакопления.Остатки.Остатки(&Дата, Товар = &Товар) КАК ОстаткиТоваров";
                 
   Запрос.УстановитьПараметр(Дата, СтрокаТабличнойЧасти.Товар);
   Выборка = Запрос.Выполнить().Выбрать();
   
   СтрокаТабличнойЧасти.КоличествоНаСкладе = ?(Выборка.Следующий(), Выборка.Количество, 0);

   //Отбор = Новый Структура;
   //Отбор.Вставить("Товар", СтрокаТабличнойЧасти.Товар);
   //СтрокаТабличнойЧасти.КоличествоНаСкладе=РегистрыНакопления.Остатки.Остатки(Дата,Отбор,"Товар").Итог("Количество");
КонецПроцедуры


Выдает ошибку: (
{Документ.ЗаказКлиента.Форма.ФормаДокумента(15)}: Ошибка при вызове метода контекста (Выполнить): {(2, 5)}: Поле не найдено "Остатки.Количество"
<<?>>Остатки.Количество
   Выборка = Запрос.Выполнить().Выбрать();
по причине:
{(2, 5)}: Поле не найдено "Остатки.Количество"
<<?>>Остатки.Количество

РегистрНакопления.Остатки.Остатки(&Дата, Товар = &Товар) КАК Остатки";

(68) Призывник, а что ты в (59) писал?
"РегистрыНакопления.Остатки в нем - Товар, Количество"

КАК Остатки

(70)(71) Ну да. Это я протупил

Исправил теперь выдает
{Документ.ЗаказКлиента.Форма.ФормаДокумента(15)}: Ошибка при вызове метода контекста (Выполнить): {(4, 39)}: Не задано значение параметра "Дата"
РегистрНакопления.Остатки.Остатки(<<?>>&Дата, Товар = &Товар)
   Выборка = Запрос.Выполнить().Выбрать();
по причине:
{(4, 39)}: Не задано значение параметра "Дата"
РегистрНакопления.Остатки.Остатки(<<?>>&Дата, Товар = &Товар)

А текст такой. Что там с датой не пойму )) Аты-баты

Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
                  |    КоличествоОстаток КАК Количество
                  |ИЗ
                  |    РегистрНакопления.Остатки.Остатки(&Дата, Товар = &Товар)";
                 
   Запрос.УстановитьПараметр(Дата, СтрокаТабличнойЧасти.Товар);
   Выборка = Запрос.Выполнить().Выбрать();
   
   СтрокаТабличнойЧасти.КоличествоНаСкладе = ?(Выборка.Следующий(), Выборка.Количество, 0);

   //Отбор = Новый Структура;
   //Отбор.Вставить("Товар", СтрокаТабличнойЧасти.Товар);
   //СтрокаТабличнойЧасти.КоличествоНаСкладе=РегистрыНакопления.Остатки.Остатки(Дата,Отбор,"Товар").Итог("Количество");
КонецПроцедуры

Так я ж писал, что дату надо еще.
И куда ты дату в товар засунул?
Так попробуй:
Запрос.УстановитьПараметр(Дата, ЭтотОбъект.Дата);
Запрос.УстановитьПараметр(Товар, СтрокаТабличнойЧасти.Товар);

Не получается а реквизит СтрокаТабличнойЧасти Товар есть и реквизит в Регистре Остатки тоже Товар (

{Документ.ЗаказКлиента.Форма.ФормаДокумента(15,46)}: Переменная не определена (Товар)
                  Запрос.УстановитьПараметр(<<?>>Товар, СтрокаТабличнойЧасти.Товар);

(75) Разводящий?

Кто?

(77) Что?

Ковычки.
Запрос.УстановитьПараметр("Дата", ЭтотОбъект.Дата);
Запрос.УстановитьПараметр("Товар", СтрокаТабличнойЧасти.Товар);

Вот полный текст:

Процедура РасчитатьОстаток(СтрокаТабличнойЧасти)
   Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
                  |    КоличествоОстаток КАК Количество
                  |ИЗ
                  |    РегистрНакопления.Остатки.Остатки(Дата, Товар = &Товар)";
                 
                  Запрос.УстановитьПараметр(Дата, ЭтотОбъект.Дата);
                  Запрос.УстановитьПараметр(Товар, СтрокаТабличнойЧасти.Товар);
                 
   Выборка = Запрос.Выполнить().Выбрать();
   
   СтрокаТабличнойЧасти.КоличествоНаСкладе = ?(Выборка.Следующий(), Выборка.Количество, 0);

   //Отбор = Новый Структура;
   //Отбор.Вставить("Товар", СтрокаТабличнойЧасти.Товар);
   //СтрокаТабличнойЧасти.КоличествоНаСкладе=РегистрыНакопления.Остатки.Остатки(Дата,Отбор,"Товар").Итог("Количество");
КонецПроцедуры

(( опять туплю чтоли

(81) Я тебя с ковычками развел

Крыша едет... не могу

{(4, 39)}: Поле не найдено "Дата"
РегистрНакопления.Остатки.Остатки(<<?>>Дата, Товар = &Товар)

(83) РегистрНакопления.Остатки.Остатки(&Дата, Товар = &Товар)

Ну вот пришел к тому с чего начинал - ошибок не выводит но в строку ничего не заносит.
Сделал отчет по остаткам товаров - В отчете Остаток - 12 шт. Т.е. остаток на складе все таки есть... но.

А без даты можно тут как то обойтись технически?

(85) Отладчиком проверял?

я ую...  вот отредактировано вроде  :-)

   Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
                  |    Остатки.Количество
                  |ИЗ
                  |    РегистрНакопления.Остатки.Остатки(&Дата, Товар = &Товар) КАК Остатки";
                 
   Запрос.УстановитьПараметр(Товар, СтрокаТабличнойЧасти.Товар);
   Запрос.УстановитьПараметр(Дата, ТекущаяДата());
   Выборка = Запрос.Выполнить().Выбрать();
   
   СтрокаТабличнойЧасти.КоличествоНаСкладе = ?(Выборка.Следующий(), Выборка.Количество, 0);

(87) Тока названия параметров - в кавычки

бл... :-)))

Так глядишь, за окном 2012-й будет :)

{(2, 13)}: Поле не найдено "Остатки.Количество"
Остатки.<<?>>Количество

ну что ж, продолжим...
значит у тебя в регистре реквизит не Количество

(91) ну открой наконец синтакс помощник. НЕт такого поля "Количество" и физически не может быть.

(93) А почему физически не может быть ресурса "Количество"?

(93) ???
при чем здесь синтаксис? я ресурс в РегистреНакопления как хочу могу назвать...

Процедура РасчитатьОстаток(СтрокаТабличнойЧасти)
   Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
                  |    КоличествоОстаток КАК Количество
                  |ИЗ
                  |    РегистрНакопления.Остатки.Остатки(&Дата, Товар = &Товар)";
                 
                  Запрос.УстановитьПараметр("Дата", ТекущаяДата());
                  Запрос.УстановитьПараметр("Товар", СтрокаТабличнойЧасти.Товар);
                 
   Выборка = Запрос.Выполнить().Выбрать();
   
   КоличествоНаСкладе = ?(Выборка.Следующий(), Выборка.Количество, 0);

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

Вот все вобщем правильно. блин без ошибок же. Причем это уже второй вариант.
С датой какая то хрень.
У меня в документе ЗаказКлиента стоит 29.12.09 00:00 а в регистре остатки - 29.12.09 и время. Может в этом дело.

(96) Да. В этом.

А как сделать чтоб время было не 00:00 (

(98) поставить в документе заказ галочку "Оперативное проведение"

В параметре Дата у тебя текущая дата (со временем). А регистре - позже

(100) 100

100!

Слон!!!!!!!!! Всё испортил и не юзанул

Стоит!

(103) Ааа. Не заметил. Первый раз был на 100 и пропустил :)

Стоит!Оперативное проведение - разрешить

Короче. У тебя отбирается на текущую дату (со временем). Если на эту дату были остатки, то вернет

Кто виноват я понял. А что делать

Запрос выполняется без ошибок?
Должны быть остатки на дату проведения дока. Они есть?
Если нет, перепроведи документ поступления (или что там у тя) на вчера.
Остатки есть? Тогда проверяй отладиком

Все. Сделал. Просто надо было в обработке проведения делать мне потому что на момент заполнения известна только дата, а время подставляется только в процессе проведения. Ну вот вобщем все соединенное.
ОГРОМНОЕ СПАСИБО народ, что помогли )

AndreyFAN&Slon747:

ТекстПредупреждения="Не хватает на складе";
   Для Каждого ТекСтрокаЗаказ Из Заказ Цикл
        Запрос = Новый Запрос;
        Запрос.Текст = "ВЫБРАТЬ
                  |    КоличествоОстаток КАК Количество
                  |ИЗ
                  |    РегистрНакопления.Остатки.Остатки(&Дата, Товар = &Товар)";
                 
                  Запрос.УстановитьПараметр("Дата", ТекущаяДата());
                  Запрос.УстановитьПараметр("Товар", ТекСтрокаЗаказ.Товар);
                 
   Выборка = Запрос.Выполнить().Выбрать();
   
   КоличествоНаСкладе = ?(Выборка.Следующий(), Выборка.Количество, 0);
       Если ТекСтрокаЗаказ.Количество>КоличествоНаСкладе тогда
       Предупреждение(ТекстПредупреждения,60);
       Отказ=Истина;
     КонецЕсли;
   КонецЦикла;

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

(110) "потому что на момент заполнения известна только дата, а время подставляется только в процессе проведения"
Чё то я непонял, да и ладно. Главное, что получилось

поменяй

      Предупреждение(ТекстПредупреждения,60);

на
      Сообщить(""+ТекСтрокаЗаказ.Товар+"  - не хватает НаСкладе!");

чтобы не клацать на каждый крик по клаве

Кстати, в ТЧ товар может повторяться, а остаток у тебя сравнивается построчно.
Так что будь к разговору со злым преподом.

(114) "будь" = "будь готов"

Да. Я готов. У меня косяков полно. Только кроме них есть еще многое совсем не сделанное а времени до завтрашнего утра, которое начнется с совещания на работе а закончится приговором на учебе. В общем СПС. Пока пусть так!!! ))) ПОЛУЧИЛОСЬ однако.

Надо смотреть видеоуроки Павла Чистова....
там и про свёрстку строк повторяющихся строк очень понятно объяснил...
не помню оригинальную ссылку, но тут выложено тоже Чистова
http://1cgeo.com/index.php?option=com_docman&task=cat_view&gid=34&Itemid=54

Супер сайт. Будем учиться