93
Рейтинг

Расширение предназначено для заполнения реквизитов справочников Контрагенты и Организации данными с сайта ФНС в Бухгалтерии 3.0 и Управление торговлей 11.2

10 стартмани

04.04.2016 15058 42 renmy 26

Хранилища настроек
+12 –

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

Работа со списками хранилищ настроек

1 стартмани

21.01.2015 15333 122 renmy 5

Смотреть все

Статья супер. Автору большое спасибо.

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

Код
//Получаем тип корневого узла //ТипОбъектаXDTO = ФабрикаXDTO.Тип("http://www.MyURL", "MyObject"); ТипОбъектаXDTO = ФабрикаXDTO.Пакеты.Получить("ИмяПакета").КорневыеСвойства.Получить("ИмяУзла").Тип;

Код

//Получаем тип корневого узла
//ТипОбъектаXDTO = ФабрикаXDTO.Тип("http://www.MyURL", "MyObject");
ТипОбъектаXDTO = ФабрикаXDTO.Пакеты.Получить("ИмяПакета").КорневыеСвойства.Получить("ИмяУзла").Тип;

2.Выводились атрибуты в ошибку "Отсутствует обязательная вложенная секция"
Добавил проверку атрибутов перед кодом:

Код
ОтсутствующиеСвойства = УзелDOMСвойстваXDTO.НайтиСтроки(Новый Структура("Существует, НеОбязательное", Ложь, Ложь));

Код

ОтсутствующиеСвойства = УзелDOMСвойстваXDTO.НайтиСтроки(Новый Структура("Существует, НеОбязательное", Ложь, Ложь));

Код
//Исключаем существующие атрибуты из отсутствующих Для Каждого Дочерний Из УзелDOM.АтрибутыЦикл СвойствоТипаXDTO = УзелDOMСвойстваXDTO.Найти(Дочерний.ЛокальноеИмя, "ЛокальноеИмя"); Если СвойствоТипаXDTO <> Неопределено Тогда СвойствоТипаXDTO.Существует = Истина; КонецЕсли; КонецЦикла;

Код

//Исключаем существующие атрибуты из отсутствующих
Для Каждого Дочерний Из УзелDOM.АтрибутыЦикл
   СвойствоТипаXDTO = УзелDOMСвойстваXDTO.Найти(Дочерний.ЛокальноеИмя, "ЛокальноеИмя"); 
   Если СвойствоТипаXDTO <> Неопределено Тогда
      СвойствоТипаXDTO.Существует = Истина;
   КонецЕсли;   
КонецЦикла;

Обмен › Получение файлов с Yandex Disk › #9 14.03.18 11:13

Снова изменился протокол загрузки. Обработка пока не готова.

Dev › Генератор текста модуля для создания справочника или документа › #2 21.11.17 8:24

(1) Цель работы в оглавлении - это буквы выделенные жирным шрифтом, расположены над основным скриншотом. А еще можно посмотреть скриншоты нажав на "Лупа с плюсиком". Кнопка находится в правом верхнем углу основного изображения. И давайте без таких "замечательных" комментариев, а будем писать по существу.

Dev › Генератор текста модуля для создания справочника или документа › #0 20.11.17 11:35

Обработка формирования текста модуля для создания справочника или документа.

Dev › Заполнение реквизитов контрагента или организации данными с сайта ФНС › #25 09.11.17 9:01

(24) Первый раз такое вижу. Вероятно цель вируса файлы 1С. Почистите от вирусов и закиньте заново.

Dev › Генератор штрихкодов › #4 07.08.17 12:02

(3)

Dev › Генератор штрихкодов › #2 07.08.17 10:47

(1)
На нобелевскую не претендую. Намек, что внутри, есть в описании публикации. Это перевод библиотеки: jquery-barcode.js на язык 1С.

Dev › Генератор штрихкодов › #0 07.08.17 9:12

Обработка для формирования штрихкодов средставами 1С без использования внешних компонент.

Обмен › Получение файлов с Yandex Disk › #8 26.07.17 12:27

Добавлен новый файл. Т.к. изменился протокол загрузки. Добавлена возможность загрузки папки с файлами в zip - архив.

Обмен › Получение файлов с Yandex Disk › #7 26.07.17 11:47

(3)
После кода:

Код
Попытка file = РезультатJSON.Получить("models")[0].Получить("data").Получить("file"); Исключение КонецПопытки;

Сделать вставку:

Код
Если file = Неопределено Тогда Попытка file = РезультатJSON.Получить("models")[0].Получить("data").Получить("folder"); Исключение КонецПопытки; КонецЕсли;

Код

Если file = Неопределено Тогда
   Попытка
      file = РезультатJSON.Получить("models")[0].Получить("data").Получить("folder");         
   Исключение            
   КонецПопытки;   
КонецЕсли;

93 Рейтинг

renmy

Рейтинг 93

Комментарии

93
Рейтинг