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

Выпуск № 324
от 17.10.2006, 14:05

Вопрос № 58.616

Не могу разобраться с документом Поступление ТМЦ, не пойму, ка устроена кнопка, при нажатии которой выходи выпадающее меню и не могу найти печатные формы соответственно, конкретно меня интересует ТОРГ-12 И если можно, то поясните пожалуйста, как устроена кнопка, которая вызывает выпадающее меню и выбирает печатныю форму для документа ...

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

Отвечает: Munster Здравствуйте, Терсков Алексей Николаевич! Внешние печатные формы находятся в папке ExtFormsPrnForms Допустим есть файлы POSTUP.EFD и postup.ert (наименования файлов должны быть одинаковые, разные только расширения). Файл POSTUP.EFD выглядит следующим образом: Объект="Документ.ПоступлениеТМЦ" Название=Печатная форма Кнопка=Печать т.е. печатная форма для документа Поступление ТМЦ, сама печатная форма в файле postup.ert (обычная обработка). Форма ТОРГ-12 находится в общих таблицах: откройте конфигурацию, Действия-Общие таблицы. Приложение:

Ответ отправил: Munster (статус: 5-ый класс) Ответ отправлен: 12.10.2006, 07:59

Отвечает: Vizli Здравствуйте, Терсков Алексей Николаевич! для управления печатными формами существует такой механизм: в каталоге базы \ExtFormsPrnForms для каждой печатной формы есть два файла (например, для торг 12) - PTORG12.EFD и ptorg12.ert файл PTORG12.EFD текстовый, содержит три строки: Объект="Документ.ПоступлениеТМЦ" Название=Печатная форма ТОРГ-12 Кнопка=ТОРГ-12 первая строка это ссылка на объек, к которому относится внешняя форма, вторая строка это название печатной формы в выпадающем списке и третья строка это название кнопки файл PTORG12.ERT это сама обработка вывода печатной формы. В документах в процедуре ПриОткрытии() вызывается функция, описанная в глобальном модуле: глУстановкаКнопкиПечать(Контекст, "Документ." + Вид(),ТаблицаПечФорм); которая формирует список печатных форм следующим образом: в каталоге \ExtFormsPrnForms перебираются все файлы *.EFD, по первой строке сравнивается текущий документ и описанный объект в этой строке и в случае совпадения в таблицу внешних печатных форм для данного документа заносится текущая внешняя форма. Далее в процедуре ПоКнопкеВыборПечатнойФормы() кнопки "кнВыбПечать" вызывается процедура глВыборПечатнойФормы("Документ." + Вид(), ТаблицаПечФорм) которая формирует выпадающий список со всеми найденными внешними печатными формами и выводит выбранную форму на печать

Ответ отправил: Vizli (статус: 3-ий класс) Ответ отправлен: 12.10.2006, 08:02

Отвечает: IUnknown Здравствуйте, Терсков Алексей Николаевич! ну все там просто... в процедуре "ПриОткрытии" любого документа вызыывается процедура "глУстановкаКнопкиПечать" которая взависимости от вида документа и имеющих для данного вида внешних печатных форм заполняет таблицу "ТаблицаПечФорм" ... выбор необходимой печатной формы происходит в процедуре "глВыборПечатнойФормы" ну а при нажатии на кнопку "Печать" взависимости от выбраной печатной формы происходит открытие внешней формы... которая в сути своей является простым внешним отчетом... который храниться в папке КаталогБазыExtFormsPrnForms --------- я не специалист

Ответ отправил: IUnknown (статус: 7-ой класс) Ответ отправлен: 12.10.2006, 08:12

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

Ответ отправил: Александр Веклюк (статус: 3-ий класс) Ответ отправлен: 12.10.2006, 08:21

Отвечает: Гребиников Павел Генадьевич Здравствуйте, Терсков Алексей Николаевич! Печатные формы находятся с на вкладках с таблицами после кода. не знаком с вашей конфигурацией, но в 1с есть также общие таблицы, посмотрите также там. а низпадающееменю делается очень просто с помощью команды выбратьзначение и вставляется в код для нухной кнопки Приложение: печ=создатьобъект("Списокзначений"); печ.добавитьзначение(1,"Вывод на принтер"); печ.добавитьзначение(2,"Просмотр"); печ.выбратьзначение(зн,,,,1);//это как раз то самое и есть если зн=1 тогда таб.Напечатать(0) иначе Таб.Показать("Залоговый билет"); --------- Плох тот юзер, который не мечтает стать админом...

Ответ отправил: Гребиников Павел Генадьевич (статус: 3-ий класс) Ответ отправлен: 12.10.2006, 08:29

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

Ответ отправил: Зайцев Александр (статус: 4-ый класс) Ответ отправлен: 12.10.2006, 08:38

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

Ответ отправил: Лазурко Владимир (статус: 4-ый класс) Ответ отправлен: 12.10.2006, 15:59

Вопрос № 58.625

здравствуйте Мне необходимо за заданный период, по заданному счету (по "10" счету и его субсчетам) по всем Материалам и Всем местам Хранения найти: Начальное Сальдо Оборот по дебету ( с разделением по КорСчетам) Оборот по кредиту ( с разделением по КорСчетам) - как это сделать - чтоб работало максимально бысто. Я знаю что можно сделать так(приложение)- посмотреть все проводки : но там непонятно что показывается в Нач. сальдо (Ит_zlm.СНД() ) Приложение: ВыбСчет=СчетПоКоду("10"); Ит_zlm = СоздатьОбъект("БухгалтерскиеИтоги"); Ит_zlm.ИспользоватьСубконто(ВидыСубконто.Материалы); Ит_zlm.ИспользоватьСубконтоВидыСубконто.МестаХранения); Ит_zlm.ВыполнитьЗапрос'01.09.06','30.09.06',ВыбСчет,,,,"Проводка"); Ит_zlm.ВыбратьПериоды(); Пока Ит_zlm.ПолучитьПериод() = 1 Цикл //данные по всем проводкам КонецЦикла;

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

Отвечает: Зайцев Александр Здравствуйте, Zlm! Быстрее не придумаешь: СНД(<?>,,,) Синтаксис: СНД(<Счет>,<ТипСуммы>,<Валюта>,<Субконто1...>) Назначение: Возвращает дебетовое сальдо по счету на начало периода. Параметры: <Счет> - значение типа ''Счет'' - счет расчета итогов. Может использоваться строка - код счета. <ТипСуммы> - необязательный параметр. Число или строка - тип возвращаемой суммы. Может принимать одно из следующих значений: 1 (''C'') - сумма; 2 (''В'') - валютная сумма; 3 (''К'') - количество. Если параметр не указан, метод возвращает сумму. <Валюта> - необязательный параметр. Значение типа ''Справочник.Валюты''. Если параметр не указан, то итоги выдаются без учета валюты. <Субконто1...> - необязательные параметры. Значения субконто. Их количество зависит от настройки субконто для данного счета. Если параметры не указаны, то итоги выдаются без учета аналитики. ДО(<?>,,,) Синтаксис: ДО(<Счет>,<ТипСуммы>,<Валюта>,<Субконто1...>) Назначение: Возвращает дебетовый оборот по счету за период. Параметры: <Счет> - значение типа ''Счет'' - счет расчета итогов. Может использоваться строка - код счета. <ТипСуммы> - необязательный параметр. Число или строка - тип возвращаемой суммы. Может принимать одно из следующих значений: 1 (''C'') - сумма; 2 (''В'') - валютная сумма; 3 (''К'') - количество. Если параметр не указан, метод возвращает сумму. <Валюта> - необязательный параметр. Значение типа ''Справочник.Валюты''. Если параметр не указан, то итоги выдаются без учета валюты. <Субконто1...> - необязательные параметры. Значения субконто. Их количество зависит от настройки субконто для данного счета. Если параметры не указаны, то итоги выдаются без учета аналитики. КО(<?>,,,) Синтаксис: КО(<Счет>,<ТипСуммы>,<Валюта>,<Субконто1...>) Назначение: Возвращает кредитовый оборот по счету за период. Параметры: <Счет> - значение типа ''Счет'' - счет расчета итогов. Может использоваться строка - код счета. <ТипСуммы> - необязательный параметр. Число или строка - тип возвращаемой суммы. Может принимать одно из следующих значений: 1 (''C'') - сумма; 2 (''В'') - валютная сумма; 3 (''К'') - количество. Если параметр не указан, метод возвращает сумму. <Валюта> - необязательный параметр. Значение типа ''Справочник.Валюты''. Если параметр не указан, то итоги выдаются без учета валюты. <Субконто1...> - необязательные параметры. Значения субконто. Их количество зависит от настройки субконто для данного счета. Если параметры не указаны, то итоги выдаются без учета аналитики.

Ответ отправил: Зайцев Александр (статус: 4-ый класс) Ответ отправлен: 12.10.2006, 08:43 Оценка за ответ: 4 Комментарий оценки: Такой операцией я не могу получить начальное сальдо по данным субконто т.е Ит_zlm.СНД() я могу только указать счет т.е. Ит_zlm.СНД("10.01.01") - при добавлении других параметров (субконто1...) - дает ошибку

Отвечает: Elric Здравствуйте, Zlm! Ответ Зайцева Александра не актуален -- есть серьезные ограничения по выбору периода. Нужно использовать режим запроса. В своем примере (Приложении) Вы сразу переходите к выборке проводок. При этом, разумеется, начальное и конечное сальдо Вы получить не можете. Более того, насколько я понял условие задачи, выборка проводок Вам вообще не нужна. Вместо этого следует сделать выборку корреспондирующих счетов. Пример смотрите в Приложении. (обратите внимание на значение параметра ТипИтогов метода ВыполнитьЗапрос) Приложение: ВыбСчет=СчетПоКоду("10"); Ит_zlm = СоздатьОбъект("БухгалтерскиеИтоги"); Ит_zlm.ИспользоватьСубконто(ВидыСубконто.Материалы); Ит_zlm.ИспользоватьСубконто(ВидыСубконто.МестаХранения); Ит_zlm.ВыполнитьЗапрос('01.09.06','30.09.06',ВыбСчет,,,3); СНД=Ит.СНД(); // нач. и кон. сальдо по ВыбСчет можно получить уже здесь // Здесь можно вставить проход выборки по материалам и местам хранения (обычным образом) // Тогда последующий цикл по корреспондирующим счетам будет вложенным во все предыдущие Ит_zlm.ВыбратьКорСчета(); Пока Ит_zlm.ПолучитьКорСчет() = 1 Цикл КорСчет=Ит_zlm.КорСчет; // корреспондирующий счет ДО=Ит_zlm.КорДО(); // обороты между счетами КонецЦикла; --------- Мирный атом в КАЖДЫЙ дом!

Ответ отправил: Elric (статус: Практикант) Ответ отправлен: 12.10.2006, 11:13 Оценка за ответ: 5 Комментарий оценки: Большое спасибо. Это то что надо. Только параметр ТипИтогов у вас указан не на том месте. Поставил на мето - и все получилось.

Вопрос № 58.631

Здравствуте уважаемые эксперты! Вопрос такой: В бухгалтерии для бюджетных учреждений, после переноса ИБ и 5 редакции в 6, возникли проблемы с формированием "Запись книги продаж". Конкретно: при нажатии кнопки "Заполнить", туда перестали попадать "Строка книги продаж". В чем может быть причина?

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

Отвечает: Зайцев Александр Здравствуйте, КАВ! Точно не знаю, с бюджетными не работал и под рукой нет, но советую посмотреть процедуру ВводНаОсновании() может там что-то модифицировано?

Ответ отправил: Зайцев Александр (статус: 4-ый класс) Ответ отправлен: 12.10.2006, 09:51

Вопрос № 58.634

Извините, может быть я не совсем корректно задал свой вопрос № 58625. Как мне получить информацию (не пустую) по всем Материалам и Местам хранения по всем субсчетам "10" счета за заданный период. т.е. найти все сочетания (Материал,МестоХранения) по которым есть нач. сальдо или движение, и получить по всем этим сочетаниям (Материал,МестоХранения) Начальное сальдо, Конечное Сальдо,Оборот по Дебету,Оборот по Кредиту и Проводки. Как получить эти данные в одном запросе, или надо делать 2 - но тогда резко возрастает время получения

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

Отвечает: Vizli Здравствуйте, Zlm! привожу пример по начальному сальду, остальные данные по аналогии в таблице в секции "Строка" нужно поместить выражения НачальноеСальдоДебетСумма НачальноеСальдоДебетКолво НачальноеСальдоКредитСумма НачальноеСальдоКредитКолво и т.д. Седьмой параметр "Периодичность" в функции ВыполнитьЗапрос(<НачалоПериода>, <КонецПериода>, <ФильтрПоСчетам>, <ФильтрПоКоррСчет>, <Валюта>, <ТипИтогов>, <Периодичность>, <ТипСуммы>) принимает следующие значения для группировки итогов: Параметр <Периодичность> может принимать следующие значения (в скобках указаны строковые синонимы): 1 («Период», «Period») Промежуточные итоги не рассчиты­ваются; 2 («Операция», «Entry») Промежуточные итоги рассчитыва­ются по операциям; 3 («Проводка», «Operation») По проводкам; 4 («День», «Day») По дням; 5 («Неделя», «Week») По неделям; 6 («Декада», «Decade») По декадам; 7 («Месяц», «Month») По месяцам; 8 («Квартал», «Quorter») По кварталам 9 («Год», «Year») Приложение: Процедура Сформировать() Таб = СоздатьОбъект("Таблица"); Таб.ИсходнаяТаблица("Сформировать"); Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьСубконто (ВидыСубконто.Материалы,, 1); Ит.ИспользоватьСубконто(ВидыСубконто.МестаХранения,, 1); Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, ВыбСчет,, ВыбВалюта, 1,"Проводка", "СК"); Таб.ВывестиСекцию("Заголовок"); Таб.Опции(0,0,Таб.ВысотаТаблицы(),0); Ит.ВыбратьСубконто(ВидыСубконто.Материалы); Пока Ит.ПолучитьСубконто(ВидыСубконто.Материалы) = 1 Цикл Ит.ВыбратьСубконто(ВидыСубконто.МестаХранения); Пока Ит.ПолучитьСубконто(ВидыСубконто.МестаХранения) = 1 Цикл НачальноеСальдоДебетСумма=Ит.СНД(); НачальноеСальдоДебетКолво=Ит.СНД(3); НачальноеСальдоКредитСумма=Ит.СНК(); НачальноеСальдоКредитКолво=Ит.СНК(3); Таб.ВывестиСекцию("Строка"); КонецЦикла; КонецЦикла; Таб.ВывестиСекцию("Подвал"); Таб.ТолькоПросмотр(1); Таб.Показать("Сформировать",""); КонецПроцедуры

Ответ отправил: Vizli (статус: 3-ий класс) Ответ отправлен: 12.10.2006, 10:47 Оценка за ответ: 4 Комментарий оценки: Вами указано только как получить нач. сальдо, а как обороты - нет.

Отвечает: Elric Здравствуйте, Zlm! Хотелось бы дополнить приложение Vizli циклом по проводкам (см. Приложение) Приложение: Процедура Сформировать() Таб = СоздатьОбъект("Таблица"); Таб.ИсходнаяТаблица("Сформировать"); Ит = СоздатьОбъект("БухгалтерскиеИтоги"); Ит.ИспользоватьСубконто(ВидыСубконто.Материалы,, 1); Ит.ИспользоватьСубконто(ВидыСубконто.МестаХранения,, 1); Ит.ВыполнитьЗапрос(ВыбНачПериода, ВыбКонПериода, ВыбСчет,, ВыбВалюта, 1,"Проводка", "СК"); Таб.ВывестиСекцию("Заголовок"); Таб.Опции(0,0,Таб.ВысотаТаблицы(),0); Ит.ВыбратьСубконто(ВидыСубконто.Материалы); Пока Ит.ПолучитьСубконто(ВидыСубконто.Материалы) = 1 Цикл Ит.ВыбратьСубконто(ВидыСубконто.МестаХранения); Пока Ит.ПолучитьСубконто(ВидыСубконто.МестаХранения) = 1 Цикл НачальноеСальдоДебетСумма=Ит.СНД(); НачальноеСальдоДебетКолво=Ит.СНД(3); НачальноеСальдоКредитСумма=Ит.СНК(); НачальноеСальдоКредитКолво=Ит.СНК(3); Таб.ВывестиСекцию("Строка"); Ит.ВыбратьПериоды(); Пока Ит.ПолучитьПериод() = 1 Цикл //данные по всем проводкам КонецЦикла; КонецЦикла; КонецЦикла; Таб.ВывестиСекцию("Подвал"); Таб.ТолькоПросмотр(1); Таб.Показать("Сформировать",""); КонецПроцедуры --------- Мирный атом в КАЖДЫЙ дом!

Ответ отправил: Elric (статус: Практикант) Ответ отправлен: 12.10.2006, 11:20 Оценка за ответ: 5 Комментарий оценки: Большое спасибо. Это то что надо

Отвечает: Шахрайчук Владимир Анатольевич Здравствуйте, Zlm! Хотелось бы дополнить предыдущие ответы. Если в качестве ВыбСчет Вы передаете группу счетов, то комманда Ит.ВыбратьСчета() откроет выборку по счетам. Выборку нужно открывать до того как ВыбратьПериоды после того как ВыбратьСубконто. Внутри этой выборки можно открыть выборку коррсчетов. Таким образом Вы узнаете, на каком конкретно счете из группы 10 числится ТМЦ, и с какими счетами были обороты. По моему мнению, запрос не способен одновременно показывать сальдо на счете и обороты между счетами, т.е. если указан параметр №6 ТипИтогов в значении 2 и конкретно указан коррсчет, то некорректно показывается сальдо, а если в значении 1(по умолчанию) то обороты между коррсчетами. Внимательно проверьте, и может быть, Вы сможете в одном запросе использовать значение 3. Да простит меня Elriс за плагиат, но я использую его код Приложение: После Таб.ВывестиСекцию("Строка") вставляем код Ит.ВыбратьСчета() ПокаИт.ПолучитьСчет()=1 Счет=Ит.Счет; КолвоНаКонец=Ит.СКД(3)-СКК(3); Таб.ВывестиСекцию("НаВотЭтомСчетеХранитсяСальдоТМЦ") Ит.ВыбратьКоррСчета() ПокаИт.ПолучитьКоррСчет()=1 КоррСчет=Ит.КоррСчет; Здесь сальдо уже неопределенное, зато определенный оборот ДО=Ит.ДО() КО=Ит.КО() Таб.ВывестиСекцию("ВоттакиеВотОборотыМеждуСчетомИТакимТоКоррСчетом"); После этого делаем Ит.ВыбратьПериоды()

Ответ отправил: Шахрайчук Владимир Анатольевич (статус: Студент) Ответ отправлен: 12.10.2006, 11:56

© 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.37 от 04.10.2006