RTzRa's hive - software:1c

1С 7.7 и работа на Windows 7, Server 2008

anonymous@undisclosed.example.com (Anonymous) — Tue, 09 May 2017 15:34:00 +0000

1С 7.7 и работа на Windows 7, Server 2008

Известная проблема: 1С 7.7 не желает работать на любых версиях Windows выше Windows XP, ругаясь что-то вроде «Для доступа к базе данных требуется ODBC-драйвер для MS SQL Server версии 3.50.0303 или старше»

В Интернете есть несколько решений, вот рабочие.

Windows 7

Необходимо скопировать из Windows XP три файла (из папки C:\Windows\System32):
- odbcbcp.dll
- sqlsrv32.dll
- sqlsrv32.rll
На компьютере с Windows 7 открыть папку C:\Windows\System32 и для каждого файла (odbcbcp.dll, sqlsrv32.dll, sqlsrv32.rll) выполнить следующие действия (изменить владельца файла):
- Открыть свойства файла
- Закладка Безопасность - Дополнительно
- Закладка Владелец - Изменить
- Нажать «Другие пользователи и группы», добавить вашего пользователя
- Нажать несколько раз ОК
- Снова открыть свойства файла
- Закладка Безопасность - Изменить
- Добавить вашего пользователя и дать ему полные права на файл
Заменить файлы odbcbcp.dll, sqlsrv32.dll, sqlsrv32.rll теми, что скопировали из Windows XP
Запустить 1С 7.7, проверить - должно работать

Windows Server 2008, 2012

Вариант с заменой dll (как в Windows 7) не работает, требуется иной подход:

В папке 1С 7.7 (например \\server\c$\Program Files\1Cv77.ADM\BIN) создать папку с именем 1cv7s.exe.local
Положить в нее файлы от WindowsXP (odbcbcp.dll, sqlsrv32.dll, sqlsrv32.rll)
Запустить 1С 7.7, проверить - должно работать

1С, 7.7, SQL, windows 7, windows 2008, ODBC-драйвер, ODBC

Поддержка в Dokuwiki/GeSHi синтаксиса языка 1С

anonymous@undisclosed.example.com (Anonymous) — Tue, 09 May 2017 15:34:00 +0000

Поддержка в Dokuwiki/GeSHi синтаксиса языка 1С

Для красивого вывода кусочков программ на языке 1С необходимо помочь GeSHi, а именно подложить файлик синтаксиса.

Говорим спасибо Kirill Krasnov, качаем файлик с http://hg.kraeg.ru/geshi1c или https://launchpad.net/geshi1c и подкладываем его в папку dokuwiki/inc/geshi/

Далее в конструкции code указываем язык: «<code 1c>»

Сайт Geshi: http://qbnz.com/highlighter/

dokuwiki, 1С, geshi, подсветка синтаксиса

1С и работа с Excel, OpenOffice/LibreOffice, ADODB

anonymous@undisclosed.example.com (Anonymous) — Tue, 09 May 2017 15:34:00 +0000

1С и работа с Excel, OpenOffice/LibreOffice, ADODB

Excel

Нумерация строк и колонок начинается с 1!

http://www.1c-h.ru/?p=238 - перечислено множество функций для 1С 7.7 и 8.х

Открыть файл

 Excel = Новый COMОбъект("Excel.application");
 Excel.WorkBooks.Open(ПолноеИмяФайла);
 Лист = Excel.Sheets(1); // Первый лист по индексу

Отключаем всякие вопросы со стороны Excel

Excel.DisplayAlerts = False;

Узнать количество строк и столбцов

 ВсегоКолонок = Лист.Cells(1,1).SpecialCells(11).Column;
 ВсегоСтрок = Лист.Cells(1,1).SpecialCells(11).Row;

Закрыть файл

 Excel.Application.Quit();

Прочитать значение из ячейки

 Строка = Лист.Cells(Строка, Колонка).Value;

OpenOffice/LibreOffice

Нумерация колонок и строк начинается с 0!

Открыть документ

 OpenOffice = Новый ComОбъект("com.sun.star.ServiceManager"); // Создаем СОМ-объект
 
 scr = Новый ComОбъект("MSScriptControl.ScriptControl");    
 scr.language = "javascript";
 scr.eval("MassivParametrov = new Array()");
 MassivParametrov = scr.eval("MassivParametrov");
 scr.AddObject("OpenOffice", OpenOffice);
 scr.eval("MassivParametrov[0]=OpenOffice.Bridge_GetStruct('com.sun.star.beans.PropertyValue')");
 scr.eval("MassivParametrov[0].Name='Hidden'");
 scr.eval("MassivParametrov[0].Value=true");
 
 Desktop = OpenOffice.CreateInstance("com.sun.star.frame.Desktop"); // Создаем Desktop
 URL = ConvertToURL(ПолноеИмяФайла); // Правильно формируем имя файла
 Doc = Desktop.LoadComponentFromURL(URL, "_blank", 0, MassivParametrov);
 
 Doc.lockControllers();
 Doc.addActionLock();
 
 Sheets = Doc.GetSheets();
 Лист = Sheets.GetByIndex(0); // Открываем первый лист по индексу

и функция ConvertToURL:

// Для преобразования имени файла при обращении к OpenOffice/LibreOffice
Функция ConvertToURL(FileName)
 ИмяФайла =  СтрЗаменить(FileName," ","%20" );
 ИмяФайла =  СтрЗаменить(ИмяФайла,"\","/");
 Возврат "file:/" + "/localhost/" + ИмяФайла;
КонецФункции

Узнать количество строк и столбцов

 oCell = Лист.GetCellbyPosition(0, 0);
 oCursor = Лист.createCursorByRange(oCell);
 oCursor.GotoEndOfUsedArea(Истина);
 aAddress = oCursor.RangeAddress;
 ВсегоКолонок = aAddress.EndColumn;
 ВсегоСтрок = aAddress.EndRow;

Закрыть файл

 Doc.close(true);
 Desktop.terminate();

Прочитать значение из ячейки

Читаем как строку:

 Строка = Лист.getCellByPosition(Колонка,Строка).getText().String();

ADODB

http://help1c.com/faq8/view/702.html

Данный метод обладает гораздо большей производительностью и простотой, чем банальный объектный метод через COM соединение.

Все что потребуется это создание 2 объектов

ADODB.Connection
ADODB.Recordset

Здесь универсальная обработка по загрузке Номенклатуры из Excel:

// Функция для Платформы 1С 8.0 или 8.1
// Выполняет загрузку из файла Excel
//
// Параметры
//  ПутьКФайлу  - <Строка>            - путь к файлу xls
//
// Автор: ---%%%Gmix 16.03.2006 12:38:48
//     
// Возвращаемое значение:
//   <Булево>   – Истина загрузка произошла
//                                             - Ложь загрузки не было
//
Функция ВыполнитьЗагрузку(ПутьКФайлу) Экспорт
 
            Файл=Новый Файл(ПутьКФайлу);
 
            Если Файл.Существует() Тогда
                        Стр_Файл=Файл.ПолноеИмя;
 
                        // Отрезаем слеш если он есть в конце пути
                        Стр_Путь=Файл.Путь;
                        Если Прав(Стр_Путь,1)="\" Тогда
                                   Стр_Путь=Лев(Стр_Путь,СтрДлина(Стр_Путь)-1);
                        КонецЕсли;
 
                        // Строка корнекта
                        Стр_Конект = "Driver={Microsoft Excel Driver (*.xls)};
                    |DriverId=790;
                    |Dbq="+Стр_Файл+";
                    |DefaultDir="+Стр_Путь+";"; 
                        Об_Конект = Новый COMОбъект("ADODB.Connection");
                        Попытка
                                    Об_Конект.Open(Стр_Конект);           
                        Исключение
                                   Сообщить ("Не возможно подключится к Microsoft Excel Driver!!!
                                   |Возможно файл ["+Стр_Файл+"] открыт другим пользователем.");
                                   Возврат Ложь;
                        КонецПопытки;
 
                        // формируем запрос
                        // Здесь есть нюанс первая строка данных всегда будет являться заголовком
// если она пустая то имена клонок формируются следующим образом F<Номер колонки>
                        Стр_SQL = "select
                |     F1 as Артикул,
                |     F2 as Наименование,
                |     F3 as ПолноеНаименование
                | FROM [A1:AZ100000]
                | WHERE ((F1 Is Not Null) AND (F1 <>''))";
                Об_РекордСет = Новый COMОбъект("ADODB.Recordset");
 
                        Попытка
                                   Об_РекордСет=Об_Конект.Execute(Стр_SQL);
                        Исключение
                                   Сообщить("Не удадлось выполнить запрос к файлу Excel
                                   |"+ ОписаниеОшибки(),СтатусСообщения.Важное);
                                   Возврат Ложь;
                        КонецПопытки;
 
 
                        Пока НЕ Об_РекордСет.EOF Цикл
                                  // Получаем данные из Об_РекордСет
                                   // ...
                      Сообщить("");
                                   Для каждого ОБ_Поле Из Об_РекордСет.Fields Цикл
                // Пример вывода информации Сообщить(ОБ_Поле.Name,Об_РекордСет.Fields(ОБ_Поле.Name).value); 
                                   КонецЦикла;
                                   // ...
                                   Об_РекордСет.MoveNext();
                        КонецЦикла;
 
                        Об_Конект.Close();     // Закрываем конект
                        Об_Конект=Неопределено;
                        Об_РекордСет=Неопределено;
 
                        Возврат Истина;
            Иначе
                        Сообщить("Файл "+ПутьКФайлу+" не найден!");
                        Возврат Ложь;
            КонецЕсли;
КонецФункции

Быстрая загрузка данных большого размера файла Excel в многомерный Массив

// OldthiefXXX
Перем СерверExcel;
 
Процедура КнопкаВыполнитьНажатие(Кнопка)
 ФайлХЛС=СерверExcel.Application.Workbooks.Open(ДокументХЛС);
 КонечнаяСтрокаДанных=ФайлХЛС.ActiveSheet.UsedRange.Rows.Count; 
 КоличествоКолонокДанных=ФайлХЛС.ActiveSheet.UsedRange.Columns.Count; 
 Состояние("Загрузка в память данных ведомости...");
 ExcelЛист=ФайлХЛС.ActiveSheet;
 Область = СерверExcel.Range(ExcelЛист.Cells(1,1), ExcelЛист.Cells(КонечнаяСтрокаДанных,КоличествоКолонокДанных));
 МассивДанныхEXEL = Область.Value.Выгрузить();
КонецПроцедуры
 
Процедура ИнициализацииЕкселя()
Состояние("Происходит инициализация EXCEL...");
Попытка 
 СерверExcel1 = Новый COMОбъект("Excel.Application");
 СерверExcel1.DisplayAlerts = 0;
Исключение       
 ЗапущенExcel = 0;
 Сообщить(ОписаниеОшибки(),"!");
КонецПопытки;
КонецПроцедуры

1с, excel, эксель, openoffice, libreoffice, опенофис, либраофис

1C: Ключи защиты в v8.1

anonymous@undisclosed.example.com (Anonymous) — Tue, 09 May 2017 15:34:00 +0000

1C: Ключи защиты в v8.1

Практика показывает, что 90% коллег не читали документации к ключам защиты, а преодолевают трудности научным методом тыка, и это чаще всего работает : )

Специально для этого процента - прочтите хотя бы пару строк ниже:

НЕ СТАВЬТЕ МЕНЕДЖЕР ЛИЦЕНЗИЙ В ТЕРМИНАЛЕ (точнее устанавливайте в 0-й сессии, запуская %SystemRoot%\system32\mstsc.exe /console или /admin
Сначала ставьте менеджер лицензий, и только потом устанавливайте сетевой ключ
Если клиент 1С 8.0 видит ключ, это не значит что увидит 8.1 (файл теперь обычно C:\Program Files\1cv81\bin\conf\nethasp.ini)
В терминале локальные ключи не видны, надо в nethasp.ini прописывать в явном виде место расположения сетевого ключа и менеджера лицензий NH_SERVER_ADDR = 192.168.159.1 ;;(IP-адрес должен быть правильный)
Клиент 8.1 сначала ищет локальный ключ и если его находит, никогда не будет искать сетевой
Несколько сетевых ключей или локальный и сетевой ключ на один компьютер ставить нельзя
Для серверной части 1С надо бывают ТОЛЬКО ЛОКАЛЬНЫЕ НЕ КЛИЕНТСКИЕ ключи (Здорово серверный 64 битный ключ (он зеленый) поддерживает 32битный сервер, в том числе 8.0, но серверный 32битный ключ не поддерживает 64битный сервер 1С)
для SQL ключей не надо, он не проверяет даже купленные свои лицензии, но покупать их надо :)
если большая нагрузка в сети и много клиентов, то менеджер лицензий может не успеть выдать лицензию, чтобы это решить, увеличьте интервал опроса к менеджера лицензий клиентов в C:\Program Files\1cv81\bin\conf\nethasp.ini
```
NH_SESSION = 5
NH_SEND_RCV = 4
NH_USE_BROADCAST = Disabled
```
И ограничьте в C:\Program Files\Aladdin\HASP LM\nhsrv.ini компьютеры с которых могут подключаться пользователи, например NHS_IP_LIMIT = 10.24.2.18-99
Для 64битных менеджеров лицензий или просто свежие скачайте драйвера с http://www.aladdin.ru/support/download/category260
На сервере с менеджером лицензий должен быть статический ip-адрес
Вы не поверите, но на сайте 1С в скриншотах описана установка http://v8.1c.ru/overview/release_13/ защиты
При большом количестве пользователей раздавайте менеджеры лицензий для каждого клиента персонально, указывая конкретный компьютер NH_SERVER_ADDR = 192.168.159.1 ;;(IP-адрес должен быть правильный)

via: http://infostart.ru/profile/35251/blogs/745/

via: вот тут, как оказалось http://gilev.ru/1c/hasp/

4. Установка драйвера HASP с менеджером лицензий

# aptitude install ia32-libs
# cd /usr/local/src
# wget ftp://ftp.aladdin.com/pub/hasp/srm/Linux/HASP_SRM_LINUX_3.50_Run-time_Installer_script.tar.gz

Распаковываем

# tar xzf HASP_SRM_LINUX_3.50_Run-time_Installer_script.tar.gz
# cd HASP_SRM_LINUX_3.50_Run-time_Installer_script
# ./dinst .       //не забудьте про точки в начале и конце строки (это для нелинуксоидов)

До недавнего времени с usb-драйвером hasp в ubuntu 10.04 была проблема. Решилось установкой дополнения к драйверу от etersoft

# cd /usr/local/src
# wget http://ftp.etersoft.ru/pub/Etersoft/HASP/3.2/x86_64/Ubuntu/10.04/haspd_3.2-eter1ubuntu_amd64.deb
# dpkg -i haspd_3.2-eter1ubuntu_amd64.deb

Кроме того, что это дополнение решает проблему usbfs монтированием /dev/bus в /proc/bus , еще и позволяет ограничивать доступ к лицензиям 1С в файле /etc/haspd/hasplm.conf например :

NHS_IP_LIMIT = 127.0.*.*, 192.168.1.*

Публикация баз данных «1С:Предприятия» 8. ...

anonymous@undisclosed.example.com (Anonymous) — Tue, 01 Apr 2025 09:35:12 +0000

Публикация баз данных «1С:Предприятия» 8.3 на веб-сервере IIS в Microsoft Windows Server 2012/2016

По мотивам http://tavalik.ru/nastrojka-veb-dostupa-k-bd-1spredpriyatie-na-iis и еще некоторых собранных заметок

Для публикации требуются следующие шаги:

Установка веб-сервера IIS
Установка веб-компонентов 1С
Настройка прав пользователей
Публикация базы 1С
Настройка IIS
Настройка сертификата Let's Ecrypt (опционально)

Установка веб-сервера IIS

IIS устанавливаем традиционно через Диспетчер серверов (Server Manager). Должны быть установлены следующие компоненты:
Установка веб-сервера IIS

Устанавливаем веб-сервер Internet Information Server, который по умолчанию входит в поставку Microsoft Windows Server. При установке обязательно выбираем компоненты:

Общие функции HTTP (Common HTTP Features)
- Статическое содержимое (Static Content)
- Документ по умолчанию (Default Document)
- Обзор каталогов (Directory Browsing)
- Ошибки HTTP (HTTP Errors)
Разработка приложений (Application Development)
- ASP
- ASP.NET 3.5
- Расширяемость .NET 3.5 (.NET Extensibility 3.5)
- Расширения ISAPI (ISAPI Extensions)
- Фильтры ISAPI (ISAPI Filters)
Исправление и диагностика (Health and Diagnostics)
- Ведение журнала HTTP (HTTP Logging)
- Монитор запросов (Request Monitor)
Средства управления (Management Tools)
- Консоль управления IIS (IIS Management Console)

После переустановки может понадобится перезагрузка сервера.

Установка веб-компонентов 1С

На этот же сервер, где развернут веб-сервер IIS, устанавливаем «1С:Предприятие» (32-разрядные компоненты) обязательно выбрав при установке компоненты:

1С:Предприятие
Модули расширения веб-сервера

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

Модуль расширения веб-сервера

Настройка прав пользователей

Теперь необходимо установить необходимые права на ключевые папки, используемые при работе веб-доступа к базам данных «1С:Предприятие». Для каталога хранения файлов веб-сайтов, опубликованных на веб-сервере (по умолчанию C:\inetpub\wwwroot\ ) необходимо дать полные права группе «Пользователи» (Users). В принципе, этот шаг можно пропустить, но тогда для публикации или изменения публикации базы данных надо будет запускать «1С:Предприятие» от имени администратора. Для настройки безопасности данного каталога, кликаем по нему правой кнопкой мыши и в контекстном меню выбираем «Свойства» (Properties).

Далее необходимо дать полные права на каталог с установленными файлами «1С:Предприятие» (по умолчанию C:\Program Files (x86)\1cv8\ для 32-разрядного модуля расширения и C:\Program Files\1cv8\ для 64-разрядного) группе IIS_IUSRS.

Публикация базы 1С

Запускаем от имени Администратора (Run as Administrator) «1С:Предприятие» в режиме Конфигуратор для той базы, которую требуется опубликовать. В меню выбираем «Администрирование» —> «Публикация на веб-сервере…»

Откроется окно настройки свойств публикации на веб-сервере. Основные поля необходимые для публикации уже заполнены по умолчанию:

Имя виртуального каталога — имя по которому будет происходить обращение к база данных на веб-сервере. Может состоять только из символов латинского алфавита.
Веб-сервер — выбирается из списка найденных на текущем компьютере веб-серверов. В нашем случае это Internet Information Services.
Каталог — физическое расположение каталога, в котором будут располагаться файлы виртуального приложения.
Соответствующими флагами можно указать типы клиентов для публикации, а также указать возможность публикации Web-сервисов. В расположенной ниже таблице можно отредактировать список Web-сервисов которые будут опубликованы, а также в столбце «Адрес» изменить синоним, по которому будет происходить обращение к данному Web-сервису.
Также для веб-сервера IIS есть возможность указать необходимость выполнения аутентификации на веб-сервере средствами ОС, установив соответствующий флаг.

Выбрав необходимые настройки публикации нажимаем «Опубликовать».

Настройка IIS

Включаем поддержку 32-х разрядных приложений: Пулы приложений (Application Pools) → DefaultAppPool → Дополнительные параметры (Advanced Settings) → Разрешены 32-разрядные приложения (Enable 32-Bit Applications) установить в True

Для каждой опубликованной базы необходимо проверить настройки Сопоставления обработчиков (Handler Mappings). 1C Web-service Extension должен указывать на текущую версию 1С, например C:\Program Files (x86)\1cv8\8.3.12.1469\bin\wsisapi.dll и если была установлена новая конфигурация - данные настройки необходимо скорректировать.

Ошибка "A potentially dangerous Request.Path value was detected from the client"

Ошибка говорит, что проблема в настройках безопасности сервера IIS. Для того, чтобы обойти общие настройки безопасности, необходимо отредактировать файл публикации «web.config», который находится в каталоге с вашей публикацией, а именно:

1. Добавить параметр в раздел system.webServer:

<security>
  <requestFiltering allowDoubleEscaping="true" />
</security>

2. Добавить параметр в раздел configuration

<system.web>
 <pages validateRequest="false" />
 <httpRuntime requestPathInvalidCharacters="" />
</system.web>

и перезапустить IIS. Функциональность будет полная. После повторной переопубликации базы из 1С изменения нужно будет вносить заново.

Настройка сертификата Let's Ecrypt

Что должно быть подготовлено заранее:

Отдельное доменное имя (например mobile.site.ru) и правильно настроенный DNS
Открыты (или проброшены) порты 80 (HTTP) и 443 (HTTPS) на вашем роутере до сервера с работающим IIS
В 1С проведена публикация сайта (Конфигуратор / Администрирование / Публикация на веб-сервере, включить галки «Публиковать доступ для клиентских приложений», «Публиковать Web-сервисы» (MAExchange), «Публиковать дистрибутив тонкого клиента» (если нужно, в этом случае указать расположение файлов) и выключить остальные галки / Опубликовать. На вопрос о перезапуске IIS ответить утвердительно.

Загружаем последний релиз с сайта https://github.com/win-acme/win-acme/releases/ и распаковываем куда-нибудь, например в C:\inetpub\letsencrypt

Запускаем cmd с правами Администратора:

И переходим в папку, куда распаковали win-acme:

cd c:\inetpub\letsencrypt

Запускаем в cmd файл wacs.exe, при первом запуске вводим адрес e-mail (для уведомлений об истечении сртификата) и соглашаемся с условиями использования:

Вводим «N», нажимаем Enter.

Выбираем наш опубликованный сайт mobile.site.ru, ждем некоторое время чтобы сертификат успешно установился.

Проверяем полученный сертификат: открываем наш сайт mobile.site.ru - браузер не должен ругаться на сертификат. Так же можно проверить при помощи какого-нибудь сервиса, например https://www.sslshopper.com/ssl-checker.html

В Tash Scheduler'е автоматически добавляется ежедневная задача для продления сертификата, поэтому его не нужно обновлять руками.

Готово, можно пользоваться.

Настройка редиректа с HTTP на HTTPS

Чтобы сделать редирект (перенаправление) HTTP на HTTPS нужно установить модуль Microsoft URL Rewrite Module:

Качаем последний релиз со страницы проекта https://www.iis.net/downloads/microsoft/url-rewrite
Убедиться, что в настройках сайте не включена опция обязательного использования SSL (Require SSL)
Визуальная настройка делается через оснастку IIS, в свойствах сервера (или сайта, смотря куда требуется подключить) открываем «URL Rewrite», добавляем правило (Add Rule(s) и заполняем поля:
- Выбираем Inbound Rules / Blank Rule
- Name: HTTP to HTTPS Redirect
- Pattern: (.*)
- Разворачиваем Conditions, добавляем (Add):
  - Condition Input: {HTTPS}
  - Pattern: ^OFF$
  - Ignore Case: включено
- Action Properties:
```
https://{HTTP_HOST}/{R:1}
```
- Append query string: включено
- Применяем (Apply) и пробуем

Второй вариант: отредактировать файл web.config, в раздел <system.webServer> добавить правило:

<rewrite>
<rules>
<rule name="HTTP to HTTPS Redirect" enabled="true" stopProcessing="true">
<match url="(.*)" />
<conditions>
<add input="{HTTPS}" pattern="off" ignoreCase="true" />
</conditions>
<action type="Redirect" url="https://{HTTP_HOST}/{R:1}" appendQueryString="true" redirectType="Permanent" />
</rule>
</rules>
</rewrite>

1С, IIS, веб-компоненты, let's encrypt

Функция для преобразования структуры данных 1С в JSON

anonymous@undisclosed.example.com (Anonymous) — Tue, 09 May 2017 15:34:00 +0000

Функция для преобразования структуры данных 1С в JSON

Взято тут: http://pastebin.com/HFaEaETX

Спасибо Хабраюзеру http://habrahabr.ru/users/igrishaev/

    Функция json(Объект)
 
            Тип = ТипЗнч(Объект);
 
            Если
                            Тип = Тип("Массив")
                    ИЛИ Тип = Тип("ТаблицаЗначений")
                    ИЛИ Тип = Тип("СписокЗначений")
 
                    Тогда
 
                    Количество = Объект.Количество();
                    Результат = "[";
 
                    Для н = 0 ПО Количество - 1 Цикл
                            Результат = Результат + json(Объект[н]) + ?(н < Количество - 1, ", ", "");
                    КонецЦикла;
 
                    Результат = Результат + "]";
                    Возврат Результат;
 
            ИначеЕсли
                            Тип = Тип("Структура")
                    ИЛИ Тип = Тип("Соответствие") Тогда
                    н = 0;
                    Количество = Объект.Количество();
                    Результат = "{";
 
                    Для Каждого Пара Из Объект Цикл
                            Результат = Результат + json(Пара.Ключ) + ": " + json(Пара.Значение) + ?(н < Количество - 1, ", ", "");
                            н = н + 1;
                    КонецЦикла;
                    Результат = Результат + "}";
                    Возврат Результат;
 
            ИначеЕсли Тип = Тип("СтрокаТаблицыЗначений") Тогда
 
                    Результат = "{";
                    Колонки = Объект.Владелец().Колонки;
                    Количество = Колонки.Количество();
 
                    Для н = 0 ПО Количество - 1 Цикл
                            Ключ = Колонки[н].Имя;
                            Результат = Результат + json(Ключ) + ": " + json(Объект[Ключ]) + ?(н < Количество - 1, ", ", "");
                    КонецЦикла;
 
                    Результат = Результат + "}";
                    Возврат Результат;
 
            ИначеЕсли Тип = Тип("ЭлементСпискаЗначений") Тогда
                    Возврат json(Объект.Значение);
 
            ИначеЕсли Тип = Тип("Строка") Тогда
                    Результат = Объект;
 
                    Результат = СтрЗаменить(Результат, "\",          "\\");
                    Результат = СтрЗаменить(Результат, "/",          "\/");
                    Результат = СтрЗаменить(Результат, """",         "\""");
                    Результат = СтрЗаменить(Результат, Символы.ВК,   "\r");
                    Результат = СтрЗаменить(Результат, Символы.Таб,  "\t");
                    Результат = СтрЗаменить(Результат, Символы.ПС,   "\n");
 
                    Возврат """" + Результат + """";
 
            ИначеЕсли Тип = Тип("Число") Тогда
                    Возврат Формат(Объект, "ЧРД=.; ЧН=0; ЧГ=0");
 
            ИначеЕсли Тип = Тип("Булево") Тогда
                    Возврат Формат(Объект, "БЛ=false; БИ=true");
 
            ИначеЕсли Тип = Тип("Дата") Тогда
                    Возврат json(Формат(Объект, "ДФ=yyyy-MM-ddThh:mm:ss"));
 
            ИначеЕсли
                            Объект = Неопределено
                    ИЛИ Объект = Null
 
                    Тогда Возврат "null";
 
            ИначеЕсли
                            Справочники.ТипВсеСсылки().СодержитТип(Тип)
                    Или Документы.ТипВсеСсылки().СодержитТип(Тип)
 
                    Тогда
                            Возврат json(Объект.УникальныйИдентификатор());
 
            Иначе
                    Возврат json(Строка(Объект));
 
            КонецЕсли;
    КонецФункции

1С, json

1C на Linux

anonymous@undisclosed.example.com (Anonymous) — Tue, 09 May 2017 15:34:00 +0000

1C на Linux

Расчет стоимости, принципы работы

Терминальный сервер 1С под Linux - http://vasilisc.com/terminal_1c_linux
1С под Linux - http://http://vasilisc.com/1c_linux

Ссылки

1С, линукс, linux, postgresql

Парсинг товаров с сайта средствами 1С 8

anonymous@undisclosed.example.com (Anonymous) — Tue, 09 May 2017 15:34:00 +0000

Парсинг товаров с сайта средствами 1С 8

Взято тут: http://oparin.info/2011/08/02/парсинг-товаров-с-сайта-средствами-1с-8

В этой статье я постараюсь описать процесс парсинга сайтов средствами 1С с примером. Это статья не является инструкцией к применению, а лишь демонстрирует возможности 1С.

Что мы имеем?

Сайт в интернете, на котором располагается список товаров. В моем случае — это интернет магазин салона «Связной»
Понимание основ сайтостроения… хотя бы знание HTML тегов
Умение кодить в 1С 8

Все вышеперечисленные пункты в арсенале? Тогда читаем далее

Для начала парсинга стоит определиться с тем что мы хотим спарсить и какая у нас будет иерархия. В моем случае это категория сотовых телефонов. Верхний уровень иерархии будет производители. Почему именно так? Потому что я так захотел. Вы же вправе использовать любую иерархию.

Далее нам будут интересны такие поля как: Наименование, Цена, Картинка и Описание… ну и пожалую захватим операционную систему, чтобы пример получился более наглядным.

Создаем внешнюю обработку

Те, кто не знают как это сделать — дальше могут не читать.

Создаем форму обработки с командной панелью снизу и сверху (они могут быть полезными)
Размещаем на ней Панель и обзываем первую страницу «СамСайт»
Кладем на страницу «СамСайт» ПолеHTMLДокумента и обзываем его к примеру «Сайт»
Переименовываем кнопку «Выполнить», которая находится на нижней панели в «Загрузить сайт»

Описываем процедуру нажатия на эту кнопку так:

ЭлементыФормы.Сайт.Перейти("http://www.svyaznoy.ru/catalog/phone/224");//Категория с мобильными телефонами

Проверяем работу нашей обработки. У меня появился сайт связного. А у Вас?

Дальше сложнее. Все еще хочешь парсить сайты? Тогда читай

Сам парсинг сайта заключается в обходе всех элементов загруженной страницы, выдергивания необходимой информации и запихивания их в табличную часть. Для это:

Создадим табличную часть «Производители» с реквизитами «Отметка» (Булево), «Наименование» (Строка 100) и «Ссылка» (Строка 300).
Добавляем еще одну страницу на панели и обзываем ее «Производители»
Размещаем на этой странице одноименную табличную часть

Добавляем на нижней панели кнопку «Заполнить производителей» с кодом:

Для Каждого Стр из ЭлементыФормы.Сайт.Документ.body.all Цикл
        Если Стр.tagName = "H1" и Стр.innerText = "Производители" Тогда
            Для Каждого опСтр из Стр.nextSibling.children Цикл
                новСтр = Производители.Добавить();
                новСтр.Наименование = опСтр.innerText;
                новСтр.Ссылка = опСтр.firstChild.href;
            КонецЦикла;
            Возврат;
        КонецЕсли;
    КонецЦикла;

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

tagName — имя HTML тега в HTML документе
nextSubling — следующий элемент HTML документа от текущего
children — список дочерних элементов
firstChild — первый дочерний элемент от текущего

Проверям. При проверке важно, находиться на странице «СамСайт», чтобы заполнять производителей

Производители заполнены. Теперь к самим телефонам

Создаем табличную часть «Товары» с реквизитами «Производитель» (Строка 100), «Наименование» (Строка 100), «Цена» (Число 10,2), «Картинка» (Строка 300), «Описание» (Строка Неограниченная), «ОС» (строка 100), «Ссылка» (Строка,300)
Добавляем еще одну страницу на панели и обзываем ее «Товары»
Размещаем на этой странице одноименную табличную часть

Добавляем на нижней панели кнопку «Заполнить товары» с кодом:

Для Каждого Стр из Производители Цикл
        //Если отметку сняли - то не трогаем этого производителя
        Если Не Стр.Отметка Тогда
            Продолжить;
        КонецЕсли;
        Форма = ПолучитьФорму("ФормаТоваров");
        Форма.ЭлементыФормы.Сайт.Перейти(Стр.Ссылка);
        Форма.ТекущийПроизводитель = Стр;
        Форма.ОткрытьМодально();
    КонецЦикла;

Создаем форму обработки «ФормаТоваров»
Кладем на «ФормаТоваров» ПолеHTMLДокумента и называем его «Сайт»

На событие ДкументСформирован у ПоляHTMLДокумента пишем код:

Если ЭлементыФормы.Сайт.Документ.body.all.length>1 Тогда
        ГрузимТовары();
    КонецЕсли;

Создаем переменную в модуле формы

перем ТекущийПроизводитель Экспорт;

Создаем процедуру ГрузимТовары():

    Процедура ГрузимТовары()
        Для Каждого Стр из ЭлементыФормы.Сайт.Документ.body.all Цикл
            Если Стр.className = "ct_desc cleared" Тогда
                новСтр = Товары.Добавить();
                Для Каждого опСтр из Стр.children Цикл
                    Если опСтр.className = "pic_and_comp" Тогда
                        новСтр.Картинка = СтрЗаменить(Сред(опСтр.firstChild.style.backgroundImage,5),")","")
                    КонецЕсли;
                    Если опСтр.className = "name" Тогда
                        новСтр.Наименование = опСтр.innerText;
                        новСтр.Ссылка = опСтр.firstChild.href;
                    КонецЕсли;
                    Если опСтр.className = "price" Тогда
                        новСтр.Цена = Число(СтрЗаменить(СтрЗаменить(опСтр.innerText,"-","")," ",""));
                    КонецЕсли;
                    Если опСтр.className = "desc" Тогда
                        новСтр.Описание = опСтр.innerText;//опСтр.innerHTML - если нужно вместе с тегами <br>
                    КонецЕсли;
                КонецЦикла;
 
            КонецЕсли;
 
        КонецЦикла;
        Закрыть();
    КонецПроцедуры

Проверям. Все работает.

Дело осталось за «операционной системой» и еще надо загрузить картинки. Давайте по порядку. Чтобы получить «ОС» нам надо открыть этот товар и считать «ОС» оттуда. Для этого делаем следующее:

Добавляем на нижней панели кнопку «Доп Инфо» с кодом:

    Для Каждого Стр из Товары Цикл
        Форма = ПолучитьФорму("ФормаДопИнфо");
        Форма.ЭлементыФормы.Сайт.Перейти(Стр.Ссылка);
        Форма.ТекущийТовар = Стр;
        Форма.ОткрытьМодально();
    КонецЦикла;

Создаем форму обработки «ФормаДопИнфо»
Кладем на «ФормаДопИнфо» ПолеHTMLДокумента и называем его «Сайт»

На событие ДокументСформирован у ПоляHTMLДокумента пишем код:

    Если ЭлементыФормы.Сайт.Документ.body.all.length>1 Тогда
        ГрузимДопИнфо();
    КонецЕсли;

Создаем переменную в модуле формы
```
перем ТекущийТовар Экспорт; 
```

Создаем процедуру ГрузимДопИнфо():

    Процедура ГрузимДопИнфо();
        Для Каждого Стр из ЭлементыФормы.Сайт.Документ.body.all Цикл
            Если Стр.className = "card_spec" Тогда
                Для Каждого опСтр из Стр.children Цикл
                    Если Найти(опСтр.innerText,"Операционная система:") Тогда
                        ТекущийТовар.ОС = СокрЛП(СтрЗаменить(опСтр.innerText,"Операционная система:",""));
                    КонецЕсли;
                КонецЦикла;
            КонецЕсли;
        КонецЦикла;
        Закрыть();
    КонецПроцедуры

Проверяем и переходим к последнему пункту.

Заметили как похожи две последние инструкции? То-то же. Стремился к универсальности. Ну и наконец последний этап — Сохраним все изображения к примеру на диск «С» в папку «связной». Поехали

Добавляем на нижней панели кнопку «Сохранить Картинки» с кодом:

    Для Каждого Стр из Товары Цикл
            путьСамФайл = Лев(Стр.Картинка,Найти(Стр.Картинка,".jpg/") + 3);
            самФайл = СтрЗаменить(СтрЗаменить(ПутьСамФайл,"http://static.svyaznoy.ru/upload/iblock/",""),"/","");
            Стр.Картинка = СохранитьКартинкуСайта("C:\Svyaznoy",ПутьСамФайл,СамФайл);
        КонецЦикла;

Добавляем функцию СохранитьКартинкуСайта:

    Функция СохранитьКартинкуСайта(КаталогСохранения,КартинкаНаСайте,КартинкаУНас)
            ИмяФайлаКартинки = КаталогСохранения + "\" + КартинкаУНас;
            ГетЗапрос = Новый COMОбъект("WinHttp.WinHttpRequest.5.1");
            ГетЗапрос.SetTimeouts(10000, 10000, 10000, 10000);
            БазовыйУРЛ = КартинкаНаСайте;
            Хидер1 = "Content-Type";
            Хидер2 = "image/jpg"; // Тип рисунка.
            ГетЗапрос.Open("GET", БазовыйУРЛ, False); // Синхронный режим.
            ГетЗапрос.setRequestHeader(Хидер1, Хидер2);
            ГетЗапрос.Send();
            СтатусОтправки = ГетЗапрос.status;
            Если СтатусОтправки <> 200 Тогда
                Сообщить("Ошибка отправки запроса на: "
                    + КартинкаНаСайте);
                Возврат "";
            КонецЕсли;       
 
            Стрим = Новый COMОбъект("ADODB.Stream");
            Стрим.Mode = 3;
            Стрим.Type = 1;
            Стрим.Open();
            Стрим.Write(ГетЗапрос.responseBody);
 
            Стрим.SaveToFile(ИмяФайлаКартинки, 2);
            Стрим.Close();
            Возврат ИмяФайлаКартинки;
    КонецФункции

На этом наша эпопея с парсингом закончена. Это всего лишь пример того, как это можно сделать. Приложив сюда немного своего кода — можно сделать парсер для любого сайта.

1С, 8.2, парсинг

Картинки в 1С

anonymous@undisclosed.example.com (Anonymous) — Tue, 09 May 2017 15:34:00 +0000

Картинки в 1С

1С платформа 8.2.х

Сразу: хранение картинок в 1С - это жесть, надо же было такое выдумать…

Описание

Так как 1С умеет работать с тонким клиентом и веб-клиентом, был придуман следующий механизм хранения файлов:

Файл помещается во Временное хранилище и находится там либо пока его не удалят, либо пока жива форма, к которой привязаны данные. В этом случае файл должен быть передан методом
```
ПоместитьВоВременноеХранилище()
```
не в виде пути в файловой системе, а в виде значения. Обратно его можно получить методом
```
ПолучитьИзВременногоХранилища()
```
.
Файл можно поместить в Хранилище методами
```
ПоместитьФайл()
```
и
```
ПоместитьФайлы()
```
, да еще и указать отображать ли диалог выбора.

Пример

Складываем файл во временное хранилище, затем выбираем и отображаем в поле картинки.

Процедура ПоместитьФайл(Файл)
     // Сохраняем изображение во Временное Хранилище
     ИзображениеФото = Новый Картинка(Файл.ПолноеИмя);
     Если ИзображениеФото <> Неопределено Тогда
       АдресВоВременномХранилище = ПоместитьВоВременноеХранилище(ИзображениеФото);
     КонецЕсли;
КонецПроцедуры
 
Процедура ОтобразитьКартинку()
     // Считаем что адрес картинки во временном хранилище хранится в ТаблицеЗначений с названием "ТабличноеПолеИзображений"
     // в 3-й колонке
     // А поместить изображение надо в элемент Поле картинки с именем "ИзображениеНоменклатуры"
 
     // Выбираем текущую строку
     ТекущаяСтрокаТаблицы = ЭтаФорма.ЭлементыФормы.ТабличноеПолеИзображений.ТекущаяСтрока;
 
     // Получаем адрес изображения во Временном Хранилище
     АдресВременногоХранилища = ТекущаяСтрокаТаблицы[3];
 
     // Отрисовать картинку
     Картинка = ПолучитьИзВременногоХранилища(АдресВременногоХранилища);
     ЭлементыФормы.ИзображениеНоменклатуры.Картинка = Картинка;
 
КонецПроцедуры

1с, картинка, поле картинки, ВременноеХранилище, временное хранилище, отобразить картинку

1С и написание плагинов

anonymous@undisclosed.example.com (Anonymous) — Tue, 09 May 2017 15:34:00 +0000

1С и написание плагинов

Для затравки:

1С, плагин, plugin

Отправка SMS из ТиС 7.7, УТ 10. ...

anonymous@undisclosed.example.com (Anonymous) — Tue, 09 May 2017 15:34:00 +0000

Отправка SMS из ТиС 7.7, УТ 10.3, УТ 11 по справочнику контрагенты

http://www.1cl.su/catalog/710

1С, sms, sms.ru, смс

1С 8: Преобразование текущей даты в unixtime

anonymous@undisclosed.example.com (Anonymous) — Tue, 09 May 2017 15:34:00 +0000

1С 8: Преобразование текущей даты в unixtime

Все очень просто, но пока нашел как…

Дата -> unixtime

Сообщить(Формат(ТекущаяДата() - Дата(1970,1,1,1,0,0), "ЧГ=0"));

unixtime -> Дата

Сообщить(Дата(1970,1,1,1,0,0) + 1311790933);

unixtime, 1с, дата, время, преобразовать

Реализация красивой задержки в обработках или в ...

anonymous@undisclosed.example.com (Anonymous) — Tue, 09 May 2017 15:34:00 +0000

Реализация красивой задержки в обработках или в любом другом месте программного кода

http://help1c.com/faq8/view/1521.html

Код 1C v 8.х

// Предваряющий код
// Место, где необходимо сделать паузу и съесть твикс )
// И, чтобы пользователь сильно не волновался вывести красивое окно с картинкой
//...
Если ФлажокИспользоватьПаузуМеждуДокументами Тогда
	Форма = ПолучитьФорму("ФормаПаузы");
	Форма.ПараметрФормы = ДлительностьПаузы;
	Форма.ОткрытьМодально();
КонецЕсли; 
//...
// Продолжить выполнение кода

Код 1C v 8.х

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

1с, обработка, задержка

Снимаем пароли с обработок

anonymous@undisclosed.example.com (Anonymous) — Tue, 09 May 2017 15:34:00 +0000

Снимаем пароли с обработок

Никогда не понимал всех этих глупостей с запароленными исходниками - все равно разломают, скорость взлома зависит исключительно от популярности программы.

1С 8.х

Все просто - нужна штука под названием «Декомпилятор 1cv8», которая представляет собой обработку. Как обычно открываем, указываем что ломать и получаем на выходе обработку со снятым паролем.

Скачать: decompile1c8.zip

А для потрошения обработок пригодится V8Unpack

Скачать: v8unpack.zip

Источник: http://extremallife.ru/work/1s/pass-1s8x

1С 7.7

В наборе программиста 1С есть программка USP, которая способна отключить запрос пароля при входе в конфигуратор.

Однако, вот ведь незадача, USP не работает с 27-й платформой, а только с 25-й. Поэтому необходимо в начале установить 25 платформу 1С предприятие, а затем запустив UnOfficial Service Pack (USP) для 1С взломать пароль 1С. После чего зайти в конфигуратор 1С, открыть конфигурацию, зайти в свойства и установить там пустой или любой свой пароль. После этого можно установить заново более новую 27 платформу.

USP: usp_1c.rar пароль на архив: ckfdfhj,jnfv

Взято тут: http://extremallife.ru/work/1s/kak-v-1s-predpriyatie-7-7-snyat-parol-s-konfiguracii

Еще одна ломалка паролей: 1_password.zip

Взято тут: http://extremallife.ru/work/1s/pass-ert

1с, пароль, декомпилятор, V8Unpack, USP

1C, форма индикатора и прерывание

anonymous@undisclosed.example.com (Anonymous) — Tue, 09 May 2017 15:34:00 +0000

1C, форма индикатора и прерывание

Ситуация: открываем форму

 Индикатор = ПолучитьОбщуюФорму("ХодВыполненияОбработкиДанных");

и в цикле используем

 ОбработкаПрерыванияПользователя();

Возникает нехорошая ситуация: при прерывании выполнения по Ctrl+Break форма индикатора оказывается открытой, нужно закрывать ее крестиком. А хочется чтобы это происходило автоматически.

Лечится так: в событие формы ОбновлениеОтображения прописываем следующую конструкцию:

 Индикатор = ПолучитьОбщуюФорму("ХодВыполненияОбработкиДанных");
	Если Индикатор.Открыта() Тогда 
		Индикатор.Закрыть();
	КонецЕсли;

1С, обработать остановку программы процедурой ОбработкаПрерыванияПользователя

1С - полезные ссылки

anonymous@undisclosed.example.com (Anonymous) — Tue, 09 May 2017 15:34:00 +0000

1С - полезные ссылки

http://extremallife.ru - огромное кол-во пояснялок, описаний и хитрушек.
http://1cstyle.ru/articles/ - уроки и пошаговые объяснялки по работе с 1С

Книги и документация

http://forum-1c.ru/index.php?topic=1444.0

1С, документация, пояснялки, информация, уроки, книги

Медленная выборка из таблиц

anonymous@undisclosed.example.com (Anonymous) — Tue, 09 May 2017 15:34:00 +0000

Медленная выборка из таблиц

Ситуация

Следующий запрос к регистрам вида РегистрСведений.* (например РегистрСведений.ЦеныНоменклатуры.СрезПоследних)

ЗапросЦенХарактеристики.Текст =
"ВЫБРАТЬ РАЗРЕШЕННЫЕ РАЗЛИЧНЫЕ ПЕРВЫЕ 1
|	ЦеныНоменклатурыСрезПоследних.Цена КАК Цена
|ИЗ
|	РегистрСведений.ЦеныНоменклатуры.СрезПоследних КАК ЦеныНоменклатурыСрезПоследних
|ГДЕ
|	ЦеныНоменклатурыСрезПоследних.ТипЦен В(&ТипЦен)
|	И ЦеныНоменклатурыСрезПоследних.ХарактеристикаНоменклатуры В(&ХарактеристикаНоменклатуры)";

работает ОЧЕНЬ долго.

Причина

Условия в таком запросе прописываются для виртуальной таблицы СрезПоследних, которая не хранится в базе данных а строится в процессе выборки из реальной таблицы (и на это уходит время). Получается, что она сначала строится, а потом из нее выбираются нужные поля, и по этому все работает так медленно.

Решение

Решение через запрос (не очень быстрое)

Для виртуальных таблиц параметры нужно задавать не на вкладке «Условия» в конструкторе запроса, а на вкладке «Таблицы и поля». Над перечнем «Таблицы» необходимо нажать кнопку «Параметры виртуальной таблицы», а в появившемся окне задать параметры. В результате получается, что виртуальная таблица сразу строится только из полей, удовлетворяющим условиям. В этом случае запрос приобретает следующий вид:

ЗапросЦенХарактеристики.Текст =
"ВЫБРАТЬ РАЗРЕШЕННЫЕ РАЗЛИЧНЫЕ ПЕРВЫЕ 1
|	ЦеныНоменклатурыСрезПоследних.Цена КАК Цена
|ИЗ
|	РегистрСведений.ЦеныНоменклатуры.СрезПоследних(, ХарактеристикаНоменклатуры = &ХарактеристикаНоменклатуры И ТипЦен = &ТипЦен) КАК ЦеныНоменклатурыСрезПоследних";

Решение через Отбор (самое быстрое)

Отбор = Новый Структура("ТипЦен, Номенклатура, ХарактеристикаНоменклатуры");
Отбор.ТипЦен = ТипЦен;
Отбор.Номенклатура = Номенклатура;
Отбор.ХарактеристикаНоменклатуры = ХарактеристикаНоменклатуры;
Выборка = РегистрыСведений.ЦеныНоменклатуры.СрезПоследних(ТекущаяДата(),Отбор);

1С, 8.2, РегистрСведений.ЦеныНоменклатуры.СрезПоследних, РегистрСведений.ЦеныНоменклатуры.СрезПоследних, запрос, ускорение

Стандарты и прочая фигня

anonymous@undisclosed.example.com (Anonymous) — Tue, 09 May 2017 15:34:00 +0000

Стандарты и прочая фигня

Стандарты электронного обмена коммерческой информацией CommerceML

Яндекс.Маркет

Описание YML - http://help.yandex.ru/partnermarket/?id=1111425
Правила выгрузки YML для раздела «Одежда и обувь» - http://help.yandex.ru/partnermarket/?id=1124379

стандарты, commerceml, YML, Яндекс.Маркет, выгрузка

1С - подсказки самому себе

anonymous@undisclosed.example.com (Anonymous) — Tue, 09 May 2017 15:34:00 +0000

1С - подсказки самому себе

Разрешить неуникальные штрихкоды

Розница 1.х:

Сервис → Настройки учета → Настройка параметров учета → Штрихкоды → Разрешить назначение неуникальных штрихкодов

УТ 10.3.х:

Сервис → Настройка учета → Настройка параметров учета → Коды товара → Разрешить назначение неуникальных штрихкодов

Как сделать возможным добавления характеристик для товара (размер, цвет и т.д.)

Розница 1.х:

Операции → План видов характеристик → Свойства объектов. Выбираем «Справочник характеристики номенклатуры» и добавляем новое свойство. «Наименование» заполняем чтобы было понятно что это вообще такое, а на закладке «Значения свойств» забиваем наши размеры/цвета и т.д.

Далее открываем нужную номенклатуру, переходим в «характеристики» и заполняем.

Производителя и состав можно забивать через свойства «Справочник номенклатуры».

УТ 10.3.х:

Сервис → Настройка учета → Настройка параметров учета → Общие → Использовать характеристики номенклатуры

Далее открываем нужную номенклатуру, ставим появившуюся галочку «Вести учет по доп.характеристикам», переходим в «характеристики» и заполняем.

Производителя и состав можно забивать через свойства «Справочник номенклатуры».

Штрихкоды - привязка по цветам/размерам

Создаем номенклатуру, забиваем характеристики, переходим в штрихкоды, добавляем новый штрихкод и правее, в поле «Характеристика» привязываем к размеру/цвету.

1С и контроль версий

anonymous@undisclosed.example.com (Anonymous) — Tue, 09 May 2017 15:34:00 +0000

1С и контроль версий

Казалось бы, 1С весьма распространена на территория exUSSR, практически монополист на рынке бухгалтерских программ, используется в куче проектов, а значит должна иметь помимо всего прочего нормальную систему контроля версий. Ан нет, не тут-то было. Да, для разработки конфигурации есть такая полезная штука как «Хранилище конфигурации». А вот для внешних обработок и отчетов - нету ничего. Вообще.

Подход пионерский, с помощью Dropbox

Самое просто, что можно сделать - редактировать файлы обработок, расположенные прямо в какой-либо папке под контролем Dropbox. При очередной записи файл сливается на сервера Dropbox, что во-первых, позволяет быть более или менее уверенным что есть бэкап, а во-вторых - можно восстановить предыдущие версии файлов через веб-интерфейс. Однако понять что и где и когда именно изменялось - нельзя.

Системы Контроля Версий (СКВ)

Более сложный и более интересный вариант - хранить версии в любой из систем контроля версий (SVN, Git, Bazaar, Mercurial и т.д.). Т.к. и обработки и отчеты идут в бинарном формате, перед запихиванием в СКВ необходимо разворачивать бинарник и приводить к текстовому виду. Разумеется, можно будет только посмотреть какие изменения были внесены, все остальные плюшки СКВ, увы, неприменимы.

Ссылки

http://infostart.ru/public/118207/ - тема на Infostart, в комментариях так же есть полезные идеи
https://launchpad.net/bzr/+download - Bazaar, установщик
http://wiki.bazaar.canonical.com/TortoiseBzr - расширение оболочки Windows для Bazaar
http://wiki.bazaar.canonical.com/QBzr - кросс-платформенный GUI для Bazaar, написан на Qt, скачать можно здесь: https://launchpad.net/qbzr/+download
https://bitbucket.org/Shenja/diff1c/overview - сравнение файлов от 1C

1С, системы контроля версий, контроль версий, СКВ, SVN, Git, Bazaar, Mercurial, V8Unpack