Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Загрузка данных по odbc и создание документа
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 8.2 > Программирование управляемых форм 1С 8.2
kot488
Имеется сайт где посетитель заполняет форму заявки. Информация с этой фирмы ложится в таблицу MySQL.
Нужно как то реализовать автоматическое создание документов согласно заявкам.
Подключение к MySQL таблице реализовал, данные через запрос получаю. Подскажите пожалуйста где можно посмотреть пример автосоздания документа. Что бы можно было делать через фоновые задачи.
logist
Что значит пример автосоздания? Нет такого примера, весь документ создается программно, описываете все реквизиты нужного документа, согласно вашим потребностям.
kot488
logist @ 06.09.17, 18:16 необходимо зарегистрироваться для просмотра ссылки ,


Получило вот таким образом, но не получается поставить количество, есоли можете, подскажите как сделать

&НаСервере
Процедура ПоехалиНаСервере()
   Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
    |ldo56_zayavki_upakovka.emailzakaz Как EMail,
    |ldo56_zayavki_upakovka.FIO Как ФИО,
    |ldo56_zayavki_upakovka.upakovka Как Упаковка,  
    |ldo56_zayavki_upakovka.kolichestvo Как Количество,
    |ldo56_zayavki_upakovka.mb3 Как Заказчик,
    |ldo56_zayavki_upakovka.tadavremyazakaza Как ДатаСоздания
    |ИЗ
    |ВнешнийИсточникДанных.Сайт.Таблица.ldo56_zayavki_upakovka КАК ldo56_zayavki_upakovka";  
          
Результат = Запрос.Выполнить().Выгрузить();
Для Каждого ЭлементРезультата из Результат Цикл
    Попытка
        НовыйДокумент = Документы.Упаковка.СоздатьДокумент();
        НовыйДокумент.Заказчик        = Справочники.Представительства.НайтиПоНаименованию(ЭлементРезультата.Заказчик);
        НовыйДокумент.ФИО       = ЭлементРезультата.ФИО;
        НовыйДокумент.EMail       = ЭлементРезультата.EMail;
        НоваяСтрока = Документы.Упаковка.СоздатьДокумент();
        НовыйДокумент.УпаковочныйМатериал.Добавить().УпаковочныйМатериал = Справочники.УпаковочныйМатериал.НайтиПоНаименованию(ЭлементРезультата.Упаковка);
        
        
        НовыйДокумент.Дата            = ТекущаяДата();
        
        НовыйДокумент.Записать(РежимЗаписиДокумента.Проведение);
           Исключение
       КонецПопытки;
КонецЦикла;
  
КонецПроцедуры
Petre
kot488 @ Сегодня, 17:00 необходимо зарегистрироваться для просмотра ссылки ,
Телепатирую:
НовыйДокумент = Документы.Упаковка.СоздатьДокумент();
НовыйДокумент.Заказчик = Справочники.Представительства.НайтиПоНаименованию(ЭлементРезультата.Заказчик);
НовыйДокумент.ФИО = ЭлементРезультата.ФИО;
НовыйДокумент.EMail = ЭлементРезультата.EMail;
НоваяСтрока = НовыйДокумент.УпаковочныйМатериал.Добавить();
НоваяСтрока.УпаковочныйМатериал = Справочники.УпаковочныйМатериал.НайтиПоНаименованию(ЭлементРезультата.Упаковка);
НоваяСтрока.Количество = ЭлементРезультата.Количество;
НовыйДокумент.Дата = ТекущаяДата();
НовыйДокумент.Записать(РежимЗаписиДокумента.Проведение);
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.