An4eus
Silver Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
MasterV
ну немного неправильно написал, с кем не бывает.
Сам не мог что ли догадаться как надо?
Ладно, накатаю. Будем доподключать внешние отчеты (по-умному  )!
Печать ценников (Страна происхождения + Штрих-Код) в конфигурации 1С:Торговля+Склад 7.7
Часть I Вводная
Есть два внешних отчета для печати ценников:
printcen.ert
prprice.ert
и соответствующие им файлы-привязки к документам и справоникам (посмотри их блокнотом):
printcen.efd
prprice.efd
которые располагаются в ВашаБаза\ExtForms\PrnForms\
Скопируем их, например, на "Рабочий стол". Переименуем их там, например на _ИмяПрежнее.* (_printcen.ert). Вырежим с "Рабочего стола" обратно, где были (ВашаБаза\ExtForms\PrnForms\)
Теперь в папке PrnForms плюс 4 файла (клоны, абсолютно идентичные). Это нужно для того, чтобы при обновлении кривыми руками или по инным форс-мажорным обстоятельствам - не затерлись сделанные изменения!
Поправим файл _printcen.efd с
Код: //...
Название=Печать ценников
Кнопка=Ценник |
на
Код: //...
Название=Печ. цен. измен.
Кнопка=Цен.из. |
Поправим файл _prprice.efd с
Код: //...
Название=Печать ценников (внешняя)
Кнопка=Ценник (вн.) |
на
Код: //...
Название=Печ. цен. измен. (внешняя)
Кнопка=Цен.из. (вн.) |
Часть II Основная
Теперь будем работаь с ert-шными клонами! Кстати, они уже подключились в к "нужным" кнопкам печати
Файл 1 _printcen.ert
Для печати из доков (Кнопка "Выбор печатной формы" -> "Печать ценников", кнопка Ценники):
Документ.ПоступлениеТМЦРозница - Поступление ТМЦ (розница)
Документ.ПереоценкаРозница - Переоценка (розница)
Документ.ПеремещениеТМЦ - Перемещение ТМЦ
нужно отредактировать модуль файла ВашаБаза\ExtForms\PrnForms\_printcen.ert так:
Код: Перем ПечФирма;
//добавим 2-е переменные, чтоб их было видно в печатной форме "Таблица"
Перем СтранаПроисхождения, ШтрихКод;
//...
Процедура Печать(Докум, Устройство=0, КолвоКопий=1)
//...
Докум.ВыбратьСтроки();
Пока Докум.ПолучитьСтроку() = 1 Цикл
//...
//Получим Страну происхожения
СтранаПроисхождения = Докум.Номенклатура.СтранаПроисхождения;
//Получим штрих-код!
ШтрихКод = Докум.Единица.ШтрихКод;
//...
КонецЦикла;
//...
КонецПроцедуры // Печать()
//... |
Соответственно вставишь переменные СтранаПроисхождения и ШтрихКод в печатную форму!
Файл 2 prprice.ert
Для печати из справочникоа (Кнопка "Выбор печатной формы" -> "Печать ценников (внешняя)", кнопка Ценник (вн.)):
Справочник.Номенклатура
Элемент.Номенклатура
Справочник.Цены
нужно отредактировать модуль файла ВашаБаза\ExtForms\PrnForms\_prprice.ert так:
Код: //добавим 2-е переменные, чтоб их было видно в печатной форме "Таблица"
Перем СтранаПроисхождения, ШтрихКод;
//...
Процедура Сформировать(ТаблицаТоваров,ПечФирма)
//...
ТаблицаТоваров.ВыбратьСтроки();
Пока ТаблицаТоваров.ПолучитьСтроку() = 1 Цикл
//...
//присвоим нашим переменным нужные значения!
СтранаПроисхождения = ТаблицаТоваров.СтранаПроисхождения;
ШтрихКод = ТаблицаТоваров.Единица.ШтрихКод;
//...
КонецЦикла;
//...
КонецПроцедуры
Процедура ДобавитьВтаблицу(Табл, Товар, Тип)
//...
Если глВернутьЦену(Товар, Тип, РабочаяДата(), ВремЦена, ВремЕдиница, ВремВалюта) = 1 Тогда
//...
//добавим в таблицу и страну происхождения!
Табл.СтранаПроисхождения = Товар.СтранаПроисхождения;
Иначе
//...
КонецПроцедуры
Процедура ПриОткрытии()
//...
ТабТоваров = СоздатьОбъект("ТаблицаЗначений");
//...
//Добавим новую колонку Стану просихождения, т.к. в итоге "Товар" будет строкой, а не справочником!
ТабТоваров.НоваяКолонка("СтранаПроисхождения");
//...
КонецПроцедуры // ПриОткрытии() |
Соответственно вставишь переменные СтранаПроисхождения и ШтрихКод в печатную форму!
З.ы. да, вот было классно - если за это деньги давали!  |
Всего записей: 3768 | Зарегистр. 23-07-2007 | Отправлено: 21:03 30-04-2008 | Исправлено: An4eus, 01:04 16-05-2008 |
|
