Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

Ponto de entrada GPVTRDIAS

Ponto de entrada no cálculo de VTR para trocar os valores dos dias de

VTR (utilização semelhante ao ponto de entrada GPM050DIAS existente na versão 11)

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



O ponto de entrada deve SEMPRE retornar um array nesse formato do exemplo, onde as posições representam as seguintes variáveis:
  • 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[1,1] := 0
aVT[1,2] := , {0, aVTRDias[1,2] + 6
aVT[1, 3] := 0
aVT[1, 4] := 0 })

Return aVT