Compartir a través de

Método Project.DeliverablesGetByProject (Project)

  • Artículo

Obtiene una lista de todas las entregas del proyecto de empresa especificado en el miembro XML del objeto devuelto. Sólo Project Professional.

Sintaxis

expresión. DeliverablesGetByProject( _ProjectGuid_ )

Expresión Variable que representa un objeto Project .

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
ProjectGuid Obligatorio String GUID del proyecto de empresa.

Valor devuelto

Objeto

Comentarios

Uso de VBA para procesar al miembro XML del objeto de resultado DeliverablesGetByProject requiere código complejo y no intuitiva. Se recomienda usar la oficina y herramientas de desarrollo de SharePoint en Visual Studio 2012 para crear un complemento de Project al usar las características de Project Server y SharePoint. El enfoque más sencillo al procesamiento de XML consiste en usar el LINQ a los métodos de XML en el .NET Framework 4.

Ejemplo:

En el siguiente ejemplo, el proyecto de empresa denominado Simple incluye una entrega que se establece para un hito denominado M1. La dirección URL del sitio de Project, que contiene la lista Deliverables para el proyecto Simple, es https://ServerName/PWA/Simple. La macro TestDeliverables muestra un cuadro de mensaje que contiene la parte del resultado XML.

El valor de projectGuid devuelto por el método GetServerProjectGuid incluye llaves alrededor de GUID, por ejemplo, "{1b14e65c-5601-4565-acb9-3822078a17fb}". Use un valor GUID con o sin llaves.

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

Nota:

[!NOTA] Para buscar a los miembros de una variable de tipo de objeto, por ejemplo, la variable ds, establecer una inspección en el objeto y a continuación, establezca un punto de interrupción después de asignar un valor al objeto. Expanda la variable en el panel de inspección, y puede ver al miembro XML.

El cuadro de mensaje muestra sólo los primeros 1024 caracteres de los 17,295 caracteres totales del resultado XML (en este ejemplo). En el siguiente resultado XML, los atributos se dividen en líneas separadas. El resultado XML real está todo en una línea, que puede ver si imprimir el resultado en el panel inmediato en el VBE. En el ejemplo no muestra el esquema XML, lo que hace la mayor parte del contenido.

Los campos de ows_ se definen en la lista de SharePoint. Algunos de los campos que desea extraer incluyen deliverableUid, workspaceUri, linkedTaskUid (GUID de la tarea en Project Server), ows_LinkTitle (el nombre de la tarea que tiene la entrega), ows_Created, ows_Modified, ows_Author, ows_CommitmentStart y 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>

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.