Histórico da Página

#INCLUDE "totvs.ch"

/*/{Protheus.doc} User Function FA040ISS
    (Ponto de entrada para calculo alternativo do ISS)
    @type  Function
    @author Cassio S. Dias
    @since 28/11/2023
    @version 12.1.2310
    @return nBaIss, Numeric
    @see (links_or_references)
    /*/
User Function FA040ISS(nBaseIss)

//Posicionado nas tabelas ('SE1','SED','SA1')

	SE1 - Contas a Receber
	SED - Natureza
	SA1 - Cadastro de Clientes
  	
	Local cTipoTit  as Character
	Local nValBase  as Numeric
	Local nBaIss    as Numeric

	cTipoTit := Paramixb[1]
    nValBase := Paramixb[2]


// Exemplo de calculo para retornar base alternativa
	If SED->ED_CALCISS == "S" .and. m->e1_tipo $  cTipoTit
		nBaseIss := NoRound(((nBaseIss) * nValBase / 100),2)
	EndIf

Return nBaseIss