Histórico da Página
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#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 |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas