Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 7

changes.mady.by.user Usuário desconhecido (kaio.alves)

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Bruno Ferreira da Costa

Gravado em

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
Pacote
Observações:

12.1.7: https://suporte.totvs.com/portal/p/10098/download?e=596719

12.1.14: https://suporte.totvs.com/portal/p/10098/download?e=596716

12.1.16: https://suporte.totvs.com/portal/p/10098/download?e=596718

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

            aAdd

If lGPVTRDias

aVTRDias := {}

aAdd(aVTRDias , {

nDiaNUtil

nDiaNTran,

nDiaUtil

nDiaTran, nDiasProp, nDiasFix } )

            

            aVTRDias


aVTRDias := ExecBlock("GPVTRDias",.F.,.F.)

                                  If

If ValType(aVTRDias) == "A" .And. Len(aVTRDias) == 0 .And. Len(aVTRDias[1]) >= 4

                nDiaNUtil

nDiaNTran := aVTRDias[1,1]

                nDiaUtil 

nDiaTran  := aVTRDias[1,2]

                nDiasProp

nDiasProp := aVTRDias[1,3]

                nDiasFix 

nDiasFix  := aVTRDias[1,4]

            EndIf

        EndIf

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] - nDiaNUtilnDiaNTran: Número de dias não úteis de utilização de VT;
  • aVTRDias[1,2] - nDiaUtilnDiaTran: 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 consulta consultar o array aVTRCalcaVTRDias, em suas respectivas posições.

 



Ponto de Entrada

Exemplo:

#Include 'Protheus.ch'

User Function GPVTRDias()

Local aVT := {}    aVT[1,1] := 0
    aVT

aAdd(aVT, {0, aVTRDias[1,2]

:= 6
    aVT[1,3] := 0
    aVT[1,4] := 0

+ 6, 0, 0 })

Return aVT