|
v7: Печать артикула в ценнике | ☑ | ||
---|---|---|---|---|
0
Mikkei
09.04.12
✎
12:04
|
Печать артикула в ценнике не удается Не находит дополнительный компонент
|
|||
1
Mikkei
09.04.12
✎
12:05
|
//******************************************************************************
// ДобавитьЦенник(Таб, ПечФирма, ПечНаименование, ПечЕдиница, ПечРозн, Столбик, Ряд) // // Параметры: // Таб - таблица, в которую выполняется вывод ценника // ПечНаименование - наименование товара // ПечЕдиница - единица измерения товара // ПечРозн - цена товара // Столбик - номер столбика. // Ряд - номер ряда // // Возвращаемое значение: // Нет. // // Описание: // Добавляет ценник в таблицу. // Процедура ДобавитьЦенник(Таб, ПечФирма,ПечНаименование, ПечЕдиница, ПечРозн, Столбик, Ряд) Столбик = ?(Столбик = 0, 2 , 0 ); Ряд = ?(Столбик = 0, Ряд + 1, Ряд); Если Ряд > 3 Тогда Таб.НоваяСтраница(); Ряд = 1; КонецЕсли; Если Столбик = 0 Тогда Таб.ВывестиСекцию("Товар|Ценник"); Иначе Таб.ПрисоединитьСекцию("Товар|Ценник"); КонецЕсли; КонецПроцедуры // ДобавитьЦенник() //****************************************************************************** // Сформировать(ТаблицаТоваров, ПечФирма) // // Параметры: // ТаблицаТоваров - таблица значений, содержащая информацию о цене товара // ПечФирма - наименование фирмы, которое будет выводиться вверху ценника // // Возвращаемое значение: // Нет. // // Описание: // Формирует таблицу с ценниками. // Процедура Сформировать(ТаблицаТоваров,ПечФирма) // Создание Таблицы для выходного отчета Таб = СоздатьОбъект("Таблица"); Таб.ИсходнаяТаблица("Таблица"); Столбик = 1; Ряд = 0; ТаблицаТоваров.ВыбратьСтроки(); Пока ТаблицаТоваров.ПолучитьСтроку() = 1 Цикл ПечРозн = глФРМ(ТаблицаТоваров.Цена, ТаблицаТоваров.Валюта); ПечНаименование = ТаблицаТоваров.Товар; // ПечАртикул = ТаблицаТоваров.Товар.Артикул; ДобавитьЦенник(Таб, ПечФирма, ТаблицаТоваров.Товар, ТаблицаТоваров.Единица, ПечРозн, Столбик, Ряд); глОживить(1); КонецЦикла; //Вызов выходного отчета в окно просмотра и редактирования. Таб.Опции(0,0,0,0,"ПечатьЦенников","ПечатьЦенников"); Таб.ТолькоПросмотр(1); Таб.Показать("Товарные ценники",""); КонецПроцедуры //****************************************************************************** // Предопределенная процедура // Процедура ПриОткрытии() СтатусВозврата(0); ДанныеДляПечати = Форма.Параметр; Если ТипЗначенияСтр(ДанныеДляПечати) <> "СписокЗначений" Тогда Возврат; КонецЕсли; ПечФирма = ДанныеДляПечати.Получить("Фирма"); ТаблицаТоваров = ДанныеДляПечати.Получить("Таблица"); Сформировать(ТаблицаТоваров, ПечФирма); КонецПроцедуры // ПриОткрытии() |
|||
2
SanGvin
09.04.12
✎
12:06
|
ошибку в студию
|
|||
3
povar
09.04.12
✎
12:07
|
(0) Какой компонент ?
|
|||
4
Mikkei
09.04.12
✎
12:07
|
ПечАртикул = ТаблицаТоваров.Товар.Артикул;
{Обработка.ПечатьЦенников.Форма.Модуль(62)}: Значение не представляет агрегатный объект (Артикул) ПечАртикул = ТаблицаТоваров.Товар.Артикул; {Обработка.ПечатьЦенников.Форма.Модуль(62)}: Значение не представляет агрегатный объект (Артикул) ПечАртикул = ТаблицаТоваров.Товар.Артикул; {Обработка.ПечатьЦенников.Форма.Модуль(62)}: Значение не представляет агрегатный объект (Артикул) ДобавитьЦенник(Таб, ПечФирма, ТаблицаТоваров.Товар, ТаблицаТоваров.Единица, ПечРозн, Столбик, Ряд<<?>>); {Обработка.ПечатьЦенников.Форма.Модуль(63)}: Недостаточно фактических параметров Докум = Форма.Параметр.Получить("Контекст"); {D:\BAZA\BAZA\EXTFORMS\PRNFORMS\REC_PRINTCEN.ERT(140)}: Поле агрегатного объекта не обнаружено (Получить) Докум = Форма.Параметр.Получить("Контекст"); {D:\BAZA\BAZA\EXTFORMS\PRNFORMS\REC_PRINTCEN.ERT(140)}: Поле агрегатного объекта не обнаружено (Получить) |
|||
5
povar
09.04.12
✎
12:08
|
(4) ну и ? Написано же по русски
|
|||
6
Mikkei
09.04.12
✎
12:09
|
предыдущую я уже стер Но там так и было написано - для выполнения не хватает компонент
|
|||
7
Mikkei
09.04.12
✎
12:09
|
да но другой базе аналогичной этой все работает
|
|||
8
Zmich
09.04.12
✎
12:10
|
(0). Ошибка стандартная, суть в том, что ТаблицаТоваров.Товар имеет тип Строка (Наименование товара), а не Справочник.Номенклатура.
|
|||
9
Хряк
09.04.12
✎
12:11
|
ТаблицаТоваров.Товар - у них строка
копай в сторону ТаблицаТоваров.Единица |
|||
10
Mikkei
09.04.12
✎
12:12
|
понял сейчас попробую
|
|||
11
miki
09.04.12
✎
12:13
|
В ТиСе артикул штатно добавляется к наименованию, через константу.
|
|||
12
miki
09.04.12
✎
12:15
|
||||
13
Mikkei
09.04.12
✎
13:15
|
ничего все равно не получается
|
|||
14
Mikkei
09.04.12
✎
13:15
|
дебил полный наверно
|
|||
15
povar
09.04.12
✎
13:23
|
(14) Это сделал ?
" Из справочника. Ищи в форме списка спр.Номенклатура процедуру ДобавтьВТаблицу Замени Табл.Товар = СокрЛП(Товар.ПолнНаименование); на Табл.Товар = Товар; В обработке ПечатьЦенников добавь ПечАртикул = "Артикул: "+ТаблицаТоваров.Товар.Артикул;" |
|||
16
Mikkei
09.04.12
✎
13:51
|
Мужики все получилось при помощи Одного ert-шного отчета называется cen_es.ert Огромное ВАМ всем спасибо Если надо скину Дорабатывается очень просто. Еще раз всем спасибо
|
|||
17
Mikkei
09.04.12
✎
13:52
|
http://www.7homes.ru/system/files/cen_es.zip ссылка на него
|
|||
18
Mikkei
29.04.12
✎
10:40
|
Ошибка загрузки компоненты защиты конфигурации нажмите ок для выхода
и в окне в низу Ошибка номер-13: "Driver version mismatch". Номер ключа защиты: TWWKO причем на одном компе работает а на ноуте нет |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |