В общем проблема в следующем:
Нужна кнопка для вывода на печать этикетки, но без штрих кода с минимальной информацией.
Кнопку создал путем копирования старой, теперь необходимо изменить информацию в модуле.
Необходимо чтобы при нажатии на кнопку выходила форма этикетки размером 64х20 мм где она делится на 2-е части в первой части (слева) должно быть наименование продукции с ее размером, а в правой части название фирмы (логотип) и номер телефона.
Как это сделать помогите пожалуйста уже всю голову сломал себе.

Голова автора задания еще цела?

(1) Надо спросить главное.
(0) Каков уровень программирования в среде 1С?
Какие языки программирования ты изучал?
Ты про специальности программист или системный Администратор, либо попросту прохожий Дворник, которому в целях экономии средств, дали еще по рулить в среде 1С? :)

(0) эжели это типовой ТиС/Комплексная, то открыть пофигуратор, зайти в обработки - ПечатьЦенников, открыть Таблицу и поправить макет. Сохранить конфу и наслаждаться

Он же создал кнопку! Сейчас наменяет, а потом окажется что старый формат этикетки тоже нужен.

(4) Как бы, в этом случае, делают выбор макета ценника-этикетки из списка, а где хранить список - программист решает сам в меру своей способности.

И потом автор явно после 8 лезет в 7, так как в 8 есть модуль команды, что в седьмой версии никто и представить себе не мог.

я сисадмин. хочется разобраться в этой проблеме. у нас в населенном пункте нет программистов в области 1с 77. Поэтому на меня шеф наседает чтобы разбирался сам и изучал. если же нет то говорит уволит: пугает или нет незнаю. Ни в восьмерке ни в семерке раньше не конфигурировал. в семерке работал только как пользователь. поэтому то и прошу помощи у вас.

(7) Расскажи шефу, что есть вариант нанять программиста 1С удаленно.
И еще расскажи, что "компьютерщики" делятся на специальности.
Приведи пример с врачами: вряд ли твой шеф, придя к стоматологу "наседает" на него с требованием вылечить геморрой ;)

Другое дело, если сам хочешь освоить...

Да в том то и дело что самому хочется. А шеф это только так сказать толчок к этому. честно говоря читал книги но так ничего и не понял.

(9) Точное название и версию конфигурации сюда напиши для начала.

Производство,услуги, бухгалтерия версия 2.28

извиняюсь версия 2.8

(12) А где искать модуль кнопки?

(12) http://www.firststeps.ru/1c/1cbuh1.html  
Шаг 5 - Первый отчет

как можно прикрепить файл здесь я его выложу

посмотри какая процедура в кнопке в поле формула - найди её в модуле - если понимаешь, что в ней, напиши свою такую же и прикрепи к своей кнопке или исправь эту (если та печать этикеток не понадобится), если нет лучше не лезь

(15) Сюда только ссылку.

(17)зачем нам ссылка ? пусть ответит на (16)
если что-то понимает, пусть пишет конретные вопросы, если нет- пусть ищет, кто ему сделает за небольшую денежку

Ну вот чего набросились то (2),(8) человек сисадмин а его просят подправить 1С... во многих конторах сисадмина хотят и на 1С напрячь и наоборот 1Ссники вкалывают сисадминами))? Не такая уж и глобальная просьба, Согласен с (16), давай сюда код процедуры, там глянем, где отключить ненужное да и дело с концом....

Перем ОписаниеРезультата;

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

//******************************************************************************
// ПроверитьШтрихкод(Штрихкод)
//
// Параметры:
//  Штрихкод - штриховой код, который нужно проверить
//
// Возвращаемое значение:
//  1 - штрихкод имеет верный формат, 0 - нет.
//
// Описание:
//  Проеверяет штрихкод на соответствие кодировке EAN 13 и EAN 8.
//
Функция ПроверитьШтрихкод(Штрихкод)
    
    Штрихкод = СокрЛП(Штрихкод);
    ДлинаКода = СтрДлина(Штрихкод);
    Рез = 0;
    
    Если ТолькоЦифры(Штрихкод) = 1 Тогда
        // штрихкод должен состоять из цифр
        
        Если (ДлинаКода = 13) Тогда
            Если глКонтрольныйСимволEAN(Лев(Штрихкод,12), 13) = Прав(Штрихкод, 1) Тогда
                //Если (ДлинаКода = 14) Тогда
                //    Если глКонтрольныйСимволEAN(Лев(Штрихкод,13), 13) = Прав(Штрихкод, 1) Тогда
                Рез = 1;
            КонецЕсли;
        ИначеЕсли (ДлинаКода = 8) Тогда
            Если глКонтрольныйСимволEAN(Лев(Штрихкод,7), 8) = Прав(Штрихкод, 1) Тогда
                Рез = 1;
            КонецЕсли;
        КонецЕсли;
    КонецЕсли;
    
    Возврат Рез;
    
КонецФункции // ПроверитьШтрихкод()

//******************************************************************************
// Сформировать(Штрихкод, Устройство)
//
// Параметры:
//  ТаблицаТоваров - таблица значений, состоящая из колонок:
//                   Товар - эл.справочника номенклатура или строка,
//                           наименование товара
//                   Штрихкод - строка, штрихкод товара
//  Устройство     - устройство, куда выводить этикетку.
//                   "экран" - на экран, "принтер" - на принтер.
//                   Значение по умолчанию - 0;
//
// Возвращаемое значение:
//  1 - штрихкод имеет верный формат, 0 - нет.
//
// Описание:
//  Выводит этикетку(и) на заданное устройство.
//
Процедура Сформировать(ТаблицаТоваров, Устройство)
    
    //  Создание Таблицы для выходного отчета
    Таб    = СоздатьОбъект("Таблица");                  
    Таб.ИсходнаяТаблица("Этикетка");
    
    
    Если ТаблицаТоваров.КоличествоСтрок() = 1 Тогда
        ТаблицаТоваров.ПолучитьСтрокуПоНомеру(1);
        
        Размер = "";
        БезМатрацаИРазмера = "";
        Наименование=ТаблицаТоваров.Товар;
        БезМатрацаИРазмера=ТаблицаТоваров.Товар;
        Описание = ТаблицаТоваров.Описание;
        НомерДок=ТаблицаТоваров.НД;
        Если Лев(Наименование,СтрДлина("Матрац"))="Матрац" Тогда
            ВхождениеНаименования=Найти(Наименование," ");
            БезМатраца=Сред(Наименование,ВхождениеНаименования+1);  
        Иначе
            БезМатраца=Наименование;
        КонецЕсли;
        //    
        //КонецЕсли;;
        //ВхождениеХ=Найти(Наименование,"х")+Найти(Наименование,"Х")+Найти(Наименование,"x")+Найти(Наименование,"X");
        РазмерСправа=0;        
        РазмерСлева=0;
        ЭтоНеЦифра=0;
        ПервоеВхождение=0;
        А=СтрДлина(БезМатраца);
        ПозицияЦифрСправа=СтрДлина(БезМатраца);
        Пока А>1 Цикл
            Если ((КодСимв(Сред(БезМатраца,А,1))>=48) И (КодСимв(Сред(БезМатраца,А,1))<=57)) Тогда //если цифра, то это размер
                РазмерСправа=1;
                ЭтоНеЦифра=0;
            Иначе
                ЭтоНеЦифра=1;
            КонецЕсли;
            //Если (ЭтоНеЦифра=1) И (ПервоеВхождение=0) Тогда
            //    ПозицияЦифрСправа=А;
            //    ПервоеВхождение=1;
            //КонецЕсли;
            Если (РазмерСлева=1) И (ЭтоНеЦифра=1) Тогда
                Прервать;
            КонецЕсли;            
            Если (РазмерСправа=1) И ((Врег(Сред(БезМатраца,А,1))="Х") ИЛИ (Врег(Сред(БезМатраца,А,1))="X")) Тогда
                РазмерСлева=1;
            КонецЕсли;
            А=А-1;
        КонецЦикла;                                
                Если РазмерСлева = 1 Тогда
                    БезМатрацаИРазмера=Лев(БезМатраца,А);
                    //Размер=Сред(БезМатраца,А,ПозицияЦифрСправа-А);
                    Размер=Сред(БезМатраца,А+1);
                Иначе    
                    БезМатрацаИРазмера=БезМатраца;
                    Размер="";
                КонецЕсли;
        
        
        
        
        
        Если ПроверитьШтрихкод(ТаблицаТоваров.Штрихкод) = 0 Тогда
            Предупреждение("У товара """ + ТаблицаТоваров.Товар + """ штрихкод не задан или имеет неверный формат!");
            Возврат;
        Иначе
            Таб.ВывестиСекцию("ГорТелоВнутр|ВертТелоВнутр");
        КонецЕсли;
        
    Иначе
        ВсегоКолонок = 4;
        ВсегоСтрок   = 10;
        
        ТекКолонка = 1;
        ТекСтрока  = 1;
        
        ТаблицаТоваров.ВыбратьСтроки();
        Пока ТаблицаТоваров.ПолучитьСтроку() = 1 Цикл
            Если ПроверитьШтрихкод(ТаблицаТоваров.Штрихкод) = 0 Тогда
                Сообщить("У товара """ + ТаблицаТоваров.Товар + """ штрихкод не задан или имеет неверный формат!");
            Иначе  
                Размер = "";
                БезМатрацаИРазмера = "";
                Наименование=ТаблицаТоваров.Товар;
                БезМатрацаИРазмера=ТаблицаТоваров.Товар;
                Описание = ТаблицаТоваров.Описание;
                НомерДок=ТаблицаТоваров.НД;
                Если Лев(Наименование,СтрДлина("Матрац"))="Матрац" Тогда
                    ВхождениеНаименования=Найти(Наименование," ");
                    БезМатраца=Сред(Наименование,ВхождениеНаименования+1);  
                Иначе
                    БезМатраца=Наименование;
                КонецЕсли;
                //    
                //КонецЕсли;;
                //ВхождениеХ=Найти(Наименование,"х")+Найти(Наименование,"Х")+Найти(Наименование,"x")+Найти(Наименование,"X");
                РазмерСправа=0;        
                РазмерСлева=0;
                ЭтоНеЦифра=0;
                ПервоеВхождение=0;
                А=СтрДлина(БезМатраца);
                ПозицияЦифрСправа=СтрДлина(БезМатраца);
                Пока А>1 Цикл
                    Если ((КодСимв(Сред(БезМатраца,А,1))>=48) И (КодСимв(Сред(БезМатраца,А,1))<=57)) Тогда //если цифра, то это размер
                        РазмерСправа=1;
                        ЭтоНеЦифра=0;
                    Иначе
                        ЭтоНеЦифра=1;
                    КонецЕсли;
                    //Если (ЭтоНеЦифра=1) И (ПервоеВхождение=0) Тогда
                    //    ПозицияЦифрСправа=А;
                    //    ПервоеВхождение=1;
                    //КонецЕсли;
                    Если (РазмерСлева=1) И (ЭтоНеЦифра=1) Тогда
                        Прервать;
                    КонецЕсли;            
                    Если (РазмерСправа=1) И ((Врег(Сред(БезМатраца,А,1))="Х") ИЛИ (Врег(Сред(БезМатраца,А,1))="X")) Тогда
                        РазмерСлева=1;
                    КонецЕсли;
                    А=А-1;
                КонецЦикла;                                
                Если РазмерСлева = 1 Тогда
                    БезМатрацаИРазмера=Лев(БезМатраца,А);
                    //Размер=Сред(БезМатраца,А,ПозицияЦифрСправа-А);
                    Размер=Сред(БезМатраца,А+1);
                Иначе    
                    БезМатрацаИРазмера=БезМатраца;
                    Размер="";
                КонецЕсли;
                
                
                Таб.НоваяСтраница();
                Таб.ВывестиСекцию("ГорТелоВнутр|ВертТелоВнутр");
                //Если ТекКолонка > ВсегоКолонок Тогда
                //    ТекКолонка = 1;
                //    ТекСтрока  = ТекСтрока + 1;
                //КонецЕсли;
                //
                //Если ТекСтрока > ВсегоСтрок Тогда
                //    ТекСтрока  = 1;
                //    Таб.НоваяСтраница();
                //КонецЕсли;
                //
                //Если ТекКолонка = 1 Тогда
                //    Таб.ВывестиСекцию("ГорТело|ВертТело");
                //Иначе
                //    Таб.ПрисоединитьСекцию("ГорТело|ВертТело");
                //КонецЕсли;
                //
                //ТекКолонка  = ТекКолонка + 1;
                
            КонецЕсли;
        КонецЦикла;
        
    КонецЕсли;
    
    //Вызов выходного отчета в окно просмотра и редактирования.
    Таб.ПараметрыСтраницы(1,,,3,0,0,0,1,1,1,,);
    Таб.Опции(0, 0, 0, 0,,);
    Если Устройство="экран" Тогда
        Таб.ТолькоПросмотр(1);
        Таб.Показать("Этикетка", "");
    Иначе
        Таб.Напечатать(0);
    КонецЕсли;
    
КонецПроцедуры

//******************************************************************************
// Предопределенная процедура
//
Процедура ПриОткрытии()
    
    СтатусВозврата(0);
    
    // проверка наличия компоненты
    Попытка
        КомпонентABC = СоздатьОбъект("BARCODE.BarcodeCtrl.1");
    Исключение
        Предупреждение("Компонент ActiveBarcode не установлен на данном компьютере!" +
        РазделительСтрок +
        "Порядок установки компоненты ActiveBarcode описан в документации.");
        Возврат;
    КонецПопытки;
    
    Если ТипЗначенияСтр(Форма.Параметр) <> "СписокЗначений" Тогда
        Возврат;
    КонецЕсли;
    
    Устройство = Форма.Параметр.Получить("Устройство");
    Если ПустоеЗначение(Устройство) = 1 Тогда
        Устройство = "экран";
    КонецЕсли;
    Сформировать(Форма.Параметр.Получить("ТаблицаТоваров"), Устройство);
КонецПроцедуры // ПриОткрытии()

Дело в том что нужно на этикетки просто информация а штрих кода не нужны. когда я в процедуре убираю все что связано со штрих кодом то пишет нет логического завершения ЕСЛИ и ПРОЦЕДУРЫ. Если можно объясните мне юзеру в чем моя ошибка. Просмотрел все. Вроде везде стоят параметры завершения команд КонецЕсли и КонецПроцедуры. А ошибка все равно вылетает.

(21) в порфигураторе есть проверка синтаксиса, снизу в панели струментов - "синяя галка" или меню-действия -синтаксический контроль..

(20) щтрихкод у тебя задан в таблице товаров строки которой ты перебираешь в процедуре - ТаблицаТоваров.Штрихкод. А в коде процедуры есть только проверка на наличие штрих кода и вывод сообщения об его отсутствии. На печатную форму сам штрихкод выводится непосредственно при выводе секции.

Вобщем тебе надо не код процедуры править, а в макете искать строку 'ТаблицаТоваров.Штрихкод' и удалять ее оттуда (из макета)

если пройдет без ошибок - запущай.
Если найдет ошибки - щелкай по ней мышой - попадешь в тест модуля с этой ошибкой.

спасибо большое. сейчас без ошибок но вылетает сообщение, подскажите пожалуйста что оно означает:
Если ТаблицаТоваров.КоличествоСтрок() = 1 Тогда
{D:\БАЗЫ 1С\CITY-2012.18072014\EXTFORMS\PRNFORMS\ЭФ.ERT(49)}: Значение не представляет агрегатный объект (КоличествоСтрок)

оно означает что ТаблицаТоваров - должна быть таблицей значений или табличной частью документа

Если тебе не надо выводить на печать штрих код, то не надо ничего удалять из кода. надо удалять в макете.

В макете в ячейке , где Штрих код чего там? можно скриншот показать..

Вот ссылка https://cloud.mail.ru/public/5d7ad5c86569%2FБезымянный.jpg

такое чуство, что в переменной "размер" лежит штрих..
в переменной БезМатрацаиРазмера вроде как наименование товара.
В отладчике посмотри, чему равна переменнкая "размер" перед Таб.ВывестиСекцию("ГорТелоВнутр|ВертТелоВнутр");

(29)(30) Типовая ТиС

http://imglink.ru/show-image.php?id=025b7d74be99a14bbd2d0d5fbf5cd886

ничего не напоминает ?

А это уже совсем другая песня.. конечно напоминает....

Здесь вот он ШК на своем месте....как и положено ему...НО у автора совсем иное...

у автора тоже самое, только он не выделил картинку в которую вставлен код Таб.ТекущийОбъект.Text=СокрЛП(ТаблицаТоваров.Штрихкод). А без этого этот объект не виден на скриншоте.

а надо догадаться , что просто не выделено или его нет совсем?)))))))) ТОгда в чем собственно проблема то? удаляй ШК и будет тебе ценник без штрихкода, чего голову то морочить? Или уж если хочется, то
Таб.ТекущийОбъект.Text=?ЦенникННадо=Нет,"",СокрЛП(ТаблицаТоваров.Штрихкод).Штрихкод) ... тоже будет чистый ценник или ценник с ШК.

ну скобочку упустил конечно))) после вопросит значка))))))

но таки сдается мне, что у автора там нет невыделенной картинки.... если она есть , то в какой ячейке? (3,2) сильно мала по высоте, а в (2,2) там уже выражение, и на шаблон не похоже

Ребят в том то и дело что нет выделенной ячеки.
Этот варииант я уже понял еще вчера вечером, но не тут то было.

вооот веселуха намечается))) стало быть ячейки, где был бы ШК нет? но он есть.... значит надо найти и обезврелить или приручить зверька

а переменная: Размер=Сред(БезМатраца,А+1);

В смысле приручить??? Объясни начинающему....Потому как ячеек много и где может быть этот штрих вариантов также много. А искать 1с-ника который составлял эти шаблоны бесполезно

штрих по идее должен быть здесь, но скажи плиз чему равен "Размер" то? после всех этих манипуляций с А+1..

в отладчике глянь

размер равен 0

(38) там не ячейка, там вставлена картинка. выложи свою внешнюю обработку куда-нибудь

ссылка на файл ert: https://cloud.mail.ru/public/1fc948fc3ba2%2FЭФ.ert
и файл efd: https://cloud.mail.ru/public/f08805e36517%2FЭФ.EFD

ну да ШК там вроде и нет... тока две переменки и логотип

(19) Конечно, смежные специальности. Как переплетчик и писатель. Ведь любой переплетчик может писать романы, правильно?

Может как нить можно по другому сделать????

(48) ))) ну не любой переплетчик... но почему бы и нет))) любая типография может съекономить на переплетчике, если писатель сам сможет сделать работу переплетчика..Это же выгодно))) и наоборот Если переплетчик умеет писать.. пусть пишет и переплетает... но за один гонорар)))))

но когда этого требуют.... ет уже другая песня))

Ребят подскажите как можно сделать еще?

Сделай обработку заново.. выкидывать все, что не надо, оставить необходимое

выброси проверку ШК, сделай новую таблицу и перенеси в нее только то, что необходимо (логотип, размерЮ и матрац), Имена секций оставь как есть. НУ и ТАБ.ИсходнаяТаблица("новаятаблица"); вместо старой ("Этикетка")

(52) при вызове внешней печатной формы из документа "Заказ покупателю" в обработку передается не таблица значений с номенклатурой, а сам документ.

и вообще откуда ты взял эту внешнюю печатную форму ? в ПУБе нет штрихкодирования, а у тебя тут в каждой строке штрихкоды.

на самом деле проще сделать все заново.

(55) по ходу это самопис... почему бы и нет. Автор говорил, что программера уже не найти. Но задачу решать надо.

тижол случай конечно , если учесть , что на это напрягают сисадмина

(57) Надо сделать как в банках (в Приватбанке подобное было с кредитными картами) - каждый сотрудник обязан за месяц написать 10 строк кода. Кто не написал остается без ЗП.

в общем ребят я уже совсем запарился и голову поломал.....
как и говорили создал новую таблицу убрал проверку штриха синтаксиса нет-уже хорошо        НО              Если ТаблицаТоваров.КоличествоСтрок() = 1 Тогда
{D:\БАЗЫ 1С\CITY-2012.18072014\EXTFORMS\PRNFORMS\ШК БЕЗ ЛОГО - КОПИЯ.ERT(53)}: Значение не представляет агрегатный объект (КоличествоСтрок)

(59) ТаблицаТоваров у тебя не заполнена и вообще не таблица

Вот теперь надо пойти в документ, откуда ты вызываешь обработку и в качестве параметра дай параметры в виде списка.
"Устройство"
"ТаблицаТоваров"
Таблицу там получишь при помощи ВыгрузитьТабличнуюЧасть(ТаблицаТоваров);
И получишь свою таблицу...
Ну естессно не забудь объявить там переменные

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

Ну вродь все пробуй

Спасибо всем огромное. Все получилось. Правда немного не так как вы говорили но ваши советы натолкнули меня на правильный путь.
Еще один вопрос кто нибудь сталкивался с проблемой настройки на печать этикетки. Дело втом что у меня размер этикетки 64х20мм, принтер зебра зм600, когда начинаю печатать эту этикетку она не входит в поля самой этикетки. Изменение размеров в самом шаблоне к результату не приводят.

Вот здесь не советчик.... Давно как то было дело с зеброй но на 8ке но ооочень давно уж извиняй...

Но все равно спасибо огромное. Может если нужна будет помощ в чем обращайся. Чем смогу тем помогу, как говориться.

аналогично

(63) параметры страницы + отступы
емнп ^^