&НаКлиенте

Процедура УдалитьДокумент(Команда)

   

        // Вставить содержимое обработчика.

        УдалитьДокументНаСервере(0);

   

КонецПроцедуры



&НаСервере

Процедура УдалитьДокументНаСервере(ПометкаУдаления)

   

        // Вставить содержимое обработчика.

        Перем УдаляемыйДокумент;

   

        УдаляемыйДокумент =Документы.РасходнаяНакладная.НайтиПоНомеру("000000004");

        Если ПометкаУдаления = 1 Тогда

                УдаляемыйДокумент.ПолучитьОбъект().УстановитьПометкуУдаления(Истина);

        Иначе

                УдаляемыйДокумент.ПолучитьОбъект().Удалить();

        КонецЕсли;

   

КонецПроцедуры   

 //Установить пометку удаления документа

ТС=ЭлементыФормы.Список.ТекущиеДанные;

    ТД=Документы.РеализацияТоваровУслуг.НайтиПоНомеру(ТС.Номер, ТС.Дата);

    Если ТД.Пустая() Тогда

       Сообщить("Документ по номеру <такому то> не найден");

       возврат;

    КонецЕсли;

    ТД.ПолучитьОбъект().УстановитьПометкуУдаления(Истина);   

 // Непосредственное удаление документов

Запрос = Новый Запрос("ВЫБРАТЬ

                          |    Заказы.Ссылка

                          |ИЗ

                          |    Документ.Заказы КАК Заказы

                          |ГДЕ

                          |    Заказы.ПометкаУдаления = ИСТИНА");

Выборка = Запрос.Выполнить().Выбрать();

Пока Выборка.Следующий() Цикл

  ОбъектДокумент = Выборка.Ссылка.ПолучитьОбъект();

  ОбъектДокумент.Удалить();

КонецЦикла;   

 Д = СоздатьОбъект("Документ");

Д.ВыбратьДокументы(НачДата,КонДата);

Пока Д.ПолучитьДокумент() = 1 Цикл

   Сообщить(Д.ТекущийДокумент());

   Состояние(Д.ДатаДок);

   Д.Удалить();

КонецЦикла;

  ОтражениеВУчете.Очистить(); // ОтражениеВУчете - название табличного поля    

  //Получим документ и укажем параметры поиска

ОбъектДок = СсылкаДок.ПолучитьОбъект(); 

СтруктураДляПоиска = Новый Структура("Количество", 0); 

ТабличнаяЧастьДок = ОбъектДок.Товары; 

//Получаем список строк соответсвтвующих отбору, и перебором удаляем.

МассивПустыхСтрок = ТабличнаяЧастьДок.НайтиСтроки(СтруктураДляПоиска); 

Для каждого Строка Из МассивПустыхСтрок Цикл 

	ТабличнаяЧастьДок.Удалить(Строка); 

КонецЦикла; 

ОбъектДок.Записать(); // Записываем изменения в документе   

  // Укажем условия отбора: Нужно оставить только строки где СубконтоКт1 = РБПНаПФР	

ПараметрыОтбора = Новый Структура("СубконтоКт1", Справочники.РасходыБудущихПериодов.РБПНаПФР);	

//Теперь выгружаем табличную часть в таблицу значений

ТЗисходн=ОтражениеВУчете.Выгрузить();

//Скопируем ТЗ с заданным отбором в новую ТЗ

ТЗнов = ТЗисходн.Скопировать(ПараметрыОтбора);

//Очистим табличную часть

ОтражениеВУчете.Очистить();

//Загружем в табличную часть новую таблицу значений

ОтражениеВУчете.Загрузить(ТЗнов);    

 Для каждого Запись из ТабличнойЧасти Цикл

Если Запись.НадоУдалить Тогда

 ТабличнойЧасти.Удалить(Запись);

КонецЕсли;

КонецЦикла;   

    КолВо = Объект.ТабличнойЧасти.Количество()-1;

    ИндексСтроки = КолВо;

    Для счетчик = 0 по КолВо Цикл

        Запись = Объект.ТабличнойЧасти.Получить(ИндексСтроки);

        если Запись.НадоУдалить тогда

                Объект.ТабличнойЧасти.Удалить(Запись);

            КонецЕсли;

        ИндексСтроки = ИндексСтроки - 1;

    КонецЦикла;   

 

// Док - ссылка на документ



ОбъектДок = Док.ПолучитьОбъект(); 

НоваяСтрока = ОбъектДок.Товары.Добавить(); 



// Заполнить значения реквизитов. 

НоваяСтрока.Количество = 13; 

НоваяСтрока.Цена = 5500;  



// Записать документ. 

ОбъектДок.Записать();

   

 

// Товары табличная часть документа

ОбъектДокумента = Документ.ПолучитьОбъект(); 

ОбъектДокумента.Товары.Очистить(); 

   

 

Для Каждого ТекущаяСтрока Из Документ.Товары Цикл 



	// Действия со строкой табличной части. 



КонецЦикла;