Имя: Пароль:
1C
1С v8
Проводки при проведении документа
,
0 franchisees
 
26.09.12
14:43
Подскажите как написать, чтоб не по содержанию (показано в коде), а через поле СчетКт искала (например удалить все проводки по счету кредита 19.03, т.е где имеются проводки с корреспонденцией по кредиту 19.03, те проводки удаляются)

Если Источник.Проводки Тогда
ТаблПроводок= Источник.Движения.Хозрасчетный.Выгрузить();
ПоискПроводкиНДС = ТаблПроводок.найтиСтроки(Новый Структура("СчетКт,Содержание",ПланыСчетов.Хозрасчетный.НДСпоПриобретеннымМПЗ,"НДС"));
Если ПоискПроводкиНДС.количество()>0 Тогда
Для Каждого Стр из ПоискПроводкиНДС Цикл
ТаблПроводок.удалить(Стр);
КонецЦикла;
КонецЕсли;
Источник.Движения.Хозрасчетный.загрузить(ТаблПроводок);
КонецЕсли;
1 Нуф-Нуф
 
26.09.12
14:44
Если Источник.Проводки Тогда
ТаблПроводок= Источник.Движения.Хозрасчетный.Выгрузить();
ПоискПроводкиНДС = ТаблПроводок.найтиСтроки(Новый Структура("СчетКт",ПланыСчетов.Хозрасчетный.НДСпоПриобретеннымМПЗ));
Если ПоискПроводкиНДС.количество()>0 Тогда
Для Каждого Стр из ПоискПроводкиНДС Цикл
ТаблПроводок.удалить(Стр);
КонецЦикла;
КонецЕсли;
Источник.Движения.Хозрасчетный.загрузить(ТаблПроводок);
КонецЕсли;
2 Maxus43
 
26.09.12
14:45
Набор = РегистрБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
Набор.Отбор.Регистартор.Установить(ИсточникСсылка);
Для Каждого Проводка Из Набор Цикл
ЕСли Проводка.счетКТ = ........
.....
3 franchisees
 
26.09.12
14:58
спасибо
Компьютер — устройство, разработанное для ускорения и автоматизации человеческих ошибок.