Compartir a través de

Propiedad Assignment.ActualCost (Project)

  • Artículo

Obtiene o establece el costo real de la asignación. Variante de lectura y escritura.

Sintaxis

expresión. ActualCost

Expresión Variable que representa un objeto Assignment .

Comentarios

La propiedad ActualCost puede establecerse para objetos de asignación y tareas (pero no para las tareas de resumen) si se desactiva la casilla de verificación Project calcula siempre los costos reales en la ficha programación del cuadro de diálogo Opciones de proyecto.

Los costos reales también se encuentran disponibles para las tareas y recursos. Si la casilla de verificación Project siempre calcula los costos reales está activada, Project calcula el costo real actual para la asignación desde tablas de tasas de costos de recursos y el trabajo real que ha completado el recurso asignado. Para obtener acceso mediante programación a las tablas de tasas de costos de recursos, use la colección CostRateTables.

Ejemplo:

En el ejemplo siguiente se solicitan al usuario los costos reales de las tareas sin recursos del proyecto activo. Se presupone que la casilla Project siempre calcula los costos reales está desactivada.

Sub GetActualCostsForTasks() 
 
 Dim Entry As String ' User input 
 Dim T As Task ' Task object used in For Each loop 
 
 ' Count the resources of each task in the active project. 
 For Each T In ActiveProject.Tasks 
 
 ' If a task has no resources, then prompt user for actual cost. 
 If T.Resources.Count = 0 Then 
 
 Do While 1 
 Entry = InputBox$("Enter the cost for " & T.Name & ":") 
 
 ' Exit loop if user enters number or clicks Cancel. 
 If IsNumeric(Entry) Or Entry = Empty Then 
 Exit Do 
 
 ' User didn't enter a number; tell user to try again. 
 Else 
 MsgBox ("You didn't enter a number; try again.") 
 End If 
 Loop 
 
 ' If user didn't click Cancel, assign actual cost to task. 
 If Not StrComp(Entry, Empty, 1) = 0 Then T.ActualCost = Entry 
 End If 
 
 Next T 
 
End Sub

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.