Histórico da Página

#INCLUDE "TOTVS.CH"

/*/{Protheus.doc} User Function F390VALOR
    (P.E permiti manipular o valor do cheque de acordo com o valor do imposto passado)
    @author Cassio S. Dias
    @since 09/11/2023
    @version 12.1.2310
    @param (nValor,aTitulos), Numeric, Array
    @return nValImp, Numeric
    @see (links_or_referenceshttps://tdn.totvs.com/x/jnApM)
    /*/
User Function F390Valor(nValor,aTitulos) as numeric
//Posiconado na tabela "SE2" - Contas a Pagar

	Local cMArca as character
	Local nValImp as numeric
	local nValPcc as numeric

	cMarca  := Paramixb
	nValImp := nValor
	nValPcc := SE2->E2_PIS+SE2->E2_COFINS+SE2->E2_CSLL


	If SE2->E2_OK == cMarca .And. SE2->E2_FILIAL == xFilial("SE2") .AND. SE2->E2_TIPO == "CH" 
		nValImp  -= nValPcc
	else
		nValImp  += nValPcc
	endif

Return nValImp