Histórico da Página

#INCLUDE "PROTHEUS.CH"

User Function MaCalcIPI()
    Local nItem      := PARAMIXB[1] //Número do Item
    Local cProduto   := PARAMIXB[2] //Código do Produto
    Local cTes       := PARAMIXB[3] //Código da TES
    Local cCliFor    := PARAMIXB[4] //Tipo de Participante (C = Cliente/F = Fornecedor)
    Local cCodCliFor := PARAMIXB[5] //Código do Participante
    Local cLoja      := PARAMIXB[6] //Código da Loja do Participante
    Local cOperNF    := PARAMIXB[7] //Operação da Nota Fiscal (E = Entrada/S = Saída)


	Local aRet     := {}

	Local cCalcIPI := "" // S=Calcula IPI; N=Não Calcula IPI.
	Local nAliqIPI := 0  // Retorna o percentual de alíquota do IPI.
	Local nBaseIPI := 0  // Retorna a base de cálculo do IPI.

	/*

	Faça seu cálculo aqui: À partir desse ponto de entrada, é possível acessar o aCols e o aHeader do Pedido.

	*/

	aAdd(aRet, cCalcIPI )
	aAdd(aRet, nAliqIPI )
	aAdd(aRet, nBaseIPI )

Return aRet