VB6-BO XI R2: how to force the export of Universe??

system · March 23, 2010, 8:11am

How to force the export of Universe?

silahi (BOB member since 2010-03-01)

system · March 23, 2010, 8:23am

Hi,

Can you please explain in more details what you mean?

Marek Chladny (BOB member since 2003-11-27)

system · March 23, 2010, 8:28am

I guess you asked similar thing in a different way here

.

haider (BOB member since 2005-07-18)

system · March 23, 2010, 8:34am

it’s my posts.

I explain you the problem and to begin excuse my english i’m french.

so, i develop a vb6 applications and in this applications i want to export universe but if the universe existe in repository the application send me next error: There is a newer version of that universe in the repository. If you continue exporting, you could overwrite the existing changes. Are you sure?

And i want to desactive logon dialog, confirm it in default or force the export.

silahi (BOB member since 2010-03-01)

system · March 23, 2010, 8:46am

Hi,

Have you tried setting

Application.Interactive  = False

at the beginning of the code and then this at the end?

Application.Interactive  = True

Marek Chladny (BOB member since 2003-11-27)

system · March 23, 2010, 8:48am

But that will not be an ideal solution
Rather you should try to fix the error without any VB code to suppress it

Are you getting the universe file through mail or something from a universe designer?

And reply to this in your original post to avoid cross-posting
.

haider (BOB member since 2005-07-18)

system · March 23, 2010, 8:48am

Yes i have try it but the notfication always appear

silahi (BOB member since 2010-03-01)

system · March 23, 2010, 8:52am

Can you post the code so someone could have a look at it?

Marek Chladny (BOB member since 2003-11-27)

system · March 23, 2010, 9:04am

i just do a simple export command:

*
Export.designerApplication.Window.State = dsMinimized
Export.designerApplication.Visible = True
Export.designerApplication.Interactive = False

Set DesUnis = Export.designerApplication.Universes
all Export.designerApplication.Universes.OpenFromEnterprise(domaine, univers, 0)
Export.designerApplication.Universes(univers).Connection = adodbRecordset("Valeur")
Export.designerApplication.Universes(univers).Close
.....
Call Export.designerApplication.Universes.Export(Export.designerApplication.UniverseRootFolder.CUID, sourceExportation &amp; Export.codeSite &amp; id &amp; univers &amp; ".unv", False)

You notice that i don’t save the universe before export it, The simple explanation is that the universe what i want to export is obtained from a service import and locate locally.

silahi (BOB member since 2010-03-01)

system · March 23, 2010, 9:19am

The VB program is actually used to do the import/export and started throwing error when i run the export command

silahi (BOB member since 2010-03-01)

system · March 23, 2010, 9:33am

Just trying to understand the scenario, are you modifying the universe after importing it programmatically and then exporting it back?
Give the workflow
.

haider (BOB member since 2005-07-18)

system · March 23, 2010, 9:39am

After import i have just change the name of the universe but i’m not modify tue universe. For example:

when i import the universe CLIENT i store it locally and name it: 01CLIENT.UNV for example

silahi (BOB member since 2010-03-01)

system · March 23, 2010, 10:17am

Why you are renaming the universe?
And are you exporting the same back to the repository which throws the said warning message?

I would suggest you to do a search in semantic layer forum, search keywords ‘changing universe file name’.
Found one related post here

.

haider (BOB member since 2005-07-18)

system · March 23, 2010, 10:22am

Excuse me for my past response, i’m confused ,

i rename the univers because it’s a kind of my entreprise charter figures that are before the name of the universe indicate place export.

Yes i export the same back to the repository.

1000 apologies again

silahi (BOB member since 2010-03-01)

system · March 23, 2010, 10:28am

What if you saved the universe after renaming and before exporting? Would it solve the problem?

Marek Chladny (BOB member since 2003-11-27)

system · March 23, 2010, 11:05am

Actually the warning message which you mentioned in the first post (from locked post) is encountered when the repository universe has more recent changes and currently exported universe (which might have come through some other source) might be older

haider (BOB member since 2005-07-18)

system · March 23, 2010, 11:30am

This is what I understand, from the link that you had passed.

And that is why I seek your help. Let me explain:
if the user wishes to export a universe when there is already in the repository, the service export remain blocked because it is awaiting confirmation and as such notifications are disabled on the Windows 2003 server then it will wait indefinitely .

So it’s what i want to force the export.

silahi (BOB member since 2010-03-01)

system · March 23, 2010, 1:01pm

I try to confirm the message box with the next command: sendkeys ("{ENTRER}", true) but it don’t run (the message box always switch on).

silahi (BOB member since 2010-03-01)

system · March 23, 2010, 1:52pm

I would not perform your Universe cloning via VBA import/export.

Instead, consider obtaining the Universe InfoObject via InfoObjects interface and the perform a InfoObjects.copy() (new files, new IDs), then retrieve the IUniverse interface and set the shortname of the universe to something unique as well as the Universe name (InfoObject.setTitle(newname)) there you have your newly cloned universe.

If you search the forum you will find a handful of posts that discuss infoobject copying

Good luck

Atul Chowdhury (BOB member since 2003-07-07)

system · March 23, 2010, 2:48pm

I just want to replace repository universe with a univers who is store localy but not export duplicate it.

silahi (BOB member since 2010-03-01)