helpf.pro
Регистрация
 0 
Распечатать

1С 7.x : Как удалить все расчеты, относящиеся к выбранному Документу

Код 1C v 7.x
 док = СоздатьОбъект("Документ.Премия");
// Метод Выбрать вызывает диалог для выбора документа
// Если документ не выбран
если док.Выбрать("Выберите документ") = 0 тогда
Предупреждение("Документ не выбран.");
возврат;
конецЕсли;
жз = СоздатьОбъект("ЖурналРасчетов.Зарплата_2");
жз.ВыбратьЗаписиПоДокументу(док.ТекущийДокумент());
пока жз.ПолучитьЗапись() = 1 цикл
жз.УдалитьЗапись(); // Удаляем расчет
конецЦикла; // пока
док.Удалить(0); // Удаляем документ (ставим 1С-пометку удаления)
Разместил:   Версии: | 7.x |  Дата:   Прочитано: 8089
 0 
Распечатать
Возможно, вас также заинтересует
Выбрать все движения регистра по документу 0
Процедура Взаиморасчеты(ВыбКлиент, ДатаНачало, ДатаКонец) // Создание Таблицы для выходного отчета Заг = " Неизвестно." ; Таб = СоздатьОбъект(" Таблица" ); Клн = СоздатьОбъект(" Справочник.Клиенты" ); Клн.ИспользоватьДату(ДатаКонец); Док = С
Как в форме списка журнала расчетов Зарплата вывести только записи, относящиеся к Документу 0
процедура ПриОткрытии() // Предопределенная процедура перем док; док = СоздатьОбъект(" Документ.Премия" ); // Метод Выбрать вызывает диалог для выбора документа // Если документ не выбран если док.Выбрать(" Выберите документ" ) = 0 тогда Преду
Как вывести все расчеты, относящиеся к выбранному Документу 0
док = СоздатьОбъект(" Документ.Премия" ); // Метод Выбрать вызывает диалог для выбора документа // Если документ не выбран если док.Выбрать(" Выберите документ" ) = 0 тогда Предупреждение(" Документ не выбран." ); возврат; конецЕсли; жз = Соз
Как вывести все расчеты, относящиеся к выбранному Сотруднику 0
сСотр_2 = СоздатьОбъект(" Справочник.Сотрудники" ); // Метод Выбрать вызывает диалог для выбора элемента справочника // Если сотрудник не выбран если сСотр_2.Выбрать(" Выберите сотрудника" , " ФормаСписка" ) = 0 тогда Предупреждение(" Сотрудник
Расчет начислений по сотруднику, подразделени, документу 0
// Посчитаем все начисления текущего сотрудника за январь: ВсегоНачислено = 0; ЖЗ.ВыбратьЗаписиПоОбъекту (ТекСотр, ДатаНач, ДатаКон); Пока ЖЗ.ПолучитьЗапись()=1 Цикл Если ЖЗ.ВидРасч.ВходитВГруппу(ГруппаРасчетов.ВсеНачисления)=1 Тогда ВсегоНач
Посмотреть все результаты поиска похожих
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.