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