Compartilhar via

Método Project.DeliverablesGetByProject (Project)

  • Artigo

Obtém uma lista de todos os resultados finais do projeto da empresa de especificado no membro XML do objeto retornado. Somente no Project Professional.

Sintaxe

expression. DeliverablesGetByProject( _ProjectGuid_ )

Expressão Uma variável que representa um objeto Project .

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
ProjectGuid Obrigatório String GUID do projeto da empresa.

Valor de retorno

Object

Comentários

Usando o VBA para processar o membro XML do objeto de resultado DeliverablesGetByProject exige código não intuitivo e complexo. Recomendamos que você use o Office e ferramentas de desenvolvimento do SharePoint no Visual Studio 2012 para criar um suplemento para o projeto ao usar os recursos do Project Server e SharePoint. A abordagem mais fácil para processar XML é usar o LINQ para métodos XML no .NET Framework 4.

Exemplo

No exemplo a seguir, o projeto da empresa denominado simples inclui um produto que está definido para um marco denominado M1. A URL do site do Project, que contém a lista Deliverables para o projeto Simple, é https://ServerName/PWA/Simple. A macro TestDeliverables mostra uma caixa de mensagem que contém a parte do resultado XML.

O valor de projectGuid retornado pelo método GetServerProjectGuid inclui chaves ao redor o GUID, por exemplo, "{1b14e65c-5601-4565-acb9-3822078a17fb}". Use um valor GUID com ou sem as chaves.

Option Explicit 
 
Sub TestDeliverables() 
    Dim projectGuid As String 
    Dim ds As Object 
 
    projectGuid = ActiveProject.GetServerProjectGuid 
 
    ' Optional: Removing the braces on the GUID value makes no difference. 
    ' projectGuid = Mid(projectGuid, 2, 36) 
 
    Set ds = ActiveProject.DeliverablesGetByProject(projectGuid) 
 
    MsgBox ds.XML 
 
    Debug.Print ds.XML 
End Sub

Observação

[!OBSERVAçãO] Para localizar membros de uma variável de tipo de objeto, como a variável ds, definir uma inspeção no objeto e, em seguida, definir um ponto de interrupção depois de atribuir um valor para o objeto. Expanda a variável no painel de inspeção, e você pode ver o membro XML.

A caixa de mensagem mostra apenas os primeiros 1024 caracteres dos 17,295 caracteres total do resultado XML (neste exemplo). No resultado de XML a seguir, os atributos são divididos em linhas separadas. O resultado real do XML é tudo em uma linha, o que você pode ver se você imprimir o resultado ao painel Immediate no VBE. O exemplo não mostra o esquema XML, que constitui a maioria do conteúdo.

Os campos OWS _ são definidos na lista do SharePoint. Alguns campos que talvez você queira extrair incluem deliverableUid, workspaceUri, linkedTaskUid (GUID da tarefa no Project Server), ows_LinkTitle (o nome da tarefa que tem o resultado final), ows_Created, ows_Modified, ows_Author, ows_CommitmentStart e ows_CommitmentFinish.

<DeliverableMasterDocument> 
 <Deliverables> 
 <Deliverable deliverableUid="6f8cb9a5-d9b8-496d-af90-1e88dc57f46a" projectUid="1b14e65c-5601-4565-acb9-3822078a17fb" 
 type="1" tpId="1" workspaceUri="https://ServerName/PWA/Simple" workspaceName="PWA/Simple" workspaceVServerUri="https://ServerName" 
 listUid="168a6e6f-6993-4315-a593-7ffa21683e57" state="1"> 
 <Client linkedTaskUid="d3eaf532-9ab9-4eb2-8f85-fd41a1b5db0c" ows_ID="1" 
 ows_ContentTypeId="0x010074416DB49FB844B99C763FA7171E7D1F00001031A192BFCA4D83CA160D2BCAB735" 
 ows_ContentType="Project Site Deliverable" ows_Title="M1" ows_Modified="2010-02-19 13:30:19" 
 ows_Created="2010-02-19 13:29:45" ows_Author="1073741823;#System Account" 
 ows_Editor="1073741823;#System Account" ows_owshiddenversion="2" ows_WorkflowVersion="1" 
 ows__UIVersion="512" ows__UIVersionString="1.0" ows_Attachments="0" ows__ModerationStatus="0" 
 ows_LinkTitleNoMenu="M1" ows_LinkTitle="M1" ows_LinkTitle2="M1" ows_SelectTitle="1" 
 ows_Order="100.000000000000" ows_GUID="{FFA3E0F9-DBB4-44B6-B09D-1C2AB7A9EF92}" 
 ows_FileRef="1;#PWA/Simple/Lists/Deliverables/1_.000" ows_FileDirRef="1;#PWA/Simple/Lists/Deliverables" 
 ows_Last_x0020_Modified="1;#2010-02-19 13:29:45" ows_Created_x0020_Date="1;#2010-02-19 13:29:45" 
 ows_FSObjType="1;#0" ows_SortBehavior="1;#0" ows_PermMask="0x7fffffffffffffff" ows_FileLeafRef="1;#1_.000" 
 ows_UniqueId="1;#{29AF34EA-EA27-48C7-80A6-83B0A95DB9BD}" ows_ProgId="1;#" 
 ows_ScopeId="1;#{73C1A12E-DBA2-4BE2-87EE-1FF5EF1494DD}" ows__EditMenuTableStart="1_.000" 
 ows__EditMenuTableStart2="1" ows__EditMenuTableEnd="1" ows_LinkFilenameNoMenu="1_.000" 
 ows_LinkFilename="1_.000" ows_LinkFilename2="1_.000" ows_ServerUrl="/PWA/Simple/Lists/Deliverables/1_.000" 
 ows_EncodedAbsUrl="https://jc2vm1/PWA/Simple/Lists/Deliverables/1_.000" ows_BaseName="1_" ows_MetaInfo="1;#" 
 ows__Level="1" ows__IsCurrentVersion="1" ows_ItemChildCount="1;#0" ows_FolderChildCount="1;#0" 
 ows_CommitmentStart="2010-02-02 00:00:00" ows_CommitmentFinish="2010-02-02 00:00:00" ows_SuppressCreateEvent="1"/> 
 </Deliverable> 
 </Deliverables> 
 <Schemas> 
 <Schema . . . 
 . . . > 
 <Fields> 
 <Field . . . /> 
 . . . 
 </Fields> 
 </Schema> 
 </Schemas> 
</DeliverableMasterDocument>

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.