Выгрузка в HTML
17.02.2010
13:56
#21
"> XMLАнализатор = СоздатьОбъект("AddIn.XMLParser");
> {Обработка.HTML.Форма.Модуль(5)}: Неудачная попытка создания объекта (AddIn.XMLParser)
>
> наверное v7plus.dll не сильно свежая (7.70.0.1)
так её надо зарегить + загрузить !"
> {Обработка.HTML.Форма.Модуль(5)}: Неудачная попытка создания объекта (AddIn.XMLParser)
>
> наверное v7plus.dll не сильно свежая (7.70.0.1)
так её надо зарегить + загрузить !"
17.02.2010
14:26
#22
скачал 7.70.0.11
зарегил
загрузил
не работает!
или ее нужно загружать при начале работы системы а не в обработке?
зарегил
загрузил
не работает!
или ее нужно загружать при начале работы системы а не в обработке?
17.02.2010
14:32
#23
> скачал 7.70.0.11
> зарегил
> загрузил
> не работает!
> или ее нужно загружать при начале работы системы а не в обработке?
В ОБРАБОТКЕ ДОСТАТОЧНО !!!
у меня ж всё работает
> зарегил
> загрузил
> не работает!
> или ее нужно загружать при начале работы системы а не в обработке?
В ОБРАБОТКЕ ДОСТАТОЧНО !!!
у меня ж всё работает
17.02.2010
16:12
#28
"+ что возращает ЗагрузитьВнешнююКомпоненту(КаталогПрограммы()+"v7plus.dll"); ???"
17.02.2010
16:33
#29
"да, 2003
на ЗагрузитьВнешнююКомпоненту(КаталогПрограммы()+"v7plus.dll") не ругается
а тут ругается
XMLАнализатор = СоздатьОбъект("AddIn.XMLParser");
{Обработка.HTML.Форма.Модуль(5)}: Неудачная попытка создания объекта (AddIn.XMLParser)"
на ЗагрузитьВнешнююКомпоненту(КаталогПрограммы()+"v7plus.dll") не ругается
а тут ругается
XMLАнализатор = СоздатьОбъект("AddIn.XMLParser");
{Обработка.HTML.Форма.Модуль(5)}: Неудачная попытка создания объекта (AddIn.XMLParser)"
17.02.2010
16:49
#30
"так работает / что выведет???
Функция НайтиПервыйСуществующийФайл(СписокВозможныхМест)
Для Сч = 1 По СписокВозможныхМест.РазмерСписка() Цикл
ПолноеИмя = СписокВозможныхМест.ПолучитьЗначение(Сч);
Если Фс.СуществуетФайл(ПолноеИмя) = 1 Тогда Возврат(ПолноеИмя) КонецЕсли;
КонецЦикла;
Возврат("""");
КонецФункции
Процедура Сформировать()
СписокВозможныхМест = СоздатьОбъект("СписокЗначений");
СписокВозможныхМест.ДобавитьЗначение( КаталогИБ() + "v7plus.dll" );
СписокВозможныхМест.ДобавитьЗначение( КаталогПрограммы() + "v7plus.dll" );
СписокВозможныхМест.ДобавитьЗначение( КаталогИБ() + "ExtForms\" + "v7plus.dll" );
гПутьОбъекта_КомпонентаV7plus = НайтиПервыйСуществующийФайл(СписокВозможныхМест);
Если ПустаяСтрока(гПутьОбъекта_КомпонентаV7plus)=1 Тогда
Сообщиь("не найдена компонента!!!");
КонецЕсли;
Если ЗагрузитьВнешнююКомпоненту(гПутьОбъекта_КомпонентаV7plus) <> 1 Тогда
сообщить("Компонента v7plus.dll не найдена!");
СтатусВозврата(0); Возврат;
КонецЕсли;
XMLАнализатор = СоздатьОбъект("AddIn.XMLParser");
ДанныеXML = XMLАнализатор.СоздатьДокумент();
ШапкаXML=ДанныеXML.СоздатьПодчиненныйЭлемент("html");
ТелоXML=ШапкаXML.СоздатьПодчиненныйЭлемент("body");
Спр=СоздатьОбъект("Справочник.Номенклатура");
Спр.ВыбратьЭлементы(0);
Пока Спр.ПолучитьЭлемент(1)=1 Цикл
p=ТелоXML.СоздатьПодчиненныйЭлемент("p");
p.Значение = СокрЛП(Спр.Наименование);
КонецЦикла;
ДанныеXML.Записать("test.html");
КонецПроцедуры"
Функция НайтиПервыйСуществующийФайл(СписокВозможныхМест)
Для Сч = 1 По СписокВозможныхМест.РазмерСписка() Цикл
ПолноеИмя = СписокВозможныхМест.ПолучитьЗначение(Сч);
Если Фс.СуществуетФайл(ПолноеИмя) = 1 Тогда Возврат(ПолноеИмя) КонецЕсли;
КонецЦикла;
Возврат("""");
КонецФункции
Процедура Сформировать()
СписокВозможныхМест = СоздатьОбъект("СписокЗначений");
СписокВозможныхМест.ДобавитьЗначение( КаталогИБ() + "v7plus.dll" );
СписокВозможныхМест.ДобавитьЗначение( КаталогПрограммы() + "v7plus.dll" );
СписокВозможныхМест.ДобавитьЗначение( КаталогИБ() + "ExtForms\" + "v7plus.dll" );
гПутьОбъекта_КомпонентаV7plus = НайтиПервыйСуществующийФайл(СписокВозможныхМест);
Если ПустаяСтрока(гПутьОбъекта_КомпонентаV7plus)=1 Тогда
Сообщиь("не найдена компонента!!!");
КонецЕсли;
Если ЗагрузитьВнешнююКомпоненту(гПутьОбъекта_КомпонентаV7plus) <> 1 Тогда
сообщить("Компонента v7plus.dll не найдена!");
СтатусВозврата(0); Возврат;
КонецЕсли;
XMLАнализатор = СоздатьОбъект("AddIn.XMLParser");
ДанныеXML = XMLАнализатор.СоздатьДокумент();
ШапкаXML=ДанныеXML.СоздатьПодчиненныйЭлемент("html");
ТелоXML=ШапкаXML.СоздатьПодчиненныйЭлемент("body");
Спр=СоздатьОбъект("Справочник.Номенклатура");
Спр.ВыбратьЭлементы(0);
Пока Спр.ПолучитьЭлемент(1)=1 Цикл
p=ТелоXML.СоздатьПодчиненныйЭлемент("p");
p.Значение = СокрЛП(Спр.Наименование);
КонецЦикла;
ДанныеXML.Записать("test.html");
КонецПроцедуры"
Выгрузка из УТ 8.1 в Бух 8.1 через план обмена.Не округляются суммы Удержания по исполнительному листу
Читают тему
(гостей: 1)