Имя: Пароль:
1C
 
Код товара в ценнике.
0 savmgn
 
22.07.05
09:33
Кто-нить может по-человечески объяснить как это сделать в ТиС-е 937 ?

На форуме конечно много разных ответов на эту тему, но все они очень поверхностные и подразумевают что человек более-менее спец в 1С.
Неужели  нужно перелопачивать кучу литературы чтобы сделать такой пустяк ?
Наверняка-же у кого-то такая обработка стоит, киньте листинг модуля, не сочтите за трудность.
1 Maniac
 
22.07.05
09:33
я фигею.
2 savmgn
 
22.07.05
09:35
Вот-вот...
В основном такие ответы и идут.

А как на счет чего дельного ?
3 Maniac
 
22.07.05
09:37
раз такое дело то 200 usd
4 savmgn
 
22.07.05
09:38
С тобой-то понятно все...
Я было подумал что тут народ кому-то помогает.
ну-ну.
Это коммерческая площадка чтоль ?
5 колодина
 
22.07.05
09:40
а вы кому-нибудь помогаете таким образом? раздаете свои обработки бесплатно?
6 helper
 
22.07.05
09:41
Нужен обязательно код, или может артикул потянет?
7 helper
 
22.07.05
09:41
Нужен обязательно код, или может артикул потянет?
8 miki
 
22.07.05
09:41
У меня выводится код товара в ценнике.
Только в листинге модуля про код товара ничего нет :((
9 Maniac
 
22.07.05
09:41
нет это не коммерческая площадка, но это и не вопрос о помощи программисту.
10 Таня
 
22.07.05
09:42
и как это я так вовремя на форум вернулась, столько интересных вопросов задают!
11 Скользящий
 
22.07.05
09:43
Чего тебе надо, чтобы код товара выводился в ценнике? В чем проблема вывысти его на ценник?
12 savmgn
 
22.07.05
09:43
Слова-то какие :)

Там обработки-то на две-три строчки... По 100usd за каждую выходит.


Серьезные вещи я естесственно за так не раздам.
Добавить печать кода на ценнике это супер серьёзная разработка ? :)
13 427
 
22.07.05
09:44
(1) Фигей, фигей - но это типичный образец
"Доступно и всерьез" (цы)
14 колодина
 
22.07.05
09:44
(12) а вы пробовали смотреть код печати ценника?
15 savmgn
 
22.07.05
09:45
Да, нужен код товара на ценнике.
В остальных документах, какие были нужны, я его повставлял, а вот с ценником парюсь уже давненько :(
Ну не профи я, так просто пытаюсь кое-что...
16 savmgn
 
22.07.05
09:46
Код печати ценника я конечно смотрел.

Пытался сделать, по аналогии с другими обработками (типа ПечатьПрайса) не получилось :(
17 povar
 
22.07.05
09:47
(15) так давай чтоли
"ближе к телу" ОБ
18 savmgn
 
22.07.05
09:48
Нужно чтобы на ценнике печатался именно Код.
19 miki
 
22.07.05
09:48
Билет до Бобруйска, вероятно, стоит дешевле $200...
20 povar
 
22.07.05
09:50
(18) раскажи как пытался сделать, код покажи что ли...
21 savmgn
 
22.07.05
09:50
"Чего тебе надо, чтобы код товара выводился в ценнике? В чем проблема вывысти его на ценник?"

Да.
Чего в модуль пихнуть-то ?
22 Wolflab
 
22.07.05
09:50
15. Может не стоит пытаться. Знаешь, человек, который ковыряется в программном коде - программист или идиот. Идиот не станет программистом, точно также как и программист не будет задавать идиотские вопросы.
23 Maniac
 
22.07.05
09:51
код кодом......он забыл наверно в таблицу ценника вывести.......
24 колодина
 
22.07.05
09:52
чего же пихнуть в модуль.... философский вопрос...
25 МогуПомочь
 
22.07.05
10:00
Откуда нужно печатать ценники? Из формы списка справочника?
Или из прайса, или из групповой обработки справочника?
26 helper
 
22.07.05
10:01
Откуда нужно печатать ценники? Из формы списка справочника?
Или из прайса, или из групповой обработки справочника?
27 Ёпрст
 
22.07.05
10:00
(0) А чего там непонятного то ??

Открывай PrPrice.ert (в папке .\ExtForms\PrnForms ) и добавь че ты хошешь ...
28 Скользящий
 
22.07.05
10:06
(0) Тебе же сказали, код покажи. Ты много видел телепатов?
29 helper
 
22.07.05
10:06
Откуда нужно печатать ценники? Из формы списка справочника?
Или из прайса, или из групповой обработки справочника?
30 helper
 
22.07.05
10:10
Например, в форме списка справочника в процедуре
Процедура ДобавитьВтаблицу(Табл, Товар, ТипЦены)
исправь строку
Табл.Товар   = СокрЛП(Товар.ПолнНаименование) + ?(Константа.ПоказыватьАртикул = 1, " " + СокрЛП(Товар.Артикул), "");
на
Табл.Товар   = СокрЛП(Товар.ПолнНаименование) + ?(Константа.ПоказыватьАртикул = 1, " " + СокрЛП(Товар.Код), "");
31 Таня
 
22.07.05
10:27
Щас я помогу!
1. в модуле формы списка справочника Номенклатура добавляешь строку в процедуру ПечатьЦенника()
   ТабТоваров = СоздатьОбъект("ТаблицаЗначений");
   ТабТоваров.НоваяКолонка("КодТовара"); // вот такую
   ТабТоваров.НоваяКолонка("Товар");
   ТабТоваров.НоваяКолонка("Цена","Число");
   ТабТоваров.НоваяКолонка("Единица");
   ТабТоваров.НоваяКолонка("Валюта");

2. там же добавляешь в процедуре ДобавитьВТаблицу()
       Табл.НоваяСтрока();  
       Табл.КодТовара = Товар.Код; // вот эту строку
       Табл.Товар   = СокрЛП(Товар.ПолнНаименование) + ?(Константа.ПоказыватьАртикул = 1, " " + СокрЛП(Товар.Артикул), "");
       Табл.Цена    = ВремЦена;
       Табл.Валюта  = ВремВалюта;
       Табл.Единица = ВремЕдиница;

3.в модуле обработки ПечатьЦенников в процедуре Сформировать:
       ПечКодТовара = ТаблицаТоваров.КодТовара; // вот эту строку
       ПечНаименование    =ТаблицаТоваров.Товар;
       ДобавитьЦенник(Таб, ПечФирма, ПечКодТовара, ТаблицаТоваров.Товар, ТаблицаТоваров.Единица, ПечРозн, Столбик, Ряд); // а здесь добавляешь параметр "ПечКодТовара" для процедуры ДобавитьЦенник

4. там же в процедуре ДОбавитьЦенник
Процедура ДобавитьЦенник(Таб, ПечФирма, ПечКодТовара,ПечНаименование, ПечЕдиница, ПечРозн, Столбик, Ряд) // тоже параметр ПечКодТовара

5. в нужном тебе месте в печатной форме ценника добавляешь в ячейку типа Выражение переменную ПечКодТовара
32 miki
 
22.07.05
10:37
(28) Стереть нах фсё до п.5.
Заменить "ПечКодТовара" на "Товар.Код"
33 Попробуй
 
22.07.05
10:47
(29) - попробуй сам!!! :)
Потому как Товар - переменная не определена!
Даже если попробовать через ТаблицаТоваров.Товар.Код - все равно ничего не выйдет, потому как ТаблицаТоваров.Товар - это строка, а не ссылка на элемент справочника ;)
34 savmgn
 
22.07.05
14:35
"Откуда нужно печатать ценники? Из формы списка справочника?
Или из прайса, или из групповой обработки справочника?"

Ценники нужно печатать из меню Справочники/Номенклатура   Ценник

Спасибо за отзывы.
Попробую.
35 NS
 
22.07.05
15:04
(0) Аппендикс сама себе удалить не пыталась?
36 savmgn
 
25.07.05
11:14
Все хорошо, только вот этого там нету:

2. там же добавляешь в процедуре ДобавитьВТаблицу()
      Табл.НоваяСтрока();  
      Табл.КодТовара = Товар.Код; // вот эту строку
      Табл.Товар   = СокрЛП(Товар.ПолнНаименование) + ?(Константа.ПоказыватьАртикул = 1, " " + СокрЛП(Товар.Артикул), "");
      Табл.Цена    = ВремЦена;
      Табл.Валюта  = ВремВалюта;
      Табл.Единица = ВремЕдиница;

А есть:

Если ВыбТовар.ЭтоГруппа() = 0 Тогда
       ДобавитьВтаблицу(ТабТоваров, ВыбТовар, ТипЦены);
   Иначе
       СтрТов = СоздатьОбъект("Справочник.Номенклатура");
       СтрТов.ИспользоватьРодителя(ВыбТовар);
       СтрТов.ВключатьПодчиненные(1);
       СтрТов.ВыбратьЭлементы();
       
       Пока СтрТов.ПолучитьЭлемент() = 1 Цикл
           ТекТов = СтрТов.ТекущийЭлемент();
           Если ТекТов.ЭтоГруппа() = 0 Тогда
               ДобавитьВтаблицу(ТабТоваров, ТекТов, ТипЦены);
               //Таб.КодТовара = Товар.Код; //SAV
           КонецЕсли;
       КонецЦикла;
   КонецЕсли;
37 Ёпрст
 
25.07.05
11:32
(33) Смотри внимательнее (28) пункт 2. "Это" там есть в процедуре ДобавитьВТаблицу() ;
38 Таня
 
25.07.05
11:33
если у тебя типовая ТиС 937, то все там есть, я от себя код не придумывала, смотри внимательнее.
39 savmgn
 
25.07.05
11:41
Извини, я - туплю...

Все нашёл !

СПАСИБО ОГРОМЕННОЕ ТАТЬЯНА !!!
Основная теорема систематики: Новые системы плодят новые проблемы.