helpf.pro
  Регистрация
Все категории 1С 7.x : » Журналы расчетов Журналы расчетов 
 0 
 
 
Распечатать

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

Код 1C v 7.x
 док = СоздатьОбъект("Документ.Премия");

// Метод Выбрать вызывает диалог для выбора документа

// Если документ не выбран

если док.Выбрать("Выберите документ") = 0 тогда

Предупреждение("Документ не выбран.");

возврат;

конецЕсли;

жз = СоздатьОбъект("ЖурналРасчетов.Зарплата_2");

жз.ВыбратьЗаписиПоДокументу(док.ТекущийДокумент());

пока жз.ПолучитьЗапись() = 1 цикл

жз.УдалитьЗапись(); // Удаляем расчет

конецЦикла; // пока

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