Extraction d'un document de référentiel

Chapter 7 Pilotage de PowerAMC à l'aide de scripts

Extraction d'un document de référentiel

Vous pouvez extraire un document de référentiel à l'aide de scripts de l'une des deux façons suivantes :

La façon générique qui est applicable à tout type de document
La façon spécifique qui n'est applicable qu'aux documents RepositoryModel et RepositoryReport

Pour extraire tout type de document :

Utilisez le code suivant	Description
ExtractToFile(ByVal FileName As String, ByVal MergeMode As Long = 2, ByVal OpenMode As Boolean = -1, ByRef Actions As String = NULL, ByRef Conflicts As String = NULL) As BaseObject	Méthode sur la classe RepositoryModel qui permet d'extraire tout type de document.

Pour extraire un document PowerAMC :

Utilisez le code suivant	Description
UpdateFromRepository(ByVal MergeMode As Integer = 2, ByRef actions As String = NULL, ByRef conflicts As String = NULL) As Boolean	Méthode sur la classe BaseModel qui permet d'extraire des documents PowerAMC.

La façon générique :

Pour extraire un document de référentiel, vous devez :

Rechercher un document de référentiel à l'aide de la collection ChildObjects
Extraire le document à l'aide de la méthode suivante : ExtractToFile (ByVal FileName As String, ByVal MergeMode As Long = 2, ByVal OpenMode As Boolean = -1, ByRef Actions As String = NULL, ByRef Conflicts As String = NULL) As BaseObject

Exemple

set C = RepositoryConnection
C.Open
Dim D, P
set P = Nothing
for each D in C.ChildObjects
if D.IsKindOf (cls_RepositoryModel) then
D.ExtractToFile ("C:\temp\OO.MOO")
end if
next

La façon spécifique :

Pour extraire un document RepositoryModel ou RepositoryReport, vous devez :

Récupérer le document depuis le modèle local ou le rapport multimodèle, (à la condition qu'ils aient déjà été consolidés) à l'aide de la méthode suivante : UpdateFromRepository (ByVal MergeMode As Integer = 2, ByRef actions As String = NULL, ByRef conflicts As String = NULL) As Boolean

Exemple

set MyModel = OpenModel ("C:\temp\OO3.MOO")
MyModel.UpdateFromRepository