Objeto PayRates (Project)

Artigo
04/07/2023

Contém uma coleção de objetos PayRate.

Exemplo

Usando o objeto PayRate

Use PayRates (Index ), em queIndex é o número de índice de taxa de pagamento ou data para o qual retornar as taxas em vigor, para retornar um único objeto PayRate . O exemplo a seguir retorna a taxa de pagamento padrão para a primeira linha da Tamara de taxas de na tabela de taxas de custo C.

ActiveProject.Resources("Tamara").CostRateTables("C").PayRates(1).StandardRate

Usando a coleção PayRates

Use a propriedade PayRates para retornar uma coleção PayRates. O exemplo a seguir lista as remunerações padrão para todas as tabelas de taxas de custo do recurso na célula ativa.

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

Use o método Add para adicionar um objeto PayRate à coleção PayRates. O exemplo a seguir adiciona uma linha à tabela de taxas de custo Tamara "C" com uma data efetiva de 1º de setembro de 2012 uma taxa padrão de $40,00 por hora, uma taxa de horas extras de US $60,00 por hora e custo por uso de $0.

ActiveProject.Resources("Tamara").CostRateTables("C").PayRates.Add "9/1/2012", "$40/h", "$60/h", "$0"

Métodos

Nome
Add

Propriedades

Nome
Aplicativo
Count
Item
Parent

Confira também

Modelo de objeto do projeto

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.