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

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

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