Взаимодействие основного документа с произвольной формой.

[Pavel-67]

Доброе время суток. Помогите немного разобраться в коде. У меня 1С платформа 8.2 режим обычного приложения. В конфигураторе в Документе СчетНаОплатуПокупателю  я создал кнопочку с кодом и произвольную форму.

Код кнопочки:
Форма =  ПолучитьФорму("Поликлиника", ЭтаФорма);
Форма.РежимВыбора = Истина;
Форма.Идентификатор = ЭтотОбъект.Ссылка; // Передаю ссылку на документ
Форма.Открыть();

Форма открывается все хорошо, на форме есть кнопка которая должна очистить ТЧ Услуги в Документе СчетНаОплатуПокупателю

Прописал такой код:

КоличествоСтрок = Идентификатор.Услуги.Количество()-1;

Для к=0 По КоличествоСтрок Цикл
   Если Идентификатор.Услуги[КоличествоСтрок-к].Количество = 0 Тогда
      Идентификатор.Услуги.Удалить(КоличествоСтрок-к);
   КонецЕсли;
КонецЦикла;

Код отрабатывается, но удаление строк не происходит.  В режиме отладки проверял содержимое параметра Идентификатор, ссылка присутствует.

Подскажите пожалуйста, что я делаю не так?

[Pavel-67]

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

[has]

Форма.Идентификатор = ЭтотОбъект.Ссылка; // Передаю ссылку на документ

Передаете то ссылку, а удалять необходимо из Объекта. Т.е. примерно так

Код Выделить Развернуть


КоличествоСтрок = Идентификатор.Услуги.Количество()-1;
ОбъектДокумента = Идентификатор.ПолучитьОбъект();
Для к=0 По КоличествоСтрок Цикл
   Если ОбъектДокумента.Услуги[КоличествоСтрок-к].Количество = 0 Тогда
      ОбъектДокумента.Услуги.Удалить(КоличествоСтрок-к);
   КонецЕсли;
КонецЦикла;


[Pavel-67]

Форма.Идентификатор = ЭтотОбъект.Ссылка; // Передаю ссылку на документ

Передаете то ссылку, а удалять необходимо из Объекта. Т.е. примерно так

Код Выделить Развернуть


КоличествоСтрок = Идентификатор.Услуги.Количество()-1;
ОбъектДокумента = Идентификатор.ПолучитьОбъект();
Для к=0 По КоличествоСтрок Цикл
   Если ОбъектДокумента.Услуги[КоличествоСтрок-к].Количество = 0 Тогда
      ОбъектДокумента.Услуги.Удалить(КоличествоСтрок-к);
   КонецЕсли;
КонецЦикла;


К сожалению, данный код отработал так же. Безрезультативно (. В отладчике, я проверил, не присваивается количество строк переменной КоличествоСтрок, оно всегда равно 0.
ОбъектДокумента = Идентификатор.ПолучитьОбъект();
КоличествоСтрок =  ОбъектДокумента.Услуги.Количество()-1; Так тоже, без изменения.

[has]

А может у Вас в документе 1 строка, а вы получаете Количество() - 1, вот 0 и получается.

[Pavel-67]

А может у Вас в документе 1 строка, а вы получаете Количество() - 1, вот 0 и получается.

Да я ошибся записи дублировал но не сохранял. Но Данные все равно не удаляются.

[has]

Данные не удаляются из скольки строк?

[Pavel-67]

Данные не удаляются из скольки строк?

Ни одна из строк не удалена. Отрабатывает чисто, без ошибок. По циклу проходит.

Провал так:
Для к=0 По КоличествоСтрок Цикл
  // Если ОбъектДокумента.Услуги[КоличествоСтрок-к].Количество = 0 Тогда
      ОбъектДокумента.Услуги.Удалить(КоличествоСтрок-к);
  // КонецЕсли;
КонецЦикла;

Без изменений.

[has]

В документе сколько строк?

[has]

Что пишет этот код? Параметр формы имеет тип ДокументСсылка?

Код Выделить Развернуть


КоличествоСтрок = Идентификатор.Услуги.Количество()-1;
ОбъектДокумента = Идентификатор.ПолучитьОбъект();
Сообщить(Идентификатор.Услуги.Количество());
Для к=0 По КоличествоСтрок Цикл
   Если ОбъектДокумента.Услуги[КоличествоСтрок-к].Количество = 0 Тогда
      ОбъектДокумента.Услуги.Удалить(КоличествоСтрок-к);
      Сообщить(Идентификатор.Услуги.Количество());
   КонецЕсли;
КонецЦикла;