Как выборочно убрать Факсимилье на некоторых документах по условию ОТВЕТ!!!

Форум Программирование Общие вопросы программирования (Dev)

1. zoeh 31 26.10.22 08:42 Сейчас в теме

&После("ПолучитьДанныеФаксимиле")
РАСШ_ПолучитьДанныеФаксимиле(СоответствиеФаксимиле, МассивИменПоказателей, МассивУдаляемыхИменПоказателей, ОрганизацияЮридическоеЛицо, КлючевыеДанные, ПараметрыПечати)
	// Вставить содержимое метода.
	//Добавил 
	Если ТипЗнч(КлючевыеДанные.Документ) = Тип("ДокументСсылка.РеализацияТоваровУслуг") Тогда
		Если НЕ(КлючевыеДанные.Документ.Ссылка.ДоговорКонтрагента.ВыводитьПодписиОтветственныхНашейОрганизацииВУПД) Тогда 
			Инд = МассивИменПоказателей.Найти("ФаксимилеРуководитель");
			Если Инд<> Неопределено Тогда
				МассивУдаляемыхИменПоказателей.Добавить("ФаксимилеРуководитель");
			КонецЕсли;
			Инд = МассивИменПоказателей.Найти("ФаксимилеГлавныйБухгалтер");
			Если Инд<> Неопределено Тогда
				МассивУдаляемыхИменПоказателей.Добавить("ФаксимилеГлавныйБухгалтер");
			КонецЕсли;
		Иначе
			Инд = МассивУдаляемыхИменПоказателей.Найти("ФаксимилеРуководитель");
			Если Инд<> Неопределено Тогда
				МассивУдаляемыхИменПоказателей.Удалить(Инд);
			КонецЕсли;
			Инд = МассивУдаляемыхИменПоказателей.Найти("ФаксимилеГлавныйБухгалтер");
			Если Инд<> Неопределено Тогда
				МассивУдаляемыхИменПоказателей.Удалить(Инд);
			КонецЕсли;

		КонецЕсли;
		
	КонецЕсли;

Показать

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. zoeh 31 26.10.22 08:42 Сейчас в теме

Бух 3.0

3. starjevschik 26.10.22 08:47 Сейчас в теме

в макете сделай область без факсимиле
и выбирай, какую область показывать.

4. zoeh 31 26.10.22 08:49 Сейчас в теме

мой вариант проще

5. zoeh 31 11.11.22 04:44 Сейчас в теме

поправочка во первых модуль из общих УправлениеПечатьюБП
во вторых для групповой печати:

Если ТипЗнч(КлючевыеДанные.Документ) = Тип("ДокументСсылка.РеализацияТоваровУслуг") Тогда
		Если НЕ(КлючевыеДанные.Документ.Ссылка.ДоговорКонтрагента.ВыводитьПодписиОтветственныхНашейОрганизацииВУПД) Тогда 
			Инд = МассивИменПоказателей.Найти("ФаксимилеРуководитель");
			Если Инд<> Неопределено Тогда
				Инд = МассивУдаляемыхИменПоказателей.Найти("ФаксимилеРуководитель");
				Если Инд= Неопределено Тогда
                	МассивУдаляемыхИменПоказателей.Добавить("ФаксимилеРуководитель");
				КонецЕсли;
			КонецЕсли;
			Инд = МассивИменПоказателей.Найти("ФаксимилеГлавныйБухгалтер");
			Если Инд<> Неопределено Тогда
				Инд = МассивУдаляемыхИменПоказателей.Найти("ФаксимилеГлавныйБухгалтер");
				Если Инд= Неопределено Тогда
					
					МассивУдаляемыхИменПоказателей.Добавить("ФаксимилеГлавныйБухгалтер");
				КонецЕсли;
			КонецЕсли;
		Иначе
			Инд = МассивУдаляемыхИменПоказателей.Найти("ФаксимилеРуководитель");
			Если Инд<> Неопределено Тогда
				МассивУдаляемыхИменПоказателей.Удалить(Инд);
			КонецЕсли;
			Инд = МассивУдаляемыхИменПоказателей.Найти("ФаксимилеГлавныйБухгалтер");
			Если Инд<> Неопределено Тогда
				МассивУдаляемыхИменПоказателей.Удалить(Инд);
			КонецЕсли;

		КонецЕсли;
		
	КонецЕсли;

Показать

Оставьте свое сообщение

E-mail: