Histórico da Página

...

Descrição:

Este Ponto de Entrada tem como objetivo o tratamento de saldos descartados.

Necessidade original: ao obter um saldo negativo, quando solicitado crédito, deve-se dar baixa nos lançamentos que compuseram o saldo.

Eventos:

Fechamento do Banco de Horas

Chamado após o cálculo do saldo absoluto dos valores da SPI, de acordo com o tipo de fechamento e saldo diferente de zero (Fechamento por crédito e saldo negativo OU fechamento por débito e saldo positivo)

Consiste Saldo Escolhido X Saldo Efetivo (A consistência do Tipo de Fechamento não se aplica a Fechamento Por Período com limitação de desconto ao total de proventos visto que o saldo será reajustado SEMPRE para ZERO ou Positivo)

Programa Fonte:

PONM080.prx

Função:

PNM080Processa

Parâmetros:

Estrutura da variável PARAMIXB:

Posição	Nome	Tipo	Descrição
PARAMIXB[1]	cEveProv	C	Evento de Provento do Banco de Horas
PARAMIXB[2]	cEveDesc	C	Evento de Desconto do Banco de Horas
PARAMIXB[3]	aSPI	A	Valores do Banco de Horas
PARAMIXB[4]	aDelSPI	A	Registros a serem Baixados
PARAMIXB[5]	dDtPagto	D	Data do Pagamento para Baixa
PARAMIXB[6]	nSaldo	N	Valor absoluto do Saldo
PARAMIXB[7]	nTpFech	N	Tipo de Fechamento (1=Crédito; 2=Débito; 3=Resultado.)

Retorno:

...

theme	Eclipse
title	GP090OK - P11

...

(Nil)

Exemplos:

theme

Bloco de código

Eclipse	title	GP090OK - P12	PE PNM08001

User Function PNM08001USER 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)MsgInfo("Evento Provento: "+PARAMIXB[1]+CRLF+"Evento Desconto: "+PARAMIXB[2]+CRLF+"Data: "+ DTOC(PARAMIXB[5]) +CRLF+"Saldo: "+PARAMIXB[6]+CRLF+"Tp.Fech: "+PARAMIXB[7],"PE PNM08001")

Return(Nil)

Árvore de páginas

Versões comparadas

Versão antiga 4

Nova versão 5

Chave