"Нужно реализовать систему учета нал, б/нал, я создаю регистр товары<br>Измерения:товар, склад, ресурсы:количество, партия, реквизиты:Сумма, вр.<br>В самой форме расходной накладной поставил переключатель, когда он 0 то нал, 1 то безнал. В модуле документа пишу <br> <br> Процедура ОбработкаПроведения()<br> <br> // Проверка на наличие на остатке<br> <br> ФлагОтказа=0;<br> <br> ВыбратьСтроки();<br> Пока ПолучитьСтроку() > 0 Цикл<br> Остат=Регистр.Товары.СводныйОстаток(Товар,Склад,"Кол");<br> Если Остат<Количество Тогда<br> Сообщить("Нет товара № "<br>+СокрЛП(Товар.Код)+"/"<br>+СокрЛП(Товар)+" в колич. "<br>+Количество+" (имеется "+Остат+")");<br> ФлагОтказа=1;<br> КонецЕсли;<br> Если ФлагОтказа=1 Тогда<br> НеПроводитьДокумент();<br> Возврат;<br> КонецЕсли;<br> Регистр.Товары.Товар = Товар;<br> Сообщить(Регистр.Товары.Товар);<br> Регистр.Товары.Склад = Склад;<br> Сообщить(Регистр.Товары.склад);<br> Регистр.Товары.Кол = Количество;<br> Сообщить(Регистр.Товары.кол);<br> Регистр.Товары.Сумма = Сумма;<br> Сообщить(Регистр.Товары.сумма);<br> Сообщить("флаг"+флаг);<br> если флаг=0 тогда //проверка нал(вр=1), бнал(вр=0),<br> Регистр.Товары.ВР = 1;<br> Сообщить("ВР"+Регистр.Товары.вр);<br> иначе<br> Регистр.Товары.ВР = 0;<br> Сообщить(Регистр.Товары.вр);<br> конецесли;<br> Регистр.Товары.Партия = Текущийдокумент();<br> Регистр.Товары.ДвижениеРасходВыполнить();<br>КонецЦикла; <br>КонецПроцедуры<br><br> когда Сообщить("ВР"+Регистр.Товары.вр) то выводиться 1, то есть вроде правильно записывает.<br><br>Таким же образом прописываю для товара и количества.<br>Создаю отчет, там вывожу товар, количество и вр(признак нала или безнала),но там ставятся 0<br><br>// Процедура генерации запроса Сформировать.<br>//<br>Процедура Сформировать()<br> Перем Запрос, ТекстЗапроса, Таб;<br> //Создание объекта типа Запрос<br> Запрос = СоздатьОбъект("Запрос");<br> ТекстЗапроса = <br> "//{{ЗАПРОС(Сформировать)<br> |Период с ВыбНачПериода по ВыбКонПериода;<br> |Товар = Регистр.Товары.Товар;<br> |Кол = Регистр.Товары.Кол;<br> |ВР=Регистр.Товары.ВР;<br> |Партия=Регистр.Товары.Партия; <br> |Сумма=Регистр.Товары.Сумма;<br> |Функция КолКонОст = КонОст(Кол);<br> |Группировка Товар упорядочить по Товар.Наименование;<br> |"//}}ЗАПРОС<br> ;<br> // Если ошибка в запросе, то выход из процедуры<br> Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда<br> Возврат;<br> КонецЕсли;<br><br> // Подготовка к заполнению выходных форм данными запроса<br> Таб = СоздатьОбъект("Таблица");<br> Таб.ИсходнаяТаблица("Сформировать");<br> // Заполнение полей "Заголовок"<br> Таб.ВывестиСекцию("Заголовок");<br> Состояние("Заполнение выходной таблицы...");<br> Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);<br> Пока Запрос.Группировка(1) = 1 Цикл<br> // Заполнение полей Товар<br> Сообщить(Регистр.Товары.ВР);<br> Сообщить(запрос.вр);<br> Таб.ВывестиСекцию("Товар");<br> КонецЦикла;<br> // Заполнение полей "Итого"<br> Таб.ВывестиСекцию("Итого");<br> // Вывод заполненной формы<br> Таб.ТолькоПросмотр(1);<br> Таб.Показать("Сформировать", """");<br>КонецПроцедуры<br><br><br>Количество выводиться, товар выводиться а признак ВР ставить 0, что я не так делаю<br>"
Древовидный
Печать
Искать в теме: