Помогите изменить данные

[Dimonxsl]

Здравствуйте друзья! Искал, искал я в сети решение вопроса, да те что нашел не помогают.
Нужно мне изменить Грузоотправителя с "он же" на сокращенное название+юридический адрес.
Как я не пробовал, ничего не выходит. И переменные ставил и вручную адрес набирал - результат нулевой.
Помогите, что и где нужно поменять?

Код Выделить Развернуть

Функция ПечатьСчетаФактуры(ДанныеДляПечати) Экспорт

ТабДокумент = Новый ТабличныйДокумент;

Если Дата < '20090609' Тогда
ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_СчетФактураВыданный_СчетФактура283";
Макет = ПолучитьОбщийМакет("СчетФактура283");
Иначе
ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_СчетФактураВыданный_СчетФактура451";
Макет = ПолучитьОбщийМакет("СчетФактура451");
КонецЕсли;

СведенияОбПокупателе = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(ДанныеДляПечати.Покупатель, Дата);
СведенияОПоставщике  = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(ДанныеДляПечати.Поставщик, Дата);
СведенияОГрузоотправителе = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(?(ДанныеДляПечати.Грузоотправитель = "он же", Неопределено, ДанныеДляПечати.Грузоотправитель), Дата);
СведенияОГрузополучателе  = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(ДанныеДляПечати.Грузополучатель, Дата);
// Выводим шапку
ОбластьМакета = Макет.ПолучитьОбласть("Шапка");
ОбластьМакета.Параметры.Заполнить(ДанныеДляПечати);
ЗаголовокДляПечати = ОбщегоНазначения.СформироватьЗаголовокДокумента(ДанныеДляПечати, "Счет-фактура");
ОбластьМакета.Параметры.Номер = ЗаголовокДляПечати;

Если ДанныеДляПечати.Свойство("АдресДоставки")
И НЕ ПустаяСтрока(ДанныеДляПечати.АдресДоставки) Тогда
ПредставлениеГрузополучателя = "Грузополучатель и его адрес: "
+ ?(НЕ ЗначениеЗаполнено(ДанныеДляПечати.Грузополучатель),
ДанныеДляПечати.АдресДоставки,
ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОГрузополучателе, "НаименованиеДляПечатныхФорм") + ", " + ДанныеДляПечати.АдресДоставки);
Иначе
ПредставлениеГрузополучателя = "Грузополучатель и его адрес: "
+ ?(НЕ ЗначениеЗаполнено(ДанныеДляПечати.Грузополучатель),
"",
ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОГрузополучателе, "НаименованиеДляПечатныхФорм, ФактическийАдрес,"));
КонецЕсли;

Если Дата < '20090609'
ИЛИ ВидСчетаФактуры = Перечисления.ВидСчетаФактурыВыставленного.НалоговыйАгент Тогда
ОбластьМакета.Параметры.ПредставлениеПоставщика = "Продавец: "
+ ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПоставщике, "НаименованиеДляПечатныхФорм,");
Иначе
ОбластьМакета.Параметры.ПредставлениеПоставщика = "Продавец: "
+ ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПоставщике, "ПолноеНаименование,");
СокращенноеНаименование = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПоставщике, "СокращенноеНаименование,", Ложь);
Если НЕ ПустаяСтрока(СокращенноеНаименование) Тогда
ОбластьМакета.Параметры.ПредставлениеПоставщика = ОбластьМакета.Параметры.ПредставлениеПоставщика + " (" + СокращенноеНаименование + ")";
КонецЕсли;
КонецЕсли;

ОбластьМакета.Параметры.АдресПоставщика = "Адрес: " + ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПоставщике, "ЮридическийАдрес,");

Если НЕ (ВидСчетаФактуры = Перечисления.ВидСчетаФактурыВыставленного.НалоговыйАгент
И ДоговорКонтрагента.ВидАгентскогоДоговора = Перечисления.ВидыАгентскихДоговоров.Нерезидент) Тогда

КПП = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПоставщике, "КПП,", Ложь);
Если ЗначениеЗаполнено(КПП) Тогда
КПП = "/" + КПП;
КонецЕсли;
ОбластьМакета.Параметры.ИННпоставщика = "ИНН/КПП продавца: "
+ ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПоставщике, "ИНН,", Ложь) + КПП;

Иначе
ОбластьМакета.Параметры.ИННпоставщика = "ИНН/КПП продавца: "
КонецЕсли;

ОбластьМакета.Параметры.ПредставлениеГрузоотправителя = "Грузоотправитель и его адрес: "+
+ ?(НЕ ЗначениеЗаполнено(ДанныеДляПечати.Грузоотправитель),
"",
?(ДанныеДляПечати.Грузоотправитель = "он же",
ДанныеДляПечати.Грузоотправитель,
ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОГрузоотправителе,  "НаименованиеДляПечатныхФорм,ФактическийАдрес,")));


[Dimonxsl]

Извините, что то с форматированием.

Функция ПечатьСчетаФактуры(ДанныеДляПечати) Экспорт
   
   ТабДокумент = Новый ТабличныйДокумент;

   Если Дата < '20090609' Тогда
      ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_СчетФактураВыданный_СчетФактура283";
      Макет = ПолучитьОбщийМакет("СчетФактура283");
   Иначе
      ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_СчетФактураВыданный_СчетФактура451";
      Макет = ПолучитьОбщийМакет("СчетФактура451");
   КонецЕсли;
   
   СведенияОбПокупателе = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(ДанныеДляПечати.Покупатель, Дата);
   СведенияОПоставщике  = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(ДанныеДляПечати.Поставщик, Дата);
   СведенияОГрузоотправителе = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(?(ДанныеДляПечати.Грузоотправитель = "он же", Неопределено, ДанныеДляПечати.Грузоотправитель), Дата);
   СведенияОГрузополучателе  = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(ДанныеДляПечати.Грузополучатель, Дата);
   // Выводим шапку
   ОбластьМакета = Макет.ПолучитьОбласть("Шапка");
   ОбластьМакета.Параметры.Заполнить(ДанныеДляПечати);
   ЗаголовокДляПечати = ОбщегоНазначения.СформироватьЗаголовокДокумента(ДанныеДляПечати, "Счет-фактура");
   ОбластьМакета.Параметры.Номер = ЗаголовокДляПечати;
   
   Если ДанныеДляПечати.Свойство("АдресДоставки")
      И НЕ ПустаяСтрока(ДанныеДляПечати.АдресДоставки) Тогда
      ПредставлениеГрузополучателя = "Грузополучатель и его адрес: "
         + ?(НЕ ЗначениеЗаполнено(ДанныеДляПечати.Грузополучатель),
         ДанныеДляПечати.АдресДоставки,
         ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОГрузополучателе, "НаименованиеДляПечатныхФорм") + ", " + ДанныеДляПечати.АдресДоставки);
   Иначе
      ПредставлениеГрузополучателя = "Грузополучатель и его адрес: "
         + ?(НЕ ЗначениеЗаполнено(ДанныеДляПечати.Грузополучатель),
         "",
         ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОГрузополучателе, "НаименованиеДляПечатныхФорм, ФактическийАдрес,"));
   КонецЕсли;

   Если Дата < '20090609'
      ИЛИ ВидСчетаФактуры = Перечисления.ВидСчетаФактурыВыставленного.НалоговыйАгент Тогда
      ОбластьМакета.Параметры.ПредставлениеПоставщика = "Продавец: "
         + ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПоставщике, "НаименованиеДляПечатныхФорм,");
   Иначе
      ОбластьМакета.Параметры.ПредставлениеПоставщика = "Продавец: "
         + ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПоставщике, "ПолноеНаименование,");
      СокращенноеНаименование = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПоставщике, "СокращенноеНаименование,", Ложь);
      Если НЕ ПустаяСтрока(СокращенноеНаименование) Тогда
         ОбластьМакета.Параметры.ПредставлениеПоставщика = ОбластьМакета.Параметры.ПредставлениеПоставщика + " (" + СокращенноеНаименование + ")";
      КонецЕсли;
   КонецЕсли;
   
   ОбластьМакета.Параметры.АдресПоставщика = "Адрес: " + ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПоставщике, "ЮридическийАдрес,");
   
   Если НЕ (ВидСчетаФактуры = Перечисления.ВидСчетаФактурыВыставленного.НалоговыйАгент
      И ДоговорКонтрагента.ВидАгентскогоДоговора = Перечисления.ВидыАгентскихДоговоров.Нерезидент) Тогда
      
      КПП = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПоставщике, "КПП,", Ложь);
      Если ЗначениеЗаполнено(КПП) Тогда
         КПП = "/" + КПП;
      КонецЕсли;
      ОбластьМакета.Параметры.ИННпоставщика = "ИНН/КПП продавца: "
         + ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПоставщике, "ИНН,", Ложь) + КПП;
         
   Иначе
      ОбластьМакета.Параметры.ИННпоставщика = "ИНН/КПП продавца: "
   КонецЕсли;
      
   ОбластьМакета.Параметры.ПредставлениеГрузоотправителя = "Грузоотправитель и его адрес: "+
      + ?(НЕ ЗначениеЗаполнено(ДанныеДляПечати.Грузоотправитель),
      "",
      ?(ДанныеДляПечати.Грузоотправитель = "он же",
         ДанныеДляПечати.Грузоотправитель,
         ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОГрузоотправителе,  "НаименованиеДляПечатныхФорм,ФактическийАдрес,")));

[Dethmontt]

Нужно смотреть где заполняются "ДанныеДляПечати"

[AntonB]

Делал на другой конфигурации. Попробуйте вот так (заменить абзац в самом конце Вашего фрагмента):

Код Выделить Развернуть


ОбластьМакета.Параметры.ПредставлениеГрузоотправителя = "Грузоотправитель и его адрес: "+
ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПоставщике,  "СокращенноеНаименование,ЮридическийАдрес,");


[Dimonxsl]

AntonB, Спасибо огромнейшее!!!! Все получилось - то что нужно!!!!