Histórico da Página

#INCLUDE "TOTVS.CH"

/*
ExecBlock: F440COM
Ponto:No cálculo da Comissão após todos os itens terem sido gravados.
Parâmetros Enviados: Array com os números dos registros do SE1, Contas a Receber.
*Observações:Permite o usuário personalizar o cálculo da Comissão.
Retorno Esperado: Nenhum.
*/

/*/{Protheus.doc} User Function F440COM
    (long_description)
    @type  Function
    @author Cassio S Dias
    @since 29/11/2023
    @version 12.1.2310
    @return Nil
    @see (links_or_referenceshttps://tdn.totvs.com/x/8xI6M)
    /*/

User Function FN440COM()
	//Ponto de entrada permite validar/manipular registros no recalculo das comissões dos vendedores

	Local cVend1 as character
	Local cVend2 as character

	cVend1 := Paramixb
	cVend2 := SE3->E3_VEND

	IF cVend1 ==  cVend2
		SE3->E3_COMIS   := 0
	else
		SE3->E3_COMIS   := (SE1->E1_COMIS1*SE1->E1_VALOR/100)
	ENDIF

Return Nil