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

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) Огромное спасибо за помощь! Всё получилось, жаль не удастаться пожать вам вашу крепкую руку. Буду развиваться в этой теме, чтобы больше не мучить на форуме базой.
Оставьте свое сообщение

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