Сообщения без ответов | Активные темы Текущее время: Ср дек 11, 2019 1:55 pm



Эта тема закрыта, вы не можете редактировать и оставлять сообщения в ней.  [ Сообщений: 32 ]  На страницу Пред.  1, 2, 3
Печать QR code в ФР Ярус 01К 
Автор Сообщение
Новичок

Зарегистрирован: Пн авг 15, 2011 10:24 am
Сообщения: 33
Сообщение Re: Печать QR code в ФР Ярус 01К
добрый день,

никто в 1С не перевел данную функцию?


Пн июн 27, 2016 1:11 pm
Профиль
Новичок

Зарегистрирован: Пн апр 21, 2008 9:43 pm
Сообщения: 19
Сообщение Re: Печать QR code в ФР Ярус 01К
Всем привет, выкладываю печать из C#, может кому пригодится.
Код:
            public bool Print2DBarcode(string in_text) // Печать QR-кода
            {
                string DataHex = MySys.StringToHexString(in_text);
                byte block_size = 128;
                int block_count = (DataHex.Length + block_size - 1) / block_size;
                for (int i = 0; i < block_count; i++)
                {
                    this.FR.BlockType = 0;
                    this.FR.BlockNumber = i;
                    this.FR.BlockDataHex = MySys.SubString(DataHex, i * block_size, block_size);
                    this.FR.LoadBlockData();
                }
                this.FR.BarcodeType = 3;
                this.FR.BarcodeDataLength = DataHex.Length / 2;
                this.FR.BarcodeStartBlockNumber = 0;
                this.FR.BarcodeParameter1 = 0;
                this.FR.BarcodeParameter2 = 0;
                this.FR.BarcodeParameter3 = 8; // Размер точки 0-8
                this.FR.BarcodeParameter4 = 0;
                this.FR.BarcodeParameter5 = 0;
                this.FR.Print2DBarcode();
                return true;// Report() == 0
            }

public class MySys
{
public static string StringToHexString(string in_text)
        {
            byte[] ba = Encoding.UTF8.GetBytes(in_text);
            string hexString = BitConverter.ToString(ba);
            hexString = hexString.Replace("-", "");
            return hexString;
        }
        public static string SubString(string in_text, int in_start, int in_length)
        {
            // Сделана эта функция, т.к. родная выдает исключение если длина вырезания превышает то, что можно вырезать
            return in_text.Substring(in_start, Math.Min(in_text.Length - in_start, in_length));
        }
}


Пт июл 01, 2016 12:46 pm
Профиль
Показать сообщения за:  Поле сортировки  
Эта тема закрыта, вы не можете редактировать и оставлять сообщения в ней.   [ Сообщений: 32 ]  На страницу Пред.  1, 2, 3

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 24


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group.
Designed by STSoftware for PTF.
Русская поддержка phpBB