Имя: Пароль:
1C
1С v8
Локальный компьютер или удаленный
,
0 Mikhail Volkov
 
15.03.19
10:34
В Альфа-Авто существует справочник Компьютеры, в котором указывается все подключенное к нему оборудование, чтобы им могли воспользоваться другие пользователи. Но для Альфа-Авто терминальный режим не является штатным, все пользователи зашедшие через терминал считаются что они работают на сервере-терминал, их локальные компьютеры не видны Альфа-Авто. Для устранения этого недостатка использовал функцию ПолучитьИмяКомпьютераТО() https://expert.chistov.pro/public/392980/ Но не все компьютеры регистрирую в Альфа-Авто, только локальные, удаленные не регистрирую (чтобы не загромождать ими справочник, все равно их оборудованием не смогут воспользоваться другие пользователи). До недавнего времени локальные компьютеры имели в имени один и тот же префикс, этим и пользовался, чтобы определить локальный компьютер или удаленный. А теперь нет.
Можно ли другим способом определить локальный компьютер или удаленный?
1 JeHer
 
15.03.19
10:39
Вернуть префиксы никак?
2 Mikhail Volkov
 
15.03.19
10:59
(1) Вчера поменяли компьютер с ФР, с другим префиксом. Пришлось новый префикс в конфигурацию прописывать... на будущее хочется избавиться от этого.
3 DrWatson
 
15.03.19
11:07
Приведи пример, что за префиксы в имени компьютера.
4 Mikhail Volkov
 
15.03.19
11:37
(3) Заменили компьютер AKIT-09 на PGM-001
5 ptiz
 
15.03.19
11:41
(0) Если ИмяКомпьютера() = "ИмяТерминальногоСервера" Тогда ЗашлиУдаленно = Истина
6 ptiz
 
15.03.19
11:44
Еще вариант: проанализируй, что возвращает
WshShell.ExpandEnvironmentStrings("%clientname%")
если "Console" или "%clientname%" - это терминал.
7 JeHer
 
15.03.19
11:58
(6) где-то этот список надо будет вести. Проще отловить по префиксу.
(4) Пинай ацких одминов, чтобы вернули.
8 Mikhail Volkov
 
15.03.19
13:50
В форме списка Компьютеры добавлены флажки "В сети" и "IP-адрес". В копии Альфа-Авто убрал фильтр компьютеров по префиксу, чтобы мой удаленный компьютер попал в базу Альфа-Авто. Мой компьютер попал в базу, флажок "В сети" не установился, и IP-адрес пустой. Оказывается для определений значений "В сети" и "IP-адрес" используется функция:

// Возвращает Истина, если пингуется IP-адрес
// v8: Как средствами 1C проверить ping (Ping monitor)?
Функция PingIP_Адреса(IP_Адрес = "", ТекстСообщения = "") Экспорт

    Если ПустаяСтрока(IP_Адрес) Тогда
        Возврат Ложь;
    ИначеЕсли IP_Адрес = НРег(СокрЛП(ИмяКомпьютера())) Тогда
        Возврат Истина;
    КонецЕсли;
    objShell = Новый COMОбъект("WScript.Shell");
    objScriptExec = objShell.Exec("ping.exe -n 1 " + IP_Адрес);
    strPingResults = НРег(objScriptExec.StdOut.ReadAll());
    Результат = Найти(strPingResults, "ttl=") > 0;
    ТекстСообщения = ?(Результат, ТекстСообщения, ?(СтрЧислоВхождений(IP_Адрес, ".") >= 3, "IP-адрес", "Компьютер") + ": '" + ВРег(IP_Адрес) + "' - недоступен!");
    IP_Адрес = ?(СтрЧислоВхождений(IP_Адрес, ".") >= 3, IP_Адрес, ?(Найти(strPingResults, "[") = 0, "", Сред(strPingResults, Найти(strPingResults, "[") + 1, Найти(strPingResults, "]") - Найти(strPingResults, "[") - 1)));
    Возврат Результат;

КонецФункции // PingIP_Адреса()

Вот ее и стал использовать в качестве фильтра вместо префиксов.
9 Mikhail Volkov
 
19.03.19
12:16
Стали появляться предупреждения: Найдено <20> неотправленных документов. Дата самого раннего 2019.03.14 14:25 (как раз когда компьютер заменили с ФР). Как они формируются выяснить не удалось, уперся в "черный ящик": КодОшибки=Рарус_Компонента.ЗаказатьВыполнениеДействияСинхронно(GUID,Команда,Параметры,Таймаут); где Команда = "ПроверкаНеотправленныхДокументов".
Может ли настойка Альфа-Авто как-то влиять на отправку чеков в ОФД, или только в ЦТО обращаться?
10 Сияющий в темноте
 
19.03.19
12:31
Фр в офд отправляет или через драйвер или сам по другому интерфейсу,у вас,просто,фр недонастроили как положено,вот он и не отправляет.
11 Mikhail Volkov
 
19.03.19
12:45
(10) А что донастроить в ФР надо? Он работал нормально, отправлял чеки в ОФД. Его просто переставили на другой компьютер...
12 OpKc
 
19.03.19
12:58
(11) ФР как в интернет ходит? Через USB?
13 Kigo_Kigo
 
19.03.19
13:28
(9) (11) Бггг, ваша альфа никаким боком не связана с отправкой чеков в офд, что хоть за ККТ(ФР, производитель/модель), и по какому интерфейсу подключена?
14 Mikhail Volkov
 
19.03.19
14:14
(13) АТОЛ-11Ф подключена чрез COM20
15 Kigo_Kigo
 
19.03.19
14:19
(14) Пуск-программы - Атол -Драйверы торгового оборудования - управление драверами , Служба запущена?
https://yadi.sk/i/fp9xRVHMja6auQ
16 Mikhail Volkov
 
19.03.19
15:30
(15) У меня нет доступа к компьютеру с ФР. Но ФР общего использования (всем пользователям доступен), и вроде как установлен на сервере терминалов. В Альфе-Авто Сервер/Параметры/Свойства Проверка связи - все ОК!
17 Kigo_Kigo
 
19.03.19
16:00
(16) Вы прикидываетесь или как?
Эта служба атоловская, которая отвечает за отправку данных в офд, она запущена? если нет- в офд чеки уходить не будут, а ваша альфа авто тут не причем, от слова совсем
18 Kigo_Kigo
 
19.03.19
16:01
(17) Должна быть запучена на компе, на котором ФР стоит физически, а не на серваке с проброшенными портами
19 Mikhail Volkov
 
19.03.19
16:10
(18) Комп меняли сисадмины, возможно не запустили...
20 Mikhail Volkov
 
19.03.19
18:08
Сделали запрос на сайт ОФД, последний чек был 13.03.2019.
(15) Если запустить службу управление драйверами, то все отбитые чеки с 14.03.2019 уйдут в ОФД, или что-то надо будет сделать?
21 Kigo_Kigo
 
19.03.19
18:19
(20) просто запустите службу, на всякий службу, справа должен быть видна ваша ККТ и на каком порте они висит, прегрузите ККТ на всякий случай, все чеки уйдут в ОФД
22 Сияющий в темноте
 
19.03.19
20:08
DtoIntegrator и указать правильный порт-у Атола их два,один для связи,а другой для передачи.
AdBlock убивает бесплатный контент. 1Сергей