v8: Как в 1С 82 в журн. док. добавить текст рекв. с призн. наличия подч. док.

08.01.2014 23:26

Прочитано: 1484

Только начинаю программировать в 1С8, не могу понять, как добавить в журнале документов, допустим, "Счета" текстовый реквизит, чтобы показывал, есть ли по текущему документу-Счету подчиненный ему расходный документ (накладная, акт списания или акт услуг)

Для 1С7 мой код таков:

Код 1C v 7.x

 Функция Накл()

    Если ТекущийДокумент.Выбран()=0 Тогда

	    Возврат "";

	КонецЕсли;

	СуммаРН=""; Кол=0;

	Док = СоздатьОбъект("Документ");

    Док.ВыбратьПодчиненныеДокументы(,'31.12.2100',ТекущийДокумент);

	Пока Док.ПолучитьДокумент()=1 Цикл  

		Если Док.ПометкаУдаления() = 1  Тогда

			Продолжить;

		КонецЕсли; 

		Если (флПоказыватьТолькоПроведенные=1) и (Док.Проведен() = 0) Тогда

			Продолжить;

		КонецЕсли; 

		Если (Док.Вид() = "РасходнаяНакладная") или (Док.Вид() = "ЛиквидацияНеоборАктивов") или (Док.Вид() = "ОказаниеУслуг") Тогда

			СуммаРН="+";

			Кол = Кол + 1;

		КонецЕсли;

		

		Если Док.Вид() = "ОстаткиВзаиморасчетов" Тогда

			Если Док.СуммаСНДС<0 Тогда

				СуммаРН="+";

			КонецЕсли;

		КонецЕсли;

	КонецЦикла; 

	Если Кол=0 Тогда

		Кол="";

	КонецЕсли;	

	Возврат СокрЛП(Кол)+СокрЛП(СуммаРН);

КонецФункции

и вызов функции.
визуально очень удобно-сразу видно по всему реестру, есть ли подчиненные доки, а не только по текущему, как в стандартной конф-ии.
Заранее благодарю:
russich777@ukr.net

Yandex

Возможно, вас также заинтересует

Подсказка: Щелкнув по значку (справа от названия вопроса), вы получите список ответов на похожие вопросы!