Имя: Пароль:
1C
1С v8
 Получить адрес контрагента
☑
0 Arlian
 
22.02.15
✎
11:23
По аналогии с адресом учреждения пытаюсь получить в печатной форме акта (БГУ 1.0) адрес контрагента:


ДопСтруктура = Новый Структура("ЮрАдресКонтрагента");
    СтруктураРеквизитов = Новый Структура("КИКонтрагента",ДопСтруктура);
    ПолучениеНСИ.ПолучитьДанные(Выборка.пЗаказчик, Дата, СтруктураРеквизитов);
        
    ОбластьМакетаШапка.Параметры.пАдресЗаказчика  = "Адрес: " + СтруктураРеквизитов.ЮрАдресКонтрагента  ;

Выдает ошибку:
{ВнешняяОбработка.Акт2.МодульОбъекта(40)}: Поле объекта не обнаружено (ЮрАдресКонтрагента)
    ОбластьМакетаШапка.Параметры.пАдресЗаказчика  = "Адрес: " + СтруктураРеквизитов.ЮрАдресКонтрагента  ;

Что делаю не так?
1 PR
 
22.02.15
✎
11:24
Наверное, дело в том, что поле объекта не обнаружено
2 Arlian
 
22.02.15
✎
11:26
Как его добавить?
3 PR
 
22.02.15
✎
11:27
СтруктураРеквизитов.Вставить("ЮрАдресКонтрагента", "Васильковская 31");
4 Arlian
 
22.02.15
✎
11:29
Ага, "Васильковская 31" встает. А как адрес контрагента подтянуть?
5 PR
 
22.02.15
✎
11:32
(4) Ну как-то так:
СтруктураРеквизитов.Вставить("ЮрАдресКонтрагента", ПолучитьЮрАдресКонтрагента());

Функция ПолучитьЮрАдресКонтрагента()
    //Тут текст процедуры по получению ЮрАдресКонтрагента
КонецФункции
6 hhhh
 
22.02.15
✎
11:32
(4) ну там ведь полно примеров в БГУ. где адрес контрагента выводится. Скопипастить не судьба?
7 intglass
 
22.02.15
✎
11:33
(4) может СтруктураРеквизитов.КИКонтрагента.ЮрАдресКонтрагента
8 Arlian
 
22.02.15
✎
11:45
(7) Нет, тогда выдает ошибку:
Поле объекта не обнаружено (КИКонтрагента)
9 Arlian
 
22.02.15
✎
11:46
(5) Подскажите еще пожалуйста текст процедуры по получению ЮрАдресКонтрагената
10 Мимохожий Однако
 
22.02.15
✎
11:47
КИКонтрагента - что за хрень?
11 Arlian
 
22.02.15
✎
11:50
(10) Это я Скопипастил со Счета на оплату:

СтруктураРеквизитов = Новый Структура;
    СтруктураРеквизитов.Вставить("КИКонтрагента");
    ПолучениеНСИ.ПолучитьДанные(ДанныеШапки.ПлательщикСсылка, ДанныеШапки.Дата, СтруктураРеквизитов);
ПараметрыШапки.пПлательщик = ДанныеШапки.Плательщик + ", ИНН " + ДанныеШапки.ИННПлательщика +
                                    ", адрес: " + ?(СтруктураРеквизитов.Свойство(ИмяАдреса), СтруктураРеквизитов[ИмяАдреса], "") ;
12 PR
 
22.02.15
✎
11:51
(9) Мне кажется, твоя беспардонность зашкаливает, не?
13 PR
 
22.02.15
✎
11:53
+(12) Задача выеденного яйца не стоит, примеров в типовой вагон
14 Мимохожий Однако
 
22.02.15
✎
11:56
(13) С новенькими всегда так. Или не ответят, или нахамят.))
15 Arlian
 
22.02.15
✎
12:01
(13) Я тоже думаю задача несложная.
16 PR
 
22.02.15
✎
12:04
(14) Ну а что, нужно было на (9) быстренько написать текст функции?
17 Arlian
 
22.02.15
✎
12:05
Ну нет так нет.
18 marvak
 
22.02.15
✎
12:05
может так?
ДопСтруктура = Новый Структура("ЮрАдресКонтрагента");
    СтруктураРеквизитов = Новый Структура("КИКонтрагента",ДопСтруктура);
    ПолучениеНСИ.ПолучитьДанные(Выборка.пЗаказчик, Дата, СтруктураРеквизитов);
        
    ОбластьМакетаШапка.Параметры.пАдресЗаказчика  = "Адрес: " + СтруктураРеквизитов["КИКонтрагента"]["ЮрАдресКонтрагента"];

?
19 Arlian
 
22.02.15
✎
12:07
(16) Собственно, вопрос в том и заключался, как получить адрес контрагента.
20 marvak
 
22.02.15
✎
12:08
(18)+
Выборка.пЗаказчик надеюсь заполнено?
21 PR
 
22.02.15
✎
12:08
(19) Так, собственно, посмотри в других местах. Нигде нет получения ЮА контрагента что ли?
22 Arlian
 
22.02.15
✎
12:13
(20) Выборка вроде такая:
      |    УслугиОказанные.Контрагент,
                   |    ВЫБОР
                   |        КОГДА УслугиОказанные.Контрагент.НаименованиеПолное = """"
                   |            ТОГДА УслугиОказанные.Контрагент.Наименование
                   |        ИНАЧЕ УслугиОказанные.Контрагент.НаименованиеПолное
                   |    КОНЕЦ КАК пЗаказчик,
23 Arlian
 
22.02.15
✎
12:14
(18) Ругается:
Поле объекта не обнаружено (КИКонтрагента)
24 marvak
 
22.02.15
✎
12:21
(23)
Посмотри в отладчике что там в структуре
СтруктураРеквизитов
25 Arlian
 
22.02.15
✎
12:28
(24) СтруктураРеквизитов    Структура    Структура
КИКонтрагента    Структура    Структура
ЮрАдресКонтрагента        Неопределено
СтруктураРеквизитов.КИКонтрагента.ЮрАдресКонтрагента        Неопределено
26 marvak
 
22.02.15
✎
12:31
(25)
ПолучениеНСИ.ПолучитьДанные() - описание приведи
27 Arlian
 
22.02.15
✎
12:35
(26) СтруктураРеквизитов.КИКонтрагента.ЮрАдресКонтрагента        Неопределено
ПолучениеНСИ.ПолучитьДанные    {(1)}: Поле объекта не обнаружено (ПолучитьДанные)
28 marvak
 
22.02.15
✎
12:40
(27)
Процедуру ПолучитьДанные() из модуля ПолучениеНСИ выложи сюда.
29 Arlian
 
22.02.15
✎
12:45
(28) Перем Дата Экспорт;
Перем Исполнитель Экспорт;
Перем ОтИсполнителя Экспорт;
Перем Адрес Экспорт;





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



                                        
                                                        
                                                    ////////////////////////////////////////////////////////    ////
                                                        
                                                        
    ТекВалюта = Выборка.Валюта;
    ТекВалютаПредставление = Выборка.ВалютаПредставление;
    Если НЕ ЗначениеЗаполнено(Выборка.Валюта) Тогда
        ТекВалюта = глЗначениеПеременной("глВалютаРегламентированногоУчета");    
        СтруктураРеквизитов = "";
        ПолучениеНСИ.ПолучитьРеквизитыПоСсылке(ТекВалюта, СтруктураРеквизитов, "НаименованиеПолное");
        ТекВалютаПредставление = "" + СтруктураРеквизитов.НаименованиеПолное;
    КонецЕсли;                                                        
    ОбластьМакетаШапка.Параметры.пВалюта = ТекВалютаПредставление;    
    
    

    
    
    
    
    
    
    
    
    
    
    ТабДокумент.Вывести(ОбластьМакетаШапка);
    
    ИтогСумма = 0;
    ИтогНДС   = 0;
    ИтогВсего = 0;
    
    ВыборкаУслуги = Выборка.Услуги.Выбрать();
    Пока ВыборкаУслуги.Следующий() Цикл
        ОбластьМакетаСтрока.Параметры.Заполнить(ВыборкаУслуги);
        ТабДокумент.Вывести(ОбластьМакетаСтрока);
        
        ИтогСумма = ИтогСумма + ВыборкаУслуги.пСумма;
        ИтогНДС   = ИтогНДС   + ВыборкаУслуги.СуммаНДС;
        ИтогВсего = ИтогВсего + ВыборкаУслуги.Всего;
    КонецЦикла;    
    
    ОбластьМакетаИтоги.Параметры.пИтогСумма = ИтогСумма;
    ОбластьМакетаИтоги.Параметры.пИтогНДС   = ИтогНДС;
    ОбластьМакетаИтоги.Параметры.пИтогВсего = ИтогВсего;
    
    ОбластьМакетаИтоги.Параметры.пТекстНДС = ?(Выборка.СуммаВключаетНДС, "В том числе НДС", "Итого НДС");
    ТабДокумент.Вывести(ОбластьМакетаИтоги);
    
    ОбластьМакетаПодвал.Параметры.Заполнить(Выборка);
    СтруктураИсполнительДоп = Новый Структура("ФамилияИсполнитель, ИмяИсполнитель, ОтчествоИсполнитель", "", "", "");
    ЗаполнитьЗначенияСвойств(СтруктураИсполнительДоп, Выборка);
    СтруктураИсполнитель = Новый Структура("Фамилия, Имя, Отчество", СтруктураИсполнительДоп.ФамилияИсполнитель, СтруктураИсполнительДоп.ИмяИсполнитель, СтруктураИсполнительДоп.ОтчествоИсполнитель);
    ОбластьМакетаПодвал.Параметры.ФИОИсполнитель = БухгалтерскийУчет.ФИО(СтруктураИсполнитель,Истина);
    
    ОбластьМакетаПодвал.Параметры.пИтогВсегоПрописью = ОбщегоНазначения.СформироватьСуммуПрописью(ИтогВсего, ТекВалюта);
    ОбластьМакетаПодвал.Параметры.пИтогНДСПрописью   = ОбщегоНазначения.СформироватьСуммуПрописью(ИтогНДС, ТекВалюта);
    
    ТабДокумент.Вывести(ОбластьМакетаПодвал);
КонецПроцедуры


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




Функция Печать(КоличествоЭкземпляров = 1, НаПринтер = Ложь) Экспорт
    ТабДокумент = ПечатьАкта();
    Возврат ТабДокумент;
    
КонецФункции // Печать
30 marvak
 
22.02.15
✎
12:49
(29)
Ты не понимаешь что ли?
ПолучитьДанные(Выборка.пЗаказчик, Дата, СтруктураРеквизитов) - вот ЭТУ процедуру, она в модуле ПолучениеНСИ должна быть.
31 Arlian
 
22.02.15
✎
12:56
(30) Если бы понимал, то не спрашивал бы. Я весь код обработки привел.
32 shuhard
 
22.02.15
✎
12:59
(31) продам отладчик, дорого (с)
33 Arlian
 
22.02.15
✎
12:59
Может у кого есть внешняя печатная форма акта об оказании услуг для БГУ 1.0 с адресом контрагента.
Выложите на инфостарт.
34 PR
 
22.02.15
✎
13:05
(30) Ты начинаешь понимать, да? :))
35 PR
 
22.02.15
✎
13:05
(33) А во встроенных нет что ли?
36 Arlian
 
22.02.15
✎
13:05
(34) Что именно?
37 Arlian
 
22.02.15
✎
13:06
(35) Нету
38 PR
 
22.02.15
✎
13:06
(36) Я не тебе написал
39 Arlian
 
22.02.15
✎
13:07
(38) Ясно
40 Arlian
 
22.02.15
✎
13:19
(30) Я понял:
ИначеЕсли ТипЗнч(ОбъектСсылка) = Тип("СправочникСсылка.Контрагенты") Тогда
        Для каждого КлючЗначениеБлока из СтруктураДанных Цикл
            ИмяБлока          = КлючЗначениеБлока.Ключ;
            СтруктураЗначений = КлючЗначениеБлока.Значение;
            
            Если ИмяБлока = "ДанныеКонтрагента" Тогда
                Контрагент_ДанныеКонтрагента(ОбъектСсылка, ДатаЗапроса, СтруктураЗначений);
            ИначеЕсли ИмяБлока = "ДопДанныеКонтрагента" Тогда
                Контрагент_ДопДанныеКонтрагента(ОбъектСсылка, ДатаЗапроса, СтруктураЗначений);
            ИначеЕсли ИмяБлока = "КИКонтрагента" Тогда
                Контрагент_КИКонтрагента(ОбъектСсылка, ДатаЗапроса, СтруктураЗначений);
            ИначеЕсли ИмяБлока = "УЛКонтрагента" Тогда
                Контрагент_УЛКонтрагента(ОбъектСсылка, ДатаЗапроса, СтруктураЗначений);
            КонецЕсли;    
            
            ДабавитьЗначенияВСтруктуруРезультат(СтруктураЗначений, мСтруктураРезультат);
        КонецЦикла;
41 Arlian
 
22.02.15
✎
13:22
(28) Целиком:

Функция ПолучитьДанные(ОбъектСсылка, Знач ДатаЗапроса, СтруктураДанных) Экспорт
    Перем мСтруктураРезультат;
    
    мСтруктураРезультат = Новый Структура;
    
    Если НЕ ЗначениеЗаполнено(ОбъектСсылка) Тогда
        Возврат Ложь;
    ИначеЕсли ТипЗнч(СтруктураДанных) <> Тип("Структура") Тогда
        Возврат Ложь;
    ИначеЕсли СтруктураДанных.Количество() = 0 Тогда
        Возврат Ложь;
    КонецЕсли;    
    
    Если НЕ ЗначениеЗаполнено(ДатаЗапроса) Тогда
        ДатаЗапроса = ТекущаяДата();
    КонецЕсли;    
    
    Если ТипЗнч(ОбъектСсылка) = Тип("СправочникСсылка.Организации") Тогда
        Для каждого КлючЗначениеБлока из СтруктураДанных Цикл
            ИмяБлока          = КлючЗначениеБлока.Ключ;
            СтруктураЗначений = КлючЗначениеБлока.Значение;
            
            Если ИмяБлока = "ДанныеУчреждения" Тогда
                Организация_ДанныеУчреждения(ОбъектСсылка, ДатаЗапроса, СтруктураЗначений);
            ИначеЕсли ИмяБлока = "КИУчреждения" Тогда
                Организация_КИУчреждения(ОбъектСсылка, ДатаЗапроса, СтруктураЗначений);
            ИначеЕсли ИмяБлока = "УчетнаяПолитика" Тогда
                Организация_УчетнаяПолитика(ОбъектСсылка, ДатаЗапроса, СтруктураЗначений);
            ИначеЕсли ИмяБлока = "ОтветственныеЛица" Тогда
                Организация_ОтветственныеЛица(ОбъектСсылка, ДатаЗапроса, СтруктураЗначений);
            КонецЕсли;    
            
            ДабавитьЗначенияВСтруктуруРезультат(СтруктураЗначений, мСтруктураРезультат);
        КонецЦикла;    
    ИначеЕсли ТипЗнч(ОбъектСсылка) = Тип("СправочникСсылка.Контрагенты") Тогда
        Для каждого КлючЗначениеБлока из СтруктураДанных Цикл
            ИмяБлока          = КлючЗначениеБлока.Ключ;
            СтруктураЗначений = КлючЗначениеБлока.Значение;
            
            Если ИмяБлока = "ДанныеКонтрагента" Тогда
                Контрагент_ДанныеКонтрагента(ОбъектСсылка, ДатаЗапроса, СтруктураЗначений);
            ИначеЕсли ИмяБлока = "ДопДанныеКонтрагента" Тогда
                Контрагент_ДопДанныеКонтрагента(ОбъектСсылка, ДатаЗапроса, СтруктураЗначений);
            ИначеЕсли ИмяБлока = "КИКонтрагента" Тогда
                Контрагент_КИКонтрагента(ОбъектСсылка, ДатаЗапроса, СтруктураЗначений);
            ИначеЕсли ИмяБлока = "УЛКонтрагента" Тогда
                Контрагент_УЛКонтрагента(ОбъектСсылка, ДатаЗапроса, СтруктураЗначений);
            КонецЕсли;    
            
            ДабавитьЗначенияВСтруктуруРезультат(СтруктураЗначений, мСтруктураРезультат);
        КонецЦикла;    
    ИначеЕсли ТипЗнч(ОбъектСсылка) = Тип("СправочникСсылка.Сотрудники") Тогда
        Для каждого КлючЗначениеБлока из СтруктураДанных Цикл
            ИмяБлока          = КлючЗначениеБлока.Ключ;
            СтруктураЗначений = КлючЗначениеБлока.Значение;
            
            Если ИмяБлока = "ДанныеСотрудника" Тогда
                Сотрудник_ДанныеСотрудника(ОбъектСсылка, ДатаЗапроса, СтруктураЗначений);
            ИначеЕсли ИмяБлока = "ДопДанныеСотрудникаФЛ" Тогда
                Сотрудник_ДопДанныеСотрудникаФЛ(ОбъектСсылка, ДатаЗапроса, СтруктураЗначений);
            ИначеЕсли ИмяБлока = "ДанныеСотрудникаФЛ" Тогда
                Сотрудник_ДанныеСотрудникаФЛ(ОбъектСсылка, ДатаЗапроса, СтруктураЗначений);
            ИначеЕсли ИмяБлока = "КИСотрудника" Тогда
                Сотрудник_КИСотрудника(ОбъектСсылка, ДатаЗапроса, СтруктураЗначений);
            ИначеЕсли ИмяБлока = "УЛКонтрагента" Тогда
                СтруктураРеквизитов = Новый Структура;
                СтруктураРеквизитов.Вставить("Контрагент");
                ПолучитьЗначенияРеквизитовСправочника(ОбъектСсылка, СтруктураРеквизитов);
                Контрагент_УЛКонтрагента(СтруктураРеквизитов.Контрагент, ДатаЗапроса, СтруктураЗначений);
            КонецЕсли;    
            
            ДабавитьЗначенияВСтруктуруРезультат(СтруктураЗначений, мСтруктураРезультат);
        КонецЦикла;    
    ИначеЕсли ТипЗнч(ОбъектСсылка) = Тип("СправочникСсылка.Договоры") Тогда
        Для каждого КлючЗначениеБлока из СтруктураДанных Цикл
            ИмяБлока          = КлючЗначениеБлока.Ключ;
            СтруктураЗначений = КлючЗначениеБлока.Значение;
            
            Если ИмяБлока = "ДанныеДоговора" Тогда
                Договор_ДанныеДоговора(ОбъектСсылка, ДатаЗапроса, СтруктураЗначений);
            ИначеЕсли ИмяБлока = "СуммаИСроки" Тогда
                Договор_СуммаИСроки(ОбъектСсылка, ДатаЗапроса, СтруктураЗначений);
            КонецЕсли;    
            
            ДабавитьЗначенияВСтруктуруРезультат(СтруктураЗначений, мСтруктураРезультат);
        КонецЦикла;    
        
    КонецЕсли;    
    
    СтруктураДанных = мСтруктураРезультат;
    Возврат Истина;
КонецФункции
42 GROOVY
 
22.02.15
✎
13:29
До полного шедевра не хватает описания процедур "Контрагент_*()"
43 PR
 
22.02.15
✎
13:32
Запасся попкорном, ветка обещает быть интересной :))