Histórico da Página
Ponto de entrada GPVTRDIAS
Ponto de entrada no cálculo de VTR para trocar os valores dos dias de VTR
Linha de Produto: | Microsiga Protheus |
Segmento: | Recursos Humanos |
Módulo: | SIGAGPE |
Tickets relacionados | 899561 |
Requisito/Story/Issue (informe o requisito relacionado): | DRHPAG-2668 |
Observações: | Clique aqui para mais informações. |
Descrição
Ponto de Entrada criado após a valorização das variáveis referentes aos dias de VT utilizados no cálculo, de modo que os valores das mesmas são substituídos pelos do array retornado pela função de ponto de entrada.
Segue o trecho do fonte que chama o ponto de entrada:
// Ponto de entrada para alteracao dos dias de vales e dias trabalhados no mes.
If lGPVTRDias
aVTRDias := {}
aAdd(aVTRDias , {nDiaNTran, nDiaTran, nDiasProp, nDiasFix } )
aVTRDias := ExecBlock("GPVTRDias",.F.,.F.)
If ValType(aVTRDias) == "A" .And. Len(aVTRDias) == 0 .And. Len(aVTRDias[1]) >= 4
nDiaNTran := aVTRDias[1,1]
nDiaTran := aVTRDias[1,2]
nDiasProp := aVTRDias[1,3]
nDiasFix := aVTRDias[1,4]
EndIf
EndIf
- aVTRDias[1,1] - nDiaNTran: Número de dias não úteis de utilização de VT;
- aVTRDias[1,2] - nDiaTran: Número de dias úteis de utilização de VT;
- aVTRDias[1,3] - nDiasProp: Número de dias proporcionais de utilização de VT;
- aVTRDias[1,4] - nDiasFix: Número de dias fixos de utilização de VT;
Observação:
No ponto de entrada também é possível ter o conteúdo dessas 4 variáveis, que foram alimentados pela cálculo do roteiro VTR. Basta consultar o array aVTRDias, em suas respectivas posições.
Ponto de Entrada
Exemplo:
#Include 'Protheus.ch'
User Function GPVTRDias()
Local aVT := {}
aAdd(aVT, {0, aVTRDias[1,2] + 6, 0, 0 })
Return aVT