В каком модуле в бухгалтерии государственного учреждения можно забрать СведенияОЮрФизЛице?

1. user2096276 02.12.24 10:05 Сейчас в теме
Добрый день, пытался перенести внешнюю печатную обработку из стандартной бухгалтерии предприятия 3.0, наткнулся на проблему с поиском модуля, откуда смогу забрать данные из функции СведенияОЮрФизЛице

Функция СформироватьПечатнуюФорму(МассивОбъектов, ОбъектыПечати, ПараметрыВывода = Неопределено) Экспорт
	ТабличныйДокумент		= Новый ТабличныйДокумент;
	ТабличныйДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ДоговорНаОплатуУслугПоДоставке";
	МакетОбработки			= ПолучитьМакет("ПФ_MXL_ДоговорНаДоставкуПрепаратов");

	Для каждого СсылкаНаДокумент ИЗ МассивОбъектов Цикл
		СведенияКлиент			= БухгалтерскийУчётПереопределяемый.СведенияОЮрФизЛице(СсылкаНаДокумент.Контрагент, СсылкаНаДокумент.Дата, Неопределено);
		СведенияОрганизация		= БухгалтерскийУчётПереопределяемый.СведенияОЮрФизЛице(СсылкаНаДокумент.Организация, СсылкаНаДокумент.Дата, Неопределено);
		СведенияДокумент		= СформироватьСтруктуруСведенийДокумента(СсылкаНаДокумент);
		
		СведенияДобавитьПрефикс(СведенияКлиент, "Клиент");
		СведенияДобавитьПрефикс(СведенияОрганизация, "Организация");
		
		// Заполняем и выводим шапку
		ОбластьШапка = МакетОбработки.ПолучитьОбласть("Шапка");
		ЗаполнитьЗначенияСвойств(ОбластьШапка.Параметры, СведенияОрганизация);
		ЗаполнитьЗначенияСвойств(ОбластьШапка.Параметры, СведенияКлиент);
		ЗаполнитьЗначенияСвойств(ОбластьШапка.Параметры, СведенияДокумент);	
		ТабличныйДокумент.Вывести(ОбластьШапка);
		
		// Заполняем и выводим страницы приложения
		ОбластьПриложениеСтр1 = МакетОбработки.ПолучитьОбласть("ПриложениеСтр1");
		ЗаполнитьЗначенияСвойств(ОбластьПриложениеСтр1.Параметры, СведенияДокумент);
		ТабличныйДокумент.Вывести(ОбластьПриложениеСтр1);
		ОбластьПриложениеСтр2 = МакетОбработки.ПолучитьОбласть("ПриложениеСтр2");
		ТабличныйДокумент.Вывести(ОбластьПриложениеСтр2);
	КонецЦикла;
	
	ТабличныйДокумент.АвтоМасштаб = Истина;
	
	Возврат ТабличныйДокумент;
КонецФункции
Показать
Найденные решения
2. uriah 18 02.12.24 13:10 Сейчас в теме
Нет в ней такого. Обращайтесь к справочнику Контрагенты. Например по физлицу
СтруктураКонтрагента = Новый Структура;
		СтруктураКонтрагента.Вставить("Фамилия","");
		СтруктураКонтрагента.Вставить("Имя","");
		СтруктураКонтрагента.Вставить("Отчество",""); 
		СтруктураКонтрагента.Вставить("СсылкаНаОбъект",стр.Плательщик);
		Справочники.Контрагенты.ПолучитьДанныеКонтрагента(СтруктураКонтрагента);
17. VUN 38 04.12.24 15:20 Сейчас в теме
(14)
СведенияКлиент = Новый Структура;
ЭлектронныеДокументыБГУ.ПолучитьДанныеЮрФизЛица(СсылкаНаДокумент.Контрагент, СведенияКлиент, СсылкаНаДокумент.Дата, Ложь);
Остальные ответы
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
2. uriah 18 02.12.24 13:10 Сейчас в теме
Нет в ней такого. Обращайтесь к справочнику Контрагенты. Например по физлицу
СтруктураКонтрагента = Новый Структура;
		СтруктураКонтрагента.Вставить("Фамилия","");
		СтруктураКонтрагента.Вставить("Имя","");
		СтруктураКонтрагента.Вставить("Отчество",""); 
		СтруктураКонтрагента.Вставить("СсылкаНаОбъект",стр.Плательщик);
		Справочники.Контрагенты.ПолучитьДанныеКонтрагента(СтруктураКонтрагента);
3. user2096276 02.12.24 14:09 Сейчас в теме
Благодарю за ответ! Осталось только разобраться и найти данные для контрагента и нашей организации.
4. VUN 38 02.12.24 17:11 Сейчас в теме
Попробуйте:
	СведенияОбУчастнике = Новый Структура;
	ЭлектронныеДокументыБГУ.ПолучитьДанныеЮрФизЛица(Участник, СведенияОбУчастнике, ДатаДанных, Ложь);
5. uriah 18 03.12.24 11:30 Сейчас в теме
(4) А если с контрагентом нет ЭДО?
6. VUN 38 03.12.24 16:16 Сейчас в теме
(5) Не важно, выбирает из справочника.
7. user2096276 03.12.24 19:42 Сейчас в теме
(4)
{ВнешняяОбработка.АйТи_ДоговорУслугДоставки.МодульОбъекта(59,54)}: Переменная не определена (Участник)
    	ЭлектронныеДокументыБГУ.ПолучитьДанныеЮрФизЛица(<<?>>Участник, СведенияОбУчастнике, ДатаДанных, Ложь); (Проверка: Сервер)
{ВнешняяОбработка.АйТи_ДоговорУслугДоставки.МодульОбъекта(59,85)}: Переменная не определена (ДатаДанных)
    	ЭлектронныеДокументыБГУ.ПолучитьДанныеЮрФизЛица(Участник, СведенияОбУчастнике, <<?>>ДатаДанных, Ложь); (Проверка: Сервер)
8. user2116971 03.12.24 20:36 Сейчас в теме
(7) А потом они обижаются, что их троллят...
9. user2096276 03.12.24 20:41 Сейчас в теме
(8) Ну я не особо шарю в синтаксисе 1С, поэтому подобные задания для меня становятся около невыполнимыми, тем более на вузовских курсах по 1с мы с типовыми конфигурациями не работали, а методом тыка искать эти данные очень не хочется + почему-то поставщик конфигурации не оставил никакой техдокументации.
10. user2116971 03.12.24 20:58 Сейчас в теме
(9) Это учебное задание?
11. user2096276 03.12.24 20:59 Сейчас в теме
(10) Нет, это рабочее, в бухгалтерии попросили перенести печатную обработку из БП в БГУ.
13. user2116971 03.12.24 21:11 Сейчас в теме
(11) Ааа... Ну тогда иди на курсы. Придется учиться, ничего не поделаешь.

Понимаешь, тебе прислали код со своими именами переменных. НЕ С ТВОИМИ.
И в итоге выясняется, что ты тупо не знаешь что такое переменные и методы модуля или переменные и методы контекста владельца модуля.
Тут тебе не помочь - только на курсы.

Если бы было учебное задание - мог бы просто купить решение. Ну а раз рабочее и ты сам за него деньги получаешь - придется постараться.
12. YNik 03.12.24 21:06 Сейчас в теме
(7) Сделайте по аналогии, как у вас:
(СсылкаНаДокумент.Контрагент, СсылкаНаДокумент.Дата,
14. user2096276 03.12.24 21:37 Сейчас в теме
(12)
Поле объекта недоступно для записи (Дата)
{ОбщийМодуль.ЭлектронныеДокументыБГУ.Модуль(1937)}:	Сведения = Новый Структура;
{ВнешняяОбработка.АйТи_ДоговорУслугДоставки.МодульОбъекта(59)}:    	ЭлектронныеДокументыБГУ.ПолучитьДанныеЮрФизЛица(СсылкаНаДокумент.Контрагент, СсылкаНаДокумент.Дата, Неопределено);
{ВнешняяОбработка.АйТи_ДоговорУслугДоставки.МодульОбъекта(40)}:		ПечатнаяФорма.ТабличныйДокумент = СформироватьПечатнуюФорму(МассивОбъектов, "ПФ_MXL_ДоговорНаДоставкуПрепаратов", ПараметрыВывода);
{ОбщийМодуль.УправлениеПечатью.Модуль(2051)}:	ВнешняяОбработкаОбъект.Печать(
{ОбщаяФорма.ПечатьДокументов.Форма(779)}:		УправлениеПечатью.ПечатьПоВнешнемуИсточнику(
{ОбщаяФорма.ПечатьДокументов.Форма(61)}:		КоллекцияПечатныхФорм = СформироватьПечатныеФормы(Параметры.ИменаМакетов, Отказ);
{ОбщийМодуль.УправлениеПечатьюСлужебныйКлиент.Модуль(310)}:		ОткрытьФорму("ОбщаяФорма.ПечатьДокументов", ПараметрыОткрытия, ВладелецФормы, Строка(Новый УникальныйИдентификатор));
{ОбщийМодуль.УправлениеПечатьюГлобальный.Модуль(13)}:	УправлениеПечатьюСлужебныйКлиент.ПродолжитьВыполнениеКомандыПечати();
Показать
15. user2116971 03.12.24 22:02 Сейчас в теме
(14) Не останавливайся. Когда-нибудь ты все равно угадаешь эти буквы...
16. user2096276 03.12.24 22:05 Сейчас в теме
(15) Вы - легенда. А я не сдаюсь, дедлайн неделя, и я настойчиво верю в чудеса.
17. VUN 38 04.12.24 15:20 Сейчас в теме
(14)
СведенияКлиент = Новый Структура;
ЭлектронныеДокументыБГУ.ПолучитьДанныеЮрФизЛица(СсылкаНаДокумент.Контрагент, СведенияКлиент, СсылкаНаДокумент.Дата, Ложь);
18. user2096276 04.12.24 21:04 Сейчас в теме
(17) Огромное спасибо за помощь! Всё получилось, жаль не удастаться пожать вам вашу крепкую руку. Буду развиваться в этой теме, чтобы больше не мучить на форуме базой.
Оставьте свое сообщение

Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот