F085RETPA - Retenção de Ganancias -- 38233

Este ponto de entrada valida a retenção de Ganancias, se houver, nos pagamentos antecipados (PA) gerados por excedente, na alteração do valor do pago de outras faturas.O ponto de entrada será executado a cada validação de Pagamento Antecipado durante uma compensação de títulos.

FINA085A

F085RETPA - Retenção de Ganancias ( [ @cOrdPago ] ) --> lRet

lRet(logico)
• Houve ou não retenção de Ganancias para pagamentos antecipados.

O uso deste ponto de entrada é restrito para casos em que existirem movimentos antigos (Pagamentos antencipados) ainda não compensados.

Este cenário geralmente ocorre quando a regra de retenção de impostos, mediante configuração do parâmetro MV_RETPA, é alterada sem realizar o fechamento de todos os movimentos financeiros.

User Function F085RETPA()    Local cOrdPg := paramixb[1]Local lRet := .F.Local aAreaSEK := {}dbSelectArea("SEK")aAreaSEK := SEK->(GetArea())SEK->(dbSetOrder(1))If SEK->(dbSeek(xFilial("SEK")+Substr(cOrdPg,1,TamSx3("EK_ORDPAGO")[1])+"TB"))		lRet := .T. //encontou uma fatura baixada		EndifSEK->(RestArea(aAreaSEK))Return lRet