This is a MIME message. If you are reading this text, you may want to consider changing to a mail reader or gateway that understands how to properly handle MIME multipart messages.
–=_85D2C90B.BBDAB7E0
We are actually doing what you asked and I got this from BO directly.
It works great!!
Sincerely,
Thomas Nather
Penske Logistics
email: Tom.Nather@Penske.com
Ph: 216-765-5787
Fax: 216-765-5666
Chad Berghorst cberghorst@GFS.COM 12/09 8:37 AM >>>
Does anyone have an example script they use to send DAS documents to the repository groups instead of named users? We would like to publish 4.1 documents as WebIntelligence corporate documents.
Also does anyone know if Business Objects plans to address this shortcoming in future releases? This seems like a basic function and I don’t understand why it is not currently available.
–=_85D2C90B.BBDAB7E0
Content-Disposition: attachment; filename=“RefreshDocRepo.spt”
Declare Function RetrieveDocument(sDocument As String) as Integer Declare Function RefreshDocumentAndExport (sDocument As String) as Integer
Function RetrieveDocument(sDocument As String) As Integer
Dim strMsg As String
RetrieveDocument = 0
On Error Resume next
Application.Documents.Receive(sDocument) if Err then
RetrieveDocument = 5000
Exit Function
end if
end Function
Function RefreshDocumentAndExport (sDocument as String)
Dim DocumentName as String
Dim strMsg As String
Dim Doc1 as BOdocument
RefreshDocumentAndExport = 0
On error resume next
Set Doc1 = Application.Documents.Open(sDocument) if Err then
RefreshDocumentAndExport = 4010
Exit Function
end if
On Error resume next
Doc1.Refresh
if Err then
RefreshDocumentAndExport = 2013
Exit Function
end if
On Error resume next
Doc1.Send(“Data Warehouse”)
if Err then
RefreshDocumentAndExport = 4020
Exit Function
end if
On Error resume next
Doc1.close
if Err then
RefreshDocumentAndExport = 4030
Exit Function
end if
end Function
Sub Main
Dim retcode As Integer
rem dim doc as BODocument
rem set doc = Application.Documents.Item(1)
Application.ExchangeMode = RepositoryMode
retcode = 0
retcode = RetrieveDocument(“Safety - Monthly Violations by Region”) if retcode <> 0 then
Error retcode
end if
retcode = RefreshDocumentandExport(“Safety - Monthly Violations by Region”) if retcode <> 0 then
Error retcode
end if
Exit_main:
Exit sub
End Sub
–=_85D2C90B.BBDAB7E0–
Listserv Archives (BOB member since 2002-06-25)