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