1
IBM Lotus Notes & Domino / Буфер обмена Lotus vs RDP
« : 25 Апрель 2014, 01:34:29 »
С 9-ой версией та же проблема...
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
WARNING (0): The NSD service is required on this operating system and must be installed and started
to enable NSD processing. Because of this requirement, the current NSD log
may contain errors, warnings and missing data. See nsd -help for more
information about installing NSD service using -svcinst and -svcstart options.
Host Name : AK
User Name : система
Date : Fri Jan 17 01:35:22 2014
Windows Dir : C:\Windows
Arguments : "D:\Alfakit\Domino\nsd.exe" -dumpandkill -termstatus 1 -nomemcheck -shutdownhang -crashpid 6960 -crashtid 3976 -runtime 600
NSD Version : 8.5.34.2283 (Release 8.5.3FP4)
OS Version : Windows/2008 R2 6.1 [64-bit] (Build 7600), PlatID=2, (8 Processors)
Build time : Thu Mar 28 02:30:10 2013
Latest file mod : Wed Oct 10 09:30:39 2012
Domino Version : Release 8.5.3FP4 (64-bit server)
Keyview Version : 10.8.0.0
ERROR (44): unable to open file 'D:\Alfakit\Domino\framework\rcp\rcplauncher.properties' - (2) No such file or directory
ERROR (0): Couldn't open the rcplauncher.properties file using the path D:\Domino\framework\rcp\rcplauncher.properties to locate the workspace directory.
<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@>
Section: System Data -> OS Process Table (Time 01:35:24)
Set xmldoc = CreateObject("Msxml.DOMDocument")
If xmldoc Is Nothing Then
Messagebox "При запросе курсов валют с сайта произошла ошибка. Обратитесь к администратору."
Exit Function
End If
' заполняем список курсов валют
xmldoc.async = False
url_request=URL_Common_Prefix$ & URL_Daily_Prefix$ & "?date_req=" & Format(Today, "dd/mm/yyyy")
If monthly="1" Then url_request=url_request & "&d=1"
If xmldoc.Load(url_request) Then 'запрос к ЦБ
Set NodeList = xmldoc.selectNodes("*/Valute")
For i=0 To NodeList.length - 1
Set xmlNode = NodeList.Item(i).cloneNode(True)
cur_t = xmlNode.childNodes(1).Text ' currency type
Factor = Clng( xmlNode.childNodes(2).Text ) ' nominal
Value = Cdbl(xmlNode.childNodes(4).Text ) ' value
RatesList(cur_t) = Value / Factor
Next
End If
Set xmldoc = Nothing