Имя: Пароль:
1C
1С v8
Переменная нужна заглавными буквами
,
0 example221
 
22.01.20
13:34
Добрый день форумчане,подскажите пожалуйста бестолковому,Вот у меня есть макет ценника в нем есть переменная <Наименование>,как сделать так чтобы на ценники наименование выдавало заглавными буквами?
1 palsergeich
 
22.01.20
13:35
Врег(Наименование)
2 piter3
 
22.01.20
13:35
ВРег
3 example221
 
22.01.20
13:39
(2) (1) Сейчас попробую спасибо.
4 example221
 
22.01.20
13:51
А куда именно этот врег?
5 piter3
 
22.01.20
13:52
(4) тебе написали уже Врег(Наименование)
6 example221
 
22.01.20
14:05
у меня наименование добавляется вот так
Если Строка=Неопределено Тогда
        Строка = Номенклатура.Добавить();    
    КонецЕсли;
    строка.Товар = Ссылка;
    строка.Артикул = сокрлп(Ссылка.Артикул);
    строка.Наименование = сокрлп(Ссылка.НаименованиеПолное);
    строка.Страна = Ссылка.СтранаПроисхождения;
    строка.Цена = _ПолучитьЦену(ТипЦен,Ссылка);
7 example221
 
22.01.20
14:05
макет = получитьмакет("Средний100х80");
    обл_ценник = макет.ПолучитьОбласть("Ценник|Товар");
    
    выведено_в_строке = 0;
    выведено_строк = 0;
    Для каждого стр Из Номенклатура Цикл
        обл_ценник.Параметры.Заполнить(стр);
        Попытка
            обл_ценник.Параметры.Описание = стр.Товар.Комментарий;
        Исключение
        КонецПопытки;
        обл_ценник.Параметры.Организация = ПараметрыСеанса.Организация;
        Если выведено_в_строке=0 Тогда
            ТабДокумент.Вывести(обл_ценник);
        Иначе     
            ТабДокумент.Присоединить(обл_ценник);
        КонецЕсли;
        выведено_в_строке = выведено_в_строке + 1;
        Если выведено_в_строке=2 Тогда
            выведено_в_строке = 0;
            выведено_строк = выведено_строк + 1;
        КонецЕсли;
        
        Если выведено_строк=3 Тогда
            ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц();
            выведено_строк = 0;
        КонецЕсли;
    КонецЦикла;
    ТабДокумент.ПолеСлева = 5;
    ТабДокумент.ПолеСправа = 5;
    ТабДокумент.ПолеСверху = 10;
    ТабДокумент.ПолеСнизу = 10;
8 example221
 
22.01.20
14:05
КлючУникальности = Строка(ТекущаяДата()); //уникальность открытых форм будем определять по тек. времени ...
    ПечатнаяФорма = ПолучитьОбщуюФорму("ПечатнаяФормаДокументов", , КлючУникальности);
    Пока ПечатнаяФорма.Открыта() Цикл
        КлючУникальности = КлючУникальности + "0"; //... а если в одну секунду открыли, степень уникальности повысим
        ПечатнаяФорма = ПолучитьОбщуюФорму("ПечатнаяФормаДокументов", , КлючУникальности);
    КонецЦикла;
    //Попытка
    //    Документ.ИмяПараметровПечати =  НазваниеПечатнойФормы;
    //Исключение
    //КонецПопытки;
    //Документ.КлючПараметровПечати =  НазваниеПечатнойФормы;
    
    
    //зададим параметры макета    
    ПечатнаяФорма.Объект = ЭтотОбъект;
    ПечатнаяФорма.ЭлементыФормы.ТабличныйДокумент.ПолеСлева = Документ.ПолеСлева;
    ПечатнаяФорма.ЭлементыФормы.ТабличныйДокумент.ПолеСправа = Документ.ПолеСправа;
    ПечатнаяФорма.ЭлементыФормы.ТабличныйДокумент.ПолеСверху = Документ.ПолеСверху;
    ПечатнаяФорма.ЭлементыФормы.ТабличныйДокумент.ПолеСнизу = Документ.ПолеСнизу;
    ПечатнаяФорма.ЭлементыФормы.ТабличныйДокумент.ОриентацияСтраницы = Документ.ОриентацияСтраницы;
    //покажем
    СписокКопируемыхСвойств = "АвтоМасштаб,Защита,ИмяПараметровПечати,КлючПараметровПечати,ИмяПринтера,ИмяСохраненияПоложенияОкна,ИтогиСнизу,ИтогиСправа,КодЯзыкаМакета,КоличествоЭкземпляров,НаправлениеПерехода,ОбластьПечати,ОриентацияСтраницы,ОтображатьГруппировки,ОтображатьЗаголовки,ОтображатьСетку,ПовторятьПриПечатиКолонки,ПовторятьПриПечатиСтроки,ПолеСверху,ПолеСлева,ПолеСнизу,ПолеСправа,РазмерКолонтитулаСверху,РазмерКолонтитулаСнизу,СохранятьСвойстваОтображения,ТекущаяОбласть,ТолькоПросмотр,ФиксацияСверху,ФиксацияСлева,ФиксированныйФон,ФоноваяКартинка,ЧерноБелыйПросмотр";
    ЗаполнитьЗначенияСвойств(ПечатнаяФорма.ЭлементыФормы.ТабличныйДокумент, Документ, СписокКопируемыхСвойств, "");
    ПечатнаяФорма.ЭлементыФормы.ТабличныйДокумент.Вывести(Документ);
    ПечатнаяФорма.ЭлементыФормы.ТабличныйДокумент.ОтображатьЗаголовки    = Ложь;
    ПечатнаяФорма.ЭлементыФормы.ТабличныйДокумент.ОтображатьСетку        = Ложь;
    ПечатнаяФорма.ЭлементыФормы.ТабличныйДокумент.Защита                = обПраво("ЗащитаПечатныхФорм",глПрава);
    ПечатнаяФорма.ЭлементыФормы.ТабличныйДокумент.ТолькоПросмотр        = обПраво("ОткрытиеПечатныхФормДокументовВРежимеПросмотра",глПрава);
    ПечатнаяФорма.Открыть();
9 example221
 
22.01.20
14:06
куда врег
10 Ненавижу 1С
 
гуру
22.01.20
14:07
строка.Наименование = СокрЛП(ВРег(Ссылка.НаименованиеПолное));
11 example221
 
22.01.20
14:10
(10) Спасибо,огромное.^_^
12 example221
 
22.01.20
14:15
(10) Сработало,спасибочки)
13 example221
 
22.01.20
14:18
Закрыто
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший