G
Guest
Формирую в 1С такой запрос, проверей в Lotus отрабатывает на ура, а через OLE не в какую :angry:
MSScript.language= "vbscript";
Текст= "
|Function GetStatusOfDoc()
| Set Session= CreateObject(""Notes.NotesSession"")
| Set DB = Session.GetDatabase( """ + БД.Сервер.Наименование + """, """ + БД.Наименование + """)
| Set Doc= DB.GetDocumentByUNID("""+ LNDocACC + """)
| GetStatusOfDoc = Doc.ContractStatus(0)
|End Function";
GLM= MSScript.Run("GetStatusOfDoc");
MSScript.language= "vbscript";
Текст= "
|Function GetStatusOfDoc()
| Set Session= CreateObject(""Notes.NotesSession"")
| Set DB = Session.GetDatabase( """ + БД.Сервер.Наименование + """, """ + БД.Наименование + """)
| Set Doc= DB.GetDocumentByUNID("""+ LNDocACC + """)
| GetStatusOfDoc = Doc.ContractStatus(0)
|End Function";
GLM= MSScript.Run("GetStatusOfDoc");