Histórico da Página

#INCLUDE "PROTHEUS.CH"

User Function MaCCOFAPU()
    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 cCalcCF2 := "S" // S=Calcula COFINS; N=Não Calcula COFINS.
	Local nAliqCF2 := 10  // Retorna o percentual de alíquota do COFINS.
	Local nBaseCF2 := 1000  // Retorna a base de cálculo do COFINS.

/*

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

*/

      

	If cProduto $ 'PA0000000000000000000000000001'
        cCalcCF2 := "S"
        nAliqCF2 := 1
        nBaseCF2 := 1000
    ElseIf cProduto $ 'PA0000000000000000000000000002'
        cCalcCF2 := "S"
        nAliqCF2 := 3
    	nBaseCF2 := 3000
    EndIf    

	aAdd(aRet, cCalcCF2 )
	aAdd(aRet, nAliqCF2 )
	aAdd(aRet, nBaseCF2 )

Return aRet