Область = ТабДок.Область(“R4C10”);
Область.Текст(“Вертикальный текст”);
Область.ОриентацияТекста(90);
Этот метод верен в том случае, если таблица еще не выведена на форму. Если нужно обновить форму при интерактивном вводе, используйте метод таблицы ТолькоПросмотр(1) и затем для обновления таблицы (чтобы не перерисовывать) метод Показать(,,1) (с единицей в 3-м параметре).
В моем примере для того, чтобы пользователь визуально видел, какие ячейки он уже отредактировал, эти ячейки меняют шрифт на курсив. Я добавил и ориентацию текста, чтоб наверняка было заметно.
Замечу, что “вращение” идет против часовой стрелки. Так, с параметром 90 градусов текст выведется снизу вверх, 180 градусов – справа налево вверх тормашками, 270 градусов – снизу вверх и т.д.
Выравнивание всегда происходит относительно “стандартного” расположения текста.
Процедура ОбработкаЯчейкиТаблицы(сзРасшифровка, Фл, Таб, Адрес)
Если ТипЗначенияСтр(сзРасшифровка) = “Справочник” Тогда
Фл=1; // стандартный обработчик
Иначе
// мой обработчик
Если ВвестиЧисло(Цена,“Введите цену”,12,4)=0 Тогда
Возврат;
Иначе
Таб.Область(Адрес).Текст=?(Цена=0,”“,Формат(чЦена,“Ч12.4”));
сзРасшифровка.Установить(“Цена”,чЦена);
Таб.Область(Адрес).Расшифровка(сзРасшифровка);
Таб.Область(Адрес).Полужирный(0);
Таб.Область(Адрес).Курсив(1);
Таб.Область(Адрес).ОриентацияТекста(90); /
Таб.ТолькоПросмотр(1);
Таб.Показать(,,1);
ИначеЕсли ТипЗначенияСтр(сзРасшифровка) = “Документ” Тогда
ОткрытьФорму(сзРасшифровка,,1);
КонецЕсли;
КонецПроцедуры
Прежде всего – какая у Вас конфигурация типовая или самописная?
Если типовая – то там уже всё сделано, необходимо в папку с базой положить файлы с прописью. Если эти файлы поместить в папку с программой (обычно это каталог programfiles\1cv77\Bin или programfiles\1cv77.adm\Bin).
Как именованы файлы:
первые три символа – международное название валюты, суффикс – язык, расширение SPL.
По содержимому это текстовые файлы. Пример прописи на украинском языке для гривны и названий месяцев в конце поста в Приложении.
Если база самописная, в которой не предусмотрена работа с национальными языками, кроме русского (он по умолчанию и прописан в платформе) – я расскажу поподробнее.
В типовых файлах прописи кроме месяцев есть еще и описание денежных единиц конкретной валюты на конкретном языке.
Вам понадобятся файлы прописи на украинском языке, и программно задать работу с конкретным языком оператором Прописть(ИмяФайлаПрописи). После этого все строки с буквенным форматированием (названия месяцев, суммы прописью и т.д.) будут выводиться на указанном в файле языке.
Например, Формат(ДатаДок, “ДДДММММГГГГ”) выведет строку “18 Березня 2009 р.”
В Глобальном модуле, чтоб не писать в каждом документе, определить процедуру, которая будет устанавливать язык для печатных форм. В типовых конфигурациях для этого используется процедура глУстПропись. Создайте её и Вы. В первом параметре передается валюта (гривня, рубли, доллары, евро и т.д.), во втором параметре язык литерой “р” для русского языка или “у” для украинского.
В справочнике Валюты определены реквизиты:
ФайлПрописиРус строка, для хранения имени файла (и пути) прописи на русском языке.
ФайлПрописиУкр строка, для хранения имени файла (и пути) прописи на украинском языке.
Процедура глУстПропись(Вал,Язык = “”) Экспорт
Язык = Нрег(Язык);
Если Язык = “” Тогда
// из константы
Если Константа.ФормыНаУкраинском = Нет Тогда
Пропись(СокрЛП(Вал.ФайлПрописиРус));
Иначе
Пропись(СокрЛП(Вал.ФайлПрописиУкр));
КонецЕсли;
ИначеЕсли (Язык = “р”) или (Язык = “русский”) Тогда
Пропись(СокрЛП(Вал.ФайлПрописиРус));
ИначеЕсли (Язык = “у”) или (Язык = “украинский”) Тогда
Пропись(СокрЛП(Вал.ФайлПрописиУкр));
КонецЕсли;
КонецПроцедуры
Хотя в конкретном случае с одной валютой – гривной и выводом всех печатных форм на украинском языке достаточно будет текст из Приложения сохранить в файл uahukr.spl и положить этот файл в папку с базой. А в процедуре печати достаточно будет написать Пропись(“uahukr.spl”);
Пример:
Процедура Печать()
Пропись(“uahukr.spl”)
....
создание и заполнение печатной формы
....
Приложение:
{“Speller”,
{“Money”,
{“Гривня”,“Гривні”,“Гривень”,“копійка”,“копійки”,“копійок”,“F”}},
{“Numbers”,
{“Один”,“Два”,“Три”,“Чотири”,“П‘ять”,“Шість”,“Сім”,“Вісім”,“Дев‘ять”,“Одна”,“Дві”,
“Десять”,“Одинадцять”,“Дванадцять”,“Тринадцять”,“Чотирнадцять”,“П‘ятнадцять”,“Шістнадцять”,“Сімнадцять”,“Вісімнадцять”,“Дев‘ятнадцять”,
“Двадцять”,“Тридцять”,“Сорок”,“П‘ятдесят”,“Шістдесят”,“Сімдесят”,“Вісімдесят”,“Дев‘яносто”,
“Сто”,“Двісті”,“Триста”,“Чотириста”,“П‘ятсот”,“Шістсот”,“Сімсот”,“Вісімсот”,“Дев‘ятсот”,
“Тисяча”,“Тисячі”,“Тисяч”,
“Мільйон”,“Мільйона”,“Мільйонів”,
“Мільярд”,“Мільярда”,“Мільярдів”,
“Трильйон”,“Трильйона”,“Трильйонів”,
“Нуль”}},
{“Date”,
{“Січень”,“Лютий”,“Березень”,“Квітень”,“Травень”,“Червень”,“Липень”,“Серпень”,“Вересень”,“Жовтень”,“Листопад”,“Грудень”,
“Січня”,“Лютого”,“Березня”,“Квітня”,“Травня”,“Червня”,“Липня”,“Серпня”,“Вересня”,“Жовтня”,“Листопада”,“Грудня”,
“р.”,“Квартал”}},
{“DateRange”,
{“Півріччя”,“Місяців”}},
{“WeekDay”,
{“Понеділок”,“Вівторок”,“Середа”,“Четвер”,“П‘ятниця”,“Субота”,“Неділя”}}
}
Пользователи сети работают с 1С v7.7 через терминал на Winserver2003. Как в терминале, так и локально отчеты, которые более 2500 тыс. строк, не сохраняются в формат .xls.
Для решения этой проблемы установите бесплатную программу от 1С “Работа с файлами 1С”, скачать её можно здесь
Далее просто сохраняете из 1С 7 нужный Вам отчет в формате mxl (семерка с ним довольно быстро работает), затем сохраненный файл открываете в “Программе работы с файлами”. В меню “Файл -> Сохранить копию” сохраните в нужном Вами формате: Excel, Excel97, Excel95…
Также этой программой можно конвертировать печатный формы и макеты из 1С 8 в 1С 7: в меню ““Файл -> Сохранить копию” и выбрать формат “Табличный документ v7.7 (mxl)”.
А можно еще научить Excel открывать файлы MXL. Для этого создаем файл mxl.reg следующего содержания: см. приложение, где “11.0” – это номер версии Экселя – 2003. Для Office XP он будет 10.0, для 2000 – 9.0, 97 – 8.0, 95 – 7.0, а “C:\Program Files\1Cv77\BIN\” – путь к исполняемым файлам 1С:
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USERSoftwareMicrosoftOffice11.0ExcelConverters]
“Moxel”=“1С:Предприятие (*.mxl),C:\Program Files\1Cv77\BIN\mxl2xl.dll, *.mxl”
Сохранив его, и кликнув по нему, вы внесете данные из него в реестр, что позволит открывать файлы *.mxl непосредственно в Excel.
Комментарии | 
опубликовано: 10 Сентябрь 2009, 19:54