НЗ3=РегистрыРасчета.ОсновныеНачисленияРаботниковОрганизаций.СоздатьНаборЗаписей();
НЗ3.Отбор.Регистратор.Установить(ДокСсылка);
НЗ3.Прочитать();
н3=НЗ3.Количество()-1;
Пока н3>=0 Цикл
Запись=НЗ3.Получить(н3);
Если СокрЛП(Запись.Сотрудник.ВидДоговора)="Военная служба по контракту"
ИЛИ СокрЛП(Запись.Сотрудник.ВидДоговора)="Военная служба по призыву" Тогда
Сообщить("удалена запись из РР ОсновныеНачисленияРаботниковОрганизаций по "+СокрЛП(Запись.Сотрудник));
НЗ3.Удалить(Запись);
НЗ3.Записать();
КонецЕсли;
н3=н3-1;
КонецЦикла;
ВыборкаКадрВоен=Документы.КадровоеПеремещениеВоеннослужащих.Выбрать();
Пока ВыборкаКадрВоен.Следующий() Цикл
ДокКадрВоен=ВыборкаКадрВоен.ПолучитьОбъект();
Если СокрЛП(ДокКадрВоен.Номер)="" Тогда
Продолжить;
КонецЕсли;
дк=ДокКадрВоен.Военнослужащие.Количество()-1;
Пока дк>=0 Цикл
ТабДокКадрВоен=ДокКадрВоен.Военнослужащие;
стрДК=ТабДокКадрВоен.Получить(дк);
Если СокрЛП(стрДК.Сотрудник.ВидДоговора)="Военная служба по контракту"
ИЛИ СокрЛП(стрДК.Сотрудник.ВидДоговора)="Военная служба по призыву" Тогда
ТабДокКадрВоен.Удалить(дк);
Сообщить("Документ "+ДокКадрВоен);
// Сообщить("удалена строка по сотруднику "+СокрЛП(ФЛ));
Иначе
дк=дк-1;
Продолжить;
КонецЕсли;
дк=дк-1;
КонецЦикла;
ДокКадрВоен.Записать(РежимЗаписиДокумента.Запись);
Если ТабДокКадрВоен.Количество()=0 Тогда
ДокКадрВоен.Организация=Null;
ДокКадрВоен.Записать(РежимЗаписиДокумента.Запись);
ДокКадрВоен.УстановитьПометкуУдаления(Истина);
КонецЕсли;
КонецЦикла;