1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
|
Using client As SvcProject.ProjectClient = New SvcProject.ProjectClient
Using nouveauProjetDs As SvcProject.ProjectDataSet = New SvcProject.ProjectDataSet
Try
client.Open()
Dim projRow = nouveauProjetDs.Project.NewProjectRow
projRow.PROJ_TYPE = Convert.ToInt32(PSLibrary.Project.ProjectType.Project)
projRow.PROJ_UID = Guid.NewGuid()
projRow.PROJ_NAME = String.Format("Test_{1}_{0:yyyyMMdd-HHmm}", Date.Now,
projRow.ENTERPRISE_PROJECT_TYPE_UID = New Guid("88e49ddd-f9d7-4ac0-995c-9d2a081d8b29 ")
nouveauProjetDs.Project.AddProjectRow(projRow)
Dim jobId As Guid = Guid.NewGuid
client.QueueCreateProject(projRow.PROJ_UID, dataset:=nouveauProjetDs, validateOnly:=False)
client.QueuePublish(jobUid:=jobId, projectUid:=projRow.PROJ_UID, fullPublish:=True, WssURL:="SERVEUR" & projRow.PROJ_NAME)
client.Close()
Catch fexp As FaultException
Catch ex As Exception
End Try
End Using
End Using |
Partager