Хрендец. Было бы проще: кинул таблицу на форму, указал что отображать (как в Делфи). Поразбираюсь. Спасибо!
Хрендец. Было бы проще: кинул таблицу на форму, указал что отображать (как в Делфи). Поразбираюсь. Спасибо!
"Так оно и есть, таблица ПодчТаб на форме, но >функция<(не процедура) ОбновитьПодчТаб() должна вызываться из скрытого текста лежащего на форме у которого задана только формула как ОбновитьПодчТаб(), а Заголовок и Идентификатор пусты!<br>Вот рабочий пример (выводит единицы измерения и их коэффициент из подчиненного справочника Единицы):<br>//Для объекта текст, его формулы, объект расположен на форме и скрыт<br>Функция ОбновитьПодчТаб()<br> ПодчТаб.УдалитьСтроки();<br> ПодчСпр=СоздатьОбъект("Справочник.Единицы");<br> ПодчСпр.ИспользоватьВладельца(ТекущийЭлемент());<br> ПодчСпр.ВыбратьЭлементы();<br> Ном=0;<br> Пока ПодчСпр.ПолучитьЭлемент()>0 Цикл<br> Ном=Ном+1;<br> ПодчТаб.НоваяСтрока(Ном);<br> ПодчТаб.УстановитьЗначение(Ном,"Единица",ПодчСпр.Единица);<br> ПодчТаб.УстановитьЗначение(Ном,"Коэффициент",ПодчСпр.Коэффициент);<br> КонецЦикла;<br> Возврат 0;<br>КонецФункции<br><br>//В модуле формы для установки колонок таблицы лежащей на форме и названой ПодчТаб<br>ПодчТаб.НоваяКолонка("Единица",,,"Единица");<br>ПодчТаб.НоваяКолонка("Коэффициент",,,"Коэффициент");"
"Вот как бы унифицировал:<br>//*********************************************************************************************<br>//Выводит в форму списка справочника содержимое подчиненного справочника, в таблицу ПодчТаб.<br>//Функция ОбновитьПодчТаб() помещается в скрытый объект Текс в поле Формула, поля Заголовок<br>//и Идентификатор должны быть пусты. Наименование подчиненного справочника задаелся в переменной<br>//Справочник. Наименование заголовков беруться из Синонима, если он пуст то из Идентификатора.<br>//*********************************************************************************************<br><br>Перем ПодчСпр, Справочник;<br><br>Функция ОбновитьПодчТаб()<br> Если ПустоеЗначение(Справочник)=0 Тогда<br> ПодчТаб.УдалитьСтроки();<br> ПодчСпр.ИспользоватьВладельца(ТекущийЭлемент());<br> ПодчСпр.ВыбратьЭлементы();<br> Ном=0;<br> Пока ПодчСпр.ПолучитьЭлемент()>0 Цикл<br> Ном=Ном+1;<br> ПодчТаб.НоваяСтрока(Ном);<br> Для НомРек=1 По Метаданные.Справочник(Справочник).Реквизит() Цикл<br> Реквизит=Метаданные.Справочник(Справочник).Реквизит(НомРек).Идентификатор;<br> //ПодчТаб.УстановитьЗначение(Ном,Реквизит,Строка(Шаблон( "[ПодчСпр."+Реквизит+"]")));<br> ПодчТаб.УстановитьЗначение(Ном,Реквизит,Шаблон("[ПодчСпр."+Реквизит+"]"));<br> КонецЦикла;<br> КонецЦикла;<br> КонецЕсли;<br> Возврат 0;<br>КонецФункции<br><br>Справочник="""";//Здесь задать наименование справочника как он в конфигураторе (идентификатор)<br>Для Ном=1 По Метаданные.Справочник(Справочник).Реквизит() Цикл<br> Реквизит=Метаданные.Справочник(Справочник).Реквизит(Ном).Идентификатор;<br> Синоним=Метаданные.Справочник(Справочник).Реквизит(Ном).Синоним;<br> Если ПустоеЗначение(Синоним)=1 Тогда<br> ПодчТаб.НоваяКолонка(Реквизит,,,Реквизит);<br> Иначе<br> ПодчТаб.НоваяКолонка(Реквизит,,,Синоним);<br> КонецЕсли;<br>КонецЦикла;<br>ПодчСпр=СоздатьОбъект("Справочник."+Справочник);"
УРА!!! Все понял! Все работает как надо! Еще бы редактировалось. Спасибо огромное!
Можно и редактирование придумать, только сам ввод данных будет происходить не в таблице, а запросами ввода текста, чисел и т.д. Будем пробовать?
Не не будем.Вчера показал клиентам - понравилось. Только добавились новые задачи:<br>Некоторая продукция рассчитывается не на 100 штук, а на 10 или 8 (Хочу добавить в справочник Продукция новый коэффициент и<br>В расчете вместо цифры брать значение из справочника). Это только для кондитерских изделий.<br>Для хлеба:Учитывать масло на смазку форм=(кг. хлеба*0,34)/1000. Включается в в печать и в отчет после основного масла.<br>Плюс новый отчет по муке учитывающий фактические показатели и разницу(между нормой и фактом кг муки и % припека ) по каждой продукции.Как сделать пока не знаю. Думаю добавить регистр и в проведении до-та его тоже заполнять, а потом запросом вытаскивать. Если надо форму отчета пошлю. (как бы файлик прикрепить на форуме?)
С коэффициентом все понятно. У нас заведен подчиненный справочник Единицы где забиваются единицы измерения товара, так сказать, например: квадратные метры, штуки, упаковки (подвесной потолок, ламинат и т.п.) и на печать выводиться с расшифровкой по единицам, для упрощения отгрузки.<br>Про отчет немного не понял, объясните по другому. Что в документе заполняется и что собираетесь в регистр пихать?<br>Файлик на форуме не прикрепляется... Если хотите шлите на icebeerg(сцобако)newmail.ru но сначала по подробнее про отчет.
Все уже сделал (кроме отчета)<br>По отчету: в документ добавил ФактМуки и ФактПроцента (и соответственно в форме)<br>Хочу добавить регистр:Продукция, Норма по муке, Факт по муке, Норма процента, факт процента<br>Можно ли в Модуле документа проводить еще регистр?<br>Отчет должен быть такой:<br><br> Продукция1| Мука | Процент | Разница|Продукция2 | Мука ....<br> штуки кг. | норма | факт | норма |факт | | |штуки | кг.| норма факт ....<br>Дата<br>Наверно в регистр придется еще добавить штуки и кг.
"> Можно ли в Модуле документа проводить еще регистр?<br>Не понял! У меня в модуле документа обрабатываются 3и регистра, ОстаткиТоваров, РезервыТоваров и Взаиморасчеты.<br>Можно в регистр и не писать лишнюю информацию а делать запрос к документам, а не регистру, Например:<br>Вместо<br> "//{{ЗАПРОС(Сформировать1)<br> |Товар = Регистр.ОстаткиТоваров.Товар;<br> |Склад = Регистр.ОстаткиТоваров.Склад;<br> |ОстатокТовара = Регистр.ОстаткиТоваров.ОстатокТовара;<br> |Функция ОстатокТовараКонОст = КонОст(ОстатокТовара);<br> |Группировка Товар;<br> |Группировка Склад;<br> |"//}}ЗАПРОС<br> ;<br>Делать<br> "//{{ЗАПРОС(Сформировать2)<br> |Товар = Документ.РасходнаяНал.Товар;<br> |Склад = Документ.РасходнаяНал.Склад;<br> |Количество = Документ.РасходнаяНал.Количество;<br> |Функция КоличествоСумма = Сумма(Количество);<br> |Группировка Товар;<br> |Группировка Склад;<br> |"//}}ЗАПРОС<br> ;<br>Сейчас разгребусь с текучкой и еще подумаю по поводу вашей ситуации.."
<br>> Можно в регистр и не писать лишнюю информацию а делать запрос к документам, а не регистру...<br><br>о_О<br>действительно, зачем вообще нужен регистр ? <br>