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

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

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