Histórico da Página

#INCLUDE 'PROTHEUS.CH'
#INCLUDE 'TOTVS.CH'

User Function M415IPI()

Local nItem := PARAMIXB[1] // Item da Planilha Financeira

//Abaixo, variáveis do escopo Privado do tipo numérico carregadocarregadas pela Rotina.  

VALORIPI      := 0    // Valor do IPI do item         	
BASEIPI       := 500  // Base de IPI do item    	
QUANTIDADE    := 0    // Quantidade do item   	
ALIQIPI       := 15   // Alíquota de IPI do item      	
BASEIPIFRETE  := 0    // Valor base do IPI no frete do item 

VALORIPI := BASEIPI * (ALIQIPI / 100)

Return