Как сделать выгрузку в текстовые файлы - NAV: Программирование

VasVovec · 02.12.2009, 16:03

Необходимо реализовать сабж, чтобы в результате вызова процедуры создавался текстовый файл в формате csv.
Сейчас из этой процедуры в качестве уведомления создается и отправляется E-mail c помощью jmail.dll
Надо создавать файл на сервере и в конце в E-mail добавлять ссылку на этот файл.
Процедура эта у меня работает на Navision Application Server'е.
С помощью чего (может какой-то Automation) можно создавать и записывать в текстовый файл?
Предварительно попробовал погуглить, не помогло.

apanko · 02.12.2009, 16:21

Цитата:

Сообщение от VasVovec

Необходимо реализовать сабж, чтобы в результате вызова процедуры создавался текстовый файл в формате csv.
Сейчас из этой процедуры в качестве уведомления создается и отправляется E-mail c помощью jmail.dll
Надо создавать файл на сервере и в конце в E-mail добавлять ссылку на этот файл.
Процедура эта у меня работает на Navision Application Server'е.
С помощью чего (может какой-то Automation) можно создавать и записывать в текстовый файл?
Предварительно попробовал погуглить, не помогло.

Можно конечно и Automation, но я бы сперва попробовал с помощью стандартного типа file.

Например как здесь: http://forum.mazzy.ru/index.php?showtopic=9351

VasVovec · 03.12.2009, 09:54

Самое оно

спасибо

Yakuza · 03.12.2009, 10:48

Да-да, через Codeunit. Преимущество перед датапортом у меня проявилось в том, что при выгрузке объемных таблиц возникала ошибка переполнения буфера. А через код - без проблем.

alexb_imported · 04.12.2009, 23:01

Цитата:

Да-да, через Codeunit. Преимущество перед датапортом у меня проявилось в том, что при выгрузке объемных таблиц возникала ошибка переполнения буфера. А через код - без проблем.

Это известный баг в датапорте. Если Вы поставите в датапорте property "ShowStatus"=No, то отработает нормально.
ShowStatus

Storkich · 11.12.2009, 16:59

Скрипт процедуры на VBS для смены кодировки

Код:

Sub DosToWIN ( FileDos, FileWin)
  ' Меняю кодировку 
  Set ADODBStream = CreateObject("ADODB.Stream")
  ADODBStream.Type = 2
  ADODBStream.Charset = "IBM866"
  ADODBStream.Open()
  ADODBStream.LoadFromFile(FileDos)
  Text = ADODBStream.ReadText()
  ADODBStream.Close()
  ADODBStream.Charset = "windows-1251"
  ADODBStream.Open()
  ADODBStream.WriteText(Text)
  ADODBStream.SaveToFile FileWin , 2
  ADODBStream.Close()
end Sub