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

Выпуск № 741
от 27.02.2008, 18:05

Вопрос № 124 .258

Здравствуйте. Пытаюсь создать отчет,проблема в том,что заголовки отчета у меня выводятся на экран,а больше ничего. Подскажите в чем ошибка? Что надо дописать в программе? Приложение: Процедура Сформировать() Перем Запрос, ТекстЗапроса, Таб, Фл_НеВыводитьСклады, ВыбрСклад, ВыбрМатериалГруппа; Запрос=СоздатьОбъект("Запрос"); ТекстЗапроса=" |Материал = Регистр.ОстаткиМатериалов.Материал; |Склад = Регистр.ОстаткиМатериалов.Склад; |Количество = Регистр.ОстаткиМатериалов.Количество; |Функция КоличествоКонОст = КонОст(Количество); |Группировка Материал; |Группировка Склад; |Условие (Материал в ВыбрМатериалГруппа); |Условие (Склад в ВыбрСклад); |"; Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда Возврат; КонецЕсли; Таб=СоздатьОбъект("Таблица"); Таб.ВывестиСекцию("Заголовок"); Пока Запрос.Группировка(1) = 1 Цикл Если Запрос.Материал.ЭтоГруппа() = 1 Тогда Таб.ВывестиСекцию("Группа"); Иначе Таб.ВывестиСекцию("Материал"); Если Фл_НеВыводитьСклады = 0 Тогда Пока Запрос.Группировка(2) = 1 Цикл Таб.ВывестиСекцию("Склад"); КонецЦикла; КонецЕсли; КонецЕсли; КонецЦикла; Таб.Опции(0); Таб.Показать("Сформировать",""); КонецПроцедуры

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

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

Ответ отправил: Strawberry (статус: Студент) Ответ отправлен: 21.02.2008, 19:03 Оценка за ответ: 5 Комментарий оценки: Спасибо огромное!!!

Отвечает: Ушаков Михаил Андреевич Здравствуйте, Necki! Вот немного "причесанный" вариант запроса. Уточню, что у меня даже в том виде (с ненужным объявлением переменных в процедуре Сформировать) отработал и вывел строки в отчет. Правда не взирая на выставленные условия, но причину этого описал Strawberry. Приложение: Процедура Сформировать() Запрос=СоздатьОбъект("Запрос"); ТекстЗапроса=" |Материал = Регистр.ОстаткиМатериалов.Материал; |Склад = Регистр.ОстаткиМатериалов.Склад; |Количество = Регистр.ОстаткиМатериалов.Количество; |Функция КоличествоКонОст = КонОст(Количество); |"; Если ВыбрМатериалГруппа.Выбран() = 1 Тогда ТекстЗапроса = ТекстЗапроса + " |Условие (Материал в ВыбрМатериалГруппа); |"; КонецЕсли; Если ВыбрСклад.Выбран() = 1 Тогда ТекстЗапроса = ТекстЗапроса + " |Условие (Склад в ВыбрСклад); |"; КонецЕсли; ТекстЗапроса = ТекстЗапроса + " |Группировка Материал; |"; Если Фл_НеВыводитьСклады = 0 Тогда ТекстЗапроса = ТекстЗапроса + " |Группировка Склад; |"; КонецЕсли; Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда Возврат; КонецЕсли; Таб=СоздатьОбъект("Таблица"); Таб.ВывестиСекцию("Заголовок"); Пока Запрос.Группировка(1) = 1 Цикл Если Запрос.Материал.ЭтоГруппа() = 1 Тогда Таб.ВывестиСекцию("Группа"); Иначе Таб.ВывестиСекцию("Материал"); Если Фл_НеВыводитьСклады = 1 Тогда Пока Запрос.Группировка(2) = 1 Цикл Таб.ВывестиСекцию("Склад"); КонецЦикла; КонецЕсли; КонецЕсли; КонецЦикла; Таб.Опции(0,0,3,0); Таб.Показать("Сформировать",""); КонецПроцедуры

Ответ отправил: Ушаков Михаил Андреевич (статус: 2-ой класс) Ответ отправлен: 21.02.2008, 19:15 Оценка за ответ: 5 Комментарий оценки: Спасибо!!!!!!!

Вопрос № 124.365

Уважаемые эксперты нужна ваша небольшая помощь. Обращаюсь по большому счету к тем у кого есть 1с v77 или кто может ее поставить. пишу программу которая через OLE лезет к 1с и вот незадача при завершении работы программы процесс 1cv7 остается висеть, естественно когда его убиваешь насильно то естественно при следующей загрузке 1с требует переиндексировать базу. все бы ничего и искал бы ошибку у себя т.к. я понимаю если не убивается объект значит я где то не убил какую то ссылку, но проблема в том что под виртуалкой этот код работает тип топ. я написал маленький пример чтобы вы смогли его протестировать (у кого есть возможность) меня интересуют 2 вопроса 1) завершается ли процесс 1с 2) появляется ли головное окно при загрузке 1с. ссылка на файл http://rusfaq.ru/upload/183

Отправлен: 22.02.2008, 12:49 Вопрос задал: Кэр Лаэда (статус: Практикант) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 24)

Отвечает: DERL.KG Здравствуйте, Кэр Лаэда! вам поможет метод ЗавершитьРаботуСистемы(0) применяйте его к объекту "V77.Application"

Ответ отправил: DERL.KG (статус: 9-ый класс) Ответ отправлен: 22.02.2008, 14:01 Оценка за ответ: 4 Комментарий оценки: Спасибо.... проверил... не помогло, если можно проверьте все таки пример у себя

Отвечает: Коровин Александр Здравствуйте, Кэр Лаэда! Я попробовал использовать Вашу программу. Окно при загрузке базы не появляется, нужный справочник открывается, после выхода 1С загружается нормально (то есть процесс 1cv7 запущенным не остается).

Ответ отправил: Коровин Александр (статус: 2-ой класс) Ответ отправлен: 22.02.2008, 14:06 Оценка за ответ: 5 Комментарий оценки: Спасибо..... буду ждать еще ответов.. все таки как я и подозревал проблема в компьютере, или в криво установленной 1с

Отвечает: Dmitry Stashenko Здравствуйте, Кэр Лаэда! У меня 50/50: после установки соединения с базой вылетел Алерт с цифрой "2", открылся справочник, после закрытия процесс 1С тоже завершился. А вот больше запускаться не захотел. Invalid variant operation - так он объяснил свое нежелание. После перезагрузки все повторяется, т.е. первый раз запускается, все дальнейшие попытки провальны.

Ответ отправил: Dmitry Stashenko (статус: Студент) Ответ отправлен: 22.02.2008, 17:56 Оценка за ответ: 5 Комментарий оценки: Спасибо, можно еще проверить после того как вы завершили работу с моей программой попробуйте запустить эту конфигурацию в 1с монопольно.. и скажите попросила ли она переиндексировать базу ?

Вопрос № 124.387

Здравствуйте, уважаемые эксперты. Ещё один вопрос от начинающего. Возможно ли такое, чтобы в нескольких базах ТиС (конфигурации идентичные), одна из своих фирм в которых общая для всех, сделать так, чтобы во всех базах нумерация документов во всех базах была сквозной без повторений и пропусков? Существуют ли какие-нибудь надстройки (вроде менеджера обмена данными) или, может быть, и стандартными средствами это осуществимо? Спасибо

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

Отвечает: Maximush Здравствуйте, VladimirNick! Рассуждая теоретически, такое осуществить для разделенных баз невозможно. Т.е. если единомоментно вводятся два документа в разных базах от одной фирмы они должны получить два несовпадающих номера без пропусков. Следовательно, чтобы осуществить такой механизм - необходимо иметь какой-то общий ресурс для двух баз, ответственный за нумерацию. Если базы находятся на одном компьютере (в одной сети), то таким ресурсом может быть, например, общедоступный файл, который хранит последний номер. При вводе нового документа (вернее даже при записи нового документа) нужно обращаться к данному файлу, брать из него последний номер для данного вида документов и соответственно вычислять новый актуальный номер. Если базы не связаны друг с другом даже локальной сетью, то таким ресурсом может быть, например, специально обученный пользователь с телефоном, который на звонок будет выдавать следующий порядковый номер. :) В случаях когда не первый ни второй варианты не приемлемы рекомендую вести нумерацию с выделенными префиксами для каждой базы. Нумерация будет последовательной в рамках одной базы и не пересекаться между базами, если префиксы не совпадают.

Ответ отправил: Maximush (статус: 2-ой класс) Ответ отправлен: 22.02.2008, 16:20 Оценка за ответ: 5 Комментарий оценки: Спасибо. Второй вариант, конечно, весёлый, а вот над первым стоит задуматься. Остаётся открытым вопрос об одновременном полном доступе к файлу нескольких пользователей

Отвечает: Яна Здравствуйте, VladimirNick! При обмене в каждой базе номер документа должен начинаться с уникального префикса, нумерация после префикса у каждой отдельной базы будет сплошной, но в общем списке будет несколько массивов сплошных номеров (по количеству баз), каждый из которых будет начинаться с уникального префикса. Т.е. обязательна связка база-префикс. Хотя для одной базы может быть несколько префиксов. Это стандартный способ реализации уникальности номеров. В случае, если Вам ОЧЕНЬ нужна сплошная нумерация можно для уникального номера создать отдельный реквизит и заполнять его периодически или делать перенумерацию документов (не рекомендуется) периодически. Делать это нужно после обмена в той базе, где присутствует полный список документов данного вида.

Ответ отправила: Яна (статус: Практикант) Ответ отправлен: 23.02.2008, 17:58 Оценка за ответ: 5 Комментарий оценки: Спасибо за подсказку. Попробую подумать об отдельном дополнительном реквизите. Хотя, наверное, это не идеальный вариант: за время между очередными его заполнениями можно успеть наломать дров

Вопрос № 124.400

Господа эксперты! С чего начать изучение программирования в системе 1С 8.1? Цель: освоить программирование мелких форм и отчетов. Алгоритмическое мышление есть в достатке, опыт программирования в старых языках - обширный. Конечно, стыдно задавать такой вопрос, но жизнь заставляет.

Отправлен: 22.02.2008, 17:28 Вопрос задал: Алекс Капа (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Владимир Лазурко [Vladal] Здравствуйте, Алекс Капа! В освоении восьмёрки мне помогают 2 книги: М.Г. Радченко "1С:Предприятие 8.0 Практическое пособие разработчика" и А.П. Габец, Д.И. Гончаров, Д.В. Козырев, Д. С. Кухлевский, М.Г. Радченко "Профессиональная разработка в системе 1С:Предприятие 8". Готовится к выпуску (или уже вышла) книга "Практическое пособие разработчика" для платформы 8.1. Лично мне помогли курсы по программированию "1С:Предприятие 8.0. Основные объекты" - что-то вроде старта.

Ответ отправил: Владимир Лазурко [Vladal] (статус: Студент) Ответ отправлен: 22.02.2008, 21:43 Оценка за ответ: 3

Отвечает: Яна Здравствуйте, Алекс Капа! Рекомендую начать с М.Г. Радченко "1С:Предприятие 8.1 Практическое пособие разработчика". Она уже вышла, более того, она существует в электронном варианте и стоит (в электронном варианте) около 25 рублей. Там на простом примере демонстрируются основные механизмы платформы. После ее прочтения (с проработкой примера) несложные задачи Вы сможете решать.

Ответ отправила: Яна (статус: Практикант) Ответ отправлен: 23.02.2008, 17:50

© 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