Histórico da Página

#INCLUDE "PROTHEUS.CH"

User Function MaCalcIPI()
    Local aRetnItem      := {}
Local cCalcIPIPARAMIXB[1] //Número do Item
    Local cProduto   := ""PARAMIXB[2] // S=Calcula IPI; N=Não Calcula IPI.
Local nAliqIPICódigo do Produto
    Local cTes       := 0PARAMIXB[3]  //Código Retornada TES
  o percentual deLocal alíquotacCliFor do IPI.
Local nBaseIPI := 0 PARAMIXB[4] //Tipo Retornade aParticipante base(C de= cálculoCliente/F do= IPI.Fornecedor)
Local nItem   Local cCodCliFor  := PARAMIXB[15] //NúmeroCódigo do ItemParticipante
    Local cProdutocLoja      := PARAMIXB[26] //Código da Loja 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
*/

/*

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