Integra for Notes Banner
  QuickReports Integra4Notes Integra Family of Products



How can I prompt a user to confirm the saving of a created Word or Excel document back into a Notes (response) document?

Here is the situation. I have a profile with type "Single Document" and "Save As Response Document" option checked in the profile. When I executing the profile, MS Word is launched and the user can make modifications to the document. As soon the user closes the Word application the Word document is saved back into a Notes response document.

But what if a user changes his mind at this point. What if the user decides that this document should not be created at this time, and wants to close Word and not save the document in a Lotus Notes response document. Currently there is no option in the profile that one could check to provide the user with a save-confirmation dialog. Is there a way the user can have an option of saving the document back to Lotus Notes after Word is launched?


The following Lotus Script code when placed into the Callback Script field (Integra profile) does exactly that:

Const CB_INITIALISE = 3
Const CB_BFORREADNOTES = 6
Const CB_BFORREADCOM = 7
Const CB_BFORWRITECOM = 1
Const CB_AFTERWRITECOM = 9
Const CB_BFORWRITENOTES = 8
Const CB_BFORCOMACTION = 5
Const CB_BFORNOTESACTION = 2
Const CB_TERMINATE = 4

select case stats.cbstatus
case CB_INITIALISE
case CB_BFORREADNOTES
case CB_BFORREADCOM
case CB_BFORWRITECOM
case CB_AFTERWRITECOM
case CB_BFORWRITENOTES
case CB_BFORCOMACTION
case CB_BFORNOTESACTION
    if not stats.savdoc is nothing then
      ' MessageDialog() is a documented function in the Integra for Notes Utilities library.
      ' It is calling the Lotus Script function Messagebox() in turn, but disables
      ' any progress bars whilst displaying the dialog and restores the progress
      ' bar afterwards

      If not MessageDialog("Do you want to save the Word document back to Notes?", _

      32+4,"Save Confirmation Dialog") = 6 Then
        export.continue = false
      end if
    else
      ' before send to
    end if
case CB_TERMINATE
end select

.




FAQ# 0046
Bookmark and Share

 
QUICK LINKS
 
 

 

  © Shireburn Software Ltd. 2008 - 2025