Имя: Пароль:
1C
 
1С 7.7 9.2. Перенос артикула на нижнюю строку
0 Foras
 
24.01.17
20:55
Добрый день всем, подскажите пожалуйста, у меня 1С 7.7 9.2. Торговля и склад
Проблема заключается в том что при распечатываний ценников артикул пишется сразу после наименования. Мне нужно чтобы она была на чистой строке.
В конфигураций я задал =симв(13)+симв(10) но я не знаю где запятые или ещё какие знаки так нужно ещё писать.
Немого бы вы мне прямо прописать как это сделать?
Очень очень сильно вас прошу мне помочь.
За ранее вам большое спасибо!
1 Builder
 
24.01.17
21:50
Как то так.
Наименование+РазделительСтрок+Код
Или в макете добавить строку, отсюда не видно какой у вас макет.
2 Злопчинский
 
24.01.17
22:02
Мы бы точно немого бы очень очень кусать хоцца
А так макет строишь по аналогии с тем что видишь
3 Foras
 
24.01.17
22:09
Да я прямо там все делал. У меня сейчас компьютера нету а то я бы написал бы вам как у меня там написано. Я завтра напишу.
Столько читал, читал и читал и в е рвано нихрена ничего не получилось.
4 Mauser
 
24.01.17
22:23
вcе рвано нихрена ничего [x]

Прям эпидемия
5 Злопчинский
 
24.01.17
22:33
(3) главное не суетиться
6 Foras
 
24.01.17
22:39
Я думаю завтра я напишу как я меня в конфигураций и нам помогут наши гуру.:)
7 Foras
 
25.01.17
14:10
Всем привет, вот как у меня написано.

ПечНаименованиеТМЦ = СокрЛП(Докум.Номенклатура.ПолнНаименование) + ?(Константа.ПоказыватьАртикул = 1, " " + СокрЛП(Докум.Номенклатура.Артикул), "");

КУДА и ЧТО ? нужно вписать чтобы Артикул печатался на ЦЕННИКЕ в нижней строке от НАИМЕНОВАНИЯ???
8 Foras
 
25.01.17
14:12
Я попробовал вот так

ПечНаименованиеТМЦ = СокрЛП(Докум.Номенклатура.ПолнНаименование) +( =Симв(13)+Симв(10) ?(Константа.ПоказыватьАртикул = 1, " " + СокрЛП(Докум.Номенклатура.Артикул), "");

Но он  ничего не делает, выдает в этом месте ? знак
9 Tatitutu
 
25.01.17
14:13
ПечНаименованиеТМЦ = СокрЛП(Докум.Номенклатура.ПолнНаименование) + ?(Константа.ПоказыватьАртикул = 1, РазделительСтрок + СокрЛП(Докум.Номенклатура.Артикул), "");
10 Foras
 
25.01.17
14:15
Щас попробую)
11 Foras
 
25.01.17
14:24
НИФИГА, все равно вместе пишет вот так
"Полировальный круг P1000 0004"
А нужно вот так
"Полировальный круг P1000"
          0004
12 Foras
 
25.01.17
14:24
Сделал как вы сказали
13 Foras
 
25.01.17
14:29
Открываю Конфигурацию, открываю папку Prnforms в ней открываю папку printcen.ert и в ней меняю. Потом закрываю и все сохраняю. Открываю 1С выбираю печать ценников и все равно тоже самое. Скоро повешусь!!!
14 Builder
 
25.01.17
14:31
(13) А кто сказал что макет из этого файла берется?
15 Масянька
 
25.01.17
14:33
+ (14) Там в конфигурации в обработках есть печать ценников.
16 Foras
 
25.01.17
14:40
Меняем там В Модуле? или в таблице?
17 Builder
 
25.01.17
14:47
(16) смотрите откуда и как печатается ценник и там и меняйте. Нам не видно.
18 Масянька
 
25.01.17
14:50
(17) Может сразу в голове?
19 Builder
 
25.01.17
14:50
(18) Что в голове?
20 Масянька
 
25.01.17
14:51
(19) Ничего...
21 Foras
 
25.01.17
14:57
Это в конфигураций, Обработки


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

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

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

//******************************************************************************
// Сформировать(ТаблицаТоваров, ПечФирма)
//
// Параметры:
//  ТаблицаТоваров    - таблица значений, содержащая информацию о цене товара
//  ПечФирма        - наименование фирмы, которое будет выводиться вверху ценника
//
// Возвращаемое значение:
//  Нет.
//
// Описание:
//  Формирует таблицу с ценниками.
//
Процедура Сформировать(ТаблицаТоваров,ПечФирма)

    //  Создание Таблицы для выходного отчета
    Таб = СоздатьОбъект("Таблица");
    Таб.ИсходнаяТаблица("Таблица");
    
    Столбик = 1;
    Ряд     = 0;

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

//******************************************************************************
// Предопределенная процедура
//
Процедура ПриОткрытии()
    
    СтатусВозврата(0);
    ДанныеДляПечати = Форма.Параметр;
                  
    Если ТипЗначенияСтр(ДанныеДляПечати) <> "СписокЗначений" Тогда
        Возврат;
    КонецЕсли;
    
    ПечФирма       = ДанныеДляПечати.Получить("Фирма");
    ТаблицаТоваров = ДанныеДляПечати.Получить("Таблица");
    
    Сформировать(ТаблицаТоваров, ПечФирма);
    
КонецПроцедуры // ПриОткрытии()
22 Foras
 
25.01.17
14:58
И Где здесь что менять?
23 Это_mike
 
25.01.17
15:00
ошибка там же, где и всегда...
------
"беда, коль пироги начнет печи сапожник
а сапоги тачать пирожник"
©
24 Foras
 
25.01.17
15:00
А это уже в файле printcen.ert
Перем ПечФирма;

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

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

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

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

//******************************************************************************
// ПоКнопкеПечать()
//
// Параметры:
//  Нет
//
// Возвращаемое значение:
//  Нет
//
// Вызывается из формул элементов диалога:
//  Кнопка "Печать"
//
// Описание:
//
Процедура ПоКнопкеПечать()
    
    Если Док.Выбран() = 0 Тогда
        Предупреждение("Не выбран документ!", 60);
        Возврат;
    КонецЕсли;
    
    Печать(Док);
    
КонецПроцедуры // ПоКнопкеПечать()

//******************************************************************************
// Предопределенная процедура
//
Процедура ПриОткрытии()
    
    Если ПустоеЗначение(Форма.Параметр) = 0 Тогда
        
        Докум      = Форма.Параметр.Получить("Контекст");
        Устройство = Форма.Параметр.Получить("Устройство");
        КолвоКопий = Форма.Параметр.Получить("КоличествоКопий");
    
        Печать(Докум, Устройство, КолвоКопий);
        Статусвозврата(0);
        Возврат;
    КонецЕсли;
    
КонецПроцедуры // ПриОткрытии()
25 Foras
 
25.01.17
15:01
И где ошибка?
26 Foras
 
25.01.17
15:04
Ну не томите, в чем моя ошибка?
27 Это_mike
 
25.01.17
15:04
(25) в ДНК...
28 Foras
 
25.01.17
15:05
Больно ты Дерзкий!!!
29 Масянька
 
25.01.17
15:07
(28) Ему можно.
30 Tatitutu
 
25.01.17
15:08
(28) Макет - СвойстваЯчейки -Текст - Контроль - Переносить
31 Foras
 
25.01.17
15:18
Бесполезно.
Конфигурация-обработки- печатьЦенников - таблица- свойства ячейки- вместо авто ставим Переносить.
32 Foras
 
25.01.17
15:23
Как еще можно это сделать?
Снова пишет на одной строке Наименование и артикул.
Мне бы чтобы артикул был на нижней строке.
33 Ёпрст
 
гуру
25.01.17
15:28
Для начала, найди, какая именно обработка для печати ценников вызывается.
34 Ёпрст
 
гуру
25.01.17
15:29
Потом уже, исправляй.
35 Foras
 
25.01.17
15:30
А где посмотреть какая обработка?
36 Ёпрст
 
гуру
25.01.17
15:36
(35) А ты её откуда вызываешь ?
Из какой формы ? вот там и смотри.
А так, правильнее выводить артикул в отдельную ячейку.
37 Масянька
 
25.01.17
15:37
(36) Он её не вызывает. Она сама...
38 Ёпрст
 
гуру
25.01.17
15:38
дай удаленный доступ
39 Foras
 
25.01.17
15:39
минутку
40 Foras
 
25.01.17
15:41
тут?
41 Ёпрст
 
гуру
25.01.17
15:42
че ?
42 Масянька
 
25.01.17
15:42
(40) Да, тут, тут.
43 Foras
 
25.01.17
15:43
287 972 470
6672
44 Масянька
 
25.01.17
15:44
Ломанулись...
45 Ёпрст
 
гуру
25.01.17
15:47
(43) пилять, 12 версия выкидывает.
У тя 11-ой нету ? Или ammyy admin поставь
46 Foras
 
25.01.17
15:48
щас скачаю
47 Ёпрст
 
гуру
25.01.17
15:50
Ну и что успел увидеть - у тя есть внешняя, называется
PRPRICE.ert

её правь, если её из списка справочника вызываешь.
Если печатаешь из дока, смотри, какая форма зарегистрирована и её правь
48 Foras
 
25.01.17
15:54
287 972 270
1388
49 Foras
 
25.01.17
15:57
я установил 11
50 Ёпрст
 
гуру
25.01.17
15:58
(48) пишет, что тимвьювер у тя не запущен
51 Foras
 
25.01.17
16:00
8787
52 Foras
 
25.01.17
16:01
у меня пишет "готов к подключению"
53 Foras
 
25.01.17
16:02
сорян
54 Foras
 
25.01.17
16:02
287 972 470
55 Foras
 
25.01.17
16:02
пароль 8787
56 Foras
 
25.01.17
16:04
теперь должно все получиться
57 Ёпрст
 
гуру
25.01.17
16:14
Ну, занимайся
58 Foras
 
25.01.17
16:15
Спасибо вам огромное!!!! Вы мне очень очкнь сильно помогли!
Пользователь не знает, чего он хочет, пока не увидит то, что он получил. Эдвард Йодан