Имя: Пароль:
1C
1C 7.7
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
причем на одном компе работает а на ноуте нет