Histórico da Página

#INCLUDE "RWMAKE.CH"

User Function PN210VAL()
	
	Local aLinha 		:= ParamIxb[1]
	Local nPosCodAbo	:= 0
	Local lRet			:= .T.
	Local cEvtAbo		:= ""
	
	nPosCodAbo := GdFieldPos( "PK_CODABO")
	
	If Posicione("SP9", 1, xFilial("SP9", SRA->RA_FILIAL) + cCodEve, "P9_TIPOCOD") $ "1|3" // Verifica se o evento que está sendo abonado é de Provento
		If nPosCodAbo > 0 .And. !Empty(aLinha[nPosCodAbo])
			cEvtAbo := Posicione("SP6", 1, xFilial("SP6", SRA->RA_FILIAL) + aLinha[nPosCodAbo], "P6_EVENTO") // Busca o evento vinculado ao motivo de abono
			If !Empty(cEvtAbo)
				If Posicione("SP9", 1, xFilial("SP9", SRA->RA_FILIAL) + cEvtAbo, "P9_TIPOCOD") $ "2|4" // Verifica se o evento do abono é de desconto
					MsgInfo("O motivo de abono utilizado utiliza um evento de desconto, utilize outro motivo.", "Atenção") // Não permite abonar um evento de provento com um de desconto
					lRet := .F.
				EndIf
			EndIf
		EndIf
	EndIf
	
Return lRet