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

Как удалить все расчеты, относящиеся к выбранному Документу

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

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

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

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

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

возврат;

конецЕсли;

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

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

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

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

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

док.Удалить(0); // Удаляем документ (ставим 1С-пометку удаления)
Разместил:   Версии: | 7.x |  Дата:   Прочитано: 8027
 0 
 
 
Распечатать
Возможно, вас также заинтересует
Выбрать все движения регистра по документу  0
  Процедура Взаиморасчеты(ВыбКлиент, ДатаНачало, ДатаКонец) // Создание Таблицы для выходного отчета Заг = " Неизвестно." ; Таб = СоздатьОбъект(" Таблица" ); Клн = СоздатьОбъект(" Справочник.Клиенты" ); ...
Использование предложения ДЛЯ ИЗМЕНЕНИЯ  0
 Предложение ДЛЯ ИЗМЕНЕНИЯ позволяет заблаговременно заблокировать некоторые данные (которые могут читаться транзакцией другого соединения) уже при считывании, чтобы исключить взаимные блокировки при записи. ДЛЯ...
Как в 1C загрузить из Word текст?  4
  Как в 1C из Microsoft Office Word 2007 внести текст? Код получения текста из файла word: Wk = Новый COMОбъект(" Word.Application" ); //Покажем открываемый документ Wk.Visible = Истина; Wk.Documents.Open(" D:file.doc" ); Документ = Wk.Active
Как в форме списка журнала расчетов Зарплата вывести только записи, относящиеся к Документу  0
  процедура ПриОткрытии() // Предопределенная процедура перем док; док = СоздатьОбъект(" Документ.Премия" ); // Метод Выбрать вызывает диалог для выбора документа // Если документ не выбран если док.Выбрать(" Выберите...
Как вывести все расчеты, относящиеся к выбранному Документу  0
  док = СоздатьОбъект(" Документ.Премия" ); // Метод Выбрать вызывает диалог для выбора документа // Если документ не выбран если док.Выбрать(" Выберите документ" ) = 0 тогда Предупреждение(" Документ не выбран." ); возврат; ...
Посмотреть все результаты поиска похожих
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.