Имя: Пароль:
1C
1С v8
Задваиваются проводки на забаланс
0 genii2000
 
20.11.12
11:30
Суть проблемы такова, в процедуру передзаписью добавил код чтобы было проведение на забаланс
Процедура ДобавитьПроводку()

   Для каждого Проводка Из ЭлементыФормы.ТабличноеПолеДвиженияБУ.Значение Цикл
       Если Проводка.СчетДт = ПланыСчетов.Хозрасчетный.РасчетыСПерсоналомПоОплатеТруда и Проводка.СчетКт = ПланыСчетов.Хозрасчетный.РасчетыПоВозмещениюМатериальногоУщерба Тогда
           
           НоваяПроводка = ЭлементыФормы.ТабличноеПолеДвиженияБУ.Значение.Добавить();
           НоваяПроводка.СчетКт = ПланыСчетов.Хозрасчетный.РасчПоВозмещУщербаНУ;
           НоваяПроводка.Сумма = Проводка.Сумма;
           НоваяПроводка.Период = Дата;                                                    
           БухгалтерскийУчет.УстановитьСубконто(НоваяПроводка.СчетКт,НоваяПроводка.СубконтоКт,1,Проводка.СубконтоКт.РаботникиОрганизаций.Ссылка);
           
       Конецесли;
       Если Проводка.СчетДт = ПланыСчетов.Хозрасчетный.ЦелевоеФинансированиеИзБюджета и Проводка.СчетКт = ПланыСчетов.Хозрасчетный.ПрочиеДоходы Тогда
           
           НоваяПроводка = ЭлементыФормы.ТабличноеПолеДвиженияБУ.Значение.Добавить();
           НоваяПроводка.СчетКт = ПланыСчетов.Хозрасчетный.НПрочиеРасходы;
           НоваяПроводка.Сумма = Проводка.Сумма;
           НоваяПроводка.Период = Дата;                                                    
           БухгалтерскийУчет.УстановитьСубконто(НоваяПроводка.СчетКт,НоваяПроводка.СубконтоКт,1,Проводка.СубконтоКт.ПрочиеДоходыИРасходы.Ссылка);
           БухгалтерскийУчет.УстановитьСубконто(НоваяПроводка.СчетКт,НоваяПроводка.СубконтоКт,2,Проводка.СубконтоКт.РеализуемыеАктивы.Ссылка);

       КонецЕсли;            
   КонецЦикла;
КонецПроцедуры
При нажатии кнопки ОК формуруются проводки, но при повторном нажатии они задваиваются.Как от этого избавиться подскажите?
1 genii2000
 
20.11.12
11:30
Бухгалтерия предприятия 2.0 последний релиз
2 genii2000
 
20.11.12
11:32
документ операции введённые вручную
3 ptiz
 
20.11.12
11:32
А с чего бы им не размножаться?
Как написал, так 1С и делает.
4 genii2000
 
20.11.12
11:33
ну это понятно, а как сделать чтоб не задваивались?
5 ptiz
 
20.11.12
11:38
(4) Написать алгоритм, который их не задваивает.
Твой алгоритм:
перебирам проводки, если находим "проводку ущебра", то делаем "проводку-забаланс".
При повторной записи ты добавленные проводки не удаляешь, само-собой, они будут только добавляться.
6 genii2000
 
20.11.12
11:40
(5)Написать алгоритм, который их не задваивает.

ну если бы знал как это сделать не писал бы сюда, пробывал через Удалить() не получается выдаёт ошибку
7 genii2000
 
20.11.12
11:47
Хоть идейку подкиньте сам додумаю