Histórico da Página

#INCLUDE "PROTHEUS.CH"

User Function MaCalcCOF()
    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 cCalcCOF := "" // S=Calcula COFINS; N=Não Calcula COFINS.
	Local nAliqCOF := 0  // Retorna o percentual de alíquota do COFINS.
	Local nBaseCOF := 0  // Retorna a base de cálculo do COFINS.      

	If cProduto $ 'PA0000000000000000000000000001'
        cCalcCOF := "S"
        nAliqCOF := 1
        nBaseCOF := 1000
    ElseIf cProduto $ 'PA0000000000000000000000000002'
        cCalcCOF := "S"
        nAliqCOF := 3
    		nBaseCOF := 3000
    EndIf   

	aAdd(aRet, cCalcCOF)
	aAdd(aRet, nAliqCOF)
	aAdd(aRet, nBaseCOF)

Return aRet