Objeto PayRates (Project)
Contiene un conjunto de objetos PayRate.
Ejemplo:
Uso del objeto PayRate
Use PayRates (Index ), dondeIndex es el número de índice de tasa de pago o la fecha para la que devolver las tasas en vigor, para devolver un único objeto PayRate . En el ejemplo siguiente se devuelve la tasa de pago estándar para la primera fila de tasas de Tamara en la tabla de tasas de costo C.
ActiveProject.Resources("Tamara").CostRateTables("C").PayRates(1).StandardRate
Uso del conjunto PayRates
Utilice la propiedad PayRates para devolver un conjunto PayRates. En el ejemplo siguiente se enumeran las tasas de pago estándar de todas las tablas de tasas de costo del recurso de la celda activa.
Dim CRT As CostRateTable
DIM PR As PayRate
Dim Rates As String
For Each CRT In ActiveCell.Resource.CostRateTables
For Each PR In CRT.PayRates
Rates = Rates & "CostRateTable " & CRT.Name & ": " & PR.StandardRate & vbCrLf
Next PR
Next CRT
MsgBox Rates
Utilice el método Add para agregar un objeto PayRate al conjunto PayRates. En el ejemplo siguiente se agrega una línea a la tabla de tasas de costo de Tamara "C" con una fecha efectiva del 1 de septiembre de 2012, una tasa estándar de 40,00 $ por hora, una tasa de horas extra de $60,00 por hora y un costo por uso de 0 $.
ActiveProject.Resources("Tamara").CostRateTables("C").PayRates.Add "9/1/2012", "$40/h", "$60/h", "$0"
Métodos
| Nombre |
|---|
| Add |
Propiedades
| Nombre |
|---|
| Aplicación |
| Count |
| Elemento |
| Parent |
Vea también
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.