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

Выпуск № 727
от 12.02.2008, 14:35

Вопрос № 121.949

Здравствуйте! 1С v7.7. Самописная конфигурация. Возникает такая непонятная штука: имеется отчет, в коротом посредством запроса из справочника выбираются элементы с проверкой условия заполнения определенного реквизита. Так вот, при открытии отчета и нажатии на кнопку "Сформировать" иногда появляется сообщение об ошибке "Беда в запросе" (ошибка возникает при проверке условия Запрос.Выполнить(ТекстЗапроса) = 0). Но! Если еще раз нажать на "Сформировать", ну или с третьего раза, все отрабатывает на ура. Закрываю 1С, открываю - проблемы нет. Закрываю/открываю несколько раз - вылазит опять. При этом, что важно, конфигуратор не открывался и ничего не менялось, да и в запросе все условия на выборку статичные. Никак не могу понять, в чем подвох... Приложение: ТекстЗапроса = " |Период с Текущая_Дата по Текущая_Дата; |ОС = Справочник.ОсновныеСредства.ТекущийЭлемент; |СтатьяВыбытия = Справочник.ОсновныеСредства.СтатьяВыбытия; |Стоимость = Справочник.ОсновныеСредства.Стоимость; |ГруппаНАО = Справочник.ОсновныеСредства.НАО.Родитель; |Группировка ГруппаНАО Упорядочить по руппаНАО.Код; |Группировка ОС Упорядочить по ОС.Код; |Условие (НЕ(ОС.ДатаВыбытия > 0)); |Условие (СтатьяВыбытия.Выбран() = 0); |"; Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда Сообщить("Беда в запросе"); Возврат; КонецЕсли;

Отправлен: 06.02.2008, 15:07 Вопрос задал: Авдонин Алексей Владимирович (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Татьяна Ласовская Здравствуйте, Авдонин Алексей Владимирович! Если вы работаете в сетевом режиме, то возможна ситуация, когда в момент отработки запроса другой пользователь вводит или редактирует элемент справочника, по которому выполняется запрос. Попробуйте погонять этот отчет монопольно и посмотреть, появится ли ошибка в этом случае

Ответ отправила: Татьяна Ласовская (статус: Студент) Ответ отправлен: 06.02.2008, 15:33 Оценка за ответ: 4 Комментарий оценки: Версия 1С - сетевая, но конфигурацию я пишу на отдельной машине с закрытой для доступа конфигурацией.

Отвечает: Сергей Максименко [Elric] Здравствуйте, Авдонин Алексей Владимирович! Никаких ошибок или сомнительных мест в тексте запроса не вижу (не считая пропущенной первой буквы в фразе " руппаНАО.Код;"). Ну, можно конечно заменить условия на те, что в Приложении, но сути это не должно изменить. Нестабильность следует искать в другом месте. Приложение: |Условие (СокрЛП(ОС.ДатаВыбытия)<> ". ."); |Условие (ПустоеЗначение(СтатьяВыбытия) = 1); --------- В творчестве рождается истина

Ответ отправил: Сергей Максименко [Elric] (статус: Профессионал) Украина, Киев Тел.: (044) 22-88-369 Организация: МАКСЕР, "1С:Предприятие" в Киеве Адрес: г. Киев WWW: www.makser.com.ua ---- Ответ отправлен: 08.02.2008, 23:00 Оценка за ответ: 4

Вопрос № 121.955

Ребята,Помогите!!! Нужно создать отчет, который бы выводил выбранных из общего списка контрагентов за выбранный период, причем за каждый месяц этого периода отдельно чтоб видеть движение. Пеперобовала все, косяк в том, что по одним контрагентам за опред месяц бухгалтерских итогов просто нет, и по этому объекту на месяц вс съезжаеть, все результаты:( Код приведен ниже Приложение: Процедура ВключитьПометки(Режим) Для Сч = 1 По Контраг.РазмерСписка() Цикл Контраг.Пометка(Сч, Режим); КонецЦикла; КонецПроцедуры // ВключитьПометки() //Процедура ОткрытьСправочник() // Перем Конт; // ОткрытьФорму("Справочник.Контрагенты.Наименование",Конт); // Конт.АктивизироватьОбъект(Контраг.ПолучитьЗначение(Контраг.ТекущаяСтрока())); //КонецПроцедуры Функция ПолучИтоги() ТЗ=СоздатьОбъект("ТаблицаЗначений"); ТЗ.НоваяКолонка("Месяц"); ТЗ.НоваяКолонка("Год"); ТЗ.НоваяКолонка("ДебОб"); ТЗ.НоваяКолонка("КредОб"); ТЗ.НоваяКолонка("Контрагенты"); ТабЗнач=СоздатьОбъект("ТаблицаЗначений"); ТабЗнач.НоваяКолонка("ДатаНач","Дата"); ТАбЗнач.НоваяКолонка("ДатаКон","Дата"); НачМес=НачМесяца(НачДата); Пока НачМес<=НачМесяца(КонДата) Цикл ТабЗнач.НоваяСтрока(); ТабЗнач.ДатаНач = НачМесяца(НачМес); ТабЗнач.ДатаКон = КонМесяца(НачМес); НачМес=КонМесяца(НачМес)+1; КонецЦикла; ТабЗнач.Свернуть("ДатаНач,ДатаКон",); ТабЗнач.ВыбратьСтроки(); Пока ТабЗнач.ПолучитьСтроку()=1 Цикл БИ=СоздатьОбъект("БухгалтерскиеИтоги"); БИ.Рассчитать(НачДата,КонДата,"62",,,); БИ.ИспользоватьСубконто(ВидыСубконто.Контрагенты,,,); БИ.ВыполнитьЗапрос(ТабЗнач.ДатаНач,ТабЗнач.ДатаКон,"62",,,,); БИ.ВыбратьСубконто(); Пока БИ.ПолучитьСубконто()=1 Цикл ТЗ.НоваяСтрока(); ТЗ.Месяц=ДатаМесяц(БИ.НачПериода()); ТЗ.Год=ДатаГод(БИ.НачПериода()); Если ПустоеЗначение(Би.ДО())=0 Тогда ТЗ.ДебОб=БИ.ДО(); Иначе ТЗ.ДебОб=0; КонецЕсли; Если ПустоеЗначение(БИ.КО())= 0 Тогда ТЗ.КредОб=Би.КО(); Иначе ТЗ.КредОб=0; КонецЕсли; ТЗ.Контрагенты=БИ.Субконто(); Наш=0; Мес.ВыбратьСтроки(); Пока Мес.ПолучитьСтроку()=1 Цикл Если ТЗ.Месяц=Мес.Месяц Тогда Наш=1; КонецЕсли; КонецЦикла; Если Наш=0 Тогда Мес.НоваяСтрока(); Мес.Месяц=ТЗ.Месяц; КонецЕсли; КонецЦикла; КонецЦикла; ТЗ.Свернуть("Контрагенты,Месяц,Год","ДебОб,КредОб"); // ТЗ.Сортировать("Год,Месяц"); Возврат ТЗ; КонецФункции //******************************************* Процедура Сформировать() Мес = СоздатьОбъект("ТаблицаЗначений"); Мес.НоваяКолонка("Месяц","Число"); Мес.НоваяКолонка("Год","Число"); Таб=СоздатьОбъект("Таблица"); Таб.ИсходнаяТаблица("Таблица"); ТекМес=СоздатьОбъект("ТаблицаЗначений"); Мес.Сортировать("Год,Месяц",""); Мес.ВыбратьСтроки(); Пока Мес.ПолучитьСтроку()=1 Цикл Месяц=Мес.Месяц; Год=Мес.Год; Прервать; КонецЦикла; Таб.ВывестиСекцию("Шапка|Шапка_Загол"); ТабЗнач=СоздатьОбъект("ТаблицаЗначений"); ТабЗнач.НоваяКолонка("ДатаНач","Дата"); ТАбЗнач.НоваяКолонка("ДатаКон","Дата"); НачМес=НачМесяца(НачДата); Пока НачМес<=НачМесяца(КонДата) Цикл ТабЗнач.НоваяСтрока(); ТабЗнач.ДатаНач = НачМесяца(НачМес); ТабЗнач.ДатаКон = КонМесяца(НачМес); НачМес=КонМесяца(НачМес)+1; Таб.ПрисоединитьСекцию("Шапка|Мес_1"); КонецЦикла; ТабЗнач.Свернуть("ДатаНач,ДатаКон",); ПолучИтоги(); Т=СоздатьОбъект("ТаблицаЗначений"); ТЗ.Выгрузить(Т,,,"Контрагенты,Месяц"); Т.Свернуть("Контрагенты",); Ном=0; Для м=1 по Контраг.РазмерСписка() Цикл Если Контраг.Пометка(м,)=1 Тогда А=Контраг.ПолучитьЗначение(м); Если Т.НайтиЗначение(А,,"Контрагенты")=1 Тогда Для н=1 по Т.КоличествоСтрок() Цикл Т.ПолучитьСтрокуПоНомеру(н); Если Т.Контрагенты=Контраг.ПолучитьЗначение(м) Тогда Ном=Ном+1; Контраг1=Т.Контрагенты; Таб.ВывестиСекцию("Данные|Шапка_Загол"); Иначе Продолжить; КонецЕсли; ТЗ.ВыбратьСтроки(); Пока ТЗ.ПолучитьСтроку()=1 Цикл Если Тз.Контрагенты=Контраг.ПолучитьЗначение(м) Тогда // Кред=ТЗ.КредОб; Деб=ТЗ.ДебОб; Мес1=ТЗ.Месяц; Итог=ТЗ.ДебОб-ТЗ.КредОб; Таб.ПрисоединитьСекцию("Данные|Мес_1"); Иначе Продолжить; КонецЕсли; КонецЦикла; КонецЦикла; КонецЕсли; КонецЕсли; КонецЦикла; //КонецЦикла; Мес.Сортировать("Год,Месяц",""); Мес.ВыбратьСтроки(); Пока Мес.ПолучитьСтроку()=1 Цикл Месяц=Мес.Месяц; Год=Мес.Год; ДатаНуж=НачМесяца(Дата(Строка("01."+?(СтрДлина(Месяц)=1,("0"+Месяц),Месяц)+"."+Год))); // Таб.ПрисоединитьСекцию("Мес_1|Шапка"); КонецЦикла; Таб.ПараметрыСтраницы(1,,,0,0,,,,,1); Таб.ТолькоПросмотр(1); Таб.Показать("Отчет по контрагентам",""); КонецПроцедуры Процедура ПриОткрытии() // Предопределенная КонецПроцедуры // ПриОткрытии

Отправлен: 06.02.2008, 15:45 Вопрос задала: Марина Иванова (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

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

Ответ отправил: Ушаков Михаил Андреевич (статус: 1-ый класс) Ответ отправлен: 06.02.2008, 16:42

Отвечает: Сергей Максименко [Elric] Здравствуйте, Марина Иванова! А зачем так мудрить? Воспользуйтесь конструктором бухгалтерских итогов, отчет типа "Шахматка". В прикрепленном файле - результат, можете подкорректировать под свои нюансы. В Приложении на всякий случай пишу код. Приложение: Процедура Сформировать_Колонки(Ит, Таб, Стр) Таб.ВывестиСекцию(Стр+"|Начало"); Ит.ВыбратьПериоды(1); Пока Ит.ПолучитьПериод() = 1 Цикл Таб.ПрисоединитьСекцию(Стр+"|Период"); КонецЦикла; Таб.ПрисоединитьСекцию(Стр+"|Итог"); КонецПроцедуры Процедура Сформировать() Таб = СоздатьОбъект("Таблица"); Таб.ИсходнаяТаблица("Сформировать"); Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты, ВыбСубконто1, 1); Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, "62",,, 1, "Месяц", "С"); Таб.ВывестиСекцию("Заголовок"); Сформировать_Колонки(Ит, Таб, "Шапка"); Таб.Опции(0,0,Таб.ВысотаТаблицы(),0); Ит.ВыбратьСубконто(ВидыСубконто.Контрагенты); Пока Ит.ПолучитьСубконто(ВидыСубконто.Контрагенты) = 1 Цикл Сформировать_Колонки(Ит, Таб, "Субконто1"); КонецЦикла; Сформировать_Колонки(Ит, Таб, "Подвал"); Таб.ТолькоПросмотр(1); Таб.Показать("Сформировать",""); КонецПроцедуры Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа. --------- В творчестве рождается истина

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

Вопрос № 121.966

Мне необходимо в справочнике Партии отсортировать по коду по убыванию. Перечитала кучу информации, я так и пишу Сортировка("Код"); ОбратныйПорядок(1); Не помогает! В первой строчке код 1 , все равно идет в порядке возрастания, а мне надо в порядке убывания. Помогите, пожалуйста, просто парадокс какой-то. Убила кучу времени.

Отправлен: 06.02.2008, 16:55 Вопрос задала: Lassk (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Strawberry Здравствуйте, Lassk! ОбратныйПорядок(<Режим>) Назначение: Установить порядок выборки элементов справочника. Возвращает: текущее значение порядка выборки элементов справочника (на момент до исполнения метода): 1 - обратный порядок выборки элементов справочника; 0 - выборка элементов справочника в прямом порядке. !!!! Замечание: Метод можно использовать только для объектов, созданных функцией СоздатьОбъект. Так что прямо в справочнике отсортировать неполучится. Какая цель обратной сортировки ?? для чего ?? для подбора?? ЕСли для подбора то организуй подбор из таблицы значений, там можно отсортировать как угодно --------- Мальчик-извращенец прочел деду Морозу с табуретки всего Пастернака!

Ответ отправил: Strawberry (статус: 10-ый класс) Ответ отправлен: 06.02.2008, 17:31

Отвечает: Ушаков Михаил Андреевич Здравствуйте, Lassk! Сортировка нужна при открытии формы списка? Или в выборке элементов справочника методом спрПартии.ВыбратьЭлементы()? Если сортировка необходима в открытой форме списка, то ОбратныйПорядок тут не сработает, он служит сортировке выборки элементов. А метод Сортировка() должен отработать корректно, если он прописан в модуле формы списка, например, в процедуре ПриОткрытии(). Но сортировка идет ТОЛЬКО по возрастанию. Для сортировки по убыванию можно завести реквизит отбора, который будет содержать "обратные" коды. И отсортировать по нему. Но тогда возникает задача: при вводе нового элемента эти "обратные" коды придется переписывать во всем справочнике. Тут уже Вам решать, как организовать такую сортировку.

Ответ отправил: Ушаков Михаил Андреевич (статус: 1-ый класс) Ответ отправлен: 06.02.2008, 17:57

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

Ответ отправил: Dmitry Stashenko (статус: Студент) Ответ отправлен: 06.02.2008, 20:48

Отвечает: Сергей Максименко [Elric] Здравствуйте, Lassk! Метод ОбратныйПорядок() для формы списка не работает. Предлагаю такой следующий вариант решения, актуален если код справочника числовой (а для справочника Партии это соблюдается). Заведите дополнительный реквизит АнтиКод, и при записи присваивайте ему значение АнтиКод=-Код; (минус Код). Для всех уже созданных элементов справочника нужно сделать то же самое обработкой. И после этого сортировать по реквизиту Антикод. При этом в форму списка выводить этот реквизит не обязательно. --------- В творчестве рождается истина

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

Вопрос № 121.979

Добрый всем денек. Есть вопрос по 1с7.7 Как можно узнать о коде ошибки (или текстовой фразе ошибки, даже лучше!) при выполнении программы в следующем коде: Попытка <Действие результатом которого есть ошибка> Исключение КонецПопытки Думаю вопрос понятен. Спасибо.

Отправлен: 06.02.2008, 18:48 Вопрос задал: Ткаченко Алексей Васильевич (статус: 2-ой класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Dmitry Stashenko Здравствуйте, Ткаченко Алексей Васильевич! Если мы об одном и том же, то так: Приложение: Попытка <Действие результатом которого есть ошибка> Исключение Сообщить(ОписаниеОшибки()); КонецПопытки;

Ответ отправил: Dmitry Stashenko (статус: Студент) Ответ отправлен: 06.02.2008, 19:15 Оценка за ответ: 5 Комментарий оценки: Yes!!! Да как говорят Лень-двигатель прогресса, че не посмотреть было в помощник. Все равно спасибо!!! Быстро и со вкусом!!!!

Вопрос № 121.993

Здравствуйте эксперты. Подскажите, как на ценнике вывести страну происхождения товара? 1С: Торговля и Склад 7.7

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

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

Ответ отправил: Астафьев Александр Николаевич (статус: 10-ый класс) Ответ отправлен: 08.02.2008, 17:33

Вопрос № 122.001

Добрый день. 1С 7.7, типовая для Украины. Нужно сделать сортировку по реквизиту. Точнее, есть форма, на ней Поле Ввода с типом Справочник.Сотрудники. Можно ли как-то сделать, чтоб при открытии справочника шла выборка по реквизиту? Например -Профессия. И выводились только сотрудники с определенной профой. Конструкция Спр.ВыбратьЭлементыПоРеквизиту("Профессия", Дворнег,1,0); Пока Спр.ПолучитьСтроку()=1 Цикл Спр.Показать(); не работает. Крутил и так и эдак. И переменными реквизит указывал и так как в примере... Единственное, что приходит в голову - создать ТЗ. Новая. Выгрузить в нее справочник, а потом делать выборку в самой ТЗ и её же выводить. Но как тогда установить реквизит? В ТЗ? Или есть способ попроще?

Отправлен: 06.02.2008, 21:09 Вопрос задал: stahh (статус: 2-ой класс) Всего ответов: 5 Мини-форум вопроса >>> (сообщений: 13)

Отвечает: Strawberry Здравствуйте, stahh! Процедура ПриУстановкеОтбора(,) КонецПроцедуры Синтаксис: ПриУстановкеОтбора(<ТипОтбора>,<ЗначениеОтбора>) Назначение: Предопределенная процедура при интерактивной установке отбора любым способом (отбор, быстрый отбор, отбор по значению, история отбора) и при отключении отбора. Параметры: <ТипОтбора> - строковое значение - тип устанавливаемого отбора (имя реквизита справочника, по которому устанавливается отбор). <ЗначениеОтбора> - устанавливаемое значение отбора. Замечание: Данная процедура может располагаться только в модуле формы списка справочника. Думаю эта конструкция поможет. СОздайте форму списка которая будет открываться при выборе вашего реквизита в форме. Для вашего реквизита установите- флажок сортировка по реквизиту "Последующая подсказка" №1 Пардон не ту процедурку взял вот то что подразумевалось УстановитьОтбор(,); Синтаксис: < br>УстановитьОтбор(<ИмяОтбора>,<ЗначениеОтбора>) Назначение: Установить отбор списка справочника. Параметры: <ИмяОтбора> - строка с именем реквизита справочника (по которому возможен отбор, т.е. взведен флажок ''Отбор по реквизиту'' в свойствах реквизита справочника), по которому установлен отбор. Если это значение пустое, то отбор отключается. <ЗначениеОтбора> - необязательный параметр. Значение отбора. Замечание: Метод доступен только в контексте Модуля формы списка справочника и относится ко всему текущему справочнику. "Последующая подсказка" №2 По поводу того как передавать нужные переменные в форме Процедура ПриНачалеВыбораЗначения(ИдентЭлемДиалога,ФлагСтандОбр) Перем Контрагенты, Договора, ВыбранныйДоговор; Если ИдентЭлемДиалога = "Договор" Тогда // какое поле вызвало выбор значения ФлагСтандОбр = 0; // уходим от стандартной обработки отбора Фрм=Созда тьОбъект("СписокЗначений"); // готовим список для передачи в форму журнала(справочника) Если (КонтрагентВдокументе.Выбран()>0) Тогда Фрм.ДобавитьЗначение(КонтрагентВдокументе,"Контрагент"); // добавляем переменные в список КонецЕсли; Если Реквизит.Вид = "Договор" Тогда Фрм.ДобавитьЗначение(0,"ВыбиратьДополнения"); // добавляем переменные в список Иначе КонецЕсли; ОткрытьФормуМодально("Журнал.ПолныйЖурнал.ДляВыбораДоговоров",Фрм,);// открываем журнал и передаем список ВремДоговор=Фрм.Получить("Договор"); // то что вернул журнал ИначеЕсли ИдентЭлемДиалога = "ДокументОснование" Тогда // запомним документ основание КонецЕсли; КонецПроцедуры // в форме журнала Процедура ПриОткрытии() Если ПустоеЗначение(Форма.Параметр)=0 Тогда Если ТипЗначенияСтр(Форма.Параметр)="СписокЗначений" Тогда // проверяем или переда ли список спРасшифровка = Форма.Параметр; КонтрагентДляОтбора = спРасшифровка.Получить("Контрагент"); ВыбиратьДополнения = спРасшифровка.Получить("ВыбиратьДополнения"); ИначеЕсли ТипЗначенияСтр(Форма.Параметр)="Справочник" Тогда // может справочник КонтрагентДляОтбора = Форма.Параметр; ВыбиратьДополнения = 1; КонецЕсли; Иначе // ничего непередали ВидОтбора.ТекущаяСтрока(2); ПриУстановкеБыстрогоОтбора(); КонецЕсли; КонецПроцедуры // формируем то что вернем в вызвавшую форму Процедура ПриВыбореСтроки() спРасшифровка.УдалитьВсе(); // сносим старые данные из списка спРасшифровка.ДобавитьЗначение(Информация,"Контрагент"); // добавляем то что нужно вернуть в форму которая вызвала спРасшифровка.ДобавитьЗначение(ТекущийДокумент,"Договор"); Форма.Закрыть(); КонецПроцедуры Добавил "последующие подсказки" из мини-форума. ----- ∙ Отредактировал: Сергей Максименко [Elric] (Профессионал) ∙ Дата редактирования: 08.02.2008, 22:11 --------- Мальчик-извращенец прочел деду Морозу с табуретки всего Пастернака!

Ответ отправил: Strawberry (статус: 10-ый класс) Ответ отправлен: 06.02.2008, 21:59 Оценка за ответ: 5 Комментарий оценки: Спасибо за последующие подсказки ;-)

Отвечает: Ткаченко Алексей Васильевич Здравствуйте, stahh! Реквизит справочника Профессия должен имеет пометку "Отбор по реквизиту" При открытии формы для подбора нужно прописать (это как вариант!!!) // в глобальном модуле Перем НужнаяПрофессия Экспорт; //в форме перед открытием подбора НужнаяПрофессия = Профессия; //в форме после выборки НужнаяПрофессия = ""; // В справочнике сотрудники Процедура ПриОткрытии() Если пустоеЗначение() Если ПустоеЗначение(НужнаяПрофессия)=1 тогда // тут чегото ваше Иначе УстановитьОтбор("Профессия",НужнаяПрофессия); КонецЕсли; конецпроцедуры

Ответ отправил: Ткаченко Алексей Васильевич (статус: 2-ой класс) Ответ отправлен: 06.02.2008, 22:03 Оценка за ответ: 5 Комментарий оценки: Спасибо, навело на правильное решение :-)

Отвечает: Владимир Лазурко [Vladal] Здравствуйте, stahh! Метод ВыбратьЭлементыПоРеквизиту может использоваться только в том случае, если в конфигу­раторе при описании данного реквизита установлен признак "Сортировка" (Свойства реквизита -> Дополнительные -> Сортировка), и только для объектов, созданных функцией СоздатьОбъект. Дальнейшая выборка при помощи метода ПолучитьЭлемент будет проис­ходить среди элементов текущего справочника, имеющих значение реквизита <ИмяРеквизита> равным <3начение>, в порядке, установленном параметрами <РежимИерархии> и <РежимГрупп>, а также согласно установкам, сделан­ным заранее при помощи методов: - ПорядокНаименований, - ПорядокКодов, - ВключатьПодчиненные, - ИспользоватьРодителя, - ИспользоватьВладельца, - ИспользоватьДату. Обратите внимание на такие моменты: 1. Вы в примере первой строкой не написали Спр = СоздатьОбъект("Справочник.Сотрудники"). Если Вы не определили переменную Спр, то и выборка будет пустая. 2. Второй параметр метода ВыбратьЭлементыПоРеквизиту - значение, по которому будет происходить отбор. Притом должно иметь тот же тип, как он задан в Конфигураторе для отбираемого реквизита. 3. Третий параметр - использовать иерархию. Поставьте 0. Т.е. переменная Дворнег должна иметь тот же тип, что и реквизит Профессия справочника Сотрудники, а для реквизита Профессия должна быть включена сортировка. Посмотрите мой код в Приложении. Тот же результат можно получить и с помощью запроса с условием по профессии. С уважением, Владимир. Приложение: Дворнег = СоздатьОбъект("Справочник.Должности"); Дворнег.НайтиПоНаименованию("Дворник"); Спр = СоздатьОбъект("Справочник.Сотрудники") Спр.ВыбратьЭлементыПоРеквизиту("Профессия", Дворнег); Пока Спр.ПолучитьСтроку()=1 Цикл Сообщить(Спр.ТекущийЭлемент().ПолноеНаименование()); КонецЦикла;

Ответ отправил: Владимир Лазурко [Vladal] (статус: Студент) Ответ отправлен: 06.02.2008, 23:18 Оценка за ответ: 5 Комментарий оценки: Отлично! "переменная Дворнег должна иметь тот же тип, что и реквизит Профессия" Вот это я и не мог реализовать. Спасибо за код в приложении.

Отвечает: Ушаков Михаил Андреевич Здравствуйте, stahh! Если исполнителей м.б. несколько, то грамотнее было бы создать список значений или таблицу значений и на форме либо организовать поле для выбора профессии, которую вы добавляете в список, либо, если количество профессий исполнителей жёстко ограничено, то кнопкой "Добавить" с привязанным выпадающим списком профессий, при выборе из которого будет происходить следующее (см.приложение) P.S. Есть мини-конфа, где реализован как раз такой механизм выборки ответственных лиц, но без отбора по реквизиту. Прислать. Отбор можно взять из приложения. Приложение: //процедура Добавить() Профессия = ""; спсПрофессии.ВыбратьЗначение(Профессия,,,,1); //открываться форма списка справочника сотрудников Если ПустоеЗначение(Профессия) = 0 Тогда ОткрытьПодбор("Справочник.Сотрудники","ФормаСписка",Профессия,0); КонецЕсли; В модуле формы списка справочника Сотрудники в процедуре ПриОткрытии получаем следующее: ПараметрФормы = Форма.Параметр; //получаем переданную извне переменную Если ПустоеЗначение(ПараметрФормы) = 0 Тогда //тут я предполагаю, что извне мы открываем справочник Сотрудники ТОЛЬКО из нашей формы. УстановитьОтбор("Профессия",ПараметрФормы); КонецЕсли; //после выбора сотрудника двойным кликом возвращаемся в нашу форму в процедуру ОбработкаПодбора(Элемент,Конт) где список исполнителей хранится в тзИсполнители. Если ПустоеЗначение(Элемент) = 0 Тогда тзИсполнители.НоваяСтрока(); тзИсполнители.Сотрудник = Элемент.ФИО; тзИсполнители.Должность = Элемент.Профессия; КонецЕсли;

Ответ отправил: Ушаков Михаил Андреевич (статус: 1-ый класс) Ответ отправлен: 07.02.2008, 09:55 Оценка за ответ: 5 Комментарий оценки: Спасибо

Отвечает: Крюков Р.А. Здравствуйте, stahh! Приведенная выше кострукция может не работать если в свойствах реквизита не проставлена галочка на вкладке дополнительно "отбор по реквизиту" --------- Отвечаю только на вопросы в тему.

Ответ отправил: Крюков Р.А. (статус: 3-ий класс) Ответ отправлен: 07.02.2008, 10:09 Оценка за ответ: 3 Комментарий оценки: К сожалению, данная конструкция может не работать по многим причинам.

Вопрос № 122.004

День добрый. Необходимо установить на server 2003 1С v6. Как это сделать?? при установке вываливаются ошибки. Дистрибутив нашел, но видать ещё какая то хитрость есть )

Отправлен: 06.02.2008, 21:23 Вопрос задал: Kkipa (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 14)

Отвечает: Астафьев Александр Николаевич Здравствуйте, Kkipa! Ищите другой дистрибутив. Во первых досовская была 2-ая версия , а 6-ая уже писалась для Windows 95. У меня у клиента все и сейчас работает, правда без терминала, на Windows 2000 (а на XP у нескольких). Для той же цели что и у Вас.

Ответ отправил: Астафьев Александр Николаевич (статус: 10-ый класс) Ответ отправлен: 08.02.2008, 17:23 Оценка за ответ: 5 Комментарий оценки: именно Win версия и установилось

Вопрос № 122.028

Уважаемые эксперты! Время от времени сталкиваюсь с такой проблемой. Работаю над созданием конфигурации на работе и дома. Иду с работы - закидываю папку на флешку, иду на работу - то же самое. Флешка 1гб. Не каждый раз, но иногда сталкиваюсь с невозможностью скопировать, переместить или удалить папку с конфигурацией на флешке, поскольку она занимает 15 - 19 гб (!). Оказалось, что периодически в папке ExtForms (только на флешке, на винчестерах такого нет), появляются подпапки, файлы не известного типа с названиями, состоящими из квадратиков, знаков и проч. Обычный проводник показывает их больше, чем Тотал. Объясните, откуда они берутся? С внешними отчетами-обработками вообще не работаю. Файлы появляются только на флешке. На вирусы проверял - отсутствуют. После обнаружения вышеназванных папок и файлов форматирую флешку.

Отправлен: 07.02.2008, 01:13 Вопрос задал: Сергеев Александр (статус: 1-ый класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Vlad Skorochod Здравствуйте, Сергеев Александр! Это у Вас флэшка сбоит. Стоит задуматься над заменой флэшки, иначе можно потерять всю информацию находящуюся на флэшке.

Ответ отправил: Vlad Skorochod (статус: 8-ой класс) Ответ отправлен: 07.02.2008, 08:36 Оценка за ответ: 5 Комментарий оценки: Спасибо. Поверю на слово, поскольку проверить трудно...:-)

Отвечает: Strawberry Здравствуйте, Сергеев Александр! Такое может наблюдаться если шлешку вытягивают неостанавливая устройство, или если шлешка заканчивает свой жизненный цикл. --------- Мальчик-извращенец прочел деду Морозу с табуретки всего Пастернака!

Ответ отправил: Strawberry (статус: 10-ый класс) Ответ отправлен: 07.02.2008, 10:42 Оценка за ответ: 5 Комментарий оценки: Спасибо. Скорее всего второе, потому как выключаю правильно

Вопрос № 122.076

Уважаемые эксперты! Подскажите, пожалуйста, как сделать проверку при проведении расходной накладной. Надо, чтобы накладная всё же проводилась, но выскакивало предупреждение, если продажа ТМЦ идёт в убыток, т.е. если продажа ниже себестоимости. 1С-7.70-026. Торговля и Склад-944 Большое спасибо!

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

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

Ответ отправил: Астафьев Александр Николаевич (статус: 10-ый класс) Ответ отправлен: 08.02.2008, 17:11 Оценка за ответ: 5 Комментарий оценки: Спасибо большое! Всё заработало. Только пришлось поменять знак в строке: "Если Рег1.СуммаРуб <= Табл.Сумма Тогда" на ">="

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