• 15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby

    За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.

    На последнюю неделю приходится экзамен, где нужно будет показать свои навыки, взломав ряд уязвимых учебных сайтов, и добыть флаги. Успешно сдавшие экзамен получат сертификат.

    Запись на курс до 25 апреля. Получить промодоступ ...

Двойные Проводки

  • Автор темы Irisha
  • Дата начала
I

Irisha

Здравствуйте! Есть простой документ в 1сv8.2 с табличной частью. В ОбработкеПроведения цикл по строкам и одна проводка на каждую строку ТЧ. При нажатии на ОК в документе формируются проводки - далее вопрос: "Данные были изменены. Сохранить изменения?" - и при ответе "да" снова формируются проводки, а при ответе "нет" документ без проводок вообще... С чем это может быть связано? Спасибо..
 
A

Allexei

Конфа самописная? Посморти свойства документа "Удаление движений", что там выставленно? Выложите модуль проведения документа.
 
I

Irisha

Да, самописная. В свойстве удаление движений стоит " Удалять автоматически при отмене проведения".
Модуль
Код:
 Процедура ОбработкаПроведения(Отказ, Режим)

Для Каждого ТекСтрока Из Платежи Цикл
Если ТекСтрока.Сумма<>0 Тогда
Движение = Движения.Хозрасчетный.Добавить();
Движение.СчетКт = ПланыСчетов.Хозрасчетный.АрендаРасчетыСПокупателямиИЗаказчиками;
Движение.Период = Дата;
Движение.СчетДт = ТекСтрока.СчетД*цензура*;
Движение.Сумма = ТекСтрока.Сумма;
Движение.СубконтоКт.ДоговораАренды = ТекСтрока.Договор;
Движение.СубконтоКт.Организации = ТекСтрока.Организация;
Движение.СубконтоКт.СтруктурныеПодразделения = ТекСтрока.Договор.СтруктурноеПодразделение;
Движение.Содержание = "Оплата от " + ТекСтрока.Организация;
Движение.Организация = ТекСтрока.Организация;
КонецЕсли;				 
КонецЦикла;	
КонецПроцедуры
 
A

Allexei

Хз в чем может быть проблема. Отладчиком не смотрели что приводит к изменению формы? Как вариант можете попробывать следущее (не факт что это будет правильным решением проблеммы).
Установите свойство "Записывать движения при проведении" в "записывть выбранные"
Далее ваш модуль измените на

Код:
Процедура ОбработкаПроведения(Отказ, Режим)
Движения.Хозрасчетный.Записывать = Истина;
Движения.Записать();
Движения.Хозрасчетный.Записывать = Истина;
Для Каждого ТекСтрока Из Платежи Цикл
Если ТекСтрока.Сумма<>0 Тогда
.....//Ваш код
КонецЕсли;				 
КонецЦикла;	
КонецПроцедуры
 
U

unknown181538

Или в ПриЗаписи() еще может что?
 
I

Irisha

Всем огромное спасибо. свойство "Записывать движения при проведении" и было в положении "записывть выбранные", помогла установка этого свойства в положение "записывать модифицированные".
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!