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 := "SN" // S=Calcula COFINS; N=Não Calcula COFINS.
	Local nAliqCF2 := 100  // Retorna o percentual de alíquota do COFINS.
	Local nBaseCF2 := 10000  // Retorna a base de cálculo do COFINS.      

	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