Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Isabel Noguti

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Isabel Noguti

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Ponto de Entrada PN80GRBH - Customização do fechamento de banco de horas.

 

...

Descrição:

Este Ponto de Entrada tem como objetivo customizar o fechamento de banco de horas.

Eventos:

Fechamento do Banco de Horas.

É chamado após a gravação dos dados na SPB (Resultados do período), antes de dar baixa nos registros da SPI.

Programa Fonte:

PONM080.prx

Função:

fGrava_BH

Parâmetros:

Estrutura da variável PARAMIXB:

PosiçãoNomeTipoDescrição
PARAMIXB[1]cEveProvCEvento de Provento do Banco de Horas
PARAMIXB[2]cEveDescCEvento de Desconto do Banco de Horas
PARAMIXB[3]aSPIAValores do Banco de Horas
PARAMIXB[4]aDelSPIARegistros a serem Baixados
PARAMIXB[5]dDataGrvDData para a gravação dos valores nos Resultados
PARAMIXB[6]cEveRescCEvento de base para Total de meses do Banco de Horas

Retorno:

 

...

...

(

...

Nil)

 

Exemplo:

Exemplos:

 

Bloco de código
themeEclipseConfluence
titleGP090OK - P12PE PN80GRBH
collapsetrue
User Function PN80GRBH()
MsgInfo("Evento Provento: "+PARAMIXB[1]+CRLF+"Evento Desconto: "+PARAMIXB[2]+CRLF+"Data: "+ DTOC(PARAMIXB[5]) +CRLF+"Evento Rescisão: "+PARAMIXB[6],"PE PN80GRBH")
Return(NilUSER FUNCTION GP090OK()

Local lRet	:= .T.
Local nX	:= 0
Local nY	:= 0
Local nPosDeleted   := GdFieldPos( "GDDELETED" )
Local nPosValor		:= GdFieldPos("RGB_VALOR")
Local nPosHorasC	:= GdFieldPos("RGB_HORAS")
Local nPosDtRef 	:= GdFieldPos("RGB_DTREF")

If Len(aColsAnt) > 0
	For nX := 1 to Len(aCols)
		nY := aScan(aColsAnt, { |x| x[2] == aCols[nx][2] })
		If aCols[nx][2] == "013" .AND. aCols[nx][nPosDeleted] == .T. //se verba esta como deletada
			MsgAlert("Verba não pode ser deletada - GP090OK","ATENCAO")
			aCols[nx][nPosDeleted] := .F.
			lRet := .F.
		ElseIf nY > 0 .AND. (aCols[nx][nPosValor] != aColsAnt[ny][nPosValor] .OR. aCols[nx][nPosDtRef] != aColsAnt[ny][nPosDtRef])
			aCols[nx][nPosValor] := aColsAnt[ny][nPosValor]
			aCols[nx][nPosDtRef] := aColsAnt[ny][nPosDtRef]	
			MsgAlert("Verba não pode ser alterada - GP090OK","ATENCAO")
		EndIf
	Next nX
EndIf

Return (lRet)