Имя: Пароль:
1C
1С v8
Как при выгрузке реквизитов документа 1С в таблицу Word убрать все подчеркивание
0 skiff01
 
27.10.14
12:11
Функция ПолучитьДанныеПечати(ДокументСсылка, ИмяМакета) Экспорт
    
    Возврат Новый Структура("Данные,Макеты",
                ПолучитьДанныеОбъектаПоМакетам(ДокументСсылка, ИмяМакета),
                ПолучитьМакетыИОписанияСекций(ИмяМакета));
    
КонецФункции

Функция ПолучитьДанныеОбъектаПоМакетам(знач ДокументСсылка, знач ИмяМакета) Экспорт
    
    ПаспортПроекта = ПолучитьПаспортПроекта(ДокументСсылка);
    КТОПроекта        = ПолучитьКТОПроекта(ДокументСсылка);
    //СпрПроект = Справочники.Лизинг_Проекты.НайтиПоРеквизиту("ДО_ЗаключениеДПА", ДокументСсылка);
    СпрПроект = ДокументСсылка.Проект;
    ДПЭРЛ = ПолучитьДПЭРЛПроекта(ДокументСсылка);
    СтруктураКонтрагента = ПолучитьДанныеПолизингополучателю(СпрПроект.Контрагент);
    
    ДанныеПоВсемОбъектам = Новый Соответствие;
    
    ДанныеОбъекта = Новый Структура;
    
    ДанныеОбъекта.Вставить("FormaMP", ?(ПаспортПроекта=Неопределено, "", ПаспортПроекта.ФормаМедПомощи));

    ДанныеОбъекта.Вставить("License", ?(СпрПроект.ДО_ЭкспертизаДЮКР.Лицензия.Количество() = 0, "",
    СпрПроект.ДО_ЭкспертизаДЮКР.Лицензия[0].РазрешительныйДокумент));

    ДанныеОбъекта.Вставить("DataDoc",     Формат(ДокументСсылка.Дата, "ДФ=dd.MM.yyyy"));
    ДанныеОбъекта.Вставить("GOMBP",       Формат(ДокументСсылка.СуммаГОБМППоГодам, "ЧЦ=15; ЧДЦ=2"));
    ДанныеОбъекта.Вставить("NameOZ",      СпрПроект.Контрагент.НаименованиеПолное);
    ДанныеОбъекта.Вставить("AdressKontr", СтруктураКонтрагента.ФактическийАдрес);
    ДанныеОбъекта.Вставить("RukovodOZ",   "" + СтруктураКонтрагента.ФИОПервогоЛица);// +
                           //", моб. "            + СтруктураКонтрагента.МобильныйТелефонОтветственного +
                           //", e-mail: "        + СтруктураКонтрагента.ЕмейлОтветственного);
    
    
    ДанныеОбъекта.Вставить("OtvetstvPoPro",СтруктураКонтрагента.ФИОРеализация);
                  
    ДанныеОбъекта.Вставить("TRows", Новый Массив);
    ДанныеОбъекта.Вставить("TRows120", Новый Массив);
1 Sinoptic
 
27.10.14
12:13
Где здесь подчеркивания?
2 skiff01
 
27.10.14
12:16
здесь нету но в уорде все данные в таблице заполняться с нижними подчеркиваниями
пример
дата   __13.10.2014г.
наименование  __магазин
3 Sinoptic
 
27.10.14
12:30
(2) У блин, загляни в шаблон Wordа и посмотри, а не стоят ли в этих местах, где должны быть данные из 1С по умолчанию подчеркивания. Скорее всего там метка стоит после подчеркивания типа: __[DataDoc]
4 skiff01
 
27.10.14
12:59
у меня так такого шаблона нету а макет в типе двоичный тип в уордскый документ формируется в коде
5 skiff01
 
27.10.14
13:11
а можно сделать так чтобы в структуре они хранились без подчеркивания как программа это написать когда строку вставляют в структуру