Как перепровести документ программно?

Форум Программирование Общие вопросы программирования (Dev)

1С:Бухгалтерия 3.0 1С:Розница 2

1. j.r.r 65 06.09.18 11:11 Сейчас в теме

Добрейшего времени суток, Вам!

Как программно перепровести документы в Бухгалтерии 3.0? С помощью обработки меняю параметры документов, они меняются, но в отчётах изменения отображаются только после перепроведения (ручного или группового)? Как это сразу прописать в коде обработки?

По теме из базы знаний

Найденные решения

17. login1020 138 06.09.18 15:12 Сейчас в теме

(16) Достаточно так написать:

Если ПроверкаПроводкиРасход Тогда

Остальные ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. login1020 138 06.09.18 11:14 Сейчас в теме

(1) Меняете как? РежимЗаписиДокумента.Записать ?

4. j.r.r 65 06.09.18 11:16 Сейчас в теме

(2) Да

ДокОбъектРС.Записать(РежимЗаписиДокумента.Проведение);

5. login1020 138 06.09.18 11:24 Сейчас в теме

(4) Попробуйте тогда сперва сделать отмену проведения, а после выполнить проведение.

6. j.r.r 65 06.09.18 11:24 Сейчас в теме

(5) Делал, не помогает

7. herfis 513 06.09.18 11:26 Сейчас в теме

(4) Тогда не знаю. Назовите вид документа, который проводите и ждем спеца по Бух 3.0 :)

8. j.r.r 65 06.09.18 11:27 Сейчас в теме

(7) Приходный кассовый ордер :)

10. ben19791010 06.09.18 11:47 Сейчас в теме

(8)

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

Показать

скорее всего из-за этого

9. ben19791010 06.09.18 11:44 Сейчас в теме

(1)

С помощью обработки меняю параметры документов

код бы глянуть
меняете только проводки или движение регистров?
отчет формируется на основе каких данных?

ВыборкаОбъект=Док.ПолучитьОбъект();
	ВыборкаОбъект.ЭтотОбъект.Модифицированность();
	ВыборкаОбъект.РучнаяКорректировка=Истина;
	ВыборкаОбъект.Записать(РежимЗаписиДокумента.Запись);

пример изменения движ регистра

12. j.r.r 65 06.09.18 13:27 Сейчас в теме

(9)Код, это запросто

ВыборкаРасход = Документы.РасходныйКассовыйОрдер.Выбрать(Объект.ДатаДо, Объект.ДатаПосле);
    Пока ВыборкаДокументы.Следующий() Цикл
        ДокОбъектРасход = ВыборкаРасход.ПолучитьОбъект();
		
		ПроверкаПроводкиРасход = ВыборкаРасход.Проведен;
		
		НН = ДокОбъектРасход.РасшифровкаПлатежа.Получить(0);
		
		НН.СчетУчетаРасчетовПоАвансам = Планысчетов.Хозрасчетный.НайтиПоКоду("62.01");		
		
		Если ПроверкаПроводкиРасход = "Да" Тогда
		
        ДокОбъектРасход.Записать(РежимЗаписиДокумента.Проведение, РежимПроведенияДокумента.Неоперативный);
		
		Иначе
		
		ДокОбъектРасход.Записать(РежимЗаписиДокумента.Запись);

		КонецЕсли;	
		
	КонецЦикла;

Показать

15. lefthander 06.09.18 14:56 Сейчас в теме

(12)

ПроверкаПроводкиРасход = ВыборкаРасход.Проведен;

ПроверкаПроводкиРасход будет равна ИСТИНА; а у Вас - "Да"
(12)

Если ПроверкаПроводкиРасход = "Да" Тогда

Можно написать Если ВыборкаРасход.Проведен Тогда

11. user700035_6550355 34 06.09.18 11:55 Сейчас в теме

(1) А что именно меняете в документе? По идее должно работать при программной записи

13. j.r.r 65 06.09.18 13:28 Сейчас в теме

(11) Счёт 62.02 на 62.01

3. herfis 513 06.09.18 11:15 Сейчас в теме

Док.Записать(РежимЗаписиДокумента.Проведение, РежимПроведенияДокумента.Неоперативный);

14. login1020 138 06.09.18 14:49 Сейчас в теме

С чего вдруг Тип Булево будет равен Текстовой строке?

  Если ПроверкаПроводкиРасход = "Да" Тогда

Выполнение уходит по вилке

Иначе

ДокОбъектРасход.Записать(РежимЗаписиДокумента.Запись);

16. j.r.r 65 06.09.18 15:10 Сейчас в теме

(14)Истина?

17. login1020 138 06.09.18 15:12 Сейчас в теме

(16) Достаточно так написать:

Если ПроверкаПроводкиРасход Тогда

18. j.r.r 65 06.09.18 15:37 Сейчас в теме

(17)

ПроверкаПроводкиРасход

Да, то что надо. Благодарю!!!

Оставьте свое сообщение

E-mail: