Histórico da Página

#INCLUDE "PROTHEUS.CH"

User Function MaCalcIPI()
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.
Local nItem      := PARAMIXB[1] //Número do Item
Local cProduto   := PARAMIXB[2] //Código do Produto  

/*
PARAMIXB é o Array com dados da Operação com 6 elementos:
[1] = ITEM;
[2] = PRODUTO;
[3] = TES;
[4] = C se CLIENTE e F se FORNECEDOR;
[5] = CODIGO CLIENTE/FORNECEDOR;
[6] = LOJA CLIENTE/FORNECEDOR;
[7] = E-Entrada | S - Saida
*/

/*

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 )
aAdd(aRet, nItem )
aAdd(aRet, cProduto ) 

Return aRet