D.Gal
Дмитрий Гал

Добрый день, господа.

Писал я как-то обработку, в которой в режиме обмена данных записывал документ.
Код следующий:

Код
Док = Документы.НазваниеДокумента.СоздатьДокумент(); ... Док.ОбменДанными.Загрузка = Истина; Док.УстановитьНовыйНомер(); Док.Записать(РежимЗаписиДокумента.Запись); ...

Проблема в том, что документ не создавался из-за ошибок репликации БД, я задал вопрос руководителю, который ответил, что так писать нельзя, необходимо писать только

Код
Док.Записать();

когда используешь режим обмена данных Загрузка, хотя и так документ не записывался.
Сказал мне, чтоб я искал литературу, почему его утверждение верное.

Так вот, может кто знает, почему он мне указал на эту строку? Какую литературу мне нужно искать? Или это все бред?

(37) Вы когда этот комментарий писали, думали хоть, что в контексте моего запроса и задачи он вообще ничего значит. Зачем мне количество полных лет кодом, когда я написал, что задачу необходимо решать запросом было? Или Вы может не мне написали?

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

Вид штрих-кода представлен на картинке 1.
Есть самописная конфигурация на 1С 8.3 УФ, в которую для тестирования работы со сканером штрих-кодов Honeywell 1450g2d была внедрена подсистема БПО 1.2.5.16.
Загружены драйвера поставляемы в демо конфигурации - картинка 2;
Сам сканер подключается без проблем и при сканировании обычного числового штрих-кода вписывает нужные данные в поле, но при сканировании полиса ОМС единого образца приходит текст, который находится в буфере обмена (скорее всего это связано с тем, что в комбинации данных присутствует наличие комбинации Ctrl+V - пробовали сканировать в режиме клавиатуры в блокнот, туда также попадают сведения из буфера, символ переноса каретки и к тому же еще и на печать пытается вывести).
Сам сканер USB, пробовали подключать как в эмуляции COM порта так и по USB (клавиатура).
Также натыкался на статью по расшифровке данных полиса:
http://myshinobi.ru/dekodirovanie-rasshifrovka-shtrih-koda-polisa-oms-chast-1/
Но как перехватить данные на 1С и реализовать свою версию дешифровки не понимаю.

Прикрепленные файлы:

Картинка 1.jpg
Картинка 2.jpg

Код
Функция СоздатьЧисловойГУИД(Спр) Экспорт    УИД = Формат(ТекущаяУниверсальнаяДатаВМиллисекундах(), "ЧЦ=16; ЧВН=; ЧГ=0");    Если Не Справочники[Спр].НайтиПоРеквизиту("УИД", УИД) = Справочники[Спр].ПустаяСсылка() Тогда       СоздатьЧисловойГУИД(Спр);    Иначе       Возврат УИД;    КонецЕсли; КонецФункции

Сделал таким образом.

(22)

Цитата
Формат(ТекущаяУниверсальнаяДатаВМиллисекундах(), "ЧЦ=16; ЧВН=; ЧГ=0");

Я думаю этот способ попробую. Спасибо

(17) сделал еще 3-ий вариант через

ТекущаяУниверсальнаяДатаВМиллисекундах()

но когда получает значение 63 638 542 123 123
то приходится делать

СтрЗаменить(УИД, Символы.НПП, "");

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

Неудивлюсь, если через неделю увижу дубли.

(15) копирование запрещено

(6) Вот самое интересное, что уникальности алгоритм позволяет добиться так как после генерации происходит проверка на существование в базе. Вот тут проблема и кроется. Проходит неделя две и появляется дубль в базе. Запрос проверяет наличие каждый раз, но все же получается что платформа в запросе даёт нулевой результат, следовательно создаётся ещё один ИД, который в базе есть. Только как я не понимаю?

(5) Только 16 символов, 36 мне не надо, плюс там есть "-".

(4) При удалении данных такой идентификатор больше не должен встретиться