67
Рейтинг

R_o_n_n_y
Дмитрий Варламов

Регистрация: 04.05.2006 (17 лет назад)
Был(а) на сайте: 25.04.2024

Подписчики 9

Дополнительная информация

Группы

Партнер IS-SP

Профессиональный разработчик

Рейтинг 67

Формирование списка документов и скачивание печатной формы документа через веб-сайт с использованием HTTP-сервиса, плюс особенности авторизации
+18 –

Статья Программист Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free) Нет файла WEB-интеграция

В статье показан пример, как реализовать формирование списка документов клиента/пользователя по коду, а затем скачать его (документа) печатную форму по ссылке

18.09.2020 3264 R_o_n_n_y 7

Прайс-лист с картинками для БП 3.0
+1 –

Отчеты и формы Пользователь Бухгалтерский учет 1С:Бухгалтерия 3.0 Россия Абонемент ($m) Внешний отчет (ert,erf) Прайсы

Почти стандартный прайс лист для БП 3.0. Добавлены картинки и штрихкоды.

2 стартмани

16.09.2019 6985 15 R_o_n_n_y 12

Добавление дополнительных сведений документа на форму (без изменения конфигурации, через расширение)
+12 –

Инструменты и обработки Программист Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Зарплата и Управление Персоналом 3.x Россия Абонемент ($m) Расширение (cfe) Работа с интерфейсом

Автоматическое добавление дополнительных сведений документов на его форму (в стандартной конфигурации доп. сведения доступны только через кнопку на командной панели в отдельной форме, что не очень удобно).

2 стартмани

05.07.2017 16496 85 R_o_n_n_y 42

Настройка сканера (+ТСД) для нескольких пользователей при работе через RDP
+3 –

Инструменты и обработки Для всех Оперативный учет 7.7 1С:Торговля и склад 7.7 Россия Абонемент ($m) Внешняя обработка (ert,epf) Терминал сбора данных

Есть ситуация: 3 менеджера работают в ТиС через RDP. На троих имеется 1 сканер и 1 ТСД, подключенные к серверу (или к хабу с USB портами). Работают в эмуляции COM порта. Необходимо: настроить перехват управления сканером(ТСД) в режиме 1 кнопки.

1 стартмани

30.01.2010 15231 122 R_o_n_n_y 3

Торг-28 и Торг-29 для 1С Бух 7.7
+32 –

Отчеты и формы Бухгалтер Бухгалтерский учет 7.7 1С:Бухгалтерия 7.7 Россия Бухгалтерский учет Абонемент ($m) Внешняя обработка (ert,epf) Печатные формы Логистика, склад и ТМЦ

Торг-28 и торг-29 в одном флаконе

1 стартмани

04.05.2006 12608 133 R_o_n_n_y 11

Смотреть все

(52) а есть пример? я от Альфы добился только обработки + dll в которую это все зашито (но там только TerminaI_ID используется для запроса QR и т.д.). в принципе и так можно, но хотелось бы от dll отвязаться.

Публикации › Оплата по QR СБП. Управление торговлей 11 › #49 06.02.24 19:58

(48) там разве не так-же как в тиньк?

БУ › Исключение документов из Установки даты запрета изменения данных › #14 03.02.24 15:17

(13) И для БП это тоже актуально

Dev › 1С 8.3 Условное оформление таблицы программно › #4 29.12.23 22:32

(2) Сделал пока так

Код
&НаСервере Процедура УстановитьУсловноеОформление() МассивЦветов = Новый Массив; СпрК = Справочники.WhatsApp_Контакты.Выбрать(); Пока СпрК.Следующий() Цикл Если НЕ СпрК.ЦветВСписке.Получить() = Неопределено Тогда Если МассивЦветов.Найти(СпрК.ЦветВСписке.Получить()) = Неопределено Тогда МассивЦветов.Добавить(СпрК.ЦветВСписке.Получить()); КОнецЕсли; КонецЕсли; КонецЦикла; Для Каждого Цвет из МассивЦветов Цикл Элемент = УсловноеОформление.Элементы.Добавить(); Элемент.Поля.Элементы.Добавить().Поле = Новый ПолеКомпоновкиДанных("КонтактыКонтакт"); ЭлементОтбора = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); ЭлементОтбора.Использование = Истина; ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Контакты.ЦветКонтакта"); ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно; ЭлементОтбора.ПравоеЗначение = Цвет; Элемент.Оформление.УстановитьЗначениеПараметра("ЦветФона", Цвет); КонецЦикла; КонецПроцедуры

Код

   
&НаСервере
Процедура УстановитьУсловноеОформление()
   
   МассивЦветов = Новый Массив;
   СпрК = Справочники.WhatsApp_Контакты.Выбрать();
   Пока СпрК.Следующий() Цикл
      Если НЕ СпрК.ЦветВСписке.Получить() = Неопределено Тогда
         Если МассивЦветов.Найти(СпрК.ЦветВСписке.Получить()) = Неопределено Тогда
            МассивЦветов.Добавить(СпрК.ЦветВСписке.Получить());
         КОнецЕсли;
      КонецЕсли;
   КонецЦикла;   

   Для Каждого Цвет из МассивЦветов Цикл
      
      Элемент = УсловноеОформление.Элементы.Добавить();
      Элемент.Поля.Элементы.Добавить().Поле = Новый ПолеКомпоновкиДанных("КонтактыКонтакт");
      ЭлементОтбора = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
      ЭлементОтбора.Использование      = Истина;         
      ЭлементОтбора.ЛевоеЗначение      = Новый ПолеКомпоновкиДанных("Контакты.ЦветКонтакта");
      ЭлементОтбора.ВидСравнения      = ВидСравненияКомпоновкиДанных.Равно;
      ЭлементОтбора.ПравоеЗначение   = Цвет;
      
      Элемент.Оформление.УстановитьЗначениеПараметра("ЦветФона", Цвет);
   КонецЦикла;
   
КонецПроцедуры

только пока открыта форма WhatsApp-клиента, появление совсем нового цвета не отработает, но это меньшее из зол.

Dev › 1С 8.3 Условное оформление таблицы программно › #1 28.12.23 23:46

В процессе написания WhatsApp клиента для 1С возник вопрос, можно ли раскрасить ячейку таблицы формы программно значением цвета из текущего контакта из строки таблицы:

Код
Элемент = УсловноеОформление.Элементы.Добавить(); Элемент.Поля.Элементы.Добавить().Поле = Новый ПолеКомпоновкиДанных("КонтактыКонтакт"); ЭлементОтбора = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных")); ЭлементОтбора.Использование = Истина; ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Контакты.ЦветКонтакта"); ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.НеРавно; ЭлементОтбора.ПравоеЗначение = Новый Цвет(0,0,0); Элемент.Оформление.УстановитьЗначениеПараметра("ЦветФона",Новый Цвет(55,55,55));

Код

   Элемент = УсловноеОформление.Элементы.Добавить();
   Элемент.Поля.Элементы.Добавить().Поле = Новый ПолеКомпоновкиДанных("КонтактыКонтакт");
   ЭлементОтбора = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
   ЭлементОтбора.Использование      = Истина;         
   ЭлементОтбора.ЛевоеЗначение      = Новый ПолеКомпоновкиДанных("Контакты.ЦветКонтакта");
   ЭлементОтбора.ВидСравнения      = ВидСравненияКомпоновкиДанных.НеРавно;
   ЭлементОтбора.ПравоеЗначение   = Новый Цвет(0,0,0);
   
   Элемент.Оформление.УстановитьЗначениеПараметра("ЦветФона",Новый Цвет(55,55,55));

Вот так работает (окраска фиксированным цветом), т.е. если цвет не Черный(по умолчанию создается), то красим другим.
А вот примерно так не работает

Код
Элемент.Оформление.УстановитьЗначениеПараметра("ЦветФона", Новый ПолеКомпоновкиДанных("Контакты.ЦветКонтакта"));

Код

Элемент.Оформление.УстановитьЗначениеПараметра("ЦветФона", Новый ПолеКомпоновкиДанных("Контакты.ЦветКонтакта"));

Условие отрабатывает, но красит в Черный
Есть идеи?

Публикации › Чатбот WhatsApp › #34 09.12.23 1:20

Попытка отправки файла (текст, jpeg, pdf не важно) возвращает "failed to sendFileByUpload" при коде состояния "200". Отправляю через ОтправитьВидеоАудиоИзображениеДокумент() (объединение файлов, .out файл отправляется)

Добавление своей процедуры

Код
MimeType = ПолучитьMimeTypeПоРасширению("."+Формат);

и затем

Код
ЗаписьТекста.ЗаписатьСтроку("--"+boundary); ЗаписьТекста.ЗаписатьСтроку("Content-Disposition: form-data; name=""file""; filename=""" + ОтправляемыйФайл.Имя + """"); ЗаписьТекста.ЗаписатьСтроку("Content-Type: "+MimeType); ЗаписьТекста.ЗаписатьСтроку("");

Код

   ЗаписьТекста.ЗаписатьСтроку("--"+boundary);
   ЗаписьТекста.ЗаписатьСтроку("Content-Disposition: form-data; name=""file""; filename=""" + ОтправляемыйФайл.Имя + """");
   ЗаписьТекста.ЗаписатьСтроку("Content-Type: "+MimeType);
   ЗаписьТекста.ЗаписатьСтроку("");

не помогает

Dev › Формирование списка документов и скачивание печатной формы документа через веб-сайт с использованием HTTP-сервиса, плюс особенности авторизации › #7 08.11.23 18:37

(6) какой пароль? к базе? в статье писал как опубликовать только http-сервис уже с встроенным логином паролем но без возможности входа в базу (наружу только сервис смотрит)
сделал для эксперимента с получением хеша:

Код
ХешированиеДанных = Новый ХешированиеДанных(ХешФункция.MD5); ХешированиеДанных.Добавить(Строка(PIN&Date1&Date2&OpenKEY&SecretKEY)); ХешСтроки = СтрЗаменить(ХешированиеДанных.ХешСумма, " ", ""); Если ХешСтроки = HESH (тот что из строки запроса клиента) Тогда //Отдаем данные КонецЕсли;

Код

   ХешированиеДанных = Новый ХешированиеДанных(ХешФункция.MD5);
   ХешированиеДанных.Добавить(Строка(PIN&Date1&Date2&OpenKEY&SecretKEY));
   ХешСтроки = СтрЗаменить(ХешированиеДанных.ХешСумма, " ", "");
        Если ХешСтроки = HESH (тот что из строки запроса клиента) Тогда
                //Отдаем данные
        КонецЕсли;

Все норм работает.

Dev › Создание подключаемой обработки табличной части с диалогом запроса параметров заполнения (управляемые формы) › #28 07.10.23 14:14

Клиент попросил сделать обработку двойного назначения: кроме обработки заполнения ТЧ еще и как самостоятельная с интерактивным открытием.
Для этого создан реквизит объекта обработки "Документ" тип ДокументСсылка....
Реквизит помещен на форму.
Модуль переработал так:

Код
&НаКлиенте Процедура ПриОткрытии(Отказ) //реквизит виден только при открытии через Файл-Открыть Если ЭтотОбъект.ВладелецФормы = Неопределено Тогда ЭтаФорма.Элементы.Документ.Видимость = Истина; Иначе ЭтаФорма.Элементы.Документ.Видимость = Ложь; КонецЕсли; КонецПроцедуры &НаКлиенте Процедура ВыполнитьОбработку(Команда) Если ЭтотОбъект.ВладелецФормы = Неопределено ТОгда //по документу из формы Если ЗначениеЗаполнено(Объект.Документ) Тогда ПараметрыФормы = Новый Структура("Ключ", Объект.Документ); ФормаДокумента = ПолучитьФорму("Документ.СписаниеНДС.ФормаОбъекта", ПараметрыФормы); ОбъектДокумента = ФормаДокумента.Объект; Иначе Закрыть(); КонецЕсли; Иначе ФормаДокумента = ЭтотОбъект.ВладелецФормы; ОбъектДокумента = ЭтотОбъект.ВладелецФормы.Объект; КонецЕсли; ЗаполнитьДокументНаСервере(ОбъектДокумента); //Если нужно заполнять &НаСервере, но можно и на клиенте Если ЭтотОбъект.ВладелецФормы = Неопределено Тогда ФормаДокумента.Открыть(); КонецЕсли; КопироватьДанныеФормы(ОбъектДокумента, ФормаДокумента.Объект); ФормаДокумента.Модифицированность = Истина; Закрыть(); КонецПроцедуры

Код

&НаКлиенте
Процедура ПриОткрытии(Отказ)
   
        //реквизит виден только при открытии через Файл-Открыть
   Если ЭтотОбъект.ВладелецФормы = Неопределено Тогда
      ЭтаФорма.Элементы.Документ.Видимость = Истина;
   Иначе
      ЭтаФорма.Элементы.Документ.Видимость = Ложь;
   КонецЕсли;

КонецПроцедуры

&НаКлиенте
Процедура ВыполнитьОбработку(Команда)

   Если ЭтотОбъект.ВладелецФормы = Неопределено ТОгда //по документу из формы
      Если ЗначениеЗаполнено(Объект.Документ) Тогда
         ПараметрыФормы = Новый Структура("Ключ", Объект.Документ);
         ФормаДокумента = ПолучитьФорму("Документ.СписаниеНДС.ФормаОбъекта", ПараметрыФормы);
         ОбъектДокумента  = ФормаДокумента.Объект;
      Иначе
         Закрыть();
      КонецЕсли;      
   Иначе      
      ФормаДокумента = ЭтотОбъект.ВладелецФормы;
      ОбъектДокумента  = ЭтотОбъект.ВладелецФормы.Объект;
   КонецЕсли;

   ЗаполнитьДокументНаСервере(ОбъектДокумента); //Если нужно заполнять &НаСервере, но можно и на клиенте
   
   Если ЭтотОбъект.ВладелецФормы = Неопределено Тогда
      ФормаДокумента.Открыть();
   КонецЕсли;
   
    КопироватьДанныеФормы(ОбъектДокумента, ФормаДокумента.Объект);
    
    ФормаДокумента.Модифицированность = Истина;
    
    Закрыть();
    
КонецПроцедуры

HighLoad › Добавление дополнительных сведений документа на форму (без изменения конфигурации, через расширение) › #40 05.10.23 12:53

Файл обновлен

67 Рейтинг

R_o_n_n_y Дмитрий Варламов

Рейтинг 67

Формирование списка документов и скачивание печатной формы документа через веб-сайт с использованием HTTP-сервиса, плюс особенности авторизации +18 –

Прайс-лист с картинками для БП 3.0 +1 –

Добавление дополнительных сведений документа на форму (без изменения конфигурации, через расширение) +12 –

Настройка сканера (+ТСД) для нескольких пользователей при работе через RDP +3 –

Торг-28 и Торг-29 для 1С Бух 7.7 +32 –