Имя: Пароль:
1C
Юмор
ТиС 9.2 Печать ценников
0 muzhik
 
19.08.11
10:45
Товарищи, подскажите, как настроить печать ценников нужного размера.
Вот скрин
http://s57.radikal.ru/i155/1108/c9/92b93c633992.jpg
Проблема собственно в том, что при выборе товара к продаже посетителю - есть возможность печати нужного ценника, а при выборе документа - перемещение - там отсутствует нужный пункт, точнее там совсем другие элементы меню.

Очень рассчитываю на Вашу помощь.
1 povar
 
19.08.11
10:47
пригласить специалиста
2 Либерал
 
19.08.11
10:50
лечу геморой по фотографии (с)
3 muzhik
 
19.08.11
10:52
Давайте без флуда.
Мне правда нужна помощь.
4 povar
 
19.08.11
10:57
(3) а мне - деньги. Сколько готов заплатить за решение твоей проблемы ?
5 andrewks
 
19.08.11
11:00
(3) ты кто? юзер, админ, начальник, программер?
6 povar
 
19.08.11
11:00
(5) он - мужик !
7 muzhik
 
19.08.11
11:32
юзер.
8 andrewks
 
19.08.11
11:41
(7) тогда ответ в (1)
9 muzhik
 
19.08.11
11:46
я хочу решить проблему сам
10 andrewks
 
19.08.11
11:47
(9) мы не против
11 muzhik
 
19.08.11
11:48
К чему этот флуд?
Так трудно сказать где это меняется?
12 zak555
 
19.08.11
11:49
подключение внешних форм ?
13 muzhik
 
19.08.11
11:53
я не знаю внешние или нет, скажите где копать. я буду дальше сам ковырять.
14 zak555
 
19.08.11
11:53
копать (13)
15 muzhik
 
19.08.11
11:54
вы бы давно уже ответили, до чего народ пошел..
16 zak555
 
19.08.11
11:55
открыть модуль и отладчик ?
17 povar
 
19.08.11
11:56
(13) будь мужиком, решай проблемы самостоятельно
18 muzhik
 
19.08.11
11:56
зак, где?
19 zak555
 
19.08.11
11:57
в конфигураторе
20 povar
 
19.08.11
11:58
(19) )) напросился...
21 muzhik
 
19.08.11
11:58
логично, а дальше куда?
22 zak555
 
19.08.11
12:01
открыть модуль дока перемещение в розницу ?
23 chief accountant
 
19.08.11
12:03
(21) Закрыть конфигуратор
24 zak555
 
19.08.11
12:03
(23) потом опять открыть ?
25 muzhik
 
19.08.11
12:04
хм.. в принципе я почти разобрался, как называется то окошко, когда продавец выбирает товар для продажи покупателю?
26 dka80
 
19.08.11
12:05
Пригласи специалиста - пусть он все сделает с комментариями. Записывай. Потом будешь делать сам. Зато тебе правильное направление дадут. А так... щас стебаться начнут - они такие
27 zak555
 
19.08.11
12:05
а что у тебя справа ?
28 muzhik
 
19.08.11
12:08
(26)+1
Да, у меня права
я нашел где добавить печатн форму, я не могу найти как называется окошко, у меня в программе оно назвается арм_продавец или ch_manager
29 chief accountant
 
19.08.11
12:08
(24) Не, потом выключить комп
30 zak555
 
19.08.11
12:08
окошко ? о_О
31 muzhik
 
19.08.11
12:16
как я понял для  регистрации печатной формы не нужно входить в конфигуратор, достаточно зайти в оболочку с правами и роль администратора.
только вот не знаю как называется окно продажи товаров, мне кто-нибудь подскажет?
Вам не надоел тупой стеб? Земля круглая..
32 zak555
 
19.08.11
12:17
> достаточно зайти в оболочку с правами и роль администратора

достаточно открыть папку PrnForms
33 zak555
 
19.08.11
12:18
что за окно продажи ?
я вижу только перемещение ТМЦ (в розницу)
34 IvaneS
 
19.08.11
12:20
Весело тут, точно Пятница:)
35 Ёпрст
 
19.08.11
12:21
(31) дай доступ на тимвьювер, логин  и пароль..
на поглядеть.
36 dka80
 
19.08.11
12:22
1. Открой папку PrnForms в
2. Поиск файлов с расширением *.efd с текстом PrintcenArm1
3. Открываешь этот файл блокнотом
4. В верхней строчке Объект="..." дописываешь через запятую "Документ.ПеремещениеТМЦ"
37 IvaneS
 
19.08.11
12:22
(35) И народ повалит...
38 dka80
 
19.08.11
12:23
Только не факт что будет работать
39 dka80
 
19.08.11
12:24
А окно продажи товаров (которое называется документом) называется Реализация или Чек ККМ например
40 muzhik
 
19.08.11
12:28
(36)

нашел этот файл, добавил в тип перемещение через окошко а при попытке печатать - выдает ошибку

могу дать скрин
41 muzhik
 
19.08.11
12:29
ТабПеч.ВыбратьСтроки();
{E:\1C\PB_DZERG\EXTFORMS\PRNFORMS\PRINTCENARM1.ERT(70)}: Значение не представляет агрегатный объект (ВыбратьСтроки)
42 muzhik
 
19.08.11
12:32
такой файл создался сам
вот его содержимое

Объект="Документ.ПеремещениеТМЦ"
Название=Печатьценников
Кнопка=Печать

но вот вылазит ошибка выше
43 dka80
 
19.08.11
12:34
ну вот я и говорю, что то было для одного документа сделано, а ты его в другой пытаешься засунуть...
Тут уже надо в конфигуратор идти
(42) а у файла какое имя?
44 muzhik
 
19.08.11
12:36
такое же
дка80, с содержанием внутри PrintcenArm1 есть только мой файл
а где же тогда хранится конфиг название этой кнопки при Реализация?
45 dka80
 
19.08.11
12:38
перечень кнопок может быть встроен в конфигурацию в конкретный объект
46 dka80
 
19.08.11
12:39
из скрина непонятно что за документ на правой части скрина, где есть твои кнопки
47 muzhik
 
19.08.11
12:39
точнее не реализация а что то там...
щас будет.. скрин
48 muzhik
 
19.08.11
12:44
49 zak555
 
19.08.11
12:50
для чего это обработка в принципе ?
штатный док "умеет" со сканера читать
50 Гефест
 
19.08.11
12:53
У тебя какая-то самописная обработка и непонятно какой отчет для печати ценников. Никто не сможет тебе телепатически сказать, как их скрестить.
51 dka80
 
19.08.11
12:54
+50 именно поскольку у тебя обработка, а не документ, то обработка печати ценников PrintcenArm1.ert работать вряд ли будет. Придется ее допиливать
52 dka80
 
19.08.11
12:54
Думаю, что работы на 30-60 минут, либо на полторашку пива (смотря кого приглашать)
53 muzhik
 
19.08.11
12:54
(43)Тут уже надо в конфигуратор идти
никто не подскажет куда идти?
54 muzhik
 
19.08.11
12:55
а как выключить обработку или что там?
55 dka80
 
19.08.11
12:56
Файл - Открыть - PrintcenArm1.ert
Файл - Сохранить как - PrintcenArm1-new.ert
Форма обработки - модуль
******
тут шаманство с кодом
******
56 muzhik
 
19.08.11
12:56
ой, щас попробую
57 dka80
 
19.08.11
12:56
Файл - сохранить
затем подключаешь печатную форму описанным ранее способом
58 dka80
 
19.08.11
12:57
ну а чтобы что то выключить надо знать как оно включено и зачем его включали
59 dka80
 
19.08.11
12:57
И вообше у тебя вон там в обработке есть кнопка Заполнить из документа.
60 muzhik
 
19.08.11
13:00
нельзя скопировать текст модуля, кракозябры)

если есть желание комунить помочь - могу скинуть модуль)
61 dka80
 
19.08.11
13:02
можно-можно
62 dka80
 
19.08.11
13:02
русский язык включи прежде чем копировать в буфер
63 muzhik
 
19.08.11
13:02
как?
64 muzhik
 
19.08.11
13:03
точняк)
Перем ПечФирма;

//******************************************************************************
// ДобавитьЦенник(Таб, Фирма, ПечНаименование, ПечЕдиница, ПечРозн, Столбик, Ряд)
//
// Параметры:
//  Таб             - таблица, в которую выполняется вывод ценника
//  ПечНаименование - наименование ТМЦ
//  ПечЕдиница      - единица измерения ТМЦ
//  ПечРозн         - цена ТМЦ
//  Столбик         - номер столбика.
//  Ряд             - номер ряда
//
// Возвращаемое значение:
//  Нет.
//
// Описание:
//  Добавляет ценник в таблицу.
//
Процедура ДобавитьЦенник(Таб, Фирма,ПечКод,ПечДата,ПечНаименование,ПечИзг,ПечЕдиница, ПечРозн, Столбик, Ряд) Экспорт
       
   Столбик = Столбик+1;
   Если Столбик>3 Тогда
       Столбик = 0;
       Ряд = Ряд+1;
   КонецЕсли;
   

   Если Ряд > 6 Тогда
       Таб.НоваяСтраница();
       Ряд = 1;
   КонецЕсли;
   
   Если Столбик = 1 Тогда
       Таб.ВывестиСекцию("Товар|Ценник");
   Иначе
       Таб.ПрисоединитьСекцию("Товар|Ценник");
   КонецЕсли;

КонецПроцедуры // ДобавитьЦенник()

//******************************************************************************
// Печать(Докум, Устройство=0, КолвоКопий=1)
//
// Параметры:
//  Докум      - контекст выводимого документа (ПереоценкаРозница, ПоступлениеТМЦРозница),
//  Устройство - если 0, то вывод на экран, иначе - на принтер,
//               необязателен, по умолчанию - на экран,
//  КолвоКопий - количество копий, по умолчанию - 1.
//
// Возвращаемое значение:
//  Нет
//
// Описание:
//  Формирует таблицу с ценниками.
//
Процедура Печать(ТабПеч, Устройство=0, КолвоКопий=1)
   

   
   //  Создание Таблицы для выходного отчета
   Таб = СоздатьОбъект("Таблица");
   Таб.ИсходнаяТаблица("Таблица");
   ПечФирма = глЗначениеПоУмолчанию("ОсновнаяФирма");
   ПечФирма = СокрЛП(ПечФирма.ЮрЛицо.Наименование);
   
   Столбик = 0;
   Ряд     = 1;
   
   ТабПеч.ВыбратьСтроки();
   Пока ТабПеч.ПолучитьСтроку() = 1 Цикл
       
       ВремЦена = ТабПеч.Цена;
       ПечРозн    = глФРМ(ВремЦена, глРубли); // печатаем по розничным ценам - поэтому глРубли
       ПечНаименованиеТМЦ = СокрЛП(ТабПеч.Товар.ПолнНаименование);
       ПечИзг = СокрЛП(ТабПеч.Товар.СтранаПроисхождения);
       ПечКод =ТабПеч.Товар.Код;
       ПечДата=ТекущаяДата();
       ДобавитьЦенник(Таб, ПечФирма,ПечКод,ПечДата,ПечНаименованиеТМЦ,ПечИзг,ТабПеч.Ед, ПечРозн, Столбик, Ряд);
       глОживить(1);
   КонецЦикла;
   
   Если Устройство = 0 Тогда
       Таб.Опции(0,0,0,0,"ПечатьЦенников","ПечатьЦенников");
       Таб.ТолькоПросмотр(1);
       Таб.Показать("Товарные ценники","");
   Иначе    
       Таб.ПараметрыСтраницы(,,,,,,,,,1,,);
       Таб.КоличествоЭкземпляров(КолвоКопий);
       Таб.Напечатать(0);
   КонецЕсли;
   
КонецПроцедуры // Печать()

//******************************************************************************
// ПоКнопкеПечать()
//
// Параметры:
//  Нет
//
// Возвращаемое значение:
//  Нет
//
// Вызывается из формул элементов диалога:
//  Кнопка "Печать"
//
// Описание:
//
Процедура ПоКнопкеПечать()
   
   Печать(Док);
   
КонецПроцедуры // ПоКнопкеПечать()

//******************************************************************************
// Предопределенная процедура
//
Процедура ПриОткрытии()
   
   Если ПустоеЗначение(Форма.Параметр) = 0 Тогда
       
       ТабПеч     = Форма.Параметр.Получить("ТабПеч");
       Устройство = Форма.Параметр.Получить("Устройство");
       КолвоКопий = Форма.Параметр.Получить("КоличествоКопий");
   
       Печать(ТабПеч, Устройство, КолвоКопий);
       Статусвозврата(0);
       Возврат;
   КонецЕсли;
   
КонецПроцедуры // ПриОткрытии()
65 muzhik
 
19.08.11
13:05
как то так
66 dka80
 
19.08.11
13:06
Процедура ПриОткрытии()
   
   Если ПустоеЗначение(Форма.Параметр) = 0 Тогда
       
       Докум      = Форма.Параметр.Получить("Контекст");
       
   
КонецПроцедуры // ПриОткрытии()
67 dka80
 
19.08.11
13:07
ой не так
вот как:
ТабПеч     = Форма.Параметр.Получить("ТабПеч");

замени на
ТабПеч = Форма.Параметр.Получить("Контекст");
68 dka80
 
19.08.11
13:07
ну и сохрани под новым именем
69 dka80
 
19.08.11
13:08
и подключи как внешнюю
70 muzhik
 
19.08.11
13:08
дто в конец добавить?
71 dka80
 
19.08.11
13:08
что в конец добавить?
72 dka80
 
19.08.11
13:09
а нет! в процедуре ПриОткрытии замени одну строчку на другую
73 dka80
 
19.08.11
13:09
было:

Процедура ПриОткрытии()
   
   Если ПустоеЗначение(Форма.Параметр) = 0 Тогда
       
       ТабПеч     = Форма.Параметр.Получить("ТабПеч");
       Устройство = Форма.Параметр.Получить("Устройство");
       КолвоКопий = Форма.Параметр.Получить("КоличествоКопий");
   
       Печать(ТабПеч, Устройство, КолвоКопий);
       Статусвозврата(0);
       Возврат;
   КонецЕсли;
   
КонецПроцедуры // ПриОткрытии()

стало:

Процедура ПриОткрытии()
   
   Если ПустоеЗначение(Форма.Параметр) = 0 Тогда
       
       ТабПеч     = Форма.Параметр.Получить("Контекст");
       Устройство = Форма.Параметр.Получить("Устройство");
       КолвоКопий = Форма.Параметр.Получить("КоличествоКопий");
   
       Печать(ТабПеч, Устройство, КолвоКопий);
       Статусвозврата(0);
       Возврат;
   КонецЕсли;
   
КонецПроцедуры // ПриОткрытии()
74 dka80
 
19.08.11
13:11
не забудь файл с расширением efd создать с тем же именем, что и у твоей новой обработки. Содержимое файла :

Объект="Документ.ПеремещениеТМЦ"
Название=Большие ценники вар.1
Кнопка=Печать
75 dka80
 
19.08.11
13:14
Фу. Бонусов я сегодня наверное заработал. Пойду тратить скоро...
76 muzhik
 
19.08.11
13:16
(75)
сохранил, создало деф
77 muzhik
 
19.08.11
13:16
создал*
78 muzhik
 
19.08.11
13:17
щас как вшенн форму подключать?
79 dka80
 
19.08.11
13:19
она сама подключилась уже если def создал
80 dka80
 
19.08.11
13:19
открывай документ и смотри
81 muzhik
 
19.08.11
13:19
82 muzhik
 
19.08.11
13:20
Поле агрегатного объекта не обнаружено (Товар)
83 dka80
 
19.08.11
13:23
замени Товар на Номенклатура
84 Злопчинский
 
19.08.11
13:24
не, реально миста - хорошее место и поработать и поржать всегда найдется над чем...
.
человека, который пишет такие фейсы для РМ кассира или товароведа - с разбегу об стену шлепнуть ПРИНУДИТЕЛЬНО.
85 andrewks
 
19.08.11
13:24
до 200 догоните?
86 dka80
 
19.08.11
13:25
(85) у меня печень такого бонуса не выдержит
87 muzhik
 
19.08.11
13:25
(83)
где заменть?
88 muzhik
 
19.08.11
13:26
(84)
сильно корявый код?
89 KRV
 
19.08.11
13:26
Захватывающе.. Феерично!
90 dka80
 
19.08.11
13:26
в коде. везде где найдешь ".Товар" меняй на ".Номенклатура"
91 dka80
 
19.08.11
13:27
(89) я спасу его таки!
92 andrewks
 
19.08.11
13:27
(91) орден хочешь? за спасение утопающих? ;-)
93 muzhik
 
19.08.11
13:28
а почему тут где товар работал для того окошка юзера?
94 dka80
 
19.08.11
13:28
(88) код типовой. дело в подходе
(92) горбатого править...
95 chief accountant
 
19.08.11
13:28
(91) Не, не взлетит
96 __Se24
 
19.08.11
13:29
Не , ваапще клева )))
рекомендую начать изучение программирования под 1С с желтеньких книжечек
97 muzhik
 
19.08.11
13:29
Поле агрегатного объекта не обнаружено (Ед)
98 Злопчинский
 
19.08.11
13:29
(88) сильно корявый фес обработки. что на 99% говорит о тотальной корявости кода.
99 muzhik
 
19.08.11
13:30
dka80 единственный адекватный человек в этом топе
100 Grusswelle
 
19.08.11
13:30
100!
101 dka80
 
19.08.11
13:31
(97) открой в конфигураторе табличную часть документа ПеремещениеТМЦ и смотри там названия - по ассоциациям догадаешься... (в данном случае Ед надо заменить на Единица)
102 dka80
 
19.08.11
13:31
(99) ТЫ ПАЛИШЬ МЕНЯ ПЕРЕД ПАЦАНАМИ
103 muzhik
 
19.08.11
13:33
Поле агрегатного объекта не обнаружено (Еденица)
104 dka80
 
19.08.11
13:34
потому что едИИИИИИИИИИИИИИИИница
105 andrewks
 
19.08.11
13:34
(103) пятница удалась...
106 miki
 
19.08.11
13:34
muzhik, dka80, до 200-та добьете?
107 Анна_84
 
19.08.11
13:35
(99) dka80 альтруист просто :) и терпения у него куча. и времени свободного тоже :)
108 chief accountant
 
19.08.11
13:35
классный отжиг
109 muzhik
 
19.08.11
13:35
Секция не найдена Номенклатура
110 dka80
 
19.08.11
13:37
Если Столбик = 1 Тогда
        Таб.ВывестиСекцию("Товар|Ценник");
    Иначе
        Таб.ПрисоединитьСекцию("Товар|Ценник");
    КонецЕсли;

Ты здесь то не меняй Товар на Номенклатура
111 dka80
 
19.08.11
13:37
я же тебе написал: .Товар - точку не видел что ли?
112 muzhik
 
19.08.11
13:39
обратно поставить товар?
113 dka80
 
19.08.11
13:39
В этих двух строчках да
114 muzhik
 
19.08.11
13:40
ААААА!!!! ПОЛУЧИЛОСЬ!!!!!
ОТЖИГ ЗАВЕРШЕН!!! ВСЕМ СПАСИБО!!!
dka80 можешь скинуть сотовый, брошу денег ;)
115 dka80
 
19.08.11
13:41
ну слава богу, а то у меня нервы начали сдавать
116 dka80
 
19.08.11
13:42
мне денег не надо: народ могу отдать причитающуюся мне сумму тому, кто хочет - кидайте телефоны
117 andrewks
 
модератор
19.08.11
13:42
тэк. никаких телефонов. Миста - это форум!
118 akronim
 
19.08.11
13:43
dka80
Мое почтение. Завидую твоему терпению.
119 dka80
 
19.08.11
13:45
(118) на самом деле плохо сделал: надо человеку показывать где можно взять знания, а не делать за него
120 andrewks
 
19.08.11
13:45
(119) +100500
121 muzhik
 
19.08.11
13:45
dka80
Очень тебе признателен.

Закрывайте топ)
122 Vet1310
 
19.08.11
13:49
O,  dka80, тут косяк с розничной наценкой, ТиС 9,2.
помоги разрулить)
Нервы ешо остались.
123 muzhik
 
19.08.11
13:51
и нихрена не юмор.
124 Vet1310
 
19.08.11
13:56
Какой нахрен юмор, три часа две конфы сравниваю, понять не могу поче му в доке при изменении розничной цены не пересчитывается розничная наценка. Юмор...
125 zak555
 
19.08.11
13:58
почему только один варинат решения ?
126 dka80
 
19.08.11
13:59
потому что процедуры нет в поле Розничная цена или если есть, то в ней что то не так
127 zak555
 
19.08.11
14:00
*вариант
Здесь можно обсудить любую тему при этом оставаясь на форуме для 1Сников, который нужен для работы. Ymryn