Histórico da Página

#INCLUDE "PROTHEUS.CH"

User Function MaCPISAPU()
    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 cCalcPS2 := "N" // S=Calcula PIS; N=Não Calcula PIS.
    Local nAliqPS2 := 0  // Retorna o percentual de alíquota do PIS.
    Local nBasePS2 := 0  // Retorna a base de cálculo do PIS.

    If cProduto $ 'PA0000000000000000000000000001'
        cCalcPS2 := "S"
        nAliqPS2 := 1
        nBasePS2 := 1000
    ElseIf cProduto $ 'PA0000000000000000000000000002'
        cCalcPS2 := "S"
        nAliqPS2 := 3
        nBasePS2 := 3000
    EndIf

    aAdd(aRet, cCalcPS2)
    aAdd(aRet, nAliqPS2)
    aAdd(aRet, nBasePS2)

Return aRet