Добрый день. Подскажите пожалуйста как можно программно перезаполнить счета без использования СчетаУчетаВДокументах.ИнтерактивноПерезаполнитьСчетаУчета();? Создаю программно поступление товаров и услуг, и мне нужно программно установить отражение в бух. и нал. учёте. Не могу найти как это сделать. Помогите, товарищи.
СчетаУчетаВДокументах.ИнтерактивноПерезаполнитьСчетаУчета() задаёт вопрос перезаполнять счета или нет, мне нужно чтобы отрабатывало без всяких лишних действий.
СчетаУчетаВДокументах.ИнтерактивноПерезаполнитьСчетаУчета() задаёт вопрос перезаполнять счета или нет, мне нужно чтобы отрабатывало без всяких лишних действий.
По теме из базы знаний
- Перенос данных из УПП 1.3 / КА 1.1 в БП 3. Переносятся документы, справочники и начальные остатки
- Как сдать экзамен 1С:Специалист по платформе?
- Программный запуск регламентированных бухгалтерских отчетов
- Переход на ФСБУ 6/2020 и ФСБУ 26/2020 с 01.01.2022
- НеБезопасный прикладной программный интерфейс сервера
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(1) whoo, Какая конфигурация? в бухгалтерии 3.0 Бухгалтерский учетпереопределяемый:
// Функция возвращает возможные счета учета расчетов с контрагентом
//
// Параметры:
// Организация - по которой выполняется поиск
// Контрагент - по которому выполняется поиск
// Договор - по которому выполняется поиск
//
// Возвращаемое значение:
// Структура - структура содержащая счета учета расчетов
//
Функция ПолучитьСчетаРасчетовСКонтрагентом(Знач Организация, Знач Контрагент, Знач Договор) Экспорт
// Функция возвращает возможные счета учета расчетов с контрагентом
//
// Параметры:
// Организация - по которой выполняется поиск
// Контрагент - по которому выполняется поиск
// Договор - по которому выполняется поиск
//
// Возвращаемое значение:
// Структура - структура содержащая счета учета расчетов
//
Функция ПолучитьСчетаРасчетовСКонтрагентом(Знач Организация, Знач Контрагент, Знач Договор) Экспорт
Извиняюсь, забыл указать УПП 1.3, 8.2. По заполнению попробую процедуру из модуля самого документа: ЗаполнитьСчетаУчетаВТабЧасти(). Теперь ошибку выбивает, вообще не пойму в чём дело, пытаюсь провести документ:
{Форма.Форма.Форма(486)}: Ошибка при вызове метода контекста (Записать)
ДокПоступления.Записать(РежимЗаписиДокумента.Проведение,);
по причине:
Ошибка при выполнении обработчика - 'ОбработкаПроведения'
по причине:
{Документ.ПоступлениеТоваровУслуг.МодульОбъекта(3045)}: Преобразование значения к типу Булево не может быть выполнено
ДокПоступления.Записать(РежимЗаписиДокумента.Проведение,);
Ребят, всем спасибо. Разобрался. Всё сделал. Если кому-то поможет. Проставить счета в поступлении можно процедурой из модуля документа :
Как пример:
Как пример:
ДокПоступления.ЗаполнитьСчетаУчетаВТабЧасти(ДокПоступления.Товары, "Товары", Истина, Истина);
Кстати, удобно сделать обработку для автоматического проставления счетов, нужно только типовую процедуру дополнить параметром, например как в моём случае:
Последний параметр - свой.
Т.е. типовую чуть изменяем:
и в функции не задавать вопрос о проставлении счетов:
Тогда примерный код обработки по проставлению счетов:
СчетаУчетаВДокументах.ИнтерактивноПерезаполнитьСчетаУчета(ДокОбъект, Истина, Новый Структура("Товары,ВозвратнаяТара,Услуги,СоставНабора"), Истина, Истина, , Истина);
Последний параметр - свой.
Т.е. типовую чуть изменяем:
Функция ИнтерактивноПерезаполнитьСчетаУчета(Объект, ЕстьСчетаВШапке, СтруктураТабличныхЧастей, ЗаполнятьБУ, ЗаполнятьНУ, ПрименениеУСН=Ложь, ИспользуетсяОбработка = Ложь) Экспорт ////Добавить свой параметр "ИспользуетсяОбработка"и в функции не задавать вопрос о проставлении счетов:
Если ИспользуетсяОбработка = Истина Тогда
НадоЗаполнять = Истина;
НадоСпрашивать = Ложь;
КонецЕсли;
Тогда примерный код обработки по проставлению счетов:
ДокОбъект = Документ.Ссылка.ПолучитьОбъект();
ДокОбъект.ОтражатьВБухгалтерскомУчете = Истина;
ДокОбъект.ОтражатьВНалоговомУчете = Истина;
СчетаУчетаВДокументах.ИнтерактивноПерезаполнитьСчетаУчета(ДокОбъект, Истина, Новый Структура("Товары,ВозвратнаяТара,Услуги,СоставНабора"), Истина, Истина, , Истина);
ДокОбъект.ЗаполнитьСтруктуруСчетовУчетаШапки(Истина, Истина);
ДокОбъект.Записать();
Если ДокОбъект.Услуги.Количество() > 0 Тогда
ДокОбъект.ЗаполнитьСчетаУчетаВТабЧасти(ДокОбъект.Услуги, "Услуги", Истина, Истина);
КонецЕсли;
ДокОбъект.ЗаполнитьСчетаУчетаВТабЧасти(ДокОбъект.Товары, "Товары", Истина, Истина);
ДокОбъект.Записать();
Показать
Если вдруг кто ищет как заполнить счета учета в Бухгалтерии Предприятия 3.0:
ДокументОбъект.ДополнительныеСвойства.Вставить("ЗаполнитьСчетаУчетаПередЗаписью", Истина);
СчетаУчетаВДокументах.ЗаполнитьПередЗаписью(ДокументОбъект, РежимЗаписиДокумента.Запись);
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот