ПЕЧАТЬ ИЕРОГЛИФОВ из 1С

20.06.11

Интеграция - Загрузка и выгрузка в Excel

+20 –
Если Вам нужно печатать из 1С иероглифы, а Вы не знаете как - предлагаю один из вариантов решения. А если Вы знаете - предложите свой, буду премного благодарен.

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование Скачано Купить файл
china.zip
.zip 25,10Kb
42 2 500 руб. Купить

Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний

Оформите подписку на компанию для решения рабочих задач

Оформить подписку и скачать решение со скидкой

Вы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».

  • 0% комиссии — оплата напрямую исполнителю;
  • Исполнители любого масштаба — от отдельных специалистов до команд под проект;
  • Прямой обмен контактами между заказчиком и исполнителем;
  • Безопасная сделка — при необходимости;
  • Рейтинги, кейсы и прозрачная система откликов.

Недавно на форуме был задан вопрос:

1С->Excel (Преобразовать из кодов в символы Unicode)

Я попытаюсь на него ответить (предложить свой вариант решения задачи)

Задача: Как преобразовать

из кодов (2 столбец 1 строчка)

в символы (2 столбец 2 строчка)

(см. рисунок)

 

Давайте попробуем пошагово решить задачку с помощью замечательной функции MS EXCEL (VBA) -  ChrW()

Создадим новую книгу   MS EXCEL

 

Перейдем в редактор VBA (Alt+F11) или меню Сервис->Макрос->Редактор VBA

Откроется редактор

Так выглядит "пустая"  книга. Нам нужно в меню Insert (Вставка)->Module

"Нам нужен холст, чтобы написать картину"(с)

Вот здесь мы и напишем нашу первую функцию

В принципе, код очень простой - получаем строковой параметр, удаляем из него все ненужные символы и преобразуем в символ. Как этим пользоваться ?

Переходим обратно на лист. Выбираем в меню Вставка - Функция

 

и видим что в категориях добавился пункт "Определенные пользователем" , где мы можем выбрать функцию "ПереводВКитайский(Ind)" .

Сделаем это и укажем ячейку с нашими символами (или можно их прямо тут и ввести и сразу увидим результат.

 

 

Итог: мы только что с вами внедрили в книгу нашу функцию. В этой книге будет все работать на ура.

Минус - а что делать в других книгах?

При открытии будет вылезать окно "Отключить макросы или нет ?""

Пойдем дальше....

Для этого сохраним нашу книгу, на как книгу (*.xls) а как надстройку (*.xla)

Меню Файл -> Сохранить как... 

Сохранили, закрываем все открытые книги. Снова заходим в MS EXCEL (создадим новую книгу)

В меню  Сервис->Надстройки-> Обзор выберем нашу  надстройку TranslChina.xla

Должно появится окошко:

Ставим галочку, закрываем. Теперь нашу функция  "ПереводВКитайский(Ind)" будет доступна в любых документах .... но только на этом компьютере.

 

Но мы же с вами тут за 1С говорим ...

Дальше вам понадобится прочитать статью:

"Троянский конь" или "скрытые" возможности таблиц 1С

Не буду про нее повторятся, но !!!

При выводе на экран в 1С

 

мы увидим кракозяблы...  они нам НЕ НУЖНЫ, а вот если кликнуть на внедренный объект, то получим то, что хотели.

 

 

 

В прикрепленной обработке я немного дописал алгоритм, но это шаблон рыба (только направление)

Смысл : во внедренном объекте формируем "наш перевод" сохраняем на диске как файл и уже потом открываем (или печатаем) нужный нам файл.

Во вложении:

  • внешняя обработка с внедренным объектом MS EXCEL
  • книга1.xls с нашей функцией
  • готовая надстройка TranslChina.xla 

Вступайте в нашу телеграмм-группу Инфостарт

+20 –

См. также

1С 7.7 и новый 1С:Контрагент

Универсальные функции Разработчик 1С:Предприятие 7.7 1C77 Россия Бесплатно (free)

Получение реквизитов контрагентов из 1С:Контрагент для старых конфигураций под 1с 7.7.

25.04.2022    4903    zhenyat    7    

9
Загрузка банковской выписки для 1С 7.7 любой конфигурации

Банковские операции Загрузка и выгрузка в Excel Бухгалтер Пользователь 1С:Предприятие 7.7 1C77 Россия Бухгалтерский учет Платные (руб)

Решение предоставляет комплексную загрузку банковской выписки из CSV, XLS, TXT файла в 1С 7.7 любой конфигурации. Позволяет создавать документы выбранного вида, например "Строка выписки банка (приход/расход)", или многострочный табличный документ, например Выписка, для каждой операции из загружаемого файла банковской выписки. Загружает реквизиты документа, а также создаёт контрагентов и другие необходимые элементы справочников.

5999 руб.

29.07.2021    28852    23    27    

23
Загрузка адресов произвольного формата (КЛАДР и нестандартных "грязных" адресов) в ФИАС современных конфигураций из 1С 7.7

Загрузка и выгрузка в Excel Перенос данных 1C Разработчик Пользователь 1С:Предприятие 7.7 1С:Предприятие 8 1C:Бухгалтерия 1C77 1С:ERP Управление предприятием 2 Абонемент ($m)

Описание технологии загрузки любых адресов из 1С 7.7 с разложением по ФИАС в современные конфигурации 1C 8.3 на примере ERP. Предлагаемый способ просто чудо, он гарантирует результат, он очень простой и качественный! Моя обработка является синтаксическим анализатором, который подставляет в строку грязного адреса выражение "Дом №" и "Корпус", благодаря чему грязные адреса 7.7 сами очень хорошо раскладываются по значимым полям ФИАС - заполняется область, город, улица, дом, корпус.. все раскладывается само с помощью встроенного механизма современных конфигураций 1С 8.3, который написали сами сотрудники фирмы 1С!

1 стартмани

16.08.2019    22283    22    ksnik    12    

9
Поддержка выгрузки в Excel 2007 для 1С 7.7 в одну строку

Разработка внешних компонент Загрузка и выгрузка в Excel Разработчик 1С:Предприятие 7.7 1C77 Абонемент ($m)

Внешняя компонента 1С 7.7. для сохранения таблиц в формате Excel 2007.

1 стартмани

21.03.2019    35400    88    MadDAD    347    

21
Формирование строки json в 1С: 7.7

Универсальные функции Разработчик 1С:Предприятие 7.7 1C77 1С:Комплексная 7.7 Абонемент ($m)

Предлагается набор функций 1с 7.7 для формирования строки json стандартными средствами.

1 стартмани

10.12.2018    14486    malovandrey    7    

19
Метод загрузки данных из таблиц Excel в 1С без установки Office

Загрузка и выгрузка в Excel Разработчик 1С:Предприятие 7.7 1C77 Абонемент ($m)

Импорт данных в 1С:Предприятие 7.7 из Excel через JET.OLEDB или ACE.OLEDB. Данный метод позволяет загружать данные из файлов на ПК, на которых не установлен MS Office.

1 стартмани

20.09.2016    33542    13    aserg    4    

15
Удобная выгрузка данных из 1С 7.7 для последующего переноса их в другие программы

Файловый обмен (TXT, XML, DBF), FTP Внешние источники данных Загрузка и выгрузка в Excel Системный администратор Разработчик Бухгалтер Бухгалтерский учет 7.7 1С:Бухгалтерия 7.7 Абонемент ($m)

Позволяет выгружать данные справочников, документов, сальдо по счетам из 1С 7.7 (компонента «Бухгалтерский учет» в файлы формата MXL, XLS, DBF. Полученные файлы удобно использовать для переноса в другие программы. В разработке применено несколько оригинальных решений.

1 стартмани

10.06.2016    54865    238    gubanoff    17    

12
Проверка часового пояса

Информационная безопасность Универсальные функции Разработчик 1С:Предприятие 7.7 Бесплатно (free)

При использовании терминалок для удаленных баз, иногда при входе в базу данных необходимо исключить возможность входа пользователей с компьютеров с другим часовым поясом. Например, работают в Новосибирской базе с временем UTC +6 и пытаются зайти в базу с UTC +3.

16.05.2016    15209    kudenzov    3    

11
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. Tatitutu 3857 04.02.10 12:17 Сейчас в теме
ну шо китай, япония - бойтесь...1С идет к вам ))))
+ – Ответить
3. venger 2127 04.02.10 12:41 Сейчас в теме
(1) Н-да, и так для каждого пользователя на каждом компе?

А так? Ну понятно, что вместо макроса "MyTest" создаем то, что нам нужно, и выводим реальные данные и т.п. А галку в реестре, после можно и снимать, тоже программно, если уж так не нравится разрешенный доступ к VBA из других приложений для пользователя.... Зато никакого гемарроя с внешними файлами, настройками для каждого пользователя, версиями офисов и т.п. Никаких вопросов пользователю не задается, ничего настраивать не надо... 

Перем Excel, РабочаяКнига, РабочийЛист;

Попытка
	// Устанавливаем для пользователя галку программного доступа к VBA
	// Подветки 11.0, 10.0 - зависят от версии Office...
	WScriptShell = СоздатьОбъект("WScript.Shell");
	ВерсияОфиса = СокрЛП(WScriptShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Excel.Application\CurVer\"));	
ВерсияОфиса=Прав(ВерсияОфиса,СтрДлина(ВерсияОфиса)-Найти(ВерсияОфиса,"."));
ВерсияОфиса=Прав(ВерсияОфиса,СтрДлина(ВерсияОфиса)-Найти(ВерсияОфиса,"."));
	ВерсияОфиса=ВерсияОфиса+".0";
	WScriptShell.RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Office\"+ВерсияОфиса+"­\Excel\Security\AccessVBOM",1, "REG_DWORD");
    WScriptShell = 0;
Исключение
КонецПопытки;

// Создаем все…
Excel = СоздатьОбъект("Excel.Application");
Excel.Visible = 1;   
РабочаяКнига = Excel.Workbooks.Add();
РабочаяКнига.Activate();
РабочийЛист =РабочаяКнига.WorkSheets(1);
РабочийЛист.Select();

// Текст процедуры с передаваемым параметром
ТекстПроцедуры = "Sub MyTest(V)" + РазделительСтрок +  " MsgBox(V)" + РазделительСтрок + "End sub";

Попытка
// Вставляем процедуру в рабочую книгу
РабочаяКнига.VBProject.VBComponents.Item(""+РабочаяКнига.CodeName).CodeModule.AddFromString(ТекстПроцедуры);	
Исключение
	Сообщить("Экспорт в Excel не удался.","i");
	Сообщить(""+ОписаниеОшибки()+". Обратитесь к администратору.","i");
	Возврат;
КонецПопытки;

// Вызываем процедуру с передаваемым ей параметром, если их несколько, то через запятую указываем остальные параметры
Excel.Application.Run(""+РабочаяКнига.CodeName+".MyTest","Hi,Venger!");

РабочийЛист.Cells(1,1).Value = "'Что-то выводим…";

// Ну и типа финиш
Сообщить("Экспорт в Excel успешно завершен.");
Показать
Styvi; +1 – Ответить
7. Styvi 6 04.02.10 12:52 Сейчас в теме
(3)
Александр, Ваши труды тоже были замечены на форуме...
(аналогичные благодарности)...
Только плюсануть нечгде было...
;)
+ – Ответить
9. venger 2127 04.02.10 12:57 Сейчас в теме
(7) Чувствую придется писать статью о поддержке Unicode и иероглифов на форме 1С (вставке, редактировании, хранении и отображении в 1С), как тут;-) Это с помощью АктивИкса Internet Explorer на форме, с некоторыми хитростями, конечно;-) Как же без этого;-)
Прикрепленные файлы:
+ – Ответить
8. Tatitutu 3857 04.02.10 12:56 Сейчас в теме
(3) Сань не трогай реестр - горе это....будет , такая дыра - если ты оставишь офис хоть на минуту не прикрытым от других макросов и дашь доверенный доступ к VBA - это просто мечта вирусолога.

я тебе давал ссылку как обойти запрос на макросы.
что мешает:
при запуске обработки
создаем (пересохраняем) персонал.xls с нужными формулами
создаем лист EXCEL новый ,форматируем переводим, сохраняем
удаляем персонал.
Работы написать на полчаса. и ничего спрашивать не будет и пользователь и знать не будет.
+ – Ответить
10. venger 2127 04.02.10 13:01 Сейчас в теме
(8) > создаем (пересохраняем) персонал.xls с нужными формулами

Создать personal.xls и положить куда надо не проблема, но как в personal.xls записать программно макрос и потом его вызвать из 1С? Можно просто кусок кода простого, типа как в 3-м посте, т.е. чтобы MyTest запустился без вопросов прямо из 1С, без всяких дополнительных телодвижений пользователя или админа?
+ – Ответить
13. Tatitutu 3857 04.02.10 13:06 Сейчас в теме
(10)ты не внимательный ))))



Запусти коня )))

внедряешь объект как в пятнашках, в нем уже заранее пишешь макрос
при запуске этот объект сохраняешь как personal.xls
потом создаешь новую книгу и вот в ней уже будут доступны все твои макросы и функции
сохраняешь книгу , убиваешь personal.xls
все. финиш.
+ – Ответить
14. venger 2127 04.02.10 13:29 Сейчас в теме
(13) Во-первых, даже если файла PERSONAL.XLS нет, то все равно не хочет его сохранять: 

//*******************************************
Функция Лист(Объект)
	Скрипт=СоздатьОбъект("WScript.Network");
	ИмяПапки="С:\Documents and Settings\"+Скрипт.UserName+"\Application Data\Microsoft\EXCEL\XLSTART\";
	ИмяФайла=ИмяПапки+"PERSONAL.XLS";
	Объект.SaveAs(ИмяФайла);
КонецФункции	// Лист
Показать



Доступ к файлу невозможен. Проверьте следующее:

• имеется ли указанная папка;
• папка, содержащая этот файл, доступна для записи;
• в имени файла не содержатся знак
+ – Ответить
15. Tatitutu 3857 04.02.10 13:34 Сейчас в теме
(14) какая версия офиса у тебя ?
сообщить(ИмяФайла) что возвращает ?
+ – Ответить
16. venger 2127 04.02.10 13:37 Сейчас в теме
(13) И как теперь из personal.xls вызвать функцию в 1С (допустим она лежит в книге, не листе или модуле, а в книге personal.xls) при создании второй книги?
+ – Ответить
17. Tatitutu 3857 04.02.10 13:41 Сейчас в теме
(16) как обыкновенную формулы в ячейке
получаешь результат, копируешь и оставляешь как значение (текст)
что и требовалось доказать
P/s перед функцией если в книге напиши Public
+ – Ответить
18. venger 2127 04.02.10 13:49 Сейчас в теме
(17) Удалить personal.xls старый не могу, если он уже есть, то до свидания, обратиться к функции из personal.xls из 1С нормально в создаваемой книге новой тоже не могу, не видит он pesonal.xls, даже если он лежит в нужном месте при создании новой книги программно.... И т.д. и т.п. Фиг знает что, в общем, кусочка кода или малюхонькой обработочки, я так понимаю не будет с конкретным примером... Ходим вокруг да около.... Ладно, поиграюсь сам...
+ – Ответить
11. venger 2127 04.02.10 13:02 Сейчас в теме
(8) +10, ну и сразу с созданием personal.xls, конечно, простенько, но чтобы смысл был понятен....
+ – Ответить
12. venger 2127 04.02.10 13:04 Сейчас в теме
(8) +11, уж извини, если напрягаю;-)
+ – Ответить
2. Трактор 1297 04.02.10 12:34 Сейчас в теме
Сурово! Боюсь что таким способом делать печатные формы весьма затруднительно :|
Китай может остаться не завоёванным.
Кстати, товарищ недавно размышлял на тему написания международной конфигурации для разных вьетнамов и африк. Говорит рынок пустоват и САП с Ораклом не счастье в жизни, а нечто менее удобное чем 1С.
+ – Ответить
4. tango 553 04.02.10 12:41 Сейчас в теме
на Китае настоящий БГ обломился, а уж 1С...
ну не было в Китае Луки Пачолли. не нужен он им
+ – Ответить
5. Tatitutu 3857 04.02.10 12:43 Сейчас в теме
Сурово! Боюсь что таким способом делать печатные формы весьма затруднительно


да ладно...в статье описаны три разных способа.
а третий вообще готовая "рыба" засунь в нее список значений , отредактируй макет и все
+ – Ответить
6. Styvi 6 04.02.10 12:46 Сейчас в теме
"Кофигурации: 1С: Предприятие 7.7, 1С:Бюджет муниципального образования 7.7, 1С:Бухгалтерия 7.7, 1С:Зарплата и кадры 7.7, 1С:Комплексная 7.7, 1С:Торговля и склад 7.7, 1С:Производство+Услуги+Бухгалтерия
Внешний отчет, обработка для 1С: Бухгалтерский учет 7.7; 1С: Оперативный учет 7.7; 1С: Расчет 7.7; 1C: OpenConf 7.7"

Ну, Юрий, - за широту мысли... ПЛЮС ... ;)
... и за полезное чтиво - разумеется...
+ – Ответить
19. Tatitutu 3857 04.02.10 14:28 Сейчас в теме
в общем, кусочка кода или малюхонькой обработочки, я так понимаю не будет с конкретным примером...

а чем тебя обработка приложенная к статье смущает ? Она же полностью рабочая (вместо одной строки запихай туда ТЗ и играйся как тебе нужно
+ – Ответить
20. venger 2127 04.02.10 15:37 Сейчас в теме
(19) Да это я из вредности ворчу просто;-)
+ – Ответить
21. Свой 164 04.02.10 16:44 Сейчас в теме
интересно, как выглядит иероглиф "внедрение ERP" ? :)
mctsimco; +1 – Ответить
22. Tatitutu 3857 04.02.10 16:50 Сейчас в теме
(21) "И мальчик Хуан объяснил на пальцах , как его зовут" (с) :D :D :D
+ – Ответить
23. Myti 86 10.02.10 12:39 Сейчас в теме
:D Хороший Замутик Tatitutu
+ – Ответить
24. tanbohu 10.02.10 16:13 Сейчас в теме
你们好
Смотрю я на это и удивляюсь!
а что просто установить в компе китайскую раскладку не вариант?
+ – Ответить
25. Tatitutu 3857 10.02.10 17:06 Сейчас в теме
(24) вариант для чего ?Поясни пожалуйста, будь так любезен
+ – Ответить
26. tanbohu 10.02.10 18:31 Сейчас в теме
вариант для писания иероглифов в винде где бы то нибыло. хотя, конечно, в 1с с этом проблема.
+ – Ответить
27. Tatitutu 3857 10.02.10 19:06 Сейчас в теме
(26) Так это понятно. тут вопрос в другом ...
в екселе есть иероглифы читаются , печатаются....
но нужно их сохранить в 1С
а 1С такая сякая их не понимает (ну не хочет она китайский изучать)
разложили иероглифы на коды символов в юникоде и сохранили в строке с разделителями
отлично. Отлично , а как распечатать ?
Вот вариант печати здесь и предложен.
+ – Ответить
28. venger 2127 16.04.10 20:37 Сейчас в теме
(27), (26) А вот и предистория с которой все началось ;)

Отображение и редактирование на формах, и хранение в базе, Unicode-строк в 1С 7.7

З.Ы. Только сейчас дошли руки оформить :oops:
+ – Ответить
Для отправки сообщения требуется регистрация/авторизация