В начало

Удалить пустые элементы

 

Процедура УдалитьПустыеЭлементы (МассивНоменклатуры)

            Счетчик = 0;

            КоличествоЭлементов = МассивНоменклатуры.Количество ();

            Пока Счетчик < КоличествоЭлементов Цикл

                        Если МассивНоменклатуры [Счетчик].Пустая () Тогда

                                   МассивНоменклатуры.Удалить (Счетчик);

                                   КоличествоЭлементов = КоличествоЭлементов - 1;

                        Иначе

                                   Счетчик = Счетчик + 1;

                        КонецЕсли;

            КонецЦикла;

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