Msgbox в ВЕБ

[wowa]

КАк сделать в ВЕБе Msgbox ???
Как я понимаю это возможно с помощью Alert
Вот только как его присобачить, например был код в Лотусе

if ( бла-бла-бла ) then
Msgbox "бла"
End if

Помогите кто знает как это лучше всего реализовать

 

[dmytro.pastovenskyi]

if ( бла-бла-бла ) then
alert("бла");
End if

или что то не так понял?

 

[wowa]

dmytro.pastovenskyi
что-то я в Лотус Скрипте не видел Alert

 

[morpheus]

это JavaScript

 

[wowa]

Morpheus , я понимаю... только что-то допетрить не могу как сделать, на подобие лотусовского MsgBox, в Веб....
т.е. У меня идет код на LS, потом если что-то нужно сообщить то выдать сообщение.. Как это сделать?

 

[valmont]

wowa тогда поподробнее что где как оно у тебя идет на LS и что ты хочешь выдать для информации?
как вариант, если хочешь типа сообщении о не заполненном поле, тогда уж JS в руки и в перед.
но как вариант, в агенте (после его работы) можешь открывать этот же документ, но через параметры передавать нужную инфу, а потом уже обрабатывать и отображать.
1. делаешь вычисляемое поле, куда попадают твои параметры
2. делаешь компутед текст где расшифровываешь эти параметры

 

[wowa]

valmont ,
Есть форма поиска...Нажимаю на кнопку "поиск" ... Идет поиск документов, если документы не найдены, то выдать сообщение

	If ( dcCollection.Count = 0 ) Then......................

 

[wowa]

Вот кусок кода на LS

......................
'осуществляется поиск 
Set dcCollection = db.FTSearch( StSearch , 0, FT_SCORES ) 
If ( dcCollection.Count = 0 ) Then
MsgBox "Поиск не дал результатов!",48,"Внимание"
Exit Function
End If
..............................................................

 

[Sandr]

wowa

'осуществляется поиск 
Set dcCollection = db.FTSearch( StSearch , 0, FT_SCORES ) 
If ( dcCollection.Count = 0 ) Then
Print {<script> alert("Поиск не дал результатов!") </script>}
Exit Function
End If

..............................................................

 

[wowa]

Sandr , спасибо, получилось... Но есть проблемка, загрузилась пустая страница,.. можно чтобы она не загружалась, а осталась предыдущая??... Можно это как-н избежать?

 

[Sandr]

wowa

Вот так тогда:

Print |<script> alert("Поиск не дал результатов!"); 
window.document.location = '/| & Replace(db.filepath, "\", "/") & |/0/| & doc.universalID & |?EditDocument';
</script>|

Предупреждаю, что если документ до этого не сохранен, то данные введенные до запуска агента не сохранятся и пропадут из документа...

 

[wowa]

Предупреждаю, что если документ до этого не сохранен, то данные введенные до запуска агента не сохранятся и пропадут из документа...

Документ не сохранен...
Неужто все выставленные Checkbox и т.д. пропадут?

 

[Sandr]

wowa
Если документ вообще не сохранен, то так вообще делать низя, так как унида еще нет у документа... А если хоть раз сохранен, то всеравно все сделанное между последним сохранением и вызовом агента пропадет.

Объясните суть задачи, возможно нужно делать по-другому...

 

[wowa]

Sandr
Ну вот представьте поисковик...
Нажимаю кнопку поиск, запускается агент... Если есть документы, то вывожу красиво в RTF табличкой документы..
Если же документов нет, то выдать сообщение
Поисковик же не надо сохранять

 

[Sandr]

wowa
а.. ну дык тут все просто тогда...
Если данные сохранять не надо, то делайте так:

Print |<script> alert("Поиск не дал результатов!"); 
window.document.location = '/| & Replace(db.filepath, "\", "/") & |/MySearchForm?ReadForm';
</script>|

где ySearchForm - форма, по которой осуществляется поиск

 

[wowa]

Sandr, сообщение выдало, потом вернулась форма, но все поля исчезли

 

[Sandr]

Sandr, сообщение выдало, потом вернулась форма, но все поля исчезли

И правильно, документ то у Вас не сохранен.. я предложил Вам форму переоткрыть, этого достаточно...

 

[wowa]

Sandr , в смысле правильно???
Когда открываю форму, у меня видны 5-6 полей и их можно заполнять, видны рисунки и т.д.
После того как я так переоткрываю форму,... у меня все "верх ногами", полей вообще нет, некоторые рисунки исчезли и т.д.....

 

[Sandr]

wowa

а.. я понял В моем примере написано ReadForm, переделайте на OpenForm

 

[wowa]

Sandr, получилось , но все-таки ранее заполненные поля не удастся восстановить?