#INCLUDE "totvs.ch" 

/*/{Protheus.doc} NGFJOBF75
	Punto de entrada para grabaciones complementarias en la F75.

	Ejemplo con regla de grabación de la tasa da moneda para títulos ya dados de baja en moneda extranjera.
	Con regla para mantener la tasa contratada si existiera enel título
/*/
User Function NGFJOBF75()
	Local cAlias     As Character
	Local cField     As Character
	Local dDtBaixa   As Date
	Local nTaxa      As Numeric
	Local aArea      As Array
	Local aAreaAlias As Array

	If F75->F75_SALDO = 0 .AND. F75->F75_MOEDA > 0
		aArea := GetArea()
		// Verifica la cartera para posteriormente situar en la tabla correcta (SE1 o SE2)
		If F75->F75_RECPAG == "R"
			cAlias := "SE1"
			cChave := F75->F75_FILORI + F75->F75_PREFIX + F75->F75_NUM + F75->F75_PARCEL + F75->F75_TIPO
			cField := "E1_"
		Else
			cAlias := "SE2"
			cChave := F75->F75_FILORI + F75->F75_PREFIX + F75->F75_NUM + F75->F75_PARCEL + F75->F75_TIPO +F75->F75_CLIFOR + F75->F75_LOJA
			cField := "E2_"
		EndIf
		aAreaAlias := (cAlias)->(GetArea())
		DbSelectArea(cAlias)
		(cAlias)->(DbSetOrder(1))
		If (cAlias)->(MsSeek(cChave))
			If (cAlias)->&(cField + "TXMOEDA") > 0
				nTaxa := (cAlias)->&(cField + "TXMOEDA")
			Else
				dDtBaixa := (cAlias)->&(cField + "BAIXA")
				nTaxa    := RecMoeda(dDtBaixa, F75->F75_MOEDA)
			EndIf
		EndIf
		
		// Modifica la tasa de la moneda en el campo F75_TXMOED, para entender la grabación de este campo verifique la documentación
		//https://tdn.totvs.com.br/pages/releaseview.action?pageId=622668231
		If nTaxa > 0
			RecLock("F75", .F.)
			F75->F75_TXMOED := nTaxa
			F75->(MSUnlock())
		EndIf
		RestArea(aAreaAlias)
		RestArea(aArea)
	EndIf

Return NIL