Здравствуйте товарищи.
Пытаюсь в обработке создать программно документ, обработка выполняется, но документы не создаются. Однако через ТипКомандыОткрытиеФормы отлично всё работает.
Можете посмотреть где накосячил:
Пытаюсь в обработке создать программно документ, обработка выполняется, но документы не создаются. Однако через ТипКомандыОткрытиеФормы отлично всё работает.
Можете посмотреть где накосячил:
Функция СведенияОВнешнейОбработке() Экспорт
ПараметрыРегистрации = ДополнительныеОтчетыИОбработки.СведенияОВнешнейОбработке();
ПараметрыРегистрации.Вид = ДополнительныеОтчетыИОбработкиКлиентСервер.ВидОбработкиДополнительнаяОбработка();
ПараметрыРегистрации.Версия = "1.0";
ПараметрыРегистрации.Вставить("БезопасныйРежим", ЛОЖЬ);
Команда = ПараметрыРегистрации.Команды.Добавить();
Команда.Представление = НСтр("ru = 'Загрузка поступления на расчётный счёт'");
Команда.Идентификатор = "Загрузить";
Команда.Использование = ДополнительныеОтчетыИОбработкиКлиентСервер.ТипКомандыВызовСерверногоМетода();
//Команда.Использование = ДополнительныеОтчетыИОбработкиКлиентСервер.ТипКомандыОткрытиеФормы();
Команда.ПоказыватьОповещение = Истина;
Возврат ПараметрыРегистрации;
КонецФункции
Процедура ВыполнитьКоманду(Загрузить) Экспорт
НачалоПериода = Дата(2020,10,08);
КонецПериода = Дата(2020,10,08);
СоздатьДокументПоступлениеНаРасчетныйСчет(НачалоПериода, КонецПериода);
КонецПроцедуры;
Процедура СоздатьДокументПоступлениеНаРасчетныйСчет(НачалоПериода, КонецПериода) Экспорт
ТаблицаОсновная = HEAD.Выгрузить(, "Oplata");
Для Каждого Стр Из ТаблицаОсновная Цикл
Сумма = Стр.Oplata;
НовыйДокументПоступление = Документы.ПоступлениеНаРасчетныйСчет.СоздатьДокумент();
//НовыйДокументПоступление.Дата = Формат(Дата("23:59:59"), "ДФ=ЧЧммсс");
НовыйДокументПоступление.Номер.УстановитьНовыйНомер();
НовыйДокументПоступление.ВидОперации = Перечисления.ВидыОперацийПоступлениеДенежныхСредств.ПоступленияОтПродажПоПлатежнымКартамИБанковскимКредитам;
НовыйДокументПоступление.Контрагент = Справочники.Контрагенты.НайтиПоКоду("Ф00002792");
НовыйДокументПоступление.СуммаДокумента = Сумма;
НовыйДокументПоступление.ВалютаДокумента = Справочники.Валюты.НайтиПоКоду("643");
НовыйДокументПоступление.СчетБанк = ПланыСчетов.Хозрасчетный.НайтиПоКоду("51");;
НовыйДокументПоступление.Комментарий = "Из сайта" + НачалоПериода + " " + КонецПериода;
НовыйДокументПоступление.Ответственный = Справочники.Пользователи.НайтиПоНаименованию("1C_Exchange");
//Заполняем табличную часть Расшифровка платежа
Расшифровка = НовыйДокументПоступление.РасшифровкаПлатежа.Добавить();
Расшифровка.ДоговорКонтрагента = Справочники.ДоговорыКонтрагентов.НайтиПоКоду("00020309"); //Эквайринг
Расшифровка.СтатьяДвиженияДенежныхСредств = Справочники.СтатьиДвиженияДенежныхСредств.НайтиПоКоду("000000039"); //Пласт карты
Расшифровка.СуммаПлатежа = Сумма;
Расшифровка.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.НайтиПоКоду("57.03");
Расшифровка.СуммаУслуг = Сумма * 0.015;
// Заполняем вкладку Учет услуг банка
НовыйДокументПоступление.СуммаУслуг = Сумма * 0.015;
НовыйДокументПоступление.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.НайтиПоКоду("91.02");
НовыйДокументПоступление.СубконтоКт1 = Справочники.ПрочиеДоходыИРасходы.НайтиПоНаименованию("Комиссия по оплате П/К");
НовыйДокументПоступление.ПодразделениеКт = Справочники.ПодразделенияОрганизаций.НайтиПоКоду("00200000");
//Конец заполнения документа
Попытка
НовыйДокументПоступление.Записать(РежимЗаписиДокумента.Запись);
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
КонецЦикла;
КонецПроцедуры
ПоказатьПо теме из базы знаний
- Внешние обработки и отчеты 1С:Предприятие 8.2
- Шаблон внешней обработки УТ 11
- Блокировка работы пользователей по расписанию или как сохранить произвольные параметры для внешней обработки
- Создание соглашений с поставщиками. Внешняя обработка для УТ 11
- Работа с внешними обработками на управляемых формах
Найденные решения
(6) Судя по этому коду:
Таблица HEAD - это реквизит формы?
&НаСервере
Процедура ВыполнитьКомандуНаСервере() Экспорт
НачалоПериода = Дата(2020,10,08);
КонецПериода = Дата(2020,10,08);
ПолучитьВнешниеДанные(НачалоПериода, КонецПериода);
СоздатьДокументПоступлениеНаРасчетныйСчет(НачалоПериода, КонецПериода);
КонецПроцедуры;
Таблица HEAD - это реквизит формы?
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(5) Таблица находится в обработке. Заполняется с помощью COMОбъект, подключаясь к внешней базе.
Повторюсь. Всё работает через:
Забыл дописать, в заглавном сообщении ещё один вызов процедуры:
Повторюсь. Всё работает через:
&НаСервере
Процедура ВыполнитьКомандуНаСервере() Экспорт
НачалоПериода = Дата(2020,10,08);
КонецПериода = Дата(2020,10,08);
ПолучитьВнешниеДанные(НачалоПериода, КонецПериода);
СоздатьДокументПоступлениеНаРасчетныйСчет(НачалоПериода, КонецПериода);
КонецПроцедуры;
&НаКлиенте
Процедура ВыполнитьКоманду(Загрузить)
ВыполнитьКомандуНаСервере();
КонецПроцедуры
ПоказатьЗабыл дописать, в заглавном сообщении ещё один вызов процедуры:
Процедура ВыполнитьКоманду(Загрузить) Экспорт
НачалоПериода = Дата(2020,10,08);
КонецПериода = Дата(2020,10,08);
ПолучитьВнешниеДанные(НачалоПериода, КонецПериода);
СоздатьДокументПоступлениеНаРасчетныйСчет(НачалоПериода, КонецПериода);
КонецПроцедуры;
Показать
(6) Судя по этому коду:
Таблица HEAD - это реквизит формы?
&НаСервере
Процедура ВыполнитьКомандуНаСервере() Экспорт
НачалоПериода = Дата(2020,10,08);
КонецПериода = Дата(2020,10,08);
ПолучитьВнешниеДанные(НачалоПериода, КонецПериода);
СоздатьДокументПоступлениеНаРасчетныйСчет(НачалоПериода, КонецПериода);
КонецПроцедуры;
Таблица HEAD - это реквизит формы?
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот