K Nike

16
Рейтинг

Nkolp



  •   Регистрация: 09.08.2011 (12 лет назад)

  •   Был(а) на сайте: 22.04.2024

Друзья
  • Вячеслав Гилёв
  • Никита Арипов
  • Lika Perova
Подписчики 5
Группы

Рейтинг 16

Универсальный журнал документов на СКД
+17 –1

Инструменты и обработки Программист Платформа 1С v8.3 Конфигурации 1cv8 Россия Windows Абонемент ($m) Внешний отчет (ert,erf) СКД

Внешний отчет для любой конфигурации в управляемом приложении 1с и бесплатный курс из 12 уроков

1 стартмани

14.01.2013    16750    48    Nkolp    8       

16
Смотреть все

Комментарии

Dev › Как удалить реквизит из расширения, который создан в расширении? › #17 02.04.21 13:54
(16)Решение оказалось "на поверхности" - Отменить захват в хранилище) - я его в хранилище не помещал)
Может кому-то этот комментарий поможет)
Dev › Как удалить реквизит из расширения, который создан в расширении? › #16 02.04.21 13:07
(7) У меня ситуация похожая - не могу удалить реквизит в расширении. Данные по нему есть, но потерять их не жалко - база тестовая). Поменял тип в ссылки на строку, обновил конфигурацию БД, - всё равно не удаляется
Admin › Получение IP компьютера в 1С › #42 27.01.21 18:19
Забыл как форматировать тест здесь. Sorry )))
Admin › Получение IP компьютера в 1С › #41 27.01.21 18:16
В форме (на Клиенте):

Код
&НаСервере
Процедура ПолучитьНаСервере()
   Обб=РеквизитФормыВЗначение("Объект");
   Обб.Получить_network();
   Обб.Получить_ip();
   ЗначениеВРеквизитФормы(Обб,"Объект");
КонецПроцедуры

&НаКлиенте
Процедура Получить(Команда)
   ПолучитьНаСервере();
КонецПроцедуры

&НаКлиенте
Процедура  Получить_network_Client()
   WSH = Новый COMobject("wscript.network");
   Объект.ИмяКомпьютера       = WSH.ComputerName;
    Объект.ИмяПользователя      = WSH.UserName;
   Объект.ДоминПользователя   = WSH.UserDomain;;
КонецПроцедуры

&НаКлиенте
Процедура Получить_ip_Client()
   Объект.IP = "";
   
   MACAddress = Неопределено;
   ИПАдрес = "";
   ServicesSet = ПолучитьCOMОбъект("winmgmts:\\localhost\root\cimv2");
   MyItems = ServicesSet.ExecQuery("Sel ect * Fr om Win32_NetworkAdapterConfiguration Where IPEnabled = True");
   Для Каждого MyItem Из MyItems Цикл
      MACAddress = MyItem.MACAddress;
      Если ЗначениеЗаполнено(MACAddress) Тогда
         IPAddress = Неопределено;
         Для Каждого IPAddress Из MyItem.IPAddress Цикл
            Если ЗначениеЗаполнено(IPAddress) Тогда
               Объект.IP = IPAddress;
               прервать;
            КонецЕсли;
         КонецЦикла;
      КонецЕсли;
   КонецЦикла;
КонецПроцедуры

&НаКлиенте
Процедура ПолучитьДанныеКомпьютера(Команда)
   Получить_network_Client();
    Получить_ip_Client();
КонецПроцедуры


В модуле объекта (на сервере):

Процедура Получить_network() Экспорт
   WSH = Новый COMobject("wscript.network");
   ИмяКомпьютера       = WSH.ComputerName;
    ИмяПользователя      = WSH.UserName;
   ДоминПользователя   = WSH.UserDomain;
КонецПроцедуры   


Процедура Получить_ip()Экспорт
   IP = "";
   
   MACAddress = Неопределено;
   ИПАдрес = "";
   ServicesSet = ПолучитьCOMОбъект("winmgmts:\\localhost\root\cimv2");
   MyItems = ServicesSet.ExecQuery("Select * Fr om Win32_NetworkAdapterConfiguration Wh ere IPEnabled = True");
   Для Каждого MyItem Из MyItems Цикл
      MACAddress = MyItem.MACAddress;
      Если ЗначениеЗаполнено(MACAddress) Тогда
         IPAddress = Неопределено;
         Для Каждого IPAddress Из MyItem.IPAddress Цикл
            Если ЗначениеЗаполнено(IPAddress) Тогда
               IP = IPAddress;
               прервать;
            КонецЕсли;
         КонецЦикла;
      КонецЕсли;
   КонецЦикла;
   
КонецПроцедуры


(Это код полностью от автора без изменений)
Admin › Получение IP компьютера в 1С › #40 27.01.21 18:10
Спасибо))
Admin › Получение IP компьютера в 1С › #39 27.01.21 18:10
Вариант с управляемой формой получение с сервера и с клиентского компа

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

PUBID_105590-ПолучениеДанныхОКомпьютере.epf
Admin › Удаление документа эквайринговые операции › #8 17.11.20 14:59
(7) В том то и дело, что я не могу удалить тестовую эквайринговую операцию по которой оплаты нет и движений по регистрам нет; вылетает с ошибкой "по причине:
Ошибка при выполнении обработчика - 'ПриЗаписи'
по причине:
Индекс находится за границами массива
{Рацион1 РегистрНакопления.РасчетыСКлиентами.МодульНабораЗаписей(5)}: Заказ = ТаблицаЗаписей[0].ЗаказПокупателя;
{Рацион1 Обработка.Р_УдалитьОперациюЭквайринга.Форма.Форма.Форма(40)}: УдалитьДок.Удалить();" Поставил пометку удаления (тоже программно) - пометка поставилась, но типовая обработка удаления при создании набора записей регистра РасчетыСКлиентами вылетает с той же ошибкой. Начинается всё с проверки обмена с бухгалтерией. Это подстава какая-то ...
Dev › Несоответствие типов (параметр номер '1') › #32 22.05.20 10:48
(14) Спасибо! Мне тоже помогло) Конфигурация Общепит. Доработки все в расшинении. Я уже з-й прог, который дорабатывает расширение. Ошибка появилась после обновления типового общепита. Обновление делал админ.
Utils › Очистка кеша 1С (BAT-файл) › #20 07.11.19 16:56
(17)Извините не дочитал и выложил похожий батник)
Utils › Очистка кеша 1С (BAT-файл) › #19 07.11.19 16:44
(9)А ещё лучше удалять папки с форматом названия GUID))))

@echo off
for /d %%i in ("%AppData%\1C\1Cv8\????????-????-????-????-????????????") do rd "%%~i" /S /Q
for /d %%i in ("%AppData%\1C\1Cv82\????????-????-????-????-????????????") do rd "%%~i" /S /Q
for /d %%i in ("%LOCALAPPDATA%\1C\1Cv8\????????-????-????-????-????????????") do rd "%%~i" /S /Q
for /d %%i in ("%LOCALAPPDATA%\1C\1Cv82\????????-????-????-????-????????????") do rd "%%~i" /S /Q

:))) Это если у вас 1с 8.3 в режиме совместимости. Если папок ...\1C\1Cv82\ нет, то соответствующие строки надо удалить)