Правильно ли я понимаю(создание xml и передача на сервер)?
#37782481
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
Участник
Откуда: Донецк
Сообщения: 743
|
|
Разобралась. Если кому пригодится - вот работающий вариант:
1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. 49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. 63. 64. 65. 66. 67. 68. 69. 70. 71. 72. 73. 74. 75. 76. 77. 78. 79. 80. 81. 82. 83. 84. 85. 86. 87. 88. 89. 90. 91. 92. 93. 94. 95. 96. 97. 98. 99. 100. 101. 102. 103. 104. 105. 106. 107. 108. 109. 110. 111. 112. 113. 114. 115. 116. 117. 118. 119. 120. 121. 122. 123. 124. 125. 126. 127. 128. 129. 130. 131. 132. 133. 134. 135. 136. 137. 138. 139. 140. 141. 142. 143. 144.
function begin_all()
{
//создание обьектов
try
{
var objNotesSession = new ActiveXObject("Notes.NotesSession");
/////////////var objNotesSession = new ActiveXObject("Lotus.NotesSession");
///domSession.Initialize ("")
/////objNotesSession.Initialize("парол");
var ndb = objNotesSession.GetDatabase("s3donetsk/donetsk/UKRZAL", "Medical/Donzal.nsf")
}
catch (e)
{
LogMessage("Ошибка создания объектов",true);
LogMessage(e.description,false);
AbnormalExit();
}
GetDovidnyk(ndb);
}
////////////////////////////////////////////////
function GetDovidnyk(ndb)
{
//создаем объект XMLDOMDocument
var xmlDoc = new ActiveXObject("Msxml2.DOMDocument");
//создаем узел верхнего уровня
var rootNode;
rootNode = xmlDoc.createElement("ROOT");
xmlDoc.documentElement = rootNode;
var dcoll = ndb.GetView("MDAll");
var vc = dcoll.AllEntries;
var curDoc = dcoll.GetFirstDocument;
var i = 0,vItem,v_name_out;
while (curDoc )//Is Nothing)
{
//создаем два узла второго уровня и добавляем к дереву
var element1 = xmlDoc.createElement("ELEMENT" + i);
////!!!!!!!!
rootNode.appendChild(element1);
vItem = curDoc.GetFirstItem("MDDuty");// должность
//добавляем в каждый узел атрибуты
/////element1.setAttribute("attribute1","value1");
element1.setAttribute("MDDuty",vItem.Text);
//добавляем текст в узлы
vItem = curDoc.GetFirstItem("MDfirst");// имя
if (vItem != null) element1.setAttribute("MDfirst",vItem.Text);
vItem = curDoc.GetFirstItem("MDlast");//фамилия
if (vItem != null) element1.setAttribute("MDlast",vItem.Text);
vItem = curDoc.GetFirstItem("MDmiddl"); // отчество
if (vItem != null) element1.setAttribute("MDmiddl",vItem.Text);
vItem = curDoc.GetFirstItem("nazvaPP");// наименование предприятия
if (vItem != null) element1.setAttribute("nazvaPP",vItem.Text);
vItem = curDoc.GetFirstItem("abbrPP");// аббревиатура предприятия
if (vItem != null) element1.setAttribute("abbrPP",vItem.Text);
vItem = curDoc.GetFirstItem("slugb");// наименование службы
if (vItem != null) element1.setAttribute("slugb",vItem.Text);
vItem = curDoc.GetFirstItem("slugb_abbr");// аббревиатура службы
if (vItem != null) element1.setAttribute("slugb_abbr",vItem.Text);
vItem = curDoc.GetFirstItem("Ksp");// Служба подразделение 1 уровня
if (vItem != null) element1.setAttribute("Ksp",vItem.Text);
vItem = curDoc.GetFirstItem("Ksec");// подразделение 2 уровня
if (vItem != null) element1.setAttribute("Ksec",vItem.Text);
vItem = curDoc.GetFirstItem("Kbrg");// подразделение 3 уровня
if (vItem != null) element1.setAttribute("Kbrg",vItem.Text);
vItem = curDoc.GetFirstItem("Kbrg2");// подразделение 4 уровня
if (vItem != null) element1.setAttribute("Kbrg2",vItem.Text);
vItem = curDoc.GetFirstItem("KTabNum");// табельный №
if (vItem != null) element1.setAttribute("KTabNum",vItem.Text);
vItem = curDoc.GetFirstItem("MDsex");// пол
if (vItem != null) element1.setAttribute("MDsex",vItem.Text);
vItem = curDoc.GetFirstItem("KBDate_1");// дата рождения
if (vItem != null) element1.setAttribute("KBDate_1",vItem.Text);
vItem = curDoc.GetFirstItem("Kqyr");// возраст
if (vItem != null) element1.setAttribute("Kqyr",vItem.Text);
vItem = curDoc.GetFirstItem("MDdate");// Дата останнього проходження медогляду
if (vItem != null) element1.setAttribute("MDdate",vItem.Text);
vItem = curDoc.GetFirstItem("MDdateP");// Дата наступного проходження медогляду
if (vItem != null) element1.setAttribute("MDdateP",vItem.Text);
vItem = curDoc.GetFirstItem("MDdaten");// Дата початку компанії медогляду
if (vItem != null) element1.setAttribute("MDdaten",vItem.Text);
vItem = curDoc.GetFirstItem("DateP1_1");// Дата закінчення компанії медогляду:
if (vItem != null) element1.setAttribute("DateP1_1",vItem.Text);
vItem = curDoc.GetFirstItem("MDdatek");// Дата фактичного проходження медогляду
if (vItem != null) element1.setAttribute("MDdatek",vItem.Text);
curDoc = dcoll.GetNextDocument(curDoc);
i = i + 1;
};
alert(xmlDoc.xml);
SaveTextData("c://xmlDoc.xml" , xmlDoc.xml );
};
////////////////////////////////////////////////
function SaveTextData(FileName , Datta )
{
if(Datta!== null)
{
try
{
var ADODBStreamObject = new ActiveXObject("ADODB.Stream");
try
{
ADODBStreamObject.Type = 2;//1;
ADODBStreamObject.Open;
ADODBStreamObject.WriteText (Datta);
ADODBStreamObject.savetofile (FileName.toString(), 2);
alert("Файл xml успешно записан и расположен тут:" + FileName );
}
catch(e)
{
alert(e.name + ': ' + e.message);
};
}
catch(e)
{
alert(e.name + ': ' + e.message);
};
}
else
{
alert("Файл " + FileName + " отсутствует в базе!!");
}
};
function LogMessage(MsgText,ShowOnScreen)
{
WScript.Echo(MsgText);
}
///////////////////////////////////////////////
function AbnormalExit()
{
LogMessage("Выполнение аварийно завершено");
WScript.Quit(13);
}
Теперь бы ещё добиться, чтобы он пароль не спрашивал... Если объект Notes.NotesSession- работает, но спрашивает. Если заменить на объект Lotus.NotesSession- пароль не спрашивает и не работает: методы дальше по тексту за свои не признаёт. Грустно.
|
|