/ КОМПЬЮТЕРЫ И ПО / Языки программирования / 1С для программиста

Выпуск № 692
от 01.01.2008, 11:05

Вопрос № 116.021

Уважаемые эксперты, у меня такой вопрос ... Как можно выгрузить в таблицу значений справочник с номенклатурой с иерархией ... и чтобы например у каждой номенклатуры есть реквизит тип булево ... так вот чтобы при изменении влага у группы в таблице значений менялись флаги у всех элементов группы .... Поделитесь опытом ... примерчиками ... может кто нить так делал ... Спасибо.

Отправлен: 26.12.2007, 11:18 Вопрос задал: Bvg82 (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Dmitry Stashenko Здравствуйте, Bvg82! Все зависит от поставленной задачи. Можно, например, так: ТаблицаЗначений со следующими колонками: КодЭлемента, КодРодителя, Реквизиты элемента, БулевыйРеквизит. Соответственно КодЭлемента - Код, КодРодителя - Родитель.ПолныйКод(), Реквизиты элемент - реквизиты элемента справочника (или может быть ссылка на сам элемент, зависит от того, что вообще нужно сделать), БулевыйРеквизит - собственно булевый реквизит. Иерархия будет прослеживаться исходя из кода родителя. При смене флага у группы процедура перебирает ТаблицуЗначений, и если КодРодителя (в ТаблицеЗначений) = ПолныйКод() (группы), то обновляет значение в ТаблицеЗначений. Было бы лучше, если бы сказали, что конкретно надо сделать. Удачи

Ответ отправил: Dmitry Stashenko (статус: Студент) Ответ отправлен: 26.12.2007, 20:35 Оценка за ответ: 5 Комментарий оценки: Спасибо за ответ ... надо чтобы это выглядело визуально хорошо типа как у иерархического справочника номенклатура ... А сделать нужно следующее: При открытии таб. часть заполняется только номенклатурой – список номенклатуры с учетом иерархии. По кнопке Заполнить заполняются флажки из номенклатуры. Пользователь устанавливает или снимает значения флажков, причем, если изменяет значение флажка у группы – изменяется на такое же значение флажок у всех подчиненных элементов!!! Потом флажки записываются в номенклатуру

Отвечает: Яна Здравствуйте, Bvg82! 1. Не путайте ТаблицуЗначений - тип данных с элементами управления. У ТаблицыЗначений сами по себе флаги не меняются. 2. ПриИзменении флажка у группы, нужно выбрать все элементы этой группы, почитайте в синтакс-помощнике про метод выбрать(см. вложение) у справочника, а затем перебрать в цикле результат выборки и у каждого элемента проставить признак. 3. С точки зрения методологии учета лучше подобными вещами не увлекаться. Лучше пользоваться регистрами сведений. И незачем совершенно признаки всякие в справочники вставлять. Если есть возможность посмотрите в типовой бухгалтерии регистр сведений СчетаУчетаНоменклатуры. Как используется и для чего предназначен. Куда проще, понятнее, быстрее работает, чем перезаписывать целую группу номенклатуры, лучше добавить/изменить одну строку в регистре. Приложение: СправочникМенеджер.<Имя справочника> (CatalogManager.<Имя справочника>) Выбрать (Select) Синтаксис: Выбрать(<Родитель>, <Владелец>, <Отбор>, <Порядок>) Параметры: <Родитель> (необязательный) Тип: СправочникСсылка. Отбор по родителю. Имеет смысл только для многоуровневых справочников. Если параметр не задан, то отбор по родителю не производится. Чтобы отобрать элементы верхнего уровня, нужно в качестве данного параметра указать пустую ссылку на элемент справочника. <Владелец> (необязательный) Тип: СправочникСсылка. Отбор по владельцу. Имеет смысл только для подчиненных справочников. Если параметр не задан, то отбор по владельцу не производится. <Отбор> (необязательный) Тип: Структура. Задает поле и значение отбора открываемой выборки. Ключ структуры описывает имя поля, а значение структуры - значение отбора по этому полю. В качестве полей для отбора могут задаваться только поля "Код", "Наименование" и реквизиты справочника, для которых в конфигураторе признак индексирования установлен в значение "Индексировать" или в значение "Индексировать с доп. упорядоч.". Важно! Структура может содержать только один элемент. Если параметр не указан, то отбор не используется. <Порядок> (необязательный) Тип: Строка. Строка с именем реквизита справочника, определяющая упорядочивание элементов в выборке. Может быть указано "Код", "Наименование" или имя одного из реквизитов примитивного типа (Число, Строка, Дата, Булево), для которого установлен признак "Индексирование" в значение "Индексировать" или в "Индексировать с дополнительным упорядочиванием" в конфигураторе. После имени реквизита через пробел может быть указано направление сортировки. Направление определяется: "Убыв" ("Desc") - упорядочивать по убыванию; "Возр" ("Asc") - упорядочивать по возрастанию. По умолчанию сортировка производится по возрастанию. Если параметр не указан, то порядок определяется основным представлением справочника. Значение по умолчанию: Пустая строка

Ответ отправила: Яна (статус: Студент) Ответ отправлен: 27.12.2007, 10:36

Отвечает: Ovr1970 Здравствуйте, Bvg82! Я так делал. Добавил в форме списка справочника галочку "Выполнить со всеми элементами текущего уровня". При установке галочки менял значение глобальной переменной. При перехвате удаления или переноса в другую группу (Это процедура глобального модуля - "ПриУдаленииЭлемента" (нужно проверять тип справочника) и "ПриПереносеЭлементаВДругуюГруппу") выполнял требуемое действие со всеми элементами. Если поступить аналогично, перехватив управление в процедуре "ПриЗаписи" - в ней определить реквизит и изменить его у требуемых элементов. Стоит обратить внимание на то, что в данной процедуре через ТекущийЭлемент().<Реквизит> вы получаете старое значение реквизита, а просто <Реквизит> - новое. Также имейте в виду, что если Выбран метод редактирования элемента "В диалоге" - то процедура при записи будет отрабатываться в Форме элемента , а не в форме списка справочника. Недосмотрел, что ве рсия платформы не та, извините.

Ответ отправил: Ovr1970 (статус: Практикант) Ответ отправлен: 27.12.2007, 14:38 Оценка за ответ: 3 Комментарий оценки: Вы наверно не совсем поняли вопрос или я не понимаю вашего ответа ... но мне на надо работать со справочником ... мне надо это реаизовать в табличном поле как это реализовано в справочнике ... лучше пример, чтобы от чего то отталкиваться

Вопрос № 116.031

Здравствуйте уважаемые эксперты. 1с77. Конфигурация самописная на регистрах, не я писал. Нужно выгрузить остатки по складах во внешний файл. Как получить остатки на определенную дату. Просто остатки я получаю функцией: ТМЦ_ДБФ.Tri = Регистр.ПартииТовара.СводныйОстаток(ТМЦ,Склад.ТекущийЭлемент(),,,"ОстатокТовара"); Нужно на определенную дату.

Отправлен: 26.12.2007, 12:08 Вопрос задал: Александр Павлович (статус: 1-ый класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

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

Ответ отправил: Munster (статус: 9-ый класс) Ответ отправлен: 26.12.2007, 14:53 Оценка за ответ: 5 Комментарий оценки: Отлично.

Отвечает: Сергей Максименко [Elric] Здравствуйте, Александр Павлович! Еще один вариант решения -- через временный расчет регистров. Пример смотрите в Приложении. Приложение: Рег=СоздатьОбъект("Регистр"); РегП=Рег.ПартииТовара; РегП.ВременныйРасчет(1); //РегП.УстановитьЗначениеФильтра("Склад",Склад.ТекущийЭлемент(),1); Рег.РассчитатьРегистрыПо(КонДата); РегП.ВыбратьИтоги(); Пока РегП.ПолучитьИтог()=1 Цикл // Получаем данные поочередно по всем измерениям регистра // Можно сразу записать их в dbf Скл =РегП.Склад; Товар=РегП.ТМЦ; //... Кво =РегП.ОстатокТовара; КонецЦикла; --------- В творчестве рождается истина

Ответ отправил: Сергей Максименко [Elric] (статус: Профессионал) Украина, Киев Тел.: (044) 22-88-369 Организация: "МАКСЕР" - продажа и внедрение "1С:Предприятие" Адрес: г. Киев WWW: "1С:Предприятие" в Киеве ---- Ответ отправлен: 27.12.2007, 12:31 Оценка за ответ: 5 Комментарий оценки: спасибо

Вопрос № 116.041

Здравствуйте уважаемые эксперты. 1с77. Необходимо подсчитать сумму у определенных льготчиков (с одинаковым счетом но прибавлять надо ктому льготчику у которого они проживают (для етого есть кодЛьгот) и количество этих льготчиков, и выгрузить выэтуже таблицу или создать новую. Помогите уменя выгружается только один или вобще невыполняет ничего (подсчет суммы и количества льготчиков)! Приложение: //процедура записывает данные об использовании отчёта в файл dBase формата DBF Процедура Выполнить() //путь к файлу; имя файла не должно превышать 8 знаков Путь=Константа.ФайлЭкпортаСоцПол; //создание нового файла Б=СоздатьОбъект("XBase"); //добавление полей Б.ДобавитьПоле("CDPR","N",12,0); Б.ДобавитьПоле("IDCODE","S",10,0); Б.ДобавитьПоле("FIO","S",50,0); Б.ДобавитьПоле("RS","S",15,0); Б.ДобавитьПоле("YEARIN","N",4,0); Б.ДобавитьПоле("MONTHIN","N",2,0); Б.ДобавитьПоле("LGCODE","N",3,0); Б.ДобавитьПоле("YEAR","N",4,0); Б.ДобавитьПоле("MONTH","N",2,0); Б.ДобавитьПоле("LGKOL","N",2,0); Б.ДобавитьПоле("LGPRC","N",3,0); Б.ДобавитьПоле("SUMM","N",8,2); Б.ДобавитьПоле("FACT","N",13,6); //создание файла Б.СоздатьФайл(Путь); Б.ЗакрытьФайл(); //открытие файла Б.ОткрытьФайл(Путь); Если Б.Открыта()=0 Тогда Сообщить("Не удалось открыть файл DBF","!"); Возврат; КонецЕсли; Б.ЗакрытьФайл(); ном=0;Сумма=0;_Сумма=0; Тариф = Константа.Тариф.Получить(ВыбКонПериода); Табл = СоздатьОбъект("ТаблицаЗначений"); Табл.НоваяКолонка("Льготчик","Справочник.Льготчики",,,,,,); Табл.НоваяКолонка("ЛицСчет","Число",,,,,,); Табл.НоваяКолонка("Родство","Строка",,,,,,); Табл.НоваяКолонка("Код","Число",,,,,,); Табл.НоваяКолонка("КодЛьгот","Число",,,,,,); Табл.НоваяКолонка("Сумма","Число",,,,,,); Табл.НоваяКолонка("Ном","Число",,,,,,); Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьСубконто(ВидыСубконто.Льготчики,,, ); Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, СчетПоКоду("ЛГ"),,,, ,); Ит.ВыбратьСубконто(); Пока Ит.ПолучитьСубконто()=1 Цикл Льготчик = Ит.Субконто(); Сумма = Ит.ДО(); Табл.НоваяСтрока(); Табл.Льготчик = Льготчик; Табл.ЛицСчет = Число(Льготчик.ЛицСчет); Табл.Родство = Льготчик.СтепеньРодства.Наименование ; Табл.Код = Число(Льготчик.Код); Табл.КодЛьгот = Число(Льготчик.КодЛьготчика); Табл.Сумма = Число(Сумма); КонецЦикла; //========================================== Табл.ВыбратьСтроки(); Пока Табл.ПолучитьСтроку() = 1 Цикл Если Табл.Родство = "_" Тогда Табл.Ном = 1; Сумма = Табл.Сумма; ЛицСчет = Табл.ЛицСчет; Код = Табл.Код; Табл.ВыбратьСтроки(); Пока Табл.ПолучитьСтроку() = 1 Цикл Если Табл.Родство <> "_" Тогда Если Табл.ЛицСчет = ЛицСчет Тогда Если Табл.КодЛьгот = Код Тогда Сумма = Сумма + Табл.Сумма; Ном = Ном + 1; КонецЕсли; КонецЕсли; КонецЕсли; КонецЦикла; Табл.УстановитьЗначение(1,"Сумма",Сумма); Табл.УстановитьЗначение(1,,Ном); КонецЕсли; КонецЦикла; //========================================== Табл.ВыбратьСтроки(); Пока Табл.ПолучитьСтроку() = 1 Цикл Если Табл.Родство = "_" Тогда Льготчик = Табл.Льготчик; ном = Табл.Ном; Сумма = Табл.Сумма; //добавление записи Б.ОткрытьФайл(Путь); Б.Добавить(); Б.CDPR=31006311; Б.Idcode=Льготчик.ИНН; Б.Fio=Льготчик.Наименование; Б.Rs=Льготчик.ЛицСчет; Б.Yearin=ДатаГод(ВыбКонПериода+2); Б.Monthin=ДатаМесяц(ВыбКонПериода+2); Б.Lgcode=506; Б.Year=ДатаГод(ВыбНачПериода); Б.Month=ДатаМесяц(ВыбНачПериода); Б.Lgkol=ном; Б.Lgprc=Сумма/3.50*100; Б.Summ=Сумма; Б.Fact=0; Б.Записать(); //закрытие файла Б.ЗакрытьФайл(); КонецЕсли; КонецЦикла; КонецПроцедуры

Отправлен: 26.12.2007, 13:20 Вопрос задал: Козинский Тарас (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Сергей Максименко [Elric] Здравствуйте, Козинский Тарас! У Вас проблема в организации цикла по строкам таблицы Табл, когда Вы пытаетесь ее "свернуть". Схематически, это выглядит так: Табл.ВыбратьСтроки(); Пока Табл.ПолучитьСтроку()=1 Цикл     Табл.ВыбратьСтроки(); // В этот момент сбивается выборка, Вы "забываете", какую строку обрабатываете во внешнем цикле     Пока Табл.ПолучитьСтроку()=1 Цикл     ...     КонецЦикла; КонецЦикла; Самое простое решение -- выгрузить Табл в другую таблицу (скажем, Табл2) и уже в ней искать родственников. Тогда этот участок будет иметь примерно такой вид, как у меня в Приложении. Приложение: Табл2=СоздатьОбъект("ТаблицаЗначений"); Табл.Выгрузить(Табл2); Табл.ВыбратьСтроки(); Пока Табл.ПолучитьСтроку() = 1 Цикл Если СокрЛП(Табл.Родство) = "_" Тогда Табл.Ном = 1; Табл2.ВыбратьСтроки(); Пока Табл2.ПолучитьСтроку() = 1 Цикл Если СокрЛП(Табл2.Родство) <> "_" Тогда Если Табл2.ЛицСчет = Табл.ЛицСчет Тогда Если Табл2.КодЛьгот = Табл.Код Тогда Табл.Сумма = Табл.Сумма + Табл2.Сумма; Табл.Ном = Табл.Ном + 1; КонецЕсли; КонецЕсли; КонецЕсли; КонецЦикла; КонецЕсли; КонецЦикла; --------- В творчестве рождается истина

Ответ отправил: Сергей Максименко [Elric] (статус: Профессионал) Украина, Киев Тел.: (044) 22-88-369 Организация: "МАКСЕР" - продажа и внедрение "1С:Предприятие" Адрес: г. Киев WWW: "1С:Предприятие" в Киеве ---- Ответ отправлен: 27.12.2007, 12:01

Отвечает: Ovr1970 Здравствуйте, Козинский Тарас! Здравствуйте - у Вас просто ошибка, в вложенном цикле по таблице значений используется цикл по той же таблице значений. Значительно проще сделать по другому. Примерно Так: Приложение: // посчитали Сумму и количество льготчиков Табл.Выгрузить(ТЗ2); ТЗ2.Заполнить(1,,"ном"); ТЗ2.Свернуть("ЛицСчет,КодЛьгот","Сумма,Ном"); //Собственно исправленный цикл Табл.ВыбратьСтроки(); Пока Табл.ПолучитьСтроку() = 1 Цикл Если Табл.Родство = "_" Тогда ЛицСчет = Табл.ЛицСчет; Код = Табл.Код; ТЗ2.ВыбратьСтроки(); Пока ТЗ2.ПолучитьСтроку() = 1 Цикл Если ТЗ2.ЛицСчет = ЛицСчет Тогда Если ТЗ2.КодЛьгот = Код Тогда Табл.Сумма = ТЗ2.Сумма; Табл.Ном = ТЗ2.Ном; превать; КонецЕсли; КонецЕсли; КонецЦикла; КонецЕсли; КонецЦикла;

Ответ отправил: Ovr1970 (статус: Практикант) Ответ отправлен: 27.12.2007, 14:08

Вопрос № 116.072

Люди, помогите!!! Каким образом прикрепить список значений к конкретному элементу табличной части документа. Объясняю ситуацию. Нужно присвоить серийники позициям Номенклатуры, при том, что выбор конкретных серийников в табличной части например Расходной, каждой строке соответствует список серийников равный количеству конкретной позиции номенклатуры.

Отправлен: 26.12.2007, 17:52 Вопрос задал: Greyadmin Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Татьяна Ласовская Здравствуйте, Greyadmin! Таблицу значений использовать как элемент строки в общем случае нельзя, т.к. для ее хранения в документе используется строка неограниченной длины, а реквизит такого типа использовать в табличной части документа нельзя. Выход - создаем в конфигураторе обычный документ, состоящий из следующих реквизитов: ссылка на родительский документ (это нужно больше для понимания того, к какому доку относится наш документ) и табличной части с одним реквизитом "Серийный номер". Далее, в исходном документе в табличную часть добавляется реквизит-ссылка на наш свежесозданный документ, в котором мы будем хранить серийные номера, и в этом же исходном документе останется прописать создание нового служебного документа при создании новой строки, его удаление при удалении строки и редактирование при необходимости добавить серийный номера. Отображение информации из дополнительного документа осуществляется с помощью ТаблицыЗначений. Это идея. Если потребуются пояснения, рада буду ответить _tatiana@mail.ru

Ответ отправила: Татьяна Ласовская (статус: 10-ый класс) Ответ отправлен: 26.12.2007, 20:53

Отвечает: Dmitry Stashenko Здравствуйте, Greyadmin! В свое время мне пришлось делать аналогичное. Кроме того, как завести Справочник.СерийныеНомера с реквизитами Документ, ТМЦ, СерийныйНомер, я ничего придумать не смог. При вводередактированииудалении серийного номера работал со списком значений, который заполнял из Справочника.СерийныеНомера изходя из ТекущегоДокумента и ТМЦ. Потом обновлял сам справочник. Естественно, есть ограничения, например, хотя бы то, что документ перед добавлением сер.номеров должен быть записан, так как иначе нечего будет добавлять в реквизит Документ. Ну и при удалении документа надо отслеживать удаление сер.номеров. Зато легко делается отчет, например, по движению серийного номера. По реквизиту из справочника выбрал элементы, и все, видишь в каких документах он участвовал. Вот где-то так. Удачи

Ответ отправил: Dmitry Stashenko (статус: Студент) Ответ отправлен: 26.12.2007, 21:01

Отвечает: Сергей Максименко [Elric] Здравствуйте, Greyadmin! На форме помещаете элемент диалога "Список значений", присваиваете ему идентификатор Спис (или по Вашему выбору). Также на форме помещаете объект "Текст", делаете его невидимым, в графе Формула на закладке "Дополнительно" пишете название функции ЗаполнитьСписок() (или по Вашему выбору). В модуле формы объявляете переменную СтарНомерСтроки, доступную во всех процедурах модуля. В модуле формы добавляете функцию ЗаполнитьСписок() такую, как у меня в Приложении. При этом я оставляю за Вами решение, где хранить и брать значения для этого Списка значений :) Это могут быть данные регистра, либо строковый реквизит справочника неограниченной длины и преобразованный потом в список значений (функции ЗначениеВСтроку() и ЗначениеИзСтроки()), либо другой вариант... Приложение: Функция ЗаполнитьСписок() Если СтарНомерСтроки=НомерСтроки Тогда Возврат ""; КонецЕсли; Спис.УдалитьВсе(); // Далее цикл заполнения списка данными для конкретной строки табличной части документа Возврат ""; КонецФункции --------- В творчестве рождается истина

Ответ отправил: Сергей Максименко [Elric] (статус: Профессионал) Украина, Киев Тел.: (044) 22-88-369 Организация: "МАКСЕР" - продажа и внедрение "1С:Предприятие" Адрес: г. Киев WWW: "1С:Предприятие" в Киеве ---- Ответ отправлен: 27.12.2007, 12:21

Вопрос № 116.130

Доброе утро/день/вечер/утра вечера мудренее. Вопрос хоть и косвенно относится к 1С, но всё-таки я его задам. Есть 1С 7.7 dbf версия (Торговля), но нет операционной системы. Решили, дабы экономить денежки поставить Linux Mandriva One на все компьютеры, да вот только наш любимый 1С не хочет (понятное дело) работать на нём. Вопрос: как организовать работу на линуксе работу 1С, при этом сделать так, чтобы проблем с проверкой лицензий не было (чтобы нам никто не сделал а-та-та). При этом организовать, чтобы все компьютеры работали на одном компе (т.к. база разрастётся со временем до порядочных размеров). Заранее спасибо.

Отправлен: 27.12.2007, 05:50 Вопрос задал: Vlads_K (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Munster Здравствуйте, Vlads_K! Обратитесь в http://www.etersoft.ru/. Есть программа Wine@Etersoft. С их помощью я запускал 1С 7.7 под Мандривой, и пользователи могли работать в терминальном режиме. Вот что я использовал: сервер:Mandriva 2007, Wine@Etersoft Network, 1С 7.7; клиент: Windows XP Prof + Xming через XDMCP Они дают два месяца на тестирование, разумеется бесплатно.

Ответ отправил: Munster (статус: 9-ый класс) Ответ отправлен: 27.12.2007, 08:48

© 2001-2007, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале Версия системы: 4.66 от 23.12.2007
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru