Не работает/отсутствует Печать Ценников 1с7.7

@GORDON13 · Регистрация: 13.02.2013

Студворк — интернет-сервис помощи студентам

всем здрасти
нужна помощь специалистов
1с7.7 не работает/отсутствует печать ценников
товара много, а в экселе номер накладной и дату и наименование и цену вставить - это очень долго получается
поэтому до ценников не доходят руки
подскажите как это дело реализовать
к официалам обратиться не могу

понял что нужно Открыть конфигурацию - раскрываешь дерево "обработки", но дальше не рискую копать, ибо знаний маловато

@assa62 · 31.10.2014, 23:44

Вы хотя бы скажите из какой формы собираетесь печатать ценники. Из документа или из справочника или из обработки... А вообще алгоритм такой: Определиться откуда печатать, в зависимости от этого создать кнопку на форме, процедуру на эту кнопку, ну и собственно таблицу для вывода ценников. Или создать новую обработку с кнопкой, процедурой и таблицей. Далее пишем саму процедуру, в которой перебираем товар из накладной или справочника и выводим в таблицу нужные поля этого товара(наименование, цена и т.п.) в печатную форму(таблицу).
Примерно так:

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
 //=================================================/
Процедура ПечатьЦенника()
    Перем ПечНаименование, Ценник, ВремЦена, ЦенаТовара, ПечЕдиница, ПечВалюта, СтавкаНПпроц;
    Если Выбран() = 0 Тогда
        Предупреждение("Элемент не сохранен!");
        Возврат;
    КонецЕсли;
 
    Ценник    = СоздатьОбъект("Таблица");
    Сп        = СоздатьОбъект("СписокЗначений");
    Сп.ДобавитьЗначение(1,"Сигареты");
    Сп.ДобавитьЗначение(2,"Конд. изд.");
    Сп.ДобавитьЗначение(3,"Спиртное");
    Метод  = "";
    Сп.ВыбратьЗначение(Метод,"",2,0,1);
    Если Метод = 1 Тогда
        Ценник.ИсходнаяТаблица("Ценник");
    ИначеЕсли Метод   = 2 Тогда
        Ценник.ИсходнаяТаблица("ЦенникКонд");
    ИначеЕсли Метод   = 3 Тогда
        Ценник.ИсходнаяТаблица("ЦенникЛик");
    КонецЕсли;
 
    ПечНаименование      = Наименование;
    ПредставлениеКода  = Лев(Код,2)+"_"+Прав(Код,2);
 
    // Печатаем цену, указанную как розничная
    Если ПустоеЗначение(Константа.ЦенаДляЦенника) = 0 Тогда
        ЦенаТовара    = глВернутьЦену(ТекущийЭлемент(), Константа.РозничнаяКатегорияЦен);
        Если ПустоеЗначение(ЦенаТовара) = 0 Тогда 
            СпрЦен    = СоздатьОбъект("Справочник.Цены");
            СпрЦен.ИспользоватьДату(РабочаяДата());
            СпрЦен.использоватьВладельца(ТекущийЭлемент());
            СпрЦен.ВыбратьЭлементы();
            СпрЦен.НайтиПоНаименованию("Кредит");
            ЦенаТовара1   = СпрЦен.ТекущийЭлемент();
            ВремЦена    = ЦенаТовара.Цена.Получить(РабочаяДата());
            // добавим НП
            //СтавкаНПпроц=глПолучитьСтавкуНП(ТекущийЭлемент(),РабочаяДата());
            ВремЦена    = ВремЦена * (100+СтавкаНПпроц) / 100;
            ПечВалюта  = ЦенаТовара.Валюта.Получить(РабочаяДата());
            ПечЕдиница    = ЦенаТовара.Единица.Получить(РабочаяДата());
            ПечЕдиница1   = ЦенаТовара1.Единица.Получить(РабочаяДата());
            ВремЦена    = ЦенаТовара.Цена.Получить(РабочаяДата());
            ВремЦена1   = ЦенаТовара1.Цена.Получить(РабочаяДата());
            Если Метод = 2 Тогда
                МинЕд  = ПечЕдиница.Владелец.БазоваяЕдиница;
                МинЕд1 = ПечЕдиница1.Владелец.БазоваяЕдиница;
                Коэф    = ПечЕдиница.Коэффициент;
                Коэф1   = ПечЕдиница1.Коэффициент;
                Если Строка(ПечЕдиница) <> Строка(МинЕд) Тогда
                    ВремЦена    = ВремЦена / Коэф;
                КонецЕсли;
                Если Строка(ПечЕдиница1) <> Строка(МинЕд1) Тогда
                    ВремЦена1   = ВремЦена1 / Коэф1;
                КонецЕсли;
            Иначе
                ВремЦена    = ВремЦена;
                ВремЦена1   = ВремЦена1;
            КонецЕсли;
            
            // добавим НП
            //ВремЦена = ВремЦена ;
            ПечРозн      = СокрЛ("опт"+Формат(ВремЦена,"Ч06.2"));
            ПечРозн1 = СокрЛ("Розница"+Формат(ВремЦена1,"Ч06.2"));
            Если метод = 1 Тогда
                ПечРозн      = СокрЛ("опт"+Формат(ВремЦена*10,"Ч06.2"));
                ПечРозн1 = СокрЛ("Розница"+Формат(ВремЦена1*10,"Ч06.2"));
            КонецЕсли;
        Иначе
            // цену не нашли
            // не печатаем товар без цены
            Предупреждение("У товара "+Наименование+РазделительСтрок+
                           "не найден тип цены """+Константа.РозничнаяКатегорияЦен.Наименование+"""");
            Возврат;
        КонецЕсли;
    Иначе
        // не задана розничная категория
        Предупреждение("Не задана розничная категория цен.");
        Возврат;
    КонецЕсли;
 
    Ценник.ВывестиСекцию("Товар|Ценник");
    Ценник.Опции(0,0,0,0);
    Ценник.Показать("Ценник");
 
КонецПроцедуры

@GORDON13 · 01.11.2014, 10:06 **[ТС]**

печатать из приходной накладной и из общего списка/перечня
в ценнике
наше наименование
наименование товара
цена розничная
номер приходной накладной
дата приходной накладной

assa62, спс, но вижу что сложно или если есть желание, то в лс

@assa62 · 01.11.2014, 19:39

GORDON13, что то я не разберусь где тут лс. Пишите на alex@columb.dp.ua

@duk337 · 04.11.2014, 16:38

Вот обработки для ТиС 9.
А вот модуль запуска обработки ПечатьЦенников из групповой обработки

1C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Процедура ПечатьЦенников() Экспорт
    Перем Таб;
    Перем ТабТоваров, ДанныеДляПечати;
        
    Если ТаблицаНоменклатуры.КоличествоСтрок() = 0 Тогда
        Предупреждение("В таблице отсутствуют товары!", 60);
        Возврат;
    КонецЕсли;
        
    ТипЦены  =   СоздатьОбъект("Справочник.ТипыЦен");
    Если ТипЦены.Выбрать("Типы цен",) = 0 Тогда Возврат КонецЕсли;
    ТипЦены  =   ТипЦены.ТекущийЭлемент();
    
    ТабТоваров = СоздатьОбъект("ТаблицаЗначений");
    ТабТоваров.НоваяКолонка("Товар");
    ТабТоваров.НоваяКолонка("Цена","Число");
    ТабТоваров.НоваяКолонка("Единица");
    ТабТоваров.НоваяКолонка("Валюта");
    
    ТаблицаНоменклатуры.ВыбратьСтроки();
        
    Пока ТаблицаНоменклатуры.ПолучитьСтроку() = 1 Цикл
        Если ТаблицаНоменклатуры.Пометка = МеткаЕсть Тогда
            ДобавитьВтаблицу(ТабТоваров, ТаблицаНоменклатуры.Номенклатура, ТипЦены);
        КонецЕсли; 
    КонецЦикла;
    
    // упакуем данные в список
    ДанныеДляПечати = СоздатьОбъект("СписокЗначений");
    
    Фирма = СокрЛП(глЗначениеПоУмолчанию("ОсновнаяФирма").ЮрЛицо.ПолнНаименование);
    ДанныеДляПечати.ДобавитьЗначение(Фирма          , "Фирма");
    ДанныеДляПечати.ДобавитьЗначение(ТипЦены.Валюта , "Валюта");
    ДанныеДляПечати.ДобавитьЗначение(ТабТоваров     , "Таблица");
    
    ОткрытьФормуМодально("Обработка.ПечатьЦенников", ДанныеДляПечати);
    
КонецПроцедуры // ПечатьЦенников()

@GORDON13 · 04.11.2014, 16:53 **[ТС]**

всем спс за внимание к данной теме
её можно закрывать
нашел человека который сделал ценник

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .

@GORDON13 2 / 2 / 1 Регистрация: 13.02.2013 Сообщений: 84

	1C 7.x Не работает/отсутствует Печать Ценников 1с7.7 31.10.2014, 12:55. Показов 4242. Ответов 5 Метки нет (Все метки) всем здрасти нужна помощь специалистов 1с7.7 не работает/отсутствует печать ценников товара много, а в экселе номер накладной и дату и наименование и цену вставить - это очень долго получается поэтому до ценников не доходят руки подскажите как это дело реализовать к официалам обратиться не могу понял что нужно Открыть конфигурацию - раскрываешь дерево "обработки", но дальше не рискую копать, ибо знаний маловато 0

@GORDON13 2 / 2 / 1 Регистрация: 13.02.2013 Сообщений: 84
	01.11.2014, 10:06 [ТС]
	печатать из приходной накладной и из общего списка/перечня в ценнике наше наименование наименование товара цена розничная номер приходной накладной дата приходной накладной assa62, спс, но вижу что сложно или если есть желание, то в лс 0

@assa62 7 / 7 / 1 Регистрация: 30.10.2014 Сообщений: 56
	01.11.2014, 19:39
	GORDON13, что то я не разберусь где тут лс. Пишите на alex@columb.dp.ua 1

@GORDON13 2 / 2 / 1 Регистрация: 13.02.2013 Сообщений: 84
	04.11.2014, 16:53 [ТС]
	всем спс за внимание к данной теме её можно закрывать нашел человека который сделал ценник 0