Добрый день.
Есть скоринговый web-service, есть кредитный конвейер в лотусе. Надо их как то связать. Видел примеры по выгрузке DXL во внешний файл, затем его считывание и тд.
В итоге связь с web-сервисом есть, ответ получаю. Теперь стоит задача выгрузить текущий документ в xml по определенной схеме и отправить его на этот сервис, соответственно потом получить ответ и импортировать его.
Есть
<div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">агент</div></div><div class="sp-body"><div class="sp-content">
При запуске выдает ошибку "XSL Transform operation failed" на шаге Call transform.Process().
Собственно вопрос: возможно ли в параметрах DXLExporter`a как аутпут указать XSLTransformer, и соответственно трансформеру как инпут указать експортер? Очень хочется сделать это без выгрузки во внешний файл. И правильно ли я пытаюсь сделать это через NotesStream?
PS: похожих тем много, но что то я не нашел там нужную инфу, так что прошу сильно не пинать. Меньше года занимаюсь лотусом, поэтому прошу указать конкретные ошибки и объяснить почему.
Есть скоринговый web-service, есть кредитный конвейер в лотусе. Надо их как то связать. Видел примеры по выгрузке DXL во внешний файл, затем его считывание и тд.
В итоге связь с web-сервисом есть, ответ получаю. Теперь стоит задача выгрузить текущий документ в xml по определенной схеме и отправить его на этот сервис, соответственно потом получить ответ и импортировать его.
Есть
<div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">агент</div></div><div class="sp-body"><div class="sp-content">
Код:
Dim filename As String
Dim file_out As String
Dim importer As NotesDXLImporter
Dim stream As NotesStream
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Sub Initialize
Dim s As New NotesSession
Dim w As New NotesUIWorkspace
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim transform As NotesXSLTransformer
Set db = s.CurrentDatabase
Set doc=w.Currentdocument.Document
Dim stream_in As NotesStream
Dim stream_out As NotesStream
Dim emptyStream As NotesStream
Set stream_in = s.CreateStream
Set stream_out = s.CreateStream
Set emptyStream= s.CreateStream
filename$ = "D:\svg2gfx-simple.xsl"
file_out$ = "d:\test.xml"
If Not stream_in.Open(filename$) Then
MessageBox "не могу открыть " & filename$,, "Error"
Exit Sub
End If
If Not stream_out.Open(file_out$) Then
MessageBox "Не могу открыть " & file_out$,, "Error"
Exit Sub
End If
Call emptyStream.Truncate
Dim exporter As NotesDXLExporter
Set exporter = s.CreateDXLExporter(doc, emptyStream)
Set transform=s.Createxsltransformer(emptyStream, stream_in, stream_out)
Call transform.Process()
End Sub
Собственно вопрос: возможно ли в параметрах DXLExporter`a как аутпут указать XSLTransformer, и соответственно трансформеру как инпут указать експортер? Очень хочется сделать это без выгрузки во внешний файл. И правильно ли я пытаюсь сделать это через NotesStream?
PS: похожих тем много, но что то я не нашел там нужную инфу, так что прошу сильно не пинать. Меньше года занимаюсь лотусом, поэтому прошу указать конкретные ошибки и объяснить почему.